(define (F-iter n)
(if (< n 3)
n
(F-iter-aux 2 1 0 n)))

(define (F-iter-aux a b c count)
(if (= count 2)
a
(F-iter-aux (+ a (* 2 b) (* 3 c))
a
b
(- count 1))))