var f1,f2:text;
    n:string;
    j,s,q,i,t,error:integer;
    a:array[0..9] of byte;
begin
assign(f1,'cifra.in');
assign(f2,'cifra.out');
reset(f1);
rewrite(f2);
readln(f1,t);
a[0]:=0;a[1]:=1;a[2]:=4;
a[3]:=3;a[4]:=6;a[5]:=5;
a[6]:=6;a[7]:=7;a[8]:=6;
a[9]:=9;
for i:=1 to t do
 begin
  readln(f1,n);
  if length(n)<=1 then case n[length(n)] of
                        '0':writeln(f2,'0');
                        '1':writeln(f2,'1');
                        '2':writeln(f2,'5');
                        '3':writeln(f2,'2');
                        '4':writeln(f2,'8');
                        '5':writeln(f2,'3');
                        '6':writeln(f2,'9');
                        '7':writeln(f2,'2');
                        '8':writeln(f2,'8');
                        '9':writeln(f2,'7');
                        end
                  else begin
                        val(copy(n,length(n)-1,2),q,error);
                        q:=q-10;
                        s:=0;
                        for j:=1 to q do
                         s:=(s+a[j mod 10]) mod 10;
                        writeln(f2,(7+s) mod 10);
                       end;


 end;
close(f1);
close(f2);
end.