Evaluated proc ascii2map args {array set ymap ""; set c 0; set lines [split [. $args] \n]; foreach line $lines { set ymap($c) [ascii2map_line $line]; incr c };array get ymap }