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