program uc;
 var
    f,g:text;
    e:integer;
    n,i,j,k,s,p:longint;
    t:word;
    st:string;
begin
 assign(f,'cifra.in');
 reset(f);
  readln(f,n);
          assign(g,'cifra.out');
          rewrite(g);
          for k:=1 to n do
           begin
            while not eoln(f) do
                readln(f,st);
                delete(st,1,length(st)-2);
                val(st,t,e);
                s:=0;
            for i:=1 to t do
             begin
                   p:=1;
                    for j:=1 to i do
                     p:=p*i;
                     s:=s+p;
                     s:=s mod 10;
             end;
            writeln(g,s);
           end;
  close(f);
 close(g);
end.