var f,g:text;
 t,ind,i,j,k,s,p, n:integer;
 a:array[0..100] of integer;
 sir:string;
 uc,pc:byte;
 begin
     assign(f,'cifra.in');
     reset(f);
     for k:=1 to 99 do
     begin
         s:=0;
         for i:=1 to k do
         begin
            p:=1;
            for j:=1 to i do
                p:=p*i mod 10;
            s:=s+p;
         end;
          inc(ind);
          a[ind]:=s mod 10;
     end;
     assign(g,'cifra.out');
     rewrite(g);


     readln(f,T);
     for i:=1 to T do
     begin
        readln(f,sir);
        n:=length(sir);
        if n>1 then
            pc:=ord(sir[n-1])-48
        else pc:=0;
        uc:=ord(sir[n])-48;
        n:=pc*10+uc;
        writeln(g,a[n]);
        writeln(a[n]);
     end;
     close(g);
 end.