program p1;
var f,g:text;
   s2:string;
   i,j,n,m,c1,c,n2,s:longint;
   err:integer;
function u(k,m:longint):byte;
begin
c:=k mod 10;
c1:=1;
for i:=1 to m do c1:=(c1*c) mod 10;
u:=c1;
end;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
    readln(f,s2);
    val(s2[length(s2)], n2, err);
    s:=0;
    for j:=1 to n2 do begin s:=s+u(j,j); s:=s mod 10; end;
    writeln(g,s);
    end;
close(f);close(g);
end.