find-map added by gahr on Wed Jan 1 21:44:36 2025

(define (find-map p l)
  (let loop ((l l))
    (cond ((null? l) #f)
          ((p (car l)) => identity)
          (else (loop (cdr l))))))