begin
repeat
var a,b,x:comp=0;read(a,b);while a-x<b/x do inc(x);writeln(x,^`,a-x)until 1=0end.