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