$m=$n=<>; while($n-1){ ++$i; $n=$n&1?$n*3+1:$n/2; $m=$n if $m<$n; } print$i+0,$/,$m+0