Var f, g : text;
    k :longint;
    t, i, j, x, m, y, code, l : integer;
    s :string;
    A,  b :array[1..10] of 1..10;
Begin
 Assign(f, 'cifra.in');
  Reset(f);
  Assign(g, 'cifra.out');
  Rewrite(g);
    A[1]:=1; A[2]:=4; A[3]:=7; A[4]:=6; A[5]:=5; A[6]:=6; A[7]:=3; A[8]:=6; A[9]:=9;
     B[1]:=1; B[2]:=6; B[3]:=3; B[4]:=6; B[5]:=5; B[6]:=6; B[7]:=7; B[8]:=4; B[9]:=9;
  Readln(f,T);

  for l:=1 to t do
  begin
  Readln(f, S);
  m:=length(s);
  Val(S[m], x, code);
        Val(S[m-1],y,  code);
        k:=47;
        for j:=1 to m-1 do
   for i:=1 to y do
    k:=47+k;
  if m=1 then
  begin
       For i:=(ord(S[m])-48)+1 to 9 do
        K:=K-A[i];
        Writeln(g,k mod 10);
   end
        else

  if (ord(S[m-1])-48) mod 2 =0 then
  begin
       For i:=(ord(S[m])-48)+1 to 9 do
        K:=K-A[i];
        Writeln(g,k mod 10);
    end
                   else
                   begin
                For i:=(ord(S[m])-48)+1 to 9 do
        K:=K-B[i];
        Writeln(g,k mod 10);
         end;
  end;
  close(g);

End.