(define (f n)
  (define (iter x y z count)
    (cond ((= count 0) x)
          ((= count 1) y)
          ((= count 2) z)
          (else (iter y z (+ (* 3 x) (* 2 y) z) (- count 1)))))
  (iter 0 1 2 n))