;;; experiments.lisp

(defun fact (n)
  (if (zerop n)
      1
      (* n (fact (- n 1)))))

(defun reverse-list (l)
  (cond
    ((null l) nil)
    ((atom l) l)
    ((consp l) (append (reverse-list (cdr l)) (list (car l))))
    (t (error "not a list"))))