program vector1;
type vector=array[1..10000] of longint;
var f,g:text;
    v:vector;
    n,i,p,z,j,sum,t:longint;
begin
assign(f,'cifra.in');assign(g,'cifra.out');reset(f);rewrite(G);
readln(f,t);
for i:=1 to t do begin
readln(f,n);
for z:=1 to n do begin
v[z]:=1;
for j:=1 to z do v[z]:=(v[z] mod 10000)*(z mod 10000);
end;p:=0;
for z:=1 to n do begin
p:=p+(v[z]mod 10000);
p:=p mod 10000;end;
v[z]:=p;
sum:=p;
while sum mod 10=0 do
sum:=sum div 10;
writeln(g,sum mod 10);end;
close(f);close(g);end.