program vanatoare;
var ka, kb, a, b, c: longint;
    nr: word;
    fin, fout: text;
BEGIN
  Assign(fin, 'vanatoare.in'); Reset(fin);
  readln(fin, ka);
  readln(fin, kb);
  Close(fin);
  a := 1; b := 1;
  nr:=0;
  while (ka>=(b div 2 + b mod 2))and (kb>=(b div 2)) do
    begin
      inc(nr);
      ka := ka-(b div 2 +b mod 2);
      kb := kb-(b div 2);
      c := a+b;
      a := b;
      b := c;
    end;
  Assign(fout, 'vanatoare.out'); ReWrite(fout);
  writeln(fout, nr);
  writeln(fout, ka);
  writeln(fout, kb);
END.