Evaluated proc asc2hb str {m [chunk [nlsplit $str] 2] {x {ascii2hb_pair [join $x \n]}} \n}