diff --git a/src/lisp/test-closures.lisp b/src/lisp/test-closures.lisp
new file mode 100644
index 0000000..1311a98
--- /dev/null
+++ b/src/lisp/test-closures.lisp
@@ -0,0 +1,5 @@
+(defun main ()
+  (let1 (number 3)
+    (let1 (adds-3 (lambda (n)
+                    (+ n number)))
+      (print (apply adds-3 '(4))))))