(define (find searchf iterstate arr acc)
    (define temp (searchf iterstate arr))
    
    (define result (first temp)); search result
    (define iterstate (second temp)); next iteration state
    (if (null? result)
        (acc)
        (find searchf nextiterstate arr (cons nextresult acc))) )