(define (cl:find-if pred? lst) (cond ((null? lst) #f) ((pred? (car lst)) (car lst)) (else (cl:find-if pred? (cdr lst))))) ;@