(defun fac (number)
    (cond
        ((= number 1)
            number)
        (t
            (* number (fac (- number 1))))