var s,u,i,t,j:longint;
    n,aux:string;
    bla,nr:integer;
    f,g:text;
function ultima(a,b:longint):byte;
begin
         case a of
	 1,5,6,9,0 : ultima:=a;
         4 : ultima :=6;
         2,8 : if b mod 4=2 then ultima:=4 else ultima:=6;
         3 : begin
             case (b mod 4) of
             1 : ultima :=3;
             2 : ultima :=9;
             3 : ultima :=7;
             0 : ultima :=1;
             end;
             end;
         7 : begin
             case (b mod 4) of
             1 : ultima :=7;
             2 : ultima :=9;
             3 : ultima :=3;
             0 : ultima :=1;
             end;
             end;
         end;
end;
begin
     assign(f,'cifra.in');
     reset(f);
     assign(g,'cifra.out');
     rewrite(g);
     readln(f,t);
     for j:=1 to t do
     begin
     readln(f,n);
     aux:='';
     if length(n)=1 then aux:=n else
     aux:=n[length(n)]+n[length(n)-1];
     val(aux,nr,bla);
     if (nr=0)or(nr=1)then writeln(g,nr)
     else
     begin
     s:=1;
     for i:=2 to nr do
     begin
          u:=(s+ultima(i mod 10,i mod 100))mod 10;
          s:=u;
     end;
     writeln(g,s);
     end;
     end;
     close(f);
     close(g);
end.