Program cel;
Type vector=array[0..99] of byte;
var f,g:text;
    a:vector;
    x:string[100];
    n,i,j:integer;
    p,u:byte;

function trans(x:string):byte;
var e,p:integer;
Begin
If length(x)=1 then val(x,p,e)
               else Begin
                     delete(x,1,length(x)-2);
                     val(x,p,e);
                    end;
trans:=p;
end;
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[trans(x)]);
 end;
Close(f);
Close(g);
end.