var a:array[0..99] of integer;
ch:array[1..3] of char;
c:char;
f,g:text;
i,j,t,aux,p,b,r,l,s,a1,a2,a3,cod:longint;


procedure calc(m:integer);
begin
p:=m mod 4;
b:=m mod 10;
case p of
0:r:=b*b*b*b;
1:r:=b;
2:r:=b*b;
3:r:=b*b*b;
end;
a[m]:=r mod 10;
end;

begin
assign(f,'cifra.in');
reset(f);
read(f,t);
assign(g,'cifra.out');
rewrite(g);
s:=0;
for i:=0 to 99 do begin
calc(i);
{s:=s+a[i];}
end;
{s:=s mod 10;}
for i:=1 to t do begin
ch[1]:='0';
ch[2]:='0';
ch[3]:='0';
readln(f);
while not eoln(f) do begin
read(f,c);
ch[1]:=ch[2]; ch[2]:=ch[3]; ch[3]:=c;
end;
val(ch[1],a1,cod);
val(ch[2],a2,cod);
val(ch[3],a3,cod);
l:=a2*10+a3;
aux:=0;
for j:=1 to l do
aux:=aux+a[j];
aux:=s*a1+aux;
writeln(g,aux mod 10);
end;
close(f);
close(g);
end.