September 2017 Update

Task/Loops-While/DUP/loops-while-1.dup

@@ -0,0 +1 @@
+1024[$][$.10,2/\%]# {Short form}

Task/Loops-While/DUP/loops-while-2.dup

@@ -0,0 +1,6 @@
+1024                {push 1024 on stack}
+    [ ][         ]# {while[condition>0][do]}
+     $              {DUP}
+        $.          {DUP, print top of stack to STDOUT}
+          10,       {print newline}
+             2/\%   {2 DIV/MOD SWAP POP}

Task/Loops-While/DUP/loops-while-3.dup

@@ -0,0 +1 @@
+1024[$][$.10,1»]#

Task/Loops-While/DUP/loops-while-4.dup

@@ -0,0 +1,11 @@
+1024
+512
+256
+128
+64
+32
+16
+8
+4
+2
+1