(define member? (lambda (item lst) (if lst (or (eq? item (car lst)) (member? item (cdr lst))) 0)))