program Debug;
var z, max, res, pom, t: integer;
    H, L: 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);
    
{    res:=power(res);}
    
    H:=((max-1) div res) * res;
    L:=((H-1) div res)*res;
    
    if (L>=1) and (H>L) and (H<max) then writeln(H, ' ', L) else
    writeln('Reseni neexistuje.');
    
    res:=power(res);
  end;
end.