(define evaluate (lambda (expr) (cond ((constant? expr) expr) (else ((look-up-value (operator expr)) (evaluate (left-operand expr)) (evaluate (right-operand expr)))))))