var
  x,y,a,b,c,i,j,h:integer;
begin
  readln(x,y);
  for i := 1 to y do begin
    for j := i to x do begin
      a := i;
      b := j;
      for h := 3 to y do begin
        if(i=5)and(j=2)then writeln(a,' ',b);
        c := a + b;
        a := b;
        b := c;
      end;
      if(b=y)then begin
        writeln(i,' ',j);
        exit;
      end;

      end;
    end;
  readln;
  readln;
end.