Evaluated proc map2ascii mmap { set out ""; foreach line  $mmap { foreach part $line { append out "[fgbg2str [lindex $part 0] [lindex $part 1]][lindex $part 2]" }; append out \n  }; . $out }