_mode=POLY;
_cpu=4;
_language=en$
_modenum=NUMRATMP$

macro main
{
time_s;

dim V[0:16]$
V[0]=1$
V[1]=a1$
V[2]=a2$
V[3]=a3$
V[4]=a4$
V[5]=a5$
V[6]=a6$
V[7]=a7$
V[8]=a8$
V[9]=a9$
V[10]=a10$
V[11]=a11$
dimvar VA[0:16]$
VA[1]:=a1$
VA[2]:=a2$
VA[3]:=a3$
VA[4]:=a4$
VA[5]:=a5$
VA[6]:=a6$
VA[7]:=a7$
VA[8]:=a8$
VA[9]:=a9$
VA[10]:=a10$
VA[11]:=a11$

S=V[1]^2-4*V[2]$

dim DVK[1:11, 1:11];
for N=1 to 11
{
    for K=1 to 11
    {
        DVK[N,K] =V[N]**-1*K**-1$ 
    };
};


for N=3 to 11 {


  T=V[N-1]^2*S$
  S=T$

  S=S+sum K=1 to N-1 {

     U=sum J=1 to N-1 { 
       return ((J-(N+1))*V[J-1])*deriv(T,VA[J]);
     }$
     
     //div(U,K*V[N-1],T,W)$
     T=U*DVK[N-1, K]$ //V[N-1]**-1*K**-1$
     return T*V[N]^K$
  }$
//size(S);
//time_l;

}$
size(S);
time_t;
};

%main;