var T,i:integer;
    n,s:longint;
    f,g:text;
    j:byte;
    v:array[1..16] of byte;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
v[1]:=1; v[2]:=4; v[3]:=7; v[4]:=6; v[5]:=5; v[6]:=6; v[7]:=3;
v[8]:=6;v[9]:=9; v[10]:=6; v[11]:=3; v[15]:=7; v[16]:=4;
read(f,t);
readln(f);
for i:=1 to t do begin
  read(f,n);
  readln(f);
  s:=((n div 10)*7) mod 10;
  for j:=1 to n mod 10 do begin
    if (j<>2) and (j<>3) and (j<>7) and (j<>8) then s:=s+v[j]
                                               else begin
      if (((n div 10) mod 10) mod 2)=0 then s:=s+v[j]
                                       else s:=s+v[j+8];
    end;
  end;
  write(g,s mod 10);
  writeln(g);
end;
close(g);
end.