(if (or #t (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 '())))))