(define (member? item set) (cond ((null? set) #f) ((equal? item (car set)) #t) (else (member? item (cdr set)))))
(define (member? item set) (cond ((null? set) #f) ((equal? (car set) item) #t) (else (member? item (cdr set)))))