Evaluated proc asc2hb ascii { set out ""; set a [nlsplit $ascii]; map [chunk $a 2] {x { set map [first [asc2hb_map $x]]; set m1 [first $map]; set m2 [second $map]; for {set x 0} {$x < [llength $m1]} {incr x} { set p1 [lindex $m1 $x]; set p2 [lindex $m2 $x]; append out "[^C]$m1,$m2[uhb]" }; append out \n  }}; . $out}