Evaluated proc ascii2map_line str {set amap [list]; set parts [split $str "\x03"]; foreach chunk $parts { set nums [split [lindex [split $chunk " "] 0] ","]; linsert $amap end $nums };. $amap }