(DEFUN FIBONACCI (N)
	(COND
		((EQUAL N 1) 0)
		((EQUAL N 2) 1)
		(T (DO
			(
				(A 0)
				(B 1)
				(C (- N 2) (- C 1))
			)
			((ZEROP C) V)
			(SETQ V (+ A B))
			(SETQ A B)
			(SETQ B V)
		) )
	)
)

(DEFUN FIBONACCI-R (N)
        (COND
                ((EQUAL N 1) 0)
                ((EQUAL N 2) 1)
                (T (+ (FIBONACCI-R (- N 1)) (FIBONACCI-R (- N 2))))
        )
)