Data commit

Task/Nim-game/Quackery/nim-game.quackery

@@ -0,0 +1,22 @@
+  [ $ "Take how many tokens? (1-3) "
+    input
+    trim reverse
+    trim reverse
+    $->n
+    not iff drop again
+    dup 1 4 within
+    not iff drop again ]             is getmove ( --> n )
+
+  [ 12
+    [ say "There are "
+      dup echo
+      say " tokens." cr cr
+      getmove tuck -
+      4 rot - dup
+      cr say "Computer takes "
+      echo
+      say "." cr cr
+      -
+      dup 0 = until ]
+    drop
+    say "Computer wins." cr ]        is play    ( -->   )