Evaluated set out ""; set asc [ascii2map [lilweed]]; for {set i 1} {$i < [llength $asc]} {incr i 2} { append out "[lindex $asc $i]\n" };. $out