var f,g:text;
    nr,b:string;
    a,cr,s,t,i,cod,j,uc:integer;

procedure lala;
var i:integer;
begin
 j:=cr div 10;
 j:=(j*10) +2;
 s:=s+1;
 for i:=j  to cr do
    begin
     uc:=i mod 10;
      case uc of
       2:begin
          if i mod 4=0 then
           s:=s+6
            else
             if i mod 2=0 then
              s:=s+4
               else
                if i mod 3=0 then
                 s:=s+8
                  else
                   s:=s+2;

         end;
       3: begin
          if i mod 4=0 then
           s:=s+1
            else
             if i mod 2=0 then
              s:=s+9
               else
                if i mod 3=0 then
                 s:=s+7
                  else
                   s:=s+3;

          end;
       4:begin
          if i mod 2=0 then
           s:=s+6
            else
             s:=s+4
         end;
       5:s:=s+5;
       6:s:=s+6;
       7:begin
          if i mod 4=0 then
           s:=s+1
            else
             if i mod 2=0 then
              s:=s+9
               else
                if i mod 3=0 then
                 s:=s+3
                  else
                   s:=s+7;
         end;
       8:begin
         if i mod 4=0 then
           s:=s+6
            else
             if i mod 2=0 then
              s:=s+4
               else
                if i mod 3=0 then
                 s:=s+2
                  else
                   s:=s+8;
         end;
       9:begin
          if i mod 2=0 then
           s:=s+1
            else
            s:=s+9
         end;
       End;
    end;
end;
begin
assign(f ,'cifra.in');
reset(f);
readln(f,t);

assign(g ,'cifra.out');
rewrite(g);
s:=0;
for i:=1 to t do
 begin
  readln(f,nr);
  a:=length(nr);
  b:=copy(nr,a-1,2);
  val(b,cr,cod);
  if cr=0 then
   writeln(g,'0')
    else
    begin
     s:=7*(cr div 10);
     if cr mod 10>0 then
     begin
     lala;
     writeln(g,s mod 10);
     end
      else
     write(g,s mod 10);
    end;
 end;
close(f);
close(g);
end.