From ffb15e8d87e72d84a7bb0b08cdd2abdc0d8ec6bf Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 1 Oct 2018 13:21:01 -0400
Subject: [PATCH] New test file

---
 tests/experimental/fac-test.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 tests/experimental/fac-test.scm

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))