Data update

Task/Factorial-primes/Quackery/factorial-primes.quackery

@@ -0,0 +1,20 @@
+  [ dup 10 < if sp echo ]     is recho   ( n -->   )
+
+  [] 0
+  [ 1+ dup !
+    dup dip
+      [ 1 - isprime if
+        [ tuck negate join swap ] ]
+    1+ isprime if
+      [ tuck join swap ]
+    over size 9 > until ]
+  drop 10 split drop
+  witheach
+    [ i^ 1+
+      recho say ": "
+      dup abs tuck recho
+      0 < iff
+        [ say "! - 1 = " -1 ]
+      else
+        [ say "! + 1 = "  1 ]
+      swap ! + echo cr ]