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]); 
     end;
     close(g);
 end.