transcendental-lisp/lisp/problem.lisp

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

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