(defun problem (n)
  (if (< n 1) nil
    (cons n (problem (- n 1)))))

(setf y (problem 20))
(setf x (problem 20000))