Project Euler Problem 15 Common Lisp

Project Euler Problem 15

(defun factorial (num)
  (reduce #'*
          (loop for i from 2 to num collect i)))

(defun problem15 ()
  (/ (factorial (* 2 20))
     (expt (factorial 20) 2)))