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