Evaluated proc asc2hb ascii { set a [nlsplit $ascii]; map [chunk $a 2] {x {  }} }