--- a/progs/fact.fun	Mon Jul 27 11:02:48 2020 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,17 +0,0 @@
-// a simple factorial program
-// (including a tail recursive version)
-
-
-def fact(n) =
-  if n == 0 then 1 else n * fact(n - 1);
-
-def facT(n, acc) =
-  if n == 0 then acc else facT(n - 1, n * acc);
-
-def facTi(n) = facT(n, 1);
-
-//fact(10)
-//facTi(10)
-
-write(facTi(6))
-