#| BEGIN (Введите свое решение) |#
(define (solution b n)
  (solution-iter b n 1))

(define (solution-iter b counter product)
  (if (= counter 0)
      product
      (if (even? counter)
          (solution-iter (* b b) (/ counter 2) product)
          (solution-iter b (- counter 1) (* b product)))))
                    
(define (even? n)
  (= (remainder n 2) 0))
#| END |#