Evaluated set out [list {}]; map [first [ascii2map 4hello5hihihihi6lalalaa]] {x {uplevel [set out [linsert $out end [lindex $x 0]]]}};. $out