Resposta ao exercício 66

(defun fact (n &optional (result 1))
  (if (= n 0)
    result
    (fact (1- n) (* n result))))