Resposta ao exercício 66
(defun fact (n &optional (result 1)) (if (= n 0) result (fact (1- n) (* n result))))