var s:string;
    x:byte;
    n,t,i,nr,sl:longint;
begin
assign(input,'cifra.in');
reset(input);
assign(output,'cifra.out');
rewrite(output);
readln(input,t);
for i:=1 to t do begin
    readln(input,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(output,nr mod 10);
    end;
close(input);
close(output);
end.