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