(define contains?
  (lambda (x xs)
    (if (null? xs)
        #f
        (if (eq? x (car xs))
            #t
            (contains? x (cdr xs))))))