Evaluated proc ascii2map_line str {set out ""; set amap [list]; set parts [split $str "\x03"]; foreach chunk $parts { append out "=== $chunk === "; };. $out}