main=mapM print.f.read=<<getLine;f 1=[1];f n|odd n=n:f(3*n+1)|1<2=n:f(div n 2)