Data update

Task/Menu/Quackery/menu.quackery

@@ -0,0 +1,17 @@
+  [ swap dup [] = iff nip done
+    [ dup witheach
+        [ i^ 1+ echo say ") "
+          echo$ cr ]
+      over input
+      $->n not  iff drop again
+      dup 1 <   iff drop again
+      over size
+      over <    iff drop again ]
+    rot drop 1 - peek ]          is menu ( [ $ --> $ )
+
+  ' [ $ "fee fie"   $ "huff and puff"
+      $ "mirror mirror" $ "tick tock" ]
+  [] swap witheach [ do nested join ]
+
+  $ "What does a clock say? " menu
+  say "Your answer: " echo$