if {![exists -proc altrow]} {
proc altrow {} {{i 0}} {
if { $i == 0 } {
puts "<tr class=odd>"
} else {
puts "<tr class=even>"
}
set i [expr ! $i]