var f,g:text;
v:array[1..100] of byte;
p,j,nr,err,t,i:word;
s1,n:string;
begin
v[1]:=1;
for i:=2 to 100 do
begin
p:=1;
for j:=1 to i do
begin
p:=p*i;
p:=p mod 10;
end;
v[i]:=(v[i-1]+p) mod 10;
end;
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do
begin
readln(f,n);
s1:='';
for j:=length(n)-1 to length(n) do
s1:=s1+n[j];
writeln(s1);
val(s1,nr,err);
if err=0 then
if nr<=100 then
writeln(g,v[nr])
else
begin
repeat
nr:=nr-100;
until nr<=100;
writeln(g,v[nr]);
end;
end;
close(f);
close(g);
end.