var f1,f2:text;
    i,t,q,ok,k:integer;
    s:string;
begin
assign(f1,'cifra.in');
assign(f2,'cifra.out');
reset(f1);
rewrite(f2);
readln(f1,t);
for i:=1 to t do
 begin
  readln(f1,s);
  if length(s)>=100 then
                     case s[length(s)] 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,'0');
                      '9':writeln(f2,'9');
                     end
                    else
                     begin
                      val(s,q,ok);
                      k:=(q div 10)*7;
                      case q mod 10 of
                       0:writeln(f2,k);
                       1:writeln(f2,(k+1) mod 10);
                       2:writeln(f2,(k+5) mod 10);
                       3:writeln(f2,(k+2) mod 10);
                       4:writeln(f2,(k+8) mod 10);
                       5:writeln(f2,(k+3) mod 10);
                       6:writeln(f2,(k+9) mod 10);
                       7:writeln(f2,(k+2) mod 10);
                       8:writeln(f2,k mod 10);
                       9:writeln(f2,(k+9) mod 10);
                      end;
                     end;
 end;


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