(in-package :User)

;;; this is a simple demonstration file for Clisp
;;; Tim Finin, http://umbc.edu/~finin/, November 2000

(require "showoutput")

(defun fact (n)
  ;; (fact n) returns n!
  (if (= n 1) 1 (* n (fact (- n 1)))))

(defun fib (n)
  ;; (fib n) returns the nth fibonacci number.
  (cond ((= n 0) 0)
        ((= n 1) 1)
        (t (+ (fib (- n 1)) (fib (- m 2))))))