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