Evaluated set s [2dsize [ascii weed]]; set out ""; set y 0; foreach line [split [ascii weed] \n] { for {set x 0} {$x < [lindex $s 1]} {incr x} { set a [cgetchar [ascii2map [ascii weed]] $x $y]; append out "[fgbg2str [lindex $a 0] [lindex $a 1]][lindex $a 2]" }; append out "\n"; incr y };. $out