// Collatz series
//
// needs writing of strings and numbers; comments

bnd := 1;
while bnd < 100001 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;
  if (bnd > 1000) then break else skip
}