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.