#lang racket

(provide full-eval)

(define (full-eval expr)
  (define ^ expt)
  (eval expr))