From ca9c150fc0b67a3d6901594f2d2d2f22017b166e Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sun, 2 Sep 2007 15:50:48 -0500
Subject: initial import

---
 test/test.snt | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 test/test.snt

(limited to 'test/test.snt')

diff --git a/test/test.snt b/test/test.snt
new file mode 100644
index 0000000..32f1eab
--- /dev/null
+++ b/test/test.snt
@@ -0,0 +1,15 @@
+: fact_rec
+  dup 1 != if
+    dup rot * swap 1 - fact_rec
+  then
+;
+
+: fact ( recursive factorial function )
+  1 swap fact_rec pop
+;
+
+: main
+  1 begin
+    dup ": strcat 15 fact spacecat notify
+  1 + dup 1000 > until
+;
-- 
cgit v1.2.3-54-g00ecf