Evaluated set out ""; array set abc [ascii2map [lilweed]]; for {set i 0} {$i < [array size [ascii2map [lilweed]]]} {incr i} { append out "$abc($i)\n" };. $out