(define (double n) (+ n n))

(define (addRemainder n)
  (cond
    [(equal? n 1) n]
    [else (+ n (addRemainder (quotient n 2)))]))

(define (multiply n x)
  (cond
    [(or (zero? x) (zero? n)) 0]
    [(equal? x 1) (addRemainder n)]
    [else (multiply (double n) (quotient x 2))]))