Evaluated set out [list {}]; foreach line [ascii2map [ascii weed]] {map [$line] {x {set out [linsert $out end "[fgbg2str [lindex $x 0] [lindex $x 1]][lindex $x 2]"]}}; append out "\n"};join [ltrim $out] ""