diff --git a/tests/experimental/fac-test.scm b/tests/experimental/fac-test.scm
new file mode 100644
index 00000000..9d969a31
--- /dev/null
+++ b/tests/experimental/fac-test.scm
@@ -0,0 +1,12 @@
+(import (scheme base)
+        (scheme write)
+)
+
+;(define (test n) 
+;  ((lambda (x) (+ x x))
+;   n))
+;(write (test 10))
+
+(define (fac n) (if (= n 0) 1 (* n (fac (- n 1)))))
+
+(write (fac 10))