var a,n,i,j:longint;
    k,s:qword ;
begin
  assign(input,'cifra.in');reset(input);
  assign(output,'cifra.out');rewrite(output);
  readln(input,n);
  for i:=1 to n do
    begin
      readln(input,a);
      s:=0;
      for j:=1 to a do
        begin
        if j<>3 then k:=trunc(exp(j*ln(j)))
                else k:=trunc(exp(j*ln(j)))+1;
        s:=s+k;
        end;
    writeln(output,s mod 10);
  end;
  close(input);
  close(output);
end.