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