Program cel;
Type vector=array[0..99] of byte;
var f,g:text;
    a:vector;
    x:longint;
    n,i,j:integer;
    p,u:byte;
Begin
Assign(f,'cifra.in');Reset(f);
Assign(g,'cifra.out');Rewrite(g);
i:=1;
While i<=99 do
 Begin
  p:=1;
  j:=1;
  While j<=i do
   Begin
    p:=p*i;
    p:=p mod 10;
    inc(j);
   end;
  u:=(u+p) mod 10;
  a[i]:=u;
  inc(i);
 end;
a[0]:=u;
Readln(f,n);
For i:=1 to n do
 Begin
  Readln(f,x);
  Writeln(g,a[x mod 100]);
 end;
Close(f);
Close(g);
end.