#| BEGIN (Введите свое решение) |#
(define (impl counter a b c)
    (if (= counter 0)
        c
        (impl (- counter 1)
              b
              c
              (+ c (* 2 b) (* 3 a)))))

(define (f-iter n)
  (if (< n 3)
      n
      (impl (- n 2) 0 1 2)))

(define (f n)
  (if (< n 3)
      n
      (+ (f (- n 1))
         (* 2 (f (- n 2)))
         (* 3 (f (- n 3))))))
#| END |#