//Kiểm tra tính nguyên tố :)
uses crt;
var n:integer;
    x,i:longint;
    prime:array[1..1000] of boolean;

procedure sieve(n:longint);
var i,j:longint;
begin
    fillchar(prime, sizeof(prime), true);
    i:=2;

    for i:=2 to trunc(sqrt(n)) do
        if prime[i] then
            begin
                j:=i * i;
                while j <= n do
                    begin
                        prime[j]:=false;
                        inc(j,i);
                    end;
            end;
end;

procedure solve();
var i:longint;
begin
    readln(x);

    sieve(x);
    for i:=2 to x - 2 do
        if(prime[i]) and (prime[x - i]) then
            begin
                writeln(i,' ',x - i);
                break;
            end;
end;

begin
clrscr;
    readln(n);
    for i:=1 to n do
        solve();
readln;
end.