Evaluated proc map2ascii mmap {array set ymap $mmap; for {set i 0} {$i < [array size $ymap]} {incr i} { array set bmap $ymap($i); foreach part $bmap { append out "[lindex $part 5],[lindex $part 3][lindex $part 1]" }; append out "\n" };. $out }