sicp 1.11

(define f
    (lambda (x)
      (if (< x 3)
          x
          (+ (f (- x 1))
             (* 2 (f (- x 2)))
             (* 3 (f (- x 3)))))))

;;--
(define (f-tail n)
    (define f-i 
      (lambda (x y z cnt)
        (if (= cnt 2)
            z
            (f-i y z (+ (* 3 x) (* 2 y) z) (- cnt 1)))))
    (f-i 0 1 2 n))