--- gforth/Attic/other-tests.fs	1997/03/27 15:23:59	1.5
+++ gforth/Attic/other-tests.fs	1997/04/10 15:00:08	1.6
@@ -39,6 +39,19 @@ foo1
 0 locals-test1
 1 locals-test1
 
+
+\ recurse and locals
+
+: fac { n -- n! }
+    n 0>
+    if
+	n 1- recurse n *
+    else
+	1
+    endif ;
+
+5 fac 120 <> throw
+
 \ look for primitives
 
 ' + look 0= throw ( nt )
@@ -48,6 +61,7 @@ s" +" find-name <> throw
 
 1e pad 5 represent -1 <> swap 0 <> or swap 1 <> or throw
 
+
 \ comments across several lines
 
 ( fjklfjlas;d