const uc:array[0..19]of byte=(0,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,b:integer;
      t:word;
      i,suma:longint;

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

  readln(f,t);

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

  end;


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