(define half   (lambda (n) (/ n 2)))
(define double (lambda (n) (* n 2)))

(define (multiply m n)
  (display-mn m n)
  (if (= m 1)
      n
      (multiply (half m) (double n))))

(define (display-mn m n)
  (display m)
  (display " ")
  (display n)
  (newline))