(defun selfactorial (self, n) (* n (if (< n 3) 1 (f f (- n 1)))))
(defun factorial (n) (selfactorial selfactorial n))