program p1;
var f,f1:text;
    i,s,r,m,c:longint;
    c_er,t,j:integer;
    z,p:byte;
    n,a:string[101];
begin
assign(f,'cifra.in');reset(f);
readln(f,t);
assign(f1,'cifra.out');rewrite(f1);
for j:=1 to t do
    begin
    readln(f,n);
    z:=length(n);
    a:=copy(n,z-1,2);
    val(a,c,c_er);
    s:=0;
    m:=c div 100;
    s:=(m*7)mod 100;
    p:=c mod 10;
    for i:=1to p do
    begin
    r:=i mod 4;
    case r of
    0:s:=(i*i*i*i+s)mod 10;
    1:s:=(i+s)mod 10;
    2:s:=(i*i+s)mod 10;
    3:s:=(i*i*i+s)mod 10;
    end;
    end;
    writeln(f1,s);
    end;
close(f);
close(f1);
end.