var t:integer;
 n:array [1..100] of string;
 f,g:text;
 procedure citire;
  var i:integer;
  begin
   readln(f,t);
   for i:=1 to t do readln(f,n[i]);
  end;
 procedure cifra;
 var a,i,m,cod,j,p,r,k:integer;
 begin
  for i:=1 to t do
    begin
    a:=0;
    val(n[i],p,cod);
    for j:=1 to p do  begin
      m:=j mod 10;
      r:=1;
      for k:=1 to m do r:=(r*m) mod 10;
      a:=(a+r) mod 10;end;
    writeln(g,a);
    end;
 end;
begin
  assign(f,'cifra.in');
  assign(g,'cifra.out');
  reset(f);
  rewrite(g);
  citire;
  cifra;
  close(f);
  close(g);
end.