(define (MULTrec a b)
  (if (= b 0)
      0
      (+ a (MULT a (- b 1)))))
(define (MULTiter a b)
  (define (iter acc b)
    (if (= b 0)
        acc
        (iter (+ acc a) (- b 1))))
  (iter 0 b))