var t,i,n,s,k,j:longint;
    f,g:text;
procedure prel(n:integer);
begin
if n<>0 then begin
             k:=n mod 10;
             for j:=1 to n-1 do
                 k:=(k*(n mod 10)) mod 10;
             s:=(s+k) mod 10;
             prel(n-1);
             end;
end;
procedure citeste;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do begin
                 readln(f,n);
                 s:=0;
                 prel(n);
                 writeln(g,s mod 10);
                 end;
close(g);
close(f);
end;

begin
citeste;
end.
{program pentru:n<=maxlongint}