program alex;
var f,g:text;
    s:string;
    er:integer;
    i,t,k,u,r,d,j,h,z,x,p:longint;
    c:array[0..200]of integer;

begin
assign(g,'cifra.out');rewrite(g);
assign(f,'cifra.in');reset(f);
readln(f,t);
for i:=1 to t do
    begin
    readln(f,s);
    k:=0;
    for j:=length(s) downto 1 do
        begin
        k:=k+1;
        val(s[j],c[k],er);
        end;
    r:=0;
    d:=0;
    for j:=k downto 1 do
        begin
        z:=c[j];
        c[j]:=(d*10+c[j])div 20;
        d:=(d*10+z)mod 20;
        r:=d;
        end;
    while(c[k]=0)and(k>0)do
          k:=k-1;
    u:=(c[1]*4)mod 10;
    for j:=1 to r do
        begin
        x:=j mod 4;
        p:=1;
        if x=0 then x:=4;
        for h:=1 to x do
            p:=p*j;
        p:=p mod 10;
        u:=(u+p)mod 10;
        end;
    writeln(g,u);
    end;
close(f);
close(g);
end.