writeln(a:=""at(Date second*9&3));while(a>1,writeln(a=if(a%2<1,a/2,3*a+1)))