program collatz;
var a, b, i: integer;
begin
readln (a);
b:=a;
i:=0;  
repeat
    if (b mod 2)=0 then
     b:=(b div 2)
    else b:=3*b+1;
    i:=i+1;
  until b=1;
writeln (i)
end.