(defun problem (n) (cond ((< n 1) nil) (T (cons n (problem (- n 1))))))
(setf x (problem 20000))