var a,b:qword;
    i,j,t,x,y,m,n:longint;
    s:string;
    v:array[0..100] of longint;
begin
{for n:=1 to 100 do
begin
 a:=0;}
 for i:=1 to 100 do
    begin
     b:=1;
     for j:=1 to i do
      begin  b:=b*i; b:=b mod 1000; end;
     a:=a+b;
     a:=a mod 10;
     v[i]:=a;
    end;
{ v[n]:=a;
end; }
assign(input,'cifra.in');
reset(input);
assign(output,'cifra.out');
rewrite(output);
readln(t);
 for x:=1 to t do
  begin
   readln(s);
   if  length(s)>2 then s:=s[length(s)-1]+s[length(s)];
   val(s,n,m);
   a:=0;
   {for i:=1 to n do
    begin
     a:=a+v[i];
     a:=a mod 10;
    end;}
   writeln(v[n] mod 10);
 
  end;
close(input);
 
 
{for n:=1 to 150 do
begin
a:=0;}
{ for i:=1 to n do
  begin
   b:=1;
   for j:=1 to i do
    begin  b:=b*i; b:=b mod 1000; end;
 
   a:=a+b;
   a:=a mod 10;
  end;
writeln(a mod 10);
end;}
 
close(output);
end.