program cifre;
var i,j,t,p,s,n:longint;
    l:integer;
    f,g:text;
    sir:string[100];
    sir1:string[2];
    c1,c2:char;
begin
      assign(f,'cifra.in');
     assign(g,'cifra.out');
     reset(f);
     rewrite(g);
     readln(f,t);
  for j:=1 to t do
     begin
          readln(f,sir);
          l:=length(sir);
          writeln(sir,' ',l);
          sir1:=copy(sir,l-1,2);{ultimele 2 cifre /mod 100}
          val(sir1,n,l);




          s:=0;
          p:=0;
          for i:=1 to n mod 10 do
          begin
            if (i mod 10=5)or(i mod 10=6)or (i mod 10=1)or(i mod 10=0)
               then p:=i mod 10
            else
              case (i mod 4) of
                 0: p:=(i mod 10)*(i mod 10)*(i mod 10)*(i mod 10);
                 1: p:=(i mod 10);
                 2: p:=(i mod 10)*(i mod 10);
                 3: p:=(i mod 10)*(i mod 10)*(i mod 10);
              end;
              p:=p mod 10;
            s:=(s+p) mod 10;
          end;
          writeln(g,s);
     end;
     close(f);
     close(g);
end.