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