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 $twolines $x 0]; set b [cgetchar $twolines $x 1]; append out [chb $f $b] }; . $out }