1 // Collatz series

     2 //

     3 // needs writing of strings and numbers; comments

     4 

     5 bnd := 1;

     6 while bnd < 100001 do {

     7   write bnd;

     8   write ": ";

     9   n := bnd;

    10   cnt := 0;

    11 

    12   while n > 1 do {

    13     write n;

    14     write ",";

    15     

    16     if n % 2 == 0 

    17     then n := n / 2 

    18     else n := 3 * n+1;

    19 

    20     cnt := cnt + 1

    21   };

    22 

    23   write " => ";

    24   write cnt;

    25   write "\n";

    26   bnd := bnd + 1

    27 }