(define (make-from-mag-ang magnitude angle)
(define (dispatch op)
  (cond ((eq? op 'real-part) (* magnitude (cos angle)))
    ((eq? op 'imag-part) (* magnitude (sin angle)))
    ((eq? op 'magnitude) magnitude)
    ((eq? op 'angle) angle)
    (else
      (error "Unknow op -- MAKE_FROM_MAG_ANG" op))))
diapatch)