program Debug;
var z, max, res, pom, t: integer;

function power(n: integer): integer;
begin
  power:=round(exp(n*ln(2)));
end;

begin
  readln(z);
  while z>0 do
  begin
    z:=z-1;
    
    readln(max, res);
    
    max:=max-1;
    
    pom:=power(res);	{ maximalni cislo }
    
    if pom>=max then begin writeln('Reseni neexistuje.'); continue; end;
    
    write(max, ' ');
    
    t:=max div res; t:=t*res;
    
    if t=max then
    begin
      t:=(max-1) div res; t:=t*res;
    end;
    writeln(t);
  end;
end.