From 9c44e0fb29ba8448a0163c93f75d180a7681b06e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20Hru=C5=A1ka?= <ondra@ondrovo.com>
Date: Sun, 28 Nov 2021 11:40:19 +0100
Subject: [PATCH] add fac example

---
 testfiles/fac.f | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 testfiles/fac.f

diff --git a/testfiles/fac.f b/testfiles/fac.f
new file mode 100644
index 0000000..e2d6e4f
--- /dev/null
+++ b/testfiles/fac.f
@@ -0,0 +1,21 @@
+: fac ( num -- out )  
+  dup 1 > if dup 1- recurse * then ;
+
+: 0bye ( num -- ) 
+  0= if bye then ;
+
+: xdrop ( count -- )
+  0 do drop loop ;
+
+: >single ( c-addr u1 -- u2 )
+  0 0 2swap >number 3 xdrop ;
+
+30 chars buffer: buf
+
+." Number: " 
+buf 30 accept dup 0bye
+buf swap >single
+
+." Factorial of " dup . ." is "
+
+fac . cr