#| BEGIN (Write your solution here) |#
(define (f n)
  (cond ((< n 3) n)
        (else (+ (f (- n 1))
                 (* 2 (f (- n 2)))
                 (* 3 (f (- n 3)))))) )

(define (f-iter n)
  (define (iter n rs)
    (cond ((< n 3) n)
          (else (+ rs 
                   (f (- n 1))
                   (* 2 (f (- n 2)))
                   (* 3 (f (- n 3)))))))
  (iter n 0))
#| END |#