: fetch-more ( seq sa first-index quot -- matches ) [ call -rot '[ dup , swap , nth load swap head? ] ] [ '[ dup @ swap ] ] bi [ ] produce nip ;
Done