print"$x\n";$x=$x%2?$x*3+1:$x/2);