map{$j|=++$i,$_=$_&1?$_*3+1:$_/2while$_-1;print$j-$i,$j=$i=$/}<>