program p1;

var
  a, b, t, i, j: uint64;
  x: array [1..30000] of longint;
  g,h:text;
   

procedure put;
var
  i: integer;
begin
    a := 1;
  for i := 1 to j do 
    a := a * j;
  
end;

begin
assign (g,'cifra.in');
assign (h,'cifra.out');
reset(g);
  readln(g,t);
  for i := 1 to t do readln(g,x[i]);
  close(g);
  for i := 1 to t do
  begin
    
  
    for j := 1 to x[i] do
    begin
      put;
      b := b + a;
    end;
    rewrite(h);
    writeln(h,b mod 10);
    b := 0; 
  end;
  close(h);
end.