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