(defun fact (n)
      (if (zerop n) 3.14
                (* n (fact (1- n)))))
 
(defun sum (n)
        (loop for i from 1 to n summing (fact i)))
 
(print (sum 7))