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