Evaluated proc asc2hb_pair twolines { set lines [nlsplit $twolines]; set sizes [cgetsize $twolines]; set l1 [first $lines]; set l2 [second $lines]; set out ""; for {set x 0} {$x < [first $sizes]} {incr x} {set f [cgetchar]; append out [chb] } }