var a,b:int64;
    i,l,t,k:integer;
    f,g:text;
    x,j:byte;
    v:array[1..100] of byte;
    n:string[100];
begin
k:=0;x:=1;
for i:=1 to 100 do begin
        x:=1;
        for j:=1 to i do x:=(x*i)mod 100;
        k:=(k+x)mod 10;
        v[i]:=k;
        end;
assign(f,'cifra.in');reset(f);readln(f,t);
assign(g,'cifra.out');rewrite(g);
for i:=1 to t do begin
        k:=0;
        readln(f,n);
        if length(n)>=3 then begin
        k:=1;
        for l:=(length(n)-2) to length(n) do begin
            k:=k*10;k:=(k+ord(n[l])-48);end;end
            else if length(n)=2 then begin k:=1; for l:=1 to 2 do begin
                                        k:=k*10;k:=k+ord(n[l])-48;end;
            end
            else k:=ord(n[1])-48;
        k:=(k mod 100)+1;
        writeln(g,v[k]);
        end;
close(f);close(g);
end.