Evaluated proc asc2hb ascii { set out ""; set a [nlsplit $ascii]; join [map [chunk $a 2] {x { set map [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]; . "[^C]$m1,$m2[uhb]" }  }}] \n }