(define look-up-value
       (lambda (name)
         (cond
          ((equal? name '+) +)
          ((equal? name '*) *)
          ((equal? name '-) -)
          ((equal? name '/) /)
          (else
            (error "Unrecognized name" name)))))