if {![exists -proc altrow]} { proc altrow {{attrs ""}} {{i 0}} { puts -nonewline ""; set i [expr ! $i] } }