$_=($_%2?$_*3+1:$_/2||<>).$/while$_-print