Evaluated set out [list {}]; map [ascii2map [ascii weed]] {x {uplevel "set out [linsert \$out end $x"}};. $out