transcendental-lisp/lisp/random/problem.lisp

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

(setq y (problem 20))
(setq x (problem 20000))