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