1 2 3 4 5 6 7 8
#lang racket (provide full-eval) (define (full-eval expr) (define ^ expt) (eval expr))