> var i,n,m,ans,t,max:longint;
>     b:boolean;
> begin
>   while not eof do begin
>     read(n,m);
>     b:=false;
>     if n>m then begin
>       t:=n; n:=m; m:=t; b:=true; end;
>     max:=0;
>     for i:=n to m do begin
>       t:=i;
>       ans:=1;
>       while t>1 do begin
>         if odd(t) then t:=t*3+1 else t:=t div 2;
>         ans:=ans+1;
>       end;
>       if ans>max then max:=ans;
>     end;
>     if b then writeln(m,' ',n,' ',max) else writeln(n,' ',m,' ',max)
>   end;
> end.