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