Program p1;
  var s:ansistring;
  x,x1,n,code,sum,sum1,t,i:integer;
  f,g:text;
 begin
 assign(f,'cifra.in');reset(f);
 assign(g,'cifra.out');rewrite(g);
 readln(f,t);
 for i:=1 to t do begin x:=0;x1:=0;
 readln(f,s);
 val(s[length(s)],x,code);
 if length(s)>1 then
          val(s[length(s)-1],x1,code) else x1:=0;
 case (10*x1) mod 4 of
0: begin
  case x of
 1:sum1:=1;
 2:sum1:=5;
 3:sum1:=2;
 4:sum1:=8;
 5:sum1:=3;
 6:sum1:=9;
 7:sum1:=2;
 8:sum1:=8;
 9:sum1:=7;
 0:sum1:=0;
 end;
 sum:=(sum1+7*x1)mod 10;
  writeln(g,sum);
 end;
2: begin
  case x of
 1:sum1:=1;
 2:sum1:=7;
 3:sum1:=0;
 4:sum1:=6;
 5:sum1:=1;
 6:sum1:=7;
 7:sum1:=4;
 8:sum1:=8;
 9:sum1:=7;
 0:sum1:=0;
 end;
 sum:=(sum1+7*x1)mod 10;
 writeln(g,sum);
 end;
 end;
 end;
 close(g);
 end.