Data commit

Task/Nth/Quackery/nth.quackery

@@ -0,0 +1,24 @@
+  [ table ]                is suffix   (   n --> $ )
+
+  $ "th st nd rd th th th th th th"
+  nest$ witheach [ ' suffix put ]
+
+  [ dup number$
+    swap dup 100 mod
+    10 21 within iff
+      [ drop $ "th" join ]
+    else
+      [ 10 mod
+        suffix join ] ]    is ordinal$ (   n --> $ )
+
+  [ over - 1+
+    [] swap times
+      [ over i^ + ordinal$
+        nested join ]
+    nip  50 wrap$ ]        is test     ( n n -->   )
+
+  0 25 test
+  cr
+  250 265 test
+  cr
+  1000 1025 test