program TEST;
var
  i : integer;

function f(x : integer) : integer ;
begin
   if x mod 2 = 0 then
      f := x div 2
   else
      f := 3*x + 1;
end;

function g(x : integer ; y : integer) : integer ;
begin
   g := f(x+y) + y;
end;

begin
   i := 17;
   while i <> 1 do begin
      writeln(i);
      i := f(i);
   end;

   for i := 0 to 10 do begin
      writeln(g(i,3));
      writeln(g(4*i,3-i));
      writeln('i=',i);
      writeln(g(i,f(i)));
      writeln(g(g(2*i,i),g(i,2*i)));
   end;
end.