for good measure, here's one example. you don't even want to know how it looked like before. ;-)

: find-all ( string from-chr to-chr -- seq )
    [ find-all-firsts ] [ find-all-seconds ] 1bi2* close-match get-text ;