diff --git a/test-opt.scm b/test-opt.scm
new file mode 100644
index 00000000..26d2f919
--- /dev/null
+++ b/test-opt.scm
@@ -0,0 +1,13 @@
+;; A temporary test file
+
+(import (scheme base) (scheme write))
+
+(let ((x 1))
+  (define y 2)
+  (write
+    (+ x y)))
+
+(define (test a)
+  (write 3))
+
+(test 4)