var f,g:text;
    t,d,p,i,c,j,x:longint;
    a:array[0..10000] of longint;
    s,s1:string;
    err:integer;
begin
  assign(f,'cifra.in'); reset(f);
  assign(g,'cifra.out'); rewrite(g);
  readln(f,t);
  a[0]:=0;
  for i:=1 to 20 do
    begin
      p:=1;
      d:=i mod 4;
      if d=0 then d:=4;
      for j:=1 to d do p:=p*(i mod 10);
      a[i]:=(a[i-1]+p) mod 10;
    end;
  for i:=1 to t do
    begin
      readln(f,s);
      if length(s)>=2 then s1:=s[length(s)-1]+s[length(s)]
                      else s1:=s[length(s)];
      val(s1,x,err);
      x:=x mod 20;
      if x=0 then x:=20;
      delete(s,length(s),1);
      val(s[length(s)],p,err);
      p:=(p div 2)*4;
      writeln(g,p+a[x]);
    end;
  close(f); close(g);
end.