mheise

(defun sum(l)
  (reduce #'+ l))

(defun avg (a &rest rest)
  (/ (apply #'+ a rest) (+ 1 (length rest))))

(defun fact(n)
  (if (or (= n 1) (= n 0))
    1
    (* n (fact (- n 1)))))