Evaluated proc asc2hb ascii { set out ""; set a [nlsplit $ascii]; map [chunk $a 2] {x { append out "[asc2hb_map $x]\n \n \n" }}; . $out}