diff --git a/lisp/lang/functions.lisp b/lisp/lang/functions.lisp
index d222b99..c984c47 100644
--- a/lisp/lang/functions.lisp
+++ b/lisp/lang/functions.lisp
@@ -64,3 +64,7 @@
   (cond
    ((equal 0 n) (first listA))
    (t (nth (- n 1) (rest listA)))))
+
+(eval
+  (let ((expr (gensym)))
+    `(defun global-eval (,expr) (eval ,expr))))