var     i,j,k,t,n:longint;
        s:string;
        f,f2:text;
        a:array[1..100] of integer;

begin
  assign(f,'cifra.in');
  reset(f);
  readln(f,t);
  assign(f2,'cifra.out');
  rewrite(f2);

  a[1]:=1;
  for i:=2 to 100 do
  begin
    k:=1;
    for j:=1 to i do
      k:=k*i mod 10;
    a[i]:=(a[i-1]+k) mod 10;
  end;

  for i:=1 to t do
    begin
      readln(f,s);
      if length(s)>2 then val(s[length(s)-1..length(s)],n)
      else val(s,n);
      writeln(f2,a[n])
    end;
  close(f2);
  close(f);
end.