Evaluated proc asc2hb_pair two { set lines [nlsplit $two]; set sizes [cgetsize $two]; set l1 [first $lines]; set l2 [second $lines]; set lc 0; set out ""; for {set x 0} {$x < [first $sizes]} {incr x} {set f [second [cgetchar $twolines $x 0]]; set b [second [cgetchar $twolines $x 1]]; if {[sid $f$b] == 1} { append out [chb $f $b]; set lc $b } elseif {[sid $f] == 1 || [sid $b] == 1} { set lc [dfl $f $b]; append out [chb $lc $lc] } { set out "$out[chb $lc $lc]" } }; . $out }