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:begin
   sum1:=1;
   sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 2:begin
   sum1:=5;
   sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 3:begin
  sum1:=2;
  sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 4:begin
   sum1:=8;
   sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 5:begin
   sum1:=3;
    sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 6:begin
 sum1:=9;
  sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 7:begin
 sum1:=2;
  sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 8:begin
 sum1:=8;
  sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 9:begin
  sum1:=7;
  sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 0:begin
  sum1:=0;
  sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 end;
 end;
2: begin
  case x of
 1:begin
   sum1:=1;
   sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 2:begin
   sum1:=7;
   sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 3:begin
 sum1:=0;
  sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 4:begin
   sum1:=6;
   sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 5:begin
   sum1:=1;
   sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 6:begin
   sum1:=7;
  sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 7:begin
   sum1:=4;
    sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 8:begin
   sum1:=8;
   sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 9:begin
    sum1:=7;
    sum:=(sum1+7*x1)mod 10;
    writeln(g,sum);
   end;
 0:begin
   sum1:=0;
   sum:=(sum1+7*x1)mod 10;
   writeln(g,sum);
   end;
 end;
 end;
 end;
 end;
 close(g);
 end.