program cifra;
var
 s:string;
 sir:array[0..9] of byte;
 t,ultima,i,temp,err:integer;
 fin,fout:text;
begin
 assign(fin,'cifra.in');
 assign(fout,'cifra.out');
 reset(fin);
 rewrite(fout);
 readln(fin,t);
 sir[0]:=0;
 sir[1]:=1;
 sir[2]:=1+4;
 sir[3]:=1+4+7;
 sir[4]:=1+4+7+6;
 sir[5]:=1+4+7+6+5;
 sir[6]:=1+4+7+6+5+6;
 sir[7]:=1+4+7+6+5+6+3;
 sir[8]:=1+4+7+6+5+6+3+6;
 sir[9]:=1+4+7+6+5+6+3+6+9;
 for i:=1 to t do
  begin
   readln(fin,s);
   if length(s)>=2 then
    begin
     val(s[length(s)-1],temp,err);
     ultima:=temp*7;
    end;
   val(s[length(s)],temp,err);
   ultima:=(ultima+sir[temp]) mod 10;
   write(fout,ultima);
   if i<t then
    writeln(fout);
  end;
 close(fin);
 close(fout);
end.