Move 1988-2004 entries into subdirs

We we move 1988-2004 entries from all of a year's winning entries
in a single directory to each winner being in their own sub-directory
under the given year directory.

1992/buzzard.2/demo4.th

@@ -0,0 +1,30 @@
+( compute factorial recursively )
+( take x as input, return x! and x as output )
+
+: fact-help
+
+  dup if
+    1 -			( leave x-1 on top )
+    fact-help		( leave x-1, [x-1]! )
+    1 +			( leave x, [x-1]!, x )
+    swap over swap	( leave [x-1]!, x, x )
+    *			( into x!, x )
+    swap		( into x, x! )
+  else
+    1 swap
+  then
+;
+
+: fact
+
+  fact-help
+  drop
+
+;
+
+: demo4
+  " 4 factorial is: " 4 fact . cr
+  " 6 factorial is: " 6 fact . cr
+;
+
+demo4