1. (defun f (N)
  2. "Compute the factorial of N."
  3. (if (= N 1)
  4. 1
  5. (* N (factorial (- N 1)))))
  6.  
  7. (setq a 18)
  8. (setq b 64)
  9. (setq c 22)
  10. (setq y 14)
  11. (defun g (m n)
  12. (if (> m n)
  13. m
  14. n))
  15. (+(+ a b)(*(+(g a c)(+(g a b)(*(+(+(* b c)a)c)c)c)c)(f y)))