diff -r a6e9fc38ae54 -r aad5957eb7e4 cwtests/cw02/collatz2.while
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cwtests/cw02/collatz2.while	Sat Sep 04 14:08:00 2021 +0100
@@ -0,0 +1,27 @@
+// Collatz series
+//
+// needs writing of strings and numbers; comments
+
+bnd := 1;
+while bnd < 101 do {
+  write bnd;
+  write ": ";
+  n := bnd;
+  cnt := 0;
+
+  while n > 1 do {
+    write n;
+    write ",";
+    
+    if n % 2 == 0 
+    then n := n / 2 
+    else n := 3 * n+1;
+
+    cnt := cnt + 1
+  };
+
+  write " => ";
+  write cnt;
+  write "\n";
+  bnd := bnd + 1
+}
\ No newline at end of file