var t,ucif,r,i,j,k,p,sum,q:longint;
    n:integer;
    sn:string;
    f,g:text;
begin
     assign(f,'cifra.in');
     reset(f);
     readln(f,t);
     assign(g,'cifra.out');
     rewrite(g);
     {
     for i:=1 to t do readln(f,n[i]);
     for i:=1 to t do begin
         sum:=0;
         for j:=1 to n[i] do begin
             ucif:=j mod 10;
             r:=j mod 4;
             if r=0 then r:=4;
             p:=1;
             for k:=1 to r do p:=p*ucif;
             sum:=(sum+p) mod 10;
         end;
         writeln(g,sum);
     end;
     }
     for i:=1 to t do begin
        readln(f,sn);
        if length(sn)=1 then n:=ord(sn[1])-ord('0')
        else n:=(ord(sn[length(sn)-1])-ord('0'))*10+ord(sn[length(sn)])-ord('0');
        q:=n div 20;
        sum:=(q*4) mod 10;
        for j:=1 to n mod 10 do begin
             ucif:=j mod 10;
             r:=j mod 4;
             if r=0 then r:=4;
             p:=1;
             for k:=1 to r do p:=p*ucif;
             sum:=(sum+p) mod 10;
         end;
        writeln(g,sum)
     end;
     close(f);
     close(g);
end.