(define (mult x y)
 (let mult-1 ((y y) (total 0))
  (cond ((= y 0) total)
        (else (mult-1 (- y 1) (+ total x))))))