Find all words

Assuming all words are simple REs (no metacharacters):

 proc findAllWords {wordList text} {
    set start 0
    while {[llength $wordList]} {
       set RE [join $wordList |]
       if {![regexp -start $start -indices $RE $text range]} {
          return 0
       set word [eval [list string range $text] $range]
       set idx [lsearch -exact $wordList $word]
       set wordList [lreplace $wordList $idx $idx]
       set start [expr {[lindex $range 1]+1}]
    return 1

RS understood the task differently, more like cascaded greps:

 proc findAllWords {wordlist linelist} {
    set res {}
    foreach line $linelist {
        set missed 0
        foreach re $wordlist {
            if {![regexp -- $re $line]} {set missed 1; break}
        if {!$missed} {lappend res $line}
    return $res

WJP Posting code for a problem that isn't stated isn't all that helpful. Could someone please state the problem? - RS: The problem came uo in the Tcl chatroom: a substitute for agrep in pure Tcl which allows searching for several terms in no particular order. E.g. agrep 'foo;bar;grill' will report lines that contain "" or "", etc.