;;; Michael Wollowski

(define rl
  (lambda ()
    (load "fun_demo.ss")))

(define factorial
  (lambda (n)
    (if (= n 0)
	1
	(* n (factorial (- n 1))))))

(define length
  (lambda (l)
    (cond [(null? l) 0]
	  [(atom? l) #f]
	  [else (+ 1 (length (cdr l)))])))