From 1c81d26b706abb43ba71eb36cdb622dae03e95cd Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@spork.org>
Date: Mon, 25 Aug 2025 12:06:51 -0400
Subject: add sample code in site

---
 site/index.html     | 14 +++++++++-----
 site/samples/fac.fs | 12 ++++++++++++
 2 files changed, 21 insertions(+), 5 deletions(-)
 create mode 100644 site/samples/fac.fs

diff --git a/site/index.html b/site/index.html
index 8551d3a..6583568 100644
--- a/site/index.html
+++ b/site/index.html
@@ -13,11 +13,15 @@
         <button id='compile'>compile</button>
         <br>
         <div id='src' contenteditable='plaintext-only'>: fac ( n -- n )
-    dup
-    1 > if
-        dup 1 - fac *
-    then
-    ;
+	dup		( n n )
+	1 > if		( n flag )
+		dup	( n n )
+		1 -		( n n-1 )
+		fac		( n fac-n )
+		*		( n )
+	then		( n )
+;
+
 5 fac
 drop</div>
       </div>
diff --git a/site/samples/fac.fs b/site/samples/fac.fs
new file mode 100644
index 0000000..c17968b
--- /dev/null
+++ b/site/samples/fac.fs
@@ -0,0 +1,12 @@
+: fac ( n -- n )
+	dup		( n n )
+	1 > if		( n flag )
+		dup	( n n )
+		1 -		( n n-1 )
+		fac		( n fac-n )
+		*		( n )
+	then		( n )
+;
+
+5 fac
+drop
-- 
cgit v1.3