Evaluated proc allowed {str chars} {set out ""; map [explode $str] {x { set out [string map {$x {}} $out; . $x] }} }