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