var s:string;f1,f2:text;   
    x:byte;         
    n,t,i,nr,sl:longint;         
 begin  
 assign(f1,'cifra.in');         
reset(f1);         
assign(f2,'cifra.out');         
rewrite(f2);         
 readln(f1,t);         
 for i:=1 to t do begin        
     readln(f1,s);         
     n:=length(s);         
     if n=1 then sl:=ord(s[1])-48        
        else begin        
             sl:=ord(s[n-1])-48;         
             sl:=10*sl+ord(s[n])-48;         
             end;         
     nr:=4*(sl div 20);         
     sl:=sl mod 20;         
     if sl>=1then inc(nr);         
     if sl>=2then nr:=nr+4;         
     if sl>=3then nr:=nr+7;         
     if sl>=4then nr:=nr+6;         
     if sl>=5then nr:=nr+5;         
     if sl>=6then nr:=nr+6;         
     if sl>=7then nr:=nr+3;         
     if sl>=8then nr:=nr+6;         
     if sl>=9then nr:=nr+9;         
     if sl>=11then inc(nr);         
     if sl>=12then nr:=nr+6;         
     if sl>=13then nr:=nr+3;         
     if sl>=14then nr:=nr+6;         
     if sl>=15then nr:=nr+5;         
     if sl>=16then nr:=nr+6;         
    if sl>=17then nr:=nr+7;         
    if sl>=18then nr:=nr+4;         
   if sl>=19then nr:=nr+9;         
     writeln(f2,nr mod 10);         
     end;         
 close(f1);         
close(f2);         
end.