c 1=0
c n=1+c(cycle[div n 2,3*n+1]!!n)
m@main=do n<-c<$>readLn;print$until(>n)(*2)1-n-1;m