(defun absolute-value (x)
  (cond ((>= x 0) x)
	(t (* x -1))))

(defun conditional-example (x)
  (cond ((> x 5) (* x 10))
	((> x 0) (* x 5))
	(t x)))

(defun fibonacci (x)
  (cond ((= x 0) 0)
	((= x 1) 1)
	(t (+ (fibonacci (- x 1)) 
	      (fibonacci (- x 2))))))

(defun fibonacci-list (x)
  (cond ((< x 0) nil)
	(t (cons (fibonacci x)
		 (fibonacci-list (- x 1))))))