uses crt;
var t,i,s1: longint;
    a: array[1..10000] of longint;
    fi,fo: text;
function nt(n: longint): boolean;
var i: longint;
begin
    if n<2 then exit(false);
    for i:=2 to round(sqrt(n)) do if n mod i = 0 then exit(false);
    exit(true);
end;
begin
    assign(fi,'CAU4.INP'); reset(fi);
    assign(fo,'CAU4.OUT'); rewrite(fo);
    readln(fi,t);
    for i:=1 to t do readln(fi,a[i]);
    for i:=1 to t do begin
        s1:=2;
        while nt(a[i]-s1)=false do inc(s1);
        writeln(fo,s1,' ',a[i]-s1);
    end;
    close(fi);
    close(fo);
end.

uses crt;//n
var n,i,h,k,j:longint;
    a:array[1..100000] of longint;
function snt(x:longint):boolean;
begin
snt:=true;
if x<2 then
 snt:=false
else
for j:=2 to round(sqrt(x)) do
begin
 if x mod j = 0 then
  snt:=false;
end;
end;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
 h:=a[i] div 2;
 k:=a[i] div 2;
 while snt(h) = false do
  h:=h+1;
 while snt(k) = false do
  k:=k-1;
 writeln(k,' ',h);
end;
readln;
end.