$_=<>*2;print$_=$_&1?$_*3+1:$_/2,$/while$_>1