Evaluated proc rgrep {r l} { map $l {x { if {[regexp $r $x] == 0} { . $x } } } }