1 files changed, 12 insertions, 0 deletions
diff --git a/Test/fact.b b/Test/fact.b
new file mode 100644
index 0000000..995a26d
--- /dev/null
+++ b/Test/fact.b
@@ -0,0 +1,12 @@
+define f (x) {
+
+  if (x<=1) return(1)
+  return (f(x-1)*x)
+}
+
+for (a=1; a<600; a++) b=f(a)
+"
+"
+"b=";b
+quit
+