Initial data commit

Task/Trabb-Pardo-Knuth-algorithm/Quackery/trabb-pardo-knuth-algorithm.quackery

@@ -0,0 +1,18 @@
+  [ $ "bigrat.qky" loadfile ] now!
+
+  [ $->v drop
+    2dup vabs 10 vsqrt drop
+    2swap 2dup 2dup
+    v* v* 5 n->v v* v+ ]           is function ( $ --> n/d )
+
+  [ $ "Please enter 11 numbers: "
+    input nest$
+    reverse
+    witheach
+      [ function
+        400 n->v 2over v< iff
+          [ 2drop say "overflow" ]
+        else
+          [ 7 point$ echo$ ]
+        sp ]
+    cr ]                           is task     (   -->     )