1 (defun Fr (n)
2   (cond ((< n 3) n)
3 	(t (+ Fr (- n 1))
4 	   (* 2 (Fr (- n 2)))
5 	   (* 3 (Fr (- n 3))))))
6 (defun F-iter (n)
7   (if (< n 3)
8       n
9     (F-iter-aux 2 1 0 n)))
10 (defun F-iter-aux (a b c count)
11   (if (= count 2)
12       a
13     (F-iter-aux (+ a (* 2 b) (* 3 c))
14 		a
15 		b
16 		(- count 1))))