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} { append out [cgetchar [ascii weed] $x $y] }; append out \n; incr y };. $out