var a:array[0..100]of byte;
    f,t:text; s:string; r,cod:integer; n,i:longint;

function power(x:integer):integer;
var i,k:integer;
begin
 k:=x;
 for i:=2 to x do k:=(k*x)mod 10;
 power:=k;
end;

procedure generare_vect;
var i:integer;
begin
 a[0]:=0;
 for i:=1 to 100 do
  a[i]:=(power(i)+a[i-1]) mod 10;
end;


begin
 generare_vect;
 assign(f,'cifra.in');
 reset(f);
 assign(t,'cifra.out');
 rewrite(t);
 readln(f,n);
 for i:=1 to n do
  begin
   readln(f,s);
   val(copy(s,length(s)-1,2),r,cod);
   writeln(t,a[r]);
  end;
 close(f);
 close(t);
end.