Data commit

Task/Juggler-sequence/Quackery/juggler-sequence.quackery

@@ -0,0 +1,35 @@
+  [ dip number$
+    over size -
+    space swap of
+    swap join echo$ ]          is recho   ( n n -->   )
+
+  [ 1 & ]                      is odd     (   n --> b )
+
+  [ dup dup * * ]              is cubed   (   n --> n )
+
+  [ dup 1
+    [ 2dup > while
+      + 1 >>
+      2dup / again ]
+    drop nip ]                 is sqrt    (   n --> n )
+
+  [ nested
+    [ dup -1 peek 1 != while
+      dup -1 peek
+      dup odd if cubed
+      sqrt join again ] ]      is juggler (   n --> [ )
+
+  [ dup 4 recho
+    juggler
+    dup size 1 -
+    3 recho
+    0 swap behead swap
+    witheach
+      [ 2dup < if
+          [ rot drop
+            i^ 1+ unrot
+            swap ]
+        drop ]
+    15 recho 2 recho cr ]     is stats   (   n -->   )
+
+  20 times [ i^ 20 + stats ]