(if (cond
     (#f #f)
     (else
      (or (= 2 (car (cons 2 '()))) (number-in-set? 2 (cdr (cons 2 '()))))))
  (cons 3 (cons 1 (cons 2 '())))
  (cons (car (cons 2 (cons 3 '()))) (cons 3 (cons 1 (cons 2 '())))))