(define (dou x) (* x 2))
(define (hal x) (/ x 2))
(define (fastmul a b)
(cond ((= b 0) 0)
((even? b) (dou (fastmul a
(hal b))))
(else (+ a (fastmul a
(- b 1))))))
(define (dou x) (* x 2))
(define (hal x) (/ x 2))
(define (fastmul a b)
(cond ((= b 0) 0)
((even? b) (dou (fastmul a
(hal b))))
(else (+ a (fastmul a
(- b 1))))))