(defun problem (n)
(if (< n 1) nil
(cons n (problem (- n 1)))))
(setf y (problem 20))
(setf x (problem 20000))