Program Cifra;
var
    T,i,u,:integer; stri:string;
    h,leng,N:longint;
    war,wat:text;
Function Power(x,y:integer) : longint;
 begin
  if y=0 then power:=1 else power:=x*power(x,y-1);
 end;
begin
assign(war, 'cifra.in');
assign(wat, 'cifra.out');
reset(war);
rewrite(wat);
readln(war, T);
if N<1 then T:=1;
for u:=1 to T do begin
readln(war, N);
h:=0;
for i:=1 to N do h:=h+power(i,i);
str(h,stri);
leng:=length(stri);
writeln(wat, stri[leng]);
end;
close(war);
close(wat);
end.