#| BEGIN (Введите свое решение) |#
(define (double x) (+ x x))
(define (halve x) (/ x 2))

(define (mul-iter x y)
  (define (iter a b acc)
    (cond [(= b 0) acc]
          [(even? b) (iter (double a) (halve b) acc)]
          [else (iter a (- b 1) (+ a acc))]))
  (iter x y 0))
#| END |#