scale=0;x=read();x;while(x>1){y=x%2;x=y*(x*3+1)+(1-y)*x/2;x}