// 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

}