const uc:array[1..19]of byte=(1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4);
var   f,fo:text;
      s:string;
      n,l,a,b:integer;
      t:word;
      i,suma:longint;

begin
  assign(f,'cifra.in');reset(f);
  assign(fo,'cifra.out');rewrite(fo);

  readln(f,t);

             //writeln(fo,'test');
  for i := 1 to t do
  begin
    readln(f,s);
             //writeln(fo,s);
    l:=length(s);
    if l>1 then
      n:= (ord(s[l-1])-$30)*10 + (ord(s[l])-$30)
    else
      n := (ord(s[1])-$30);
             //writeln(fo,n,'-',l);
    a:= n div 20;
    b:= n mod 20;
    if b <> 0 then
      suma:= (a *4 + uc[b])mod 10
    else
      suma := (a*4)mod 10;
    writeln(fo,suma);
  end;


  close(f);
  close(fo);
end.