program calcul;
var k,l:text;
    s:array[1..100] of string;
    x,o:array[1..100] of longint;
    i,j:longint;
    c:integer;
    n,p,s1:qword;
    begin
assign(k,'cifra.in');
reset(k);
readln(k,n);
for i:=1 to n do
readln(k,s[i]);
close(k);
for i:=1 to n do
val(s[i],x[i],c);
for i:=1 to n do begin
p:=1;
for j:=1 to x[i] do begin
p:=p*x[i];
p:=p mod 10;
end;
s1:=s1+p;
o[i]:=s1 mod 10;
end;
assign(l,'cifra.out');
rewrite(l);
for i:=1 to n do
writeln(l,o[i]);
close(l);
end.