for(scale=!a=read();1<a;a=a%2*(3*a+1)+a/2*!a%2)a;a