--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/progs/loops.while	Sat Jun 15 09:23:18 2013 -0400
@@ -0,0 +1,18 @@
+start := 1000;
+x := start;
+y := start;
+z := start;
+while 0 < x do {
+ while 0 < y do {
+  while 0 < z do {
+    z := z - 1
+  };
+  z := start;
+  y := y - 1
+ };     
+ y := start;
+ x := x - 1
+};
+write x;
+write y;
+write z