uses crt;
var n,i,t,h,c:longint;
    f,g:text;
    a:string;
procedure uc(a:longint;var n:longint);
var n2,n1,i,s:longint;
 begin
 n2:=a mod 10;
 i:=0;s:=n2;n2:=1;
 repeat
 inc(i);
 n2:=n2*s;
 until i=a;

 if a>=2 then
    begin
    uc(a-1,n1);
    n:=(n1+n2)mod 10;
    end
     else if a=1 then n:=n2
                else n:=0;



 end;
begin
clrscr;
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,t);
for i:=1 to t do
   begin
   readln(f,a);
   val(a,h,c);
   uc(h,n);
   writeln(g,n);
   end;
close(f);close(g);
end.