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