/*HOW TO ACCESS: You find all the data in ErgEXT, with:*/
/*ErgEXT[j,1] = complex Gram matrix of lattice j (not available for some of the last lattices)*/
/*ErgEXT[j,2] = real part of the Gram matrix*/
/*ErgEXT[j,3] = imaginary part of the Gram matrix*/
/*ErgEXT[j,4] = roots*/
/*ErgEXT[j,5] = order of auto.group*/
/*ErgEXT[j,6] = nr. of Galois-conjugated lattice*/
/*ErgEXT[j,7] = self-Galois-conjugated " "=no, "+"=true*/

/*Remark: The non-isom. of 438 and 463 is hard do compute; try using the generators option, handing over one of the*/
/*automorphism groups*/


/*notwendige Inits*/
d:=7;
S<w>:=QuadraticField(-d);
mul:=ExactQuotient(d+1,4);
Erg:={@ @}; /*Ergebnisliste*/
/*notwendige Inits*/

START0d4:=Matrix(S,[
[  14,    0,  6*w,  4*w],
[   0,   14,  4*w, -6*w],
[-6*w, -4*w,   28,    0],
[-4*w,  6*w,    0,   28]]);


START0:=ScalarMatrix(S,12,0);

/*mach 8d Matrix aus der 4d STARTMATRIX*/
for i0:=1 to 4 do
               for i1:=1 to 4 do
                              START0[i0,i1]:=START0d4[i0,i1];
                              START0[i0+4,i1+4]:=START0d4[i0,i1];
                              START0[i0+8,i1+8]:=START0d4[i0,i1];
                              end for;
               end for;
/*mach 8d Matrix aus der 4d STARTMATRIX*/

Include(~Erg,START0/d);


/*--->Matrixschreibroutine<---*/
PrintMagmaMatrix:=procedure(START)
print "Grammatrix:=Matrix(S,[";
for mj:=1 to 11 do
                print "[",START[mj,1],",",START[mj,2],",",START[mj,3],",",START[mj,4],",",START[mj,5],",",START[mj,6],",",START[mj,7],",",START[mj,8],",",START[mj,9],",",START[mj,10],",",START[mj,11],",",START[mj,12],"],";
                end for;
mj:=12;
print "[",START[mj,1],",",START[mj,2],",",START[mj,3],",",START[mj,4],",",START[mj,5],",",START[mj,6],",",START[mj,7],",",START[mj,8],",",START[mj,9],",",START[mj,10],",",START[mj,11],",",START[mj,12],"]";
print "]);";
end procedure;
/*--->Matrixschreibroutine-ENDE<---*/

/*--->Matrixschreibroutine<---*/
PrintMagmaMatrixZ:=procedure(START)
print "F:=Matrix(Integers(),[";
for mj:=1 to 23 do
                print "[",START[mj,1],",",START[mj,2],",",START[mj,3],",",START[mj,4],",",START[mj,5],",",START[mj,6],",",START[mj,7],",",START[mj,8],",",START[mj,9],",",START[mj,10],",",START[mj,11],",",START[mj,12],",",START[mj,13],",",START[mj,14],",",START[mj,15],",",START[mj,16],",",START[mj,17],",",START[mj,18],",",START[mj,19],",",START[mj,20],",",START[mj,21],",",START[mj,22],",",START[mj,23],",",START[mj,24],"],";
                end for;
mj:=24;
print "[",START[mj,1],",",START[mj,2],",",START[mj,3],",",START[mj,4],",",START[mj,5],",",START[mj,6],",",START[mj,7],",",START[mj,8],",",START[mj,9],",",START[mj,10],",",START[mj,11],",",START[mj,12],",",START[mj,13],",",START[mj,14],",",START[mj,15],",",START[mj,16],",",START[mj,17],",",START[mj,18],",",START[mj,19],",",START[mj,20],",",START[mj,21],",",START[mj,22],",",START[mj,23],",",START[mj,24],"]";
print "]);";
end procedure;
/*--->Matrixschreibroutine-ENDE<---*/

Grammatrix:=Matrix(S,[
[ 154 , -8*w - 56 , 6*w + 28 , -4*w , 0 , 0 , 0 , 8*w , 4*w , -12*w , 0 , -67*w - 21 ],
[ 8*w - 56 , 126 , -4*w - 56 , -6*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 9*w + 105 ],
[ -6*w + 28 , 4*w - 56 , 42 , -28 , 0 , -4*w - 14 , 4*w , 6*w , 0 , 0 , 0 , -3*w - 63 ],
[ 4*w , 6*w , -28 , 84 , 0 , 8*w + 28 , -8*w , -12*w , 0 , 0 , 0 , 23*w + 63 ],
[ 0 , 0 , 0 , 0 , 14 , -6*w , 6*w , -4*w , 0 , 0 , 0 , -5*w + 21 ],
[ 0 , 0 , 4*w - 14 , -8*w + 28 , 6*w , 42 , -4*w - 28 , -6*w , 0 , 0 , 0 , 2*w + 42 ],
[ 0 , 0 , -4*w , 8*w , -6*w , 4*w - 28 , 56 , 6*w , -10*w , 4*w - 56 , 28*w + 28 , -19*w - 91 ],
[ -8*w , 0 , -6*w , 12*w , 4*w , 6*w , -6*w , 42 , -14 , 12*w , -6*w + 42 , 36*w - 42 ],
[ -4*w , 0 , 0 , 0 , 0 , 0 , 10*w , -14 , 28 , -20*w - 14 , 10*w - 70 , -28*w + 28 ],
[ 12*w , 0 , 0 , 0 , 0 , 0 , -4*w - 56 , -12*w , 20*w - 14 , 126 , -60*w - 28 , 45*w + 175 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , -28*w + 28 , 6*w + 42 , -10*w - 70 , 60*w - 28 , 224 , 58*w - 196 ],
[ 67*w - 21 , -9*w + 105 , 3*w - 63 , -23*w + 63 , 5*w + 21 , -2*w + 42 , 19*w - 91 , -36*w - 42 , 28*w + 28 , -45*w + 175 , -58*w - 196 , 756 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 98 , -42*w - 70 , 42*w + 98 , -8*w , 4*w , 0 , 0 , -8*w , -2*w , 6*w , 0 , 33*w - 35 ],
[ 42*w - 70 , 504 , 12*w - 490 , -18*w , -8*w , 0 , 0 , 16*w , 4*w , -12*w , 0 , -137*w - 105 ],
[ -42*w + 98 , -12*w - 490 , 504 , 12*w + 28 , 8*w - 14 , 0 , -10*w , -12*w , -4*w , 12*w , 0 , 151*w + 63 ],
[ 8*w , 18*w , -12*w + 28 , 84 , -28 , 0 , -20*w , 8*w , 0 , 0 , 0 , 33*w - 35 ],
[ -4*w , 8*w , -8*w - 14 , -28 , 28 , 0 , 10*w , -4*w - 28 , 14 , -6*w , 6*w - 42 , -20*w + 42 ],
[ 0 , 0 , 0 , 0 , 0 , 14 , 2*w , -6*w , 0 , 0 , 0 , 3*w + 7 ],
[ 0 , 0 , 10*w , 20*w , -10*w , -2*w , 56 , -28 , 0 , 0 , 0 , -27*w - 63 ],
[ 8*w , -16*w , 12*w , -8*w , 4*w - 28 , 6*w , -28 , 84 , -28 , 12*w , -12*w + 84 , 28*w ],
[ 2*w , -4*w , 4*w , 0 , 14 , 0 , 0 , -28 , 28 , -10*w - 14 , 10*w - 70 , -6*w - 14 ],
[ -6*w , 12*w , -12*w , 0 , 6*w , 0 , 0 , -12*w , 10*w - 14 , 42 , -32*w , -4*w + 42 ],
[ 0 , 0 , 0 , 0 , -6*w - 42 , 0 , 0 , 12*w + 84 , -10*w - 70 , 32*w , 224 , 22*w ],
[ -33*w - 35 , 137*w - 105 , -151*w + 63 , -33*w - 35 , 20*w + 42 , -3*w + 7 , 27*w - 63 , -28*w , 6*w - 14 , 4*w + 42 , -22*w , 518 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 70 , -16*w + 56 , 6*w - 28 , -4*w , 0 , 0 , 0 , -6*w , 8*w , -12*w , -6*w + 42 , -14*w + 28 ],
[ 16*w + 56 , 126 , -4*w - 56 , -6*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 18*w + 42 ],
[ -6*w - 28 , 4*w - 56 , 42 , 28 , -6*w - 14 , 0 , -10*w , 4*w , 0 , 0 , 0 , -2*w - 56 ],
[ 4*w , 6*w , 28 , 84 , -12*w - 28 , 0 , -20*w , 8*w , 0 , 0 , 0 , 11*w - 49 ],
[ 0 , 0 , 6*w - 14 , 12*w - 28 , 42 , 4*w , 10*w + 28 , -4*w , 0 , 0 , 0 , -16*w - 14 ],
[ 0 , 0 , 0 , 0 , -4*w , 14 , 2*w , -6*w , 0 , 0 , 0 , 12*w + 14 ],
[ 0 , 0 , 10*w , 20*w , -10*w + 28 , -2*w , 56 , -28 , 0 , 0 , 0 , -25*w - 21 ],
[ 6*w , 0 , -4*w , -8*w , 4*w , 6*w , -28 , 42 , -28 , 4*w + 28 , 14*w + 14 , 15*w - 7 ],
[ -8*w , 0 , 0 , 0 , 0 , 0 , 0 , -28 , 70 , -14*w - 56 , -28*w - 28 , -3*w - 7 ],
[ 12*w , 0 , 0 , 0 , 0 , 0 , 0 , -4*w + 28 , 14*w - 56 , 84 , 24*w + 56 , 6*w + 42 ],
[ 6*w + 42 , 0 , 0 , 0 , 0 , 0 , 0 , -14*w + 14 , 28*w - 28 , -24*w + 56 , 112 , -16*w + 14 ],
[ 14*w + 28 , -18*w + 42 , 2*w - 56 , -11*w - 49 , 16*w - 14 , -12*w + 14 , 25*w - 21 , -15*w - 7 , 3*w - 7 , -6*w + 42 , 16*w + 14 , 294 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 28 , 0 , 0 , 0 , 0 , -4*w , 8*w , 0 , 2*w , 4*w - 28 , 0 , -3*w + 21 ],
[ 0 , 98 , -4*w + 70 , -8*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 27*w + 49 ],
[ 0 , 4*w + 70 , 84 , -2*w + 28 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 46*w + 42 ],
[ 0 , 8*w , 2*w + 28 , 42 , -14 , 0 , -6*w , 4*w , 0 , 0 , 0 , 28*w - 28 ],
[ 0 , 0 , 0 , -14 , 28 , 14 , 2*w , -10*w , 0 , 0 , 0 , -4*w + 56 ],
[ 4*w , 0 , 0 , 0 , 14 , 28 , -4*w - 28 , -6*w , -28 , -14*w - 14 , 6*w , 18*w - 14 ],
[ -8*w , 0 , 0 , 6*w , -2*w , 4*w - 28 , 84 , 0 , 56 , 28*w + 28 , -12*w , -48*w + 28 ],
[ 0 , 0 , 0 , -4*w , 10*w , 6*w , 0 , 28 , 0 , 0 , 0 , 19*w + 7 ],
[ -2*w , 0 , 0 , 0 , 0 , -28 , 56 , 0 , 70 , 28*w + 28 , -16*w , -35*w + 77 ],
[ -4*w - 28 , 0 , 0 , 0 , 0 , 14*w - 14 , -28*w + 28 , 0 , -28*w + 28 , 112 , -6*w - 42 , -42*w - 84 ],
[ 0 , 0 , 0 , 0 , 0 , -6*w , 12*w , 0 , 16*w , 6*w - 42 , 28 , 20*w + 56 ],
[ 3*w + 21 , -27*w + 49 , -46*w + 42 , -28*w - 28 , 4*w + 56 , -18*w - 14 , 48*w + 28 , -19*w + 7 , 35*w + 77 , 42*w - 84 , -20*w + 56 , 630 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 994 , 115*w - 371 , -20*w + 140 , 30*w , -48*w + 28 , 6*w + 70 , 64*w + 28 , 19*w - 7 , -w + 189 , -50*w + 140 , 36*w + 196 , -653*w - 777 ],
[ -115*w - 371 , 714 , 4*w - 238 , -12*w + 56 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 433*w - 63 ],
[ 20*w + 140 , -4*w - 238 , 112 , 2*w - 28 , -70 , -6*w + 28 , 4*w + 28 , -6*w , -12*w + 28 , -14*w - 14 , -6*w + 42 , -131*w - 7 ],
[ -30*w , 12*w + 56 , -2*w - 28 , 42 , 14 , 0 , 6*w , 4*w , 0 , 0 , 0 , 13*w - 147 ],
[ 48*w + 28 , 0 , -70 , 14 , 196 , 12*w - 70 , -6*w - 56 , 22*w , 24*w - 56 , 28*w + 28 , 12*w - 84 , -81*w + 35 ],
[ -6*w + 70 , 0 , 6*w + 28 , 0 , -12*w - 70 , 56 , 16*w + 28 , -6*w , 4*w + 84 , -20*w + 28 , 22*w + 70 , -45*w - 7 ],
[ -64*w + 28 , 0 , -4*w + 28 , -6*w , 6*w - 56 , -16*w + 28 , 84 , 0 , -24*w + 56 , -28*w - 28 , -12*w + 84 , -14*w - 294 ],
[ -19*w - 7 , 0 , 6*w , -4*w , -22*w , 6*w , 0 , 28 , 0 , 0 , 0 , 39*w - 133 ],
[ w + 189 , 0 , 12*w + 28 , 0 , -24*w - 56 , -4*w + 84 , 24*w + 56 , 0 , 182 , -40*w + 56 , 40*w + 168 , -151*w - 133 ],
[ 50*w + 140 , 0 , 14*w - 14 , 0 , -28*w + 28 , 20*w + 28 , 28*w - 28 , 0 , 40*w + 56 , 112 , 48*w , -113*w + 189 ],
[ -36*w + 196 , 0 , 6*w + 42 , 0 , -12*w - 84 , -22*w + 70 , 12*w + 84 , 0 , -40*w + 168 , -48*w , 224 , -120*w - 350 ],
[ 653*w - 777 , -433*w - 63 , 131*w - 7 , -13*w - 147 , 81*w + 35 , 45*w - 7 , 14*w - 294 , -39*w - 133 , 151*w - 133 , 113*w + 189 , 120*w - 350 , 4382 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 252 , -22*w + 210 , 22*w , -6*w , 0 , 0 , 0 , -8*w , 4*w , -12*w , 0 , -101*w - 35 ],
[ 22*w + 210 , 210 , 16*w - 28 , -2*w , 0 , 0 , 0 , -8*w , 4*w , -12*w , 0 , -85*w + 7 ],
[ -22*w , -16*w - 28 , 42 , 0 , -14 , -6*w , -10*w , 4*w , 0 , 0 , 0 , 12*w - 70 ],
[ 6*w , 2*w , 0 , 28 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 17*w + 21 ],
[ 0 , 0 , -14 , 0 , 28 , 2*w + 14 , 12*w , -10*w , 0 , 0 , 0 , -8*w ],
[ 0 , 0 , 6*w , 0 , -2*w + 14 , 42 , 2*w + 28 , -6*w , 0 , 0 , 0 , -6*w - 56 ],
[ 0 , 0 , 10*w , 0 , -12*w , -2*w + 28 , 56 , -28 , 0 , 0 , 0 , -8*w - 56 ],
[ 8*w , 8*w , -4*w , 0 , 10*w , 6*w , -28 , 42 , 14 , -6*w , 6*w - 42 , -10*w + 56 ],
[ -4*w , -4*w , 0 , 0 , 0 , 0 , 0 , 14 , 28 , -10*w - 14 , 10*w - 70 , -5*w + 21 ],
[ 12*w , 12*w , 0 , 0 , 0 , 0 , 0 , 6*w , 10*w - 14 , 42 , -32*w , 10*w + 42 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -6*w - 42 , -10*w - 70 , 32*w , 224 , 6*w - 112 ],
[ 101*w - 35 , 85*w + 7 , -12*w - 70 , -17*w + 21 , 8*w , 6*w - 56 , 8*w - 56 , 10*w + 56 , 5*w + 21 , -10*w + 42 , -6*w - 112 , 546 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 2464 , 35*w + 1267 , 200*w - 280 , 120*w + 112 , 8*w + 112 , 72*w - 84 , 88*w + 56 , 38*w - 14 , -12*w + 378 , -80*w + 140 , 72*w + 392 , -117*w - 609 ],
[ -35*w + 1267 , 686 , 100*w - 140 , 64*w + 112 , 4*w + 42 , 44*w - 14 , 52*w + 56 , 13*w - 7 , -17*w + 217 , -56*w + 70 , 30*w + 238 , -63*w - 231 ],
[ -200*w - 280 , -100*w - 140 , 756 , -18*w + 28 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 251*w + 273 ],
[ -120*w + 112 , -64*w + 112 , 18*w + 28 , 154 , -14 , 12*w + 56 , 14*w + 56 , -8*w , -24*w + 56 , -28*w - 28 , -12*w + 84 , 9*w + 105 ],
[ -8*w + 112 , -4*w + 42 , 0 , -14 , 28 , -14 , 2*w , 10*w , 0 , 0 , 0 , -14*w - 70 ],
[ -72*w - 84 , -44*w - 14 , 0 , -12*w + 56 , -14 , 56 , -8*w + 28 , -6*w , -28*w - 28 , -8*w - 56 , -34*w + 14 , 6*w + 28 ],
[ -88*w + 56 , -52*w + 56 , 0 , -14*w + 56 , -2*w , 8*w + 28 , 84 , 0 , -24*w + 56 , -28*w - 28 , -12*w + 84 , -51*w - 35 ],
[ -38*w - 14 , -13*w - 7 , 0 , 8*w , -10*w , 6*w , 0 , 28 , 0 , 0 , 0 , 33*w - 35 ],
[ 12*w + 378 , 17*w + 217 , 0 , 24*w + 56 , 0 , 28*w - 28 , 24*w + 56 , 0 , 182 , -40*w + 56 , 40*w + 168 , -40*w + 28 ],
[ 80*w + 140 , 56*w + 70 , 0 , 28*w - 28 , 0 , 8*w - 56 , 28*w - 28 , 0 , 40*w + 56 , 112 , 48*w , -6*w + 98 ],
[ -72*w + 392 , -30*w + 238 , 0 , 12*w + 84 , 0 , 34*w + 14 , 12*w + 84 , 0 , -40*w + 168 , -48*w , 224 , -42*w - 28 ],
[ 117*w - 609 , 63*w - 231 , -251*w + 273 , -9*w + 105 , 14*w - 70 , -6*w + 28 , 51*w - 35 , -33*w - 35 , 40*w + 28 , 6*w + 98 , 42*w - 28 , 1302 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 742 , -13*w + 273 , -4*w + 140 , -37*w - 35 , -37*w + 7 , 13*w - 7 , 17*w + 35 , -32*w , -32*w - 42 , -18*w + 42 , 4*w - 84 , 142*w + 28 ],
[ 13*w + 273 , 210 , 4*w + 84 , -18*w - 112 , -20*w - 28 , 20*w , -4*w , -8*w , 0 , 0 , 0 , 71*w - 49 ],
[ 4*w + 140 , -4*w + 84 , 42 , -6*w - 42 , -10*w - 14 , 10*w , -2*w , -4*w , 0 , 0 , 0 , 36*w - 28 ],
[ 37*w - 35 , 18*w - 112 , 6*w - 42 , 182 , 24*w + 70 , -34*w - 28 , 6*w + 28 , 12*w , 0 , 0 , 0 , -51*w + 35 ],
[ 37*w + 7 , 20*w - 28 , 10*w - 14 , -24*w + 70 , 84 , -8*w - 56 , 2*w - 28 , 4*w + 70 , -14*w + 42 , 4*w + 28 , -28*w - 28 , -29*w - 63 ],
[ -13*w - 7 , -20*w , -10*w , 34*w - 28 , 8*w - 56 , 70 , 10*w , -6*w - 28 , 0 , 0 , 0 , 25*w + 91 ],
[ -17*w + 35 , 4*w , 2*w , -6*w + 28 , -2*w - 28 , -10*w , 112 , -112 , 28*w - 84 , -8*w - 56 , 56*w + 56 , -25*w + 49 ],
[ 32*w , 8*w , 4*w , -12*w , -4*w + 70 , 6*w - 28 , -112 , 168 , -42*w + 154 , 18*w + 84 , -98*w - 98 , -4*w - 112 ],
[ 32*w - 42 , 0 , 0 , 0 , 14*w + 42 , 0 , -28*w - 84 , 42*w + 154 , 280 , 52*w + 56 , -140*w + 84 , -35*w - 105 ],
[ 18*w + 42 , 0 , 0 , 0 , -4*w + 28 , 0 , 8*w - 56 , -18*w + 84 , -52*w + 56 , 84 , -42*w - 154 , 18*w - 70 ],
[ -4*w - 84 , 0 , 0 , 0 , 28*w - 28 , 0 , -56*w + 56 , 98*w - 98 , 140*w + 84 , 42*w - 154 , 560 , -44*w + 98 ],
[ -142*w + 28 , -71*w - 49 , -36*w - 28 , 51*w + 35 , 29*w - 63 , -25*w + 91 , 25*w + 49 , 4*w - 112 , 35*w - 105 , -18*w - 70 , 44*w + 98 , 490 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 630 , -123*w - 105 , 42*w - 14 , -26*w - 56 , 14*w - 42 , -37*w - 7 , -48*w - 28 , -39*w + 63 , -77*w + 7 , 2*w + 28 , -36*w - 196 , 95*w + 301 ],
[ 123*w - 105 , 714 , 4*w - 238 , -12*w + 56 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 483*w + 217 ],
[ -42*w - 14 , -4*w - 238 , 112 , 2*w - 14 , 42 , 10*w - 14 , 2*w , 10*w , 0 , 0 , 0 , -185*w - 77 ],
[ 26*w - 56 , 12*w + 56 , -2*w - 14 , 42 , 14 , 4*w , 6*w , 4*w , 0 , 0 , 0 , 28*w - 84 ],
[ -14*w - 42 , 0 , 42 , 14 , 84 , 16*w - 42 , -2*w - 28 , 10*w , -14*w - 42 , 2*w + 14 , 6*w - 42 , 4*w - 42 ],
[ 37*w - 7 , 0 , -10*w - 14 , -4*w , -16*w - 42 , 56 , 4*w + 28 , 28 , 14*w + 42 , -2*w - 14 , -6*w + 42 , -14*w - 56 ],
[ 48*w - 28 , 0 , -2*w , -6*w , 2*w - 28 , -4*w + 28 , 84 , 12*w , 28*w + 84 , -4*w - 28 , -12*w + 84 , -79*w - 63 ],
[ 39*w + 63 , 0 , -10*w , -4*w , -10*w , 28 , -12*w , 56 , -22*w + 42 , 6*w + 14 , -28*w - 28 , 28*w - 210 ],
[ 77*w + 7 , 0 , 0 , 0 , 14*w - 42 , -14*w + 42 , -28*w + 84 , 22*w + 42 , 238 , 16*w - 56 , -64*w + 112 , -113*w - 343 ],
[ -2*w + 28 , 0 , 0 , 0 , -2*w + 14 , 2*w - 14 , 4*w - 28 , -6*w + 14 , -16*w - 56 , 56 , -8*w - 56 , 47*w - 7 ],
[ 36*w - 196 , 0 , 0 , 0 , -6*w - 42 , 6*w + 42 , 12*w + 84 , 28*w - 28 , 64*w + 112 , 8*w - 56 , 224 , -162*w + 56 ],
[ -95*w + 301 , -483*w + 217 , 185*w - 77 , -28*w - 84 , -4*w - 42 , 14*w - 56 , 79*w - 63 , -28*w - 210 , 113*w - 343 , -47*w - 7 , 162*w + 56 , 3528 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1526 , 101*w + 469 , -308*w + 4564 , 55*w + 217 , -18*w + 28 , 141*w + 35 , -149*w - 511 , -20*w - 42 , 4*w - 658 , -268*w - 84 , 72*w + 210 , 1665*w + 1295 ],
[ -101*w + 469 , 714 , -53*w + 2373 , 52*w + 168 , -4*w - 28 , 88*w + 126 , 46*w - 462 , 7*w - 7 , 154*w - 392 , -144*w - 504 , -4*w + 252 , 1043*w + 763 ],
[ 308*w + 4564 , 53*w + 2373 , 22120 , 240*w + 742 , -48*w - 98 , 538*w + 84 , -380*w - 2324 , 11*w - 105 , 202*w - 2716 , -1102*w - 966 , 246*w + 1050 , 8198*w + 4102 ],
[ -55*w + 217 , -52*w + 168 , -240*w + 742 , 154 , 14 , 26*w + 112 , 34*w - 168 , -8*w , 76*w - 84 , -32*w - 224 , -12*w + 84 , 342*w + 938 ],
[ 18*w + 28 , 4*w - 28 , 48*w - 98 , 14 , 28 , -2*w + 14 , 2*w , -10*w , 0 , 0 , 0 , -4*w - 84 ],
[ -141*w + 35 , -88*w + 126 , -538*w + 84 , -26*w + 112 , 2*w + 14 , 196 , 112*w - 168 , -6*w , 140*w + 28 , 24*w - 392 , -46*w + 98 , 19*w + 1757 ],
[ 149*w - 511 , -46*w - 462 , 380*w - 2324 , -34*w - 168 , -2*w , -112*w - 168 , 1036 , 0 , -156*w + 924 , 396*w + 588 , -68*w - 420 , -1217*w - 1393 ],
[ 20*w - 42 , -7*w - 7 , -11*w - 105 , 8*w , 10*w , 6*w , 0 , 28 , 0 , 0 , 0 , -19*w - 49 ],
[ -4*w - 658 , -154*w - 392 , -202*w - 2716 , -76*w - 84 , 0 , -140*w + 28 , 156*w + 924 , 0 , 1064 , 460*w + 140 , -128*w - 336 , -1421*w + 511 ],
[ 268*w - 84 , 144*w - 504 , 1102*w - 966 , 32*w - 224 , 0 , -24*w - 392 , -396*w + 588 , 0 , -460*w + 140 , 1456 , 128*w - 448 , -394*w - 4172 ],
[ -72*w + 210 , 4*w + 252 , -246*w + 1050 , 12*w + 84 , 0 , 46*w + 98 , 68*w - 420 , 0 , 128*w - 336 , -128*w - 448 , 224 , 513*w + 1015 ],
[ -1665*w + 1295 , -1043*w + 763 , -8198*w + 4102 , -342*w + 938 , 4*w - 84 , -19*w + 1757 , 1217*w - 1393 , 19*w - 49 , 1421*w + 511 , 394*w - 4172 , -513*w + 1015 , 24304 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 4522 , 555*w - 10283 , -117*w + 301 , -64*w - 28 , -29*w + 7 , 17*w - 399 , -37*w + 91 , 9*w - 819 , 300*w + 588 , 45*w - 21 , 126*w - 140 , 2393*w + 2471 ],
[ -555*w - 10283 , 24346 , 208*w - 994 , 180*w + 70 , 117*w - 77 , 88*w + 798 , 14*w - 210 , 183*w + 1561 , -670*w - 630 , -88*w + 70 , -216*w + 476 , -5833*w - 3843 ],
[ 117*w + 301 , -208*w - 994 , 224 , -2*w , -18*w + 84 , -18*w + 14 , 14*w , -18*w , 0 , 0 , 0 , 233*w - 119 ],
[ 64*w - 28 , -180*w + 70 , 2*w , 98 , -12*w + 112 , 2*w + 84 , -8*w - 28 , 22*w + 84 , -56*w + 56 , 2*w + 14 , -6*w + 42 , w - 315 ],
[ 29*w + 7 , -117*w - 77 , 18*w + 84 , 12*w + 112 , 224 , 12*w + 182 , -6*w - 56 , 46*w + 196 , -112*w + 112 , 4*w + 28 , -12*w + 84 , 33*w - 63 ],
[ -17*w - 399 , -88*w + 798 , 18*w + 14 , -2*w + 84 , -12*w + 182 , 378 , 24*w - 112 , 50*w + 630 , -294*w - 182 , -14*w + 70 , -70*w + 154 , -127*w - 133 ],
[ 37*w + 91 , -14*w - 210 , -14*w , 8*w - 28 , 6*w - 56 , -24*w - 112 , 84 , -68*w - 168 , 112*w - 112 , -4*w - 28 , 12*w - 84 , 30*w - 14 ],
[ -9*w - 819 , -183*w + 1561 , 18*w , -22*w + 84 , -46*w + 196 , -50*w + 630 , 68*w - 168 , 1176 , -496*w - 672 , -38*w + 98 , -156*w + 196 , -260*w - 322 ],
[ -300*w + 588 , 670*w - 630 , 0 , 56*w + 56 , 112*w + 112 , 294*w - 182 , -112*w - 112 , 496*w - 672 , 1904 , 72*w + 56 , 176*w + 336 , 80*w + 910 ],
[ -45*w - 21 , 88*w + 70 , 0 , -2*w + 14 , -4*w + 28 , 14*w + 70 , 4*w - 28 , 38*w + 98 , -72*w + 56 , 56 , 8*w + 56 , -25*w + 133 ],
[ -126*w - 140 , 216*w + 476 , 0 , 6*w + 42 , 12*w + 84 , 70*w + 154 , -12*w - 84 , 156*w + 196 , -176*w + 336 , -8*w + 56 , 224 , -111*w + 231 ],
[ -2393*w + 2471 , 5833*w - 3843 , -233*w - 119 , -w - 315 , -33*w - 63 , 127*w - 133 , -30*w - 14 , 260*w - 322 , -80*w + 910 , 25*w + 133 , 111*w + 231 , 10696 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 5250 , -744*w + 3766 , 138*w + 126 , -17*w - 35 , 42*w + 224 , -206*w - 378 , 142*w - 238 , w + 147 , 394*w - 798 , 13*w + 469 , -192*w - 42 , -2140*w - 1344 ],
[ 744*w + 3766 , 3668 , 126*w - 98 , -81*w - 147 , 90*w + 168 , -219*w - 63 , 74*w - 294 , 14*w + 140 , 190*w - 1106 , 77*w + 343 , -162*w + 196 , -1851*w + 1365 ],
[ -138*w + 126 , -126*w - 98 , 98 , -2*w + 98 , -6*w - 28 , 18*w - 56 , 10*w + 28 , 2*w , 16*w + 112 , -14*w - 14 , 6*w - 42 , -7*w - 581 ],
[ 17*w - 35 , 81*w - 147 , 2*w + 98 , 882 , -24*w - 266 , 72*w - 252 , 6*w + 112 , 48*w , 64*w + 448 , -56*w - 56 , 24*w - 168 , -208*w - 504 ],
[ -42*w + 224 , -90*w + 168 , 6*w - 28 , 24*w - 266 , 112 , -40*w - 14 , 10*w - 28 , -16*w , 56*w - 168 , 8*w + 56 , -34*w + 14 , -100*w + 56 ],
[ 206*w - 378 , 219*w - 63 , -18*w - 56 , -72*w - 252 , 40*w - 14 , 406 , -40*w - 84 , -6*w , -270*w - 238 , 60*w - 84 , 62*w + 238 , 504*w + 798 ],
[ -142*w - 238 , -74*w - 294 , -10*w + 28 , -6*w + 112 , -10*w - 28 , 40*w - 84 , 84 , 0 , 32*w + 224 , -28*w - 28 , 12*w - 84 , 42*w - 602 ],
[ -w + 147 , -14*w + 140 , -2*w , -48*w , 16*w , 6*w , 0 , 28 , 0 , 0 , 0 , -57*w - 105 ],
[ -394*w - 798 , -190*w - 1106 , -16*w + 112 , -64*w + 448 , -56*w - 168 , 270*w - 238 , -32*w + 224 , 0 , 1456 , -96*w - 224 , 128*w - 448 , 296*w - 2870 ],
[ -13*w + 469 , -77*w + 343 , 14*w - 14 , 56*w - 56 , -8*w + 56 , -60*w - 84 , 28*w - 28 , 0 , 96*w - 224 , 112 , -48*w , -275*w + 203 ],
[ 192*w - 42 , 162*w + 196 , -6*w - 42 , -24*w - 168 , 34*w + 14 , -62*w + 238 , -12*w - 84 , 0 , -128*w - 448 , 48*w , 224 , 177*w + 1085 ],
[ 2140*w - 1344 , 1851*w + 1365 , 7*w - 581 , 208*w - 504 , 100*w + 56 , -504*w + 798 , -42*w - 602 , 57*w - 105 , -296*w - 2870 , 275*w + 203 , -177*w + 1085 , 10668 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 252 , 32*w - 56 , 16*w - 224 , 224 , 0 , 0 , 0 , 12*w , 34*w , 6*w , 0 , -36*w - 98 ],
[ -32*w - 56 , 126 , 48*w - 42 , -52*w + 98 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -98 ],
[ -16*w - 224 , -48*w - 42 , 700 , -26*w - 756 , 0 , 0 , 0 , 24*w , 68*w , 12*w , 0 , 148*w + 266 ],
[ 224 , 52*w + 98 , 26*w - 756 , 896 , 28 , 24*w , -12*w , -32*w , -68*w , -12*w , 0 , -176*w - 266 ],
[ 0 , 0 , 0 , 28 , 364 , 52*w - 70 , 104*w , 26*w , 0 , 0 , 0 , -52*w ],
[ 0 , 0 , 0 , -24*w , -52*w - 70 , 126 , -22*w + 56 , -6*w , 0 , 0 , 0 , -18*w - 98 ],
[ 0 , 0 , 0 , 12*w , -104*w , 22*w + 56 , 280 , 84 , 0 , 0 , 0 , 24*w - 56 ],
[ -12*w , 0 , -24*w , 32*w , -26*w , 6*w , 84 , 154 , 42 , 36*w , 36*w - 126 , -46*w + 56 ],
[ -34*w , 0 , -68*w , 68*w , 0 , 0 , 0 , 42 , 364 , -28*w + 70 , -28*w + 98 , 16*w + 70 ],
[ -6*w , 0 , -12*w , 12*w , 0 , 0 , 0 , -36*w , 28*w + 70 , 126 , 48*w + 140 , -6*w - 140 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -36*w - 126 , 28*w + 98 , -48*w + 140 , 308 , 62*w - 196 ],
[ 36*w - 98 , -98 , -148*w + 266 , 176*w - 266 , 52*w , 18*w - 98 , -24*w - 56 , 46*w + 56 , -16*w + 70 , 6*w - 140 , -62*w - 196 , 728 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 654780 , -6249*w - 251125 , -1505*w + 3591 , 4010*w + 1232 , 417*w - 77 , 1117*w - 3423 , -914*w + 1918 , -2370*w - 980 , -3132*w + 15274 , -1219*w - 3157 , 1740*w - 3570 , 48423*w + 80465 ],
[ 6249*w - 251125 , 97636 , 597*w - 1183 , -1534*w + 658 , -129*w - 357 , -429*w + 1141 , 385*w - 651 , 892*w + 476 , 1231*w - 5425 , 423*w + 1183 , -654*w + 1232 , -17511*w - 34153 ],
[ 1505*w + 3591 , -597*w - 1183 , 168 , -2*w + 154 , 12*w - 98 , -10*w - 56 , 14*w + 28 , -14*w + 28 , 4*w + 140 , -14*w - 14 , 6*w - 42 , 466*w - 364 ],
[ -4010*w + 1232 , 1534*w + 658 , 2*w + 154 , 5082 , 120*w - 1694 , 36*w - 630 , 138*w + 280 , -6*w + 280 , 40*w + 1400 , -140*w - 140 , 60*w - 420 , 148*w + 728 ],
[ -417*w - 77 , 129*w - 357 , -12*w - 98 , -120*w - 1694 , 700 , 26*w + 294 , -72*w - 112 , -18*w - 224 , -192*w - 560 , 68*w - 28 , 32*w + 224 , -142*w + 938 ],
[ -1117*w - 3423 , 429*w + 1141 , 10*w - 56 , -36*w - 630 , -26*w + 294 , 196 , -22*w - 112 , 14*w - 140 , -100*w - 420 , 48*w , 10*w + 154 , -442*w + 546 ],
[ 914*w + 1918 , -385*w - 651 , -14*w + 28 , -138*w + 280 , 72*w - 112 , 22*w - 112 , 112 , -24*w + 84 , 8*w + 280 , -28*w - 28 , 12*w - 84 , 338*w - 350 ],
[ 2370*w - 980 , -892*w + 476 , 14*w + 28 , 6*w + 280 , 18*w - 224 , -14*w - 140 , 24*w + 84 , 210 , 182*w + 364 , -40*w + 56 , -40*w - 168 , 206*w - 1680 ],
[ 3132*w + 15274 , -1231*w - 5425 , -4*w + 140 , -40*w + 1400 , 192*w - 560 , 100*w - 420 , -8*w + 280 , -182*w + 364 , 2002 , -136*w - 168 , 88*w - 616 , 1834*w - 784 ],
[ 1219*w - 3157 , -423*w + 1183 , 14*w - 14 , 140*w - 140 , -68*w - 28 , -48*w , 28*w - 28 , 40*w + 56 , 136*w - 168 , 112 , -48*w , -194*w - 1134 ],
[ -1740*w - 3570 , 654*w + 1232 , -6*w - 42 , -60*w - 420 , -32*w + 224 , -10*w + 154 , -12*w - 84 , 40*w - 168 , -88*w - 616 , 48*w , 224 , -524*w + 896 ],
[ -48423*w + 80465 , 17511*w - 34153 , -466*w - 364 , -148*w + 728 , 142*w + 938 , 442*w + 546 , -338*w - 350 , -206*w - 1680 , -1834*w - 784 , 194*w - 1134 , 524*w + 896 , 36596 ]]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1134 , -187*w - 1449 , -114*w - 70 , -52*w - 252 , -22*w - 70 , -66*w - 42 , -29*w - 35 , 51*w + 161 , 49*w - 245 , 62*w - 140 , -16*w - 252 , 742*w + 728 ],
[ 187*w - 1449 , 2632 , 188*w + 364 , 96*w + 616 , 48*w + 140 , 144*w + 84 , 66*w + 70 , -106*w - 322 , -104*w + 546 , -128*w + 308 , 32*w + 504 , -890*w - 1344 ],
[ 114*w - 70 , -188*w + 364 , 854 , 2*w + 532 , 70 , 30*w , 10*w , 20*w , 0 , 0 , 0 , 44*w - 588 ],
[ 52*w - 252 , -96*w + 616 , -2*w + 532 , 882 , 84 , 16*w - 70 , -38*w , 54*w , 0 , 0 , 0 , -238*w - 826 ],
[ 22*w - 70 , -48*w + 140 , 70 , 84 , 28 , 6*w + 42 , 2*w + 28 , 4*w - 56 , -28*w , -20*w - 14 , -12*w + 42 , -76*w - 154 ],
[ 66*w - 42 , -144*w + 84 , -30*w , -16*w - 70 , -6*w + 42 , 168 , 10*w + 112 , -6*w - 168 , -84*w , -60*w - 42 , -36*w + 126 , -96*w - 168 ],
[ 29*w - 35 , -66*w + 70 , -10*w , 38*w , -2*w + 28 , -10*w + 112 , 112 , -140 , -56*w , -40*w - 28 , -24*w + 84 , -126*w - 14 ],
[ -51*w + 161 , 106*w - 322 , -20*w , -54*w , -4*w - 56 , 6*w - 168 , -140 , 308 , 112*w - 28 , 88*w + 56 , 64*w - 224 , 298*w + 224 ],
[ -49*w - 245 , 104*w + 546 , 0 , 0 , 28*w , 84*w , 56*w , -112*w - 28 , 406 , -32*w + 280 , 76*w + 196 , -156*w + 644 ],
[ -62*w - 140 , 128*w + 308 , 0 , 0 , 20*w - 14 , 60*w - 42 , 40*w - 28 , -88*w + 56 , 32*w + 280 , 224 , 82*w + 98 , -62*w + 616 ],
[ 16*w - 252 , -32*w + 504 , 0 , 0 , 12*w + 42 , 36*w + 126 , 24*w + 84 , -64*w - 224 , -76*w + 196 , -82*w + 98 , 308 , -294*w + 84 ],
[ -742*w + 728 , 890*w - 1344 , -44*w - 588 , 238*w - 826 , 76*w - 154 , 96*w - 168 , 126*w - 14 , -298*w + 224 , 156*w + 644 , 62*w + 616 , 294*w + 84 , 5558 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 4225956 , -5430*w + 666638 , -44477*w + 13923 , -8280*w + 4102 , 13203*w - 21259 , -2833*w + 7987 , -20268*w - 4130 , -18230*w + 113806 , 677*w + 60641 , 13711*w - 4599 , -4356*w + 8498 , -691503*w - 
    1567181 ],
[ 5430*w + 666638 , 106246 , -6709*w + 2471 , -1198*w + 322 , 1880*w - 3612 , -399*w + 1309 , -3145*w - 441 , -2723*w + 17927 , 176*w + 9520 , 2155*w - 805 , -672*w + 1358 , -111164*w - 240772 ],
[ 44477*w + 13923 , 6709*w + 2471 , 80248 , -934*w + 33530 , 2222*w + 12138 , 154*w - 2464 , -508*w - 4368 , -478*w - 15288 , -1794*w - 7098 , -1638*w + 2730 , 234*w - 1638 , 11083*w + 94465 ],
[ 8280*w + 4102 , 1198*w + 322 , 934*w + 33530 , 14658 , 1290*w + 5614 , -16*w - 1218 , -372*w - 2688 , -1242*w - 6832 , -1252*w - 2772 , -636*w + 1764 , -4*w - 868 , 9750*w + 24682 ],
[ -13203*w - 21259 , -1880*w - 3612 , -2222*w + 12138 , -1290*w + 5614 , 4620 , 84*w - 854 , 234*w - 2604 , -798*w - 5236 , -856*w - 2296 , -528*w + 1232 , 28*w - 644 , 12572*w + 4648 ],
[ 2833*w + 7987 , 399*w + 1309 , -154*w - 2464 , 16*w - 1218 , -84*w - 854 , 196 , -20*w + 532 , 314*w + 1120 , 244*w + 420 , 96*w - 336 , 10*w + 154 , -3611*w - 539 ],
[ 20268*w - 4130 , 3145*w - 441 , 508*w - 4368 , 372*w - 2688 , -234*w - 2604 , 20*w + 532 , 2506 , 1686*w + 3402 , 998*w + 952 , 156*w - 1316 , 108*w + 588 , -9391*w + 22617 ],
[ 18230*w + 113806 , 2723*w + 17927 , 478*w - 15288 , 1242*w - 6832 , 798*w - 5236 , -314*w + 1120 , -1686*w + 3402 , 16044 , 922*w + 7322 , 1296*w - 1456 , -304*w + 1680 , -33673*w - 36953 ],
[ -677*w + 60641 , -176*w + 9520 , 1794*w - 7098 , 1252*w - 2772 , 856*w - 2296 , -244*w + 420 , -998*w + 952 , -922*w + 7322 , 4018 , 776*w + 56 , -232*w + 616 , -12412*w - 35490 ],
[ -13711*w - 4599 , -2155*w - 805 , 1638*w + 2730 , 636*w + 1764 , 528*w + 1232 , -96*w - 336 , -156*w - 1316 , -1296*w - 1456 , -776*w + 56 , 1232 , -96*w - 336 , 8355*w - 18011 ],
[ 4356*w + 8498 , 672*w + 1358 , -234*w - 1638 , 4*w - 868 , -28*w - 644 , -10*w + 154 , -108*w + 588 , 304*w + 1680 , 232*w + 616 , 96*w - 336 , 224 , -4148*w + 1302 ],
[ 691503*w - 1567181 , 111164*w - 240772 , -11083*w + 94465 , -9750*w + 24682 , -12572*w + 4648 , 3611*w - 539 , 9391*w + 22617 , 33673*w - 36953 , 12412*w - 35490 , -8355*w - 18011 , 4148*w + 1302 , 1498504
]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 11060 , -255*w - 1113 , 32*w - 140 , 59*w - 21 , 26*w - 168 , -46*w + 336 , 54*w - 112 , 178*w + 28 , 315*w - 105 , 82*w - 266 , -124*w - 182 , -2512*w - 4494 ],
[ 255*w - 1113 , 266 , -12*w - 56 , -2*w + 56 , 36*w + 28 , -112*w , 20*w , -16*w , -40*w , -12*w , 0 , 157*w + 1085 ],
[ -32*w - 140 , 12*w - 56 , 154 , -84 , -18*w - 14 , 56*w , -14*w , -4*w , 0 , 0 , 0 , 20*w - 112 ],
[ -59*w - 21 , 2*w + 56 , -84 , 140 , 12*w + 140 , -124*w - 28 , 44*w , 20*w , 0 , 0 , 0 , 31*w + 7 ],
[ -26*w - 168 , -36*w + 28 , 18*w - 14 , -12*w + 140 , 490 , -92*w - 560 , 46*w + 84 , 28*w , 0 , 0 , 0 , -76*w - 84 ],
[ 46*w + 336 , 112*w , -56*w , 124*w - 28 , 92*w - 560 , 1722 , -8*w - 448 , -6*w - 140 , 0 , 0 , 0 , 196*w + 140 ],
[ -54*w - 112 , -20*w , 14*w , -44*w , -46*w + 84 , 8*w - 448 , 154 , 14 , -18*w - 14 , -18*w + 84 , 30*w + 126 , -4*w - 84 ],
[ -178*w + 28 , 16*w , 4*w , -20*w , -28*w , 6*w - 140 , 14 , 378 , 102*w + 266 , 102*w - 420 , -170*w - 714 , 64*w - 224 ],
[ -315*w - 105 , 40*w , 0 , 0 , 0 , 0 , 18*w - 14 , -102*w + 266 , 490 , 222*w , 142*w - 882 , 147*w - 399 ],
[ -82*w - 266 , 12*w , 0 , 0 , 0 , 0 , 18*w + 84 , -102*w - 420 , -222*w , 938 , 512*w + 672 , 80*w - 140 ],
[ 124*w - 182 , 0 , 0 , 0 , 0 , 0 , -30*w + 126 , 170*w - 714 , -142*w - 882 , -512*w + 672 , 2464 , 44*w + 98 ],
[ 2512*w - 4494 , -157*w + 1085 , -20*w - 112 , -31*w + 7 , 76*w - 84 , -196*w + 140 , 4*w - 84 , -64*w - 224 , -147*w - 399 , -80*w - 140 , -44*w + 98 , 6496 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 252 , 232*w - 4956 , -40*w + 1652 , 224 , 0 , 0 , -48*w , 148*w , -4*w , 6*w , 0 , -42*w - 462 ],
[ -232*w - 4956 , 289926 , 2250*w - 96796 , 278*w - 12922 , 20*w - 2940 , -300*w - 2100 , -3040*w - 1680 , 4260*w + 3360 , 340*w - 7700 , -380*w - 3360 , 3200*w - 420 , 6528*w - 2170 ],
[ 40*w + 1652 , -2250*w - 96796 , 35308 , -66*w + 5208 , 212*w + 504 , 60*w + 420 , 1028*w + 336 , -1764*w - 672 , -44*w + 1540 , 40*w + 672 , -640*w + 84 , -2200*w + 1372 ],
[ 224 , -278*w - 12922 , 66*w + 5208 , 1204 , -84*w + 546 , -260*w + 70 , 348*w , -330*w , 8*w , -12*w , 0 , -652*w + 728 ],
[ 0 , -20*w - 2940 , -212*w + 504 , 84*w + 546 , 1918 , -392*w + 784 , 346*w - 168 , -44*w , 0 , 0 , 0 , -550*w + 2142 ],
[ 0 , 300*w - 2100 , -60*w + 420 , 260*w + 70 , 392*w + 784 , 1470 , 46*w - 1288 , -6*w + 168 , 0 , 0 , 0 , 346*w + 1848 ],
[ 48*w , 3040*w - 1680 , -1028*w + 336 , -348*w , -346*w - 168 , -46*w - 1288 , 3416 , -1372 , -720*w + 168 , -288*w + 504 , -216*w - 2016 , -820*w - 896 ],
[ -148*w , -4260*w + 3360 , 1764*w - 672 , 330*w , 44*w , 6*w + 168 , -1372 , 6314 , -380*w - 98 , -152*w + 546 , -114*w - 1064 , 1080*w + 3934 ],
[ 4*w , -340*w - 7700 , 44*w + 1540 , -8*w , 0 , 0 , 720*w + 168 , 380*w - 98 , 2814 , 296*w + 1162 , -1138*w + 672 , 702*w + 70 ],
[ -6*w , 380*w - 3360 , -40*w + 672 , 12*w , 0 , 0 , 288*w + 504 , 152*w + 546 , -296*w + 1162 , 714 , -544*w - 560 , 328*w + 728 ],
[ 0 , -3200*w - 420 , 640*w + 84 , 0 , 0 , 0 , 216*w - 2016 , 114*w - 1064 , 1138*w + 672 , 544*w - 560 , 3388 , 238*w - 2030 ],
[ 42*w - 462 , -6528*w - 2170 , 2200*w + 1372 , 652*w + 728 , 550*w + 2142 , -346*w + 1848 , 820*w - 896 , -1080*w + 3934 , -702*w + 70 , -328*w + 728 , -238*w - 2030 , 9114 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1844612 , -89670*w + 743288 , -35309*w + 36393 , -12124*w + 53018 , 1249*w + 12999 , -6555*w + 25067 , -56833*w - 97083 , 18166*w + 58926 , -22516*w + 49784 , 2273*w - 38689 , -9370*w - 13636 , 1300805*w +
    931301 ],
[ 89670*w + 743288 , 1409982 , -17961*w + 348747 , -4066*w + 100254 , -10768*w - 44940 , -4960*w - 26460 , 40177*w + 112273 , -4635*w - 43225 , 20191*w - 11473 , -4925*w + 20503 , 4666*w + 12236 , 589842*w +
    524272 ],
[ 35309*w + 36393 , 17961*w + 348747 , 111398 , -2*w + 25256 , -4228*w - 15932 , -1586*w - 12698 , 23682*w + 42882 , -5732*w - 18872 , 9092*w - 11508 , -1034*w + 11494 , 3210*w + 3626 , 52932*w + 23898 ],
[ 12124*w + 53018 , 4066*w + 100254 , 2*w + 25256 , 8050 , -954*w - 2198 , -468*w - 994 , 1832*w + 6020 , 14*w - 2352 , 1032*w - 168 , -324*w + 924 , 180*w + 756 , 45096*w + 5208 ],
[ -1249*w + 12999 , 10768*w - 44940 , 4228*w - 15932 , 954*w - 2198 , 4620 , -318*w + 3458 , -4046*w - 14084 , 798*w + 5236 , -2440*w + 1400 , 584*w - 2520 , -588*w - 1484 , 12878*w - 19026 ],
[ 6555*w + 25067 , 4960*w - 26460 , 1586*w - 12698 , 468*w - 994 , 318*w + 3458 , 3766 , -6190*w - 9898 , 2000*w + 4522 , -1998*w + 3584 , 16*w - 3136 , -978*w - 658 , 21616*w - 45892 ],
[ 56833*w - 97083 , -40177*w + 112273 , -23682*w + 42882 , -1832*w + 6020 , 4046*w - 14084 , 6190*w - 9898 , 112476 , 2924*w - 40012 , 13106*w + 17934 , -6140*w + 8372 , 1564*w + 14700 , -84082*w - 231532 ],
[ -18166*w + 58926 , 4635*w - 43225 , 5732*w - 18872 , -14*w - 2352 , -798*w + 5236 , -2000*w + 4522 , -2924*w - 40012 , 16044 , -4810*w - 2954 , 1904*w - 4816 , -1072*w - 5488 , 42658*w + 79506 ],
[ 22516*w + 49784 , -20191*w - 11473 , -9092*w - 11508 , -1032*w - 168 , 2440*w + 1400 , 1998*w + 3584 , -13106*w + 17934 , 4810*w - 2954 , 15442 , -1816*w - 4536 , -1432*w + 2856 , 26494*w - 106400 ],
[ -2273*w - 38689 , 4925*w + 20503 , 1034*w + 11494 , 324*w + 924 , -584*w - 2520 , -16*w - 3136 , 6140*w + 8372 , -1904*w - 4816 , 1816*w - 4536 , 3472 , 976*w + 896 , -25200*w + 14560 ],
[ 9370*w - 13636 , -4666*w + 12236 , -3210*w + 3626 , -180*w + 756 , 588*w - 1484 , 978*w - 658 , -1564*w + 14700 , 1072*w - 5488 , 1432*w + 2856 , -976*w + 896 , 2464 , -10832*w - 44128 ],
[ -1300805*w + 931301 , -589842*w + 524272 , -52932*w + 23898 , -45096*w + 5208 , -12878*w - 19026 , -21616*w - 45892 , 84082*w - 231532 , -42658*w + 79506 , -26494*w - 106400 , 25200*w + 14560 , 10832*w - 
    44128 , 7254016 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1624 , 976*w - 1750 , -876*w + 1498 , 228*w - 462 , 20*w - 392 , 138*w + 182 , -206*w - 224 , 62*w - 14 , 264*w + 714 , 6*w - 140 , 320*w - 42 , -108*w - 1134 ],
[ -976*w - 1750 , 11662 , -256*w - 9646 , 52*w + 3122 , 0 , 0 , 480*w , 176*w , 272*w , -48*w , 0 , 210*w + 1932 ],
[ 876*w + 1498 , 256*w - 9646 , 8988 , 26*w - 2716 , -384*w + 112 , -336*w , -568*w , -100*w , -204*w , 36*w , 0 , -584*w - 2156 ],
[ -228*w - 462 , -52*w + 3122 , -26*w - 2716 , 1204 , -112*w + 616 , 552*w + 70 , 406*w , 10*w , 68*w , -12*w , 0 , -46*w + 476 ],
[ -20*w - 392 , 0 , 384*w + 112 , 112*w + 616 , 2940 , 908*w - 546 , 442*w - 224 , -50*w , 0 , 0 , 0 , -574*w + 1302 ],
[ -138*w + 182 , 0 , 336*w , -552*w + 70 , -908*w - 546 , 6566 , 52*w + 3444 , -6*w - 420 , 0 , 0 , 0 , -64*w - 784 ],
[ 206*w - 224 , -480*w , 568*w , -406*w , -442*w - 224 , -52*w + 3444 , 4970 , -644 , 720*w - 2310 , -180*w , -270*w - 2520 , -456*w + 686 ],
[ -62*w - 14 , -176*w , 100*w , -10*w , 50*w , 6*w - 420 , -644 , 434 , -256*w + 1218 , 64*w - 70 , 96*w + 896 , -136*w - 938 ],
[ -264*w + 714 , -272*w , 204*w , -68*w , 0 , 0 , -720*w - 2310 , 256*w + 1218 , 6076 , 220*w - 630 , 1274*w + 2856 , -832*w - 3066 ],
[ -6*w - 140 , 48*w , -36*w , 12*w , 0 , 0 , 180*w , -64*w - 70 , -220*w - 630 , 126 , -236*w + 56 , 200*w + 182 ],
[ -320*w - 42 , 0 , 0 , 0 , 0 , 0 , 270*w - 2520 , -96*w + 896 , -1274*w + 2856 , 236*w + 56 , 3388 , 276*w - 2212 ],
[ 108*w - 1134 , -210*w + 1932 , 584*w - 2156 , 46*w + 476 , 574*w + 1302 , 64*w - 784 , 456*w + 686 , 136*w - 938 , 832*w - 3066 , -200*w + 182 , -276*w - 2212 , 5894 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 5866 , -119*w + 1687 , 439*w + 4207 , -515*w - 3997 , 22*w - 280 , -34*w + 224 , -68*w + 168 , -105*w - 7 , -165*w + 63 , -76*w - 70 , 124*w + 182 , 1215*w + 1015 ],
[ 119*w + 1687 , 756 , 230*w + 1092 , -246*w - 980 , 90*w - 42 , -132*w , -70*w , -32*w , -28*w , -12*w , 0 , 486*w - 84 ],
[ -439*w + 4207 , -230*w + 1092 , 3430 , -70*w - 3346 , 0 , 0 , -64*w , -80*w , -112*w , -48*w , 0 , 922*w + 1806 ],
[ 515*w - 3997 , 246*w - 980 , 70*w - 3346 , 3304 , 20*w - 56 , 14*w - 14 , 78*w , 86*w , 112*w , 48*w , 0 , -886*w - 1946 ],
[ -22*w - 280 , -90*w - 42 , 0 , -20*w - 56 , 938 , 8*w - 504 , -38*w - 140 , -20*w , 0 , 0 , 0 , 230*w + 518 ],
[ 34*w + 224 , 132*w , 0 , -14*w - 14 , -8*w - 504 , 1162 , -14*w + 532 , -6*w + 140 , 0 , 0 , 0 , -148*w - 798 ],
[ 68*w + 168 , 70*w , 64*w , -78*w , 38*w - 140 , 14*w + 532 , 336 , 28 , -24*w - 28 , -84 , 60*w + 252 , -56*w - 686 ],
[ 105*w - 7 , 32*w , 80*w , -86*w , 20*w , 6*w + 140 , 28 , 210 , 48*w + 154 , 210 , -120*w - 504 , 144*w + 56 ],
[ 165*w + 63 , 28*w , 112*w , -112*w , 0 , 0 , 24*w - 28 , -48*w + 154 , 252 , -64*w + 168 , 78*w - 658 , 36*w + 266 ],
[ 76*w - 70 , 12*w , 48*w , -48*w , 0 , 0 , -84 , 210 , 64*w + 168 , 266 , -160*w - 672 , 160*w + 336 ],
[ -124*w + 182 , 0 , 0 , 0 , 0 , 0 , -60*w + 252 , 120*w - 504 , -78*w - 658 , 160*w - 672 , 2464 , -80*w - 1680 ],
[ -1215*w + 1015 , -486*w - 84 , -922*w + 1806 , 886*w - 1946 , -230*w + 518 , 148*w - 798 , 56*w - 686 , -144*w + 56 , -36*w + 266 , -160*w + 336 , 80*w - 1680 , 4900 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 4662 , 28*w + 42 , -23*w - 231 , 5*w - 21 , -16*w + 14 , 63*w - 49 , -43*w + 35 , -20*w - 14 , -55*w - 77 , 122*w - 266 , 74*w + 588 , -103*w - 1113 ],
[ -28*w + 42 , 308 , -8*w + 196 , 10*w - 112 , -24*w - 56 , 120*w , -20*w , -18*w , -16*w , 24*w - 84 , 30*w + 126 , 8*w - 532 ],
[ 23*w - 231 , 8*w + 196 , 182 , -112 , -18*w - 42 , 90*w , -6*w , -12*w , 0 , 0 , 0 , -20*w - 266 ],
[ -5*w - 21 , -10*w - 112 , -112 , 140 , 20*w + 28 , -48*w + 28 , 24*w , -4*w , 0 , 0 , 0 , 20*w + 294 ],
[ 16*w + 14 , 24*w - 56 , 18*w - 42 , -20*w + 28 , 42 , -34*w - 84 , 2*w + 28 , 4*w , 0 , 0 , 0 , -52*w + 84 ],
[ -63*w - 49 , -120*w , -90*w , 48*w + 28 , 34*w - 84 , 518 , 10*w , -6*w - 84 , 0 , 0 , 0 , 174*w + 14 ],
[ 43*w + 35 , 20*w , 6*w , -24*w , -2*w + 28 , -10*w , 112 , 0 , 16*w + 56 , -64*w - 112 , 84*w - 140 , -136*w + 42 ],
[ 20*w - 14 , 18*w , 12*w , 4*w , -4*w , 6*w - 84 , 0 , 56 , 20*w + 14 , -38*w - 56 , 42*w - 70 , -46*w + 98 ],
[ 55*w - 77 , 16*w , 0 , 0 , 0 , 0 , -16*w + 56 , -20*w + 14 , 182 , -26*w - 280 , 124*w + 28 , -152*w - 154 ],
[ -122*w - 266 , -24*w - 84 , 0 , 0 , 0 , 0 , 64*w - 112 , 38*w - 56 , 26*w - 280 , 756 , -328*w - 392 , 268*w + 560 ],
[ -74*w + 588 , -30*w + 126 , 0 , 0 , 0 , 0 , -84*w - 140 , -42*w - 70 , -124*w + 28 , 328*w - 392 , 1232 , 120*w - 1064 ],
[ 103*w - 1113 , -8*w - 532 , 20*w - 266 , -20*w + 294 , 52*w + 84 , -174*w + 14 , 136*w + 42 , 46*w + 98 , 152*w - 154 , -268*w + 560 , -120*w - 1064 , 2156 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 52626 , 746*w + 1526 , -804*w - 19950 , 1404*w - 3528 , 1200*w - 896 , 3428*w + 1988 , -1540*w + 5222 , 6010*w - 8456 , 1420*w + 8918 , 290*w - 42 , -2166*w - 4816 , -13956*w - 11788 ],
[ -746*w + 1526 , 5950 , 152*w - 1218 , -1292*w + 5698 , 6176*w + 3304 , 1224*w - 280 , 1824*w , 136*w , 0 , 0 , 0 , -5920*w + 2534 ],
[ 804*w - 19950 , -152*w - 1218 , 8988 , -1178*w + 3052 , -1392*w + 112 , -1368*w , -68*w , -716*w , -204*w , -36*w , 0 , 5536*w + 4046 ],
[ -1404*w - 3528 , 1292*w + 5698 , 1178*w + 3052 , 23968 , 6628*w + 3080 , 588*w - 308 , 1720*w - 672 , -112*w , -68*w , -12*w , 0 , -10226*w + 1358 ],
[ -1200*w - 896 , -6176*w + 3304 , 1392*w + 112 , -6628*w + 3080 , 58758 , 886*w + 11172 , 938*w + 16408 , 68*w + 1260 , 0 , 0 , 0 , -13364*w - 51688 ],
[ -3428*w + 1988 , -1224*w - 280 , 1368*w , -588*w - 308 , -886*w + 11172 , 30632 , -82*w + 19026 , 8634*w - 26208 , 6210*w + 30870 , 540*w , -9180*w - 9450 , 1416*w - 13552 ],
[ 1540*w + 5222 , -1824*w , 68*w , -1720*w - 672 , -938*w + 16408 , 82*w + 19026 , 22260 , 8000*w - 30786 , 5750*w + 26600 , 500*w - 350 , -8500*w - 8750 , -1622*w - 8792 ],
[ -6010*w - 8456 , -136*w , 716*w , 112*w , -68*w + 1260 , -8634*w - 26208 , -8000*w - 30786 , 87906 , -24744*w - 29554 , -816*w + 2450 , 20528*w - 13944 , -4748*w - 7378 ],
[ -1420*w + 8918 , 0 , 204*w , 68*w , 0 , -6210*w + 30870 , -5750*w + 26600 , 24744*w - 29554 , 62216 , 960*w + 910 , -11536*w - 37086 , 1864*w + 10416 ],
[ -290*w - 42 , 0 , 36*w , 12*w , 0 , -540*w , -500*w - 350 , 816*w + 2450 , -960*w + 910 , 126 , 416*w - 1764 , -108*w + 84 ],
[ 2166*w - 4816 , 0 , 0 , 0 , 0 , 9180*w - 9450 , 8500*w - 8750 , -20528*w - 13944 , 11536*w - 37086 , -416*w - 1764 , 37268 , 1268*w - 9128 ],
[ 13956*w - 11788 , 5920*w + 2534 , -5536*w + 4046 , 10226*w + 1358 , 13364*w - 51688 , -1416*w - 13552 , 1622*w - 8792 , 4748*w - 7378 , -1864*w + 10416 , 108*w + 84 , -1268*w - 9128 , 113092 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 742 , 57*w - 245 , 58*w , -3*w - 91 , -8*w , -2*w , -98*w - 224 , 15*w - 7 , 7*w + 147 , 20*w + 378 , 124*w + 182 , 358*w - 616 ],
[ -57*w - 245 , 196 , -12*w - 14 , -14*w , 14 , 4*w , 30*w , -16*w , -52*w , -12*w , 0 , 6*w + 686 ],
[ -58*w , 12*w - 14 , 154 , 12*w - 56 , -14 , -4*w , 10*w , -4*w , 0 , 0 , 0 , -58*w + 98 ],
[ 3*w - 91 , 14*w , -12*w - 56 , 196 , 4*w - 28 , -4*w + 28 , 56*w - 56 , -12*w , 0 , 0 , 0 , 8*w - 84 ],
[ 8*w , 14 , -14 , -4*w - 28 , 28 , 10*w - 14 , -38*w , 10*w , 0 , 0 , 0 , 12*w - 28 ],
[ 2*w , -4*w , 4*w , 4*w + 28 , -10*w - 14 , 42 , 28*w - 112 , -6*w + 28 , 0 , 0 , 0 , 2*w + 14 ],
[ 98*w - 224 , -30*w , -10*w , -56*w - 56 , 38*w , -28*w - 112 , 826 , 28 , 120*w + 70 , 120*w - 630 , -150*w - 630 , -140*w - 70 ],
[ -15*w - 7 , 16*w , 4*w , 12*w , -10*w , 6*w + 28 , 28 , 210 , 96*w + 238 , 96*w - 462 , -120*w - 504 , 72*w + 98 ],
[ -7*w + 147 , 52*w , 0 , 0 , 0 , 0 , -120*w + 70 , -96*w + 238 , 812 , 424*w - 28 , 206*w - 1106 , 132*w + 112 ],
[ -20*w + 378 , 12*w , 0 , 0 , 0 , 0 , -120*w - 630 , -96*w - 462 , -424*w - 28 , 2058 , 736*w + 1120 , -10*w - 196 ],
[ -124*w + 182 , 0 , 0 , 0 , 0 , 0 , 150*w - 630 , 120*w - 504 , -206*w - 1106 , -736*w + 1120 , 2464 , 46*w - 238 ],
[ -358*w - 616 , -6*w + 686 , 58*w + 98 , -8*w - 84 , -12*w - 28 , -2*w + 14 , 140*w - 70 , -72*w + 98 , -132*w + 112 , 10*w - 196 , -46*w - 238 , 4032 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 364658 , -19496*w + 100492 , 429*w + 5215 , 2102*w + 658 , -258*w - 3010 , 468*w + 1064 , 163*w - 11781 , -8501*w - 13153 , 1358*w + 4718 , -3457*w + 2667 , 1154*w - 9044 , -46451*w - 8365 ],
[ 19496*w + 100492 , 39886 , 362*w + 2324 , 1018*w - 1918 , -385*w - 231 , 10*w + 98 , -490*w - 2912 , -2407*w - 959 , 494*w + 770 , -736*w + 1498 , -44*w - 2464 , -13863*w + 11991 ],
[ -429*w + 5215 , -362*w + 2324 , 1106 , -70*w + 1302 , -6*w - 490 , -90*w - 14 , -130*w - 420 , -588*w + 924 , 180*w - 84 , -48*w + 420 , -90*w - 378 , -159*w + 749 ],
[ -2102*w + 658 , -1018*w - 1918 , 70*w + 1302 , 4578 , -38*w - 1820 , -46*w + 56 , -380*w - 1484 , -1810*w + 2884 , 540*w - 252 , -144*w + 1260 , -270*w - 1134 , 2349*w + 3087 ],
[ 258*w - 3010 , 385*w - 231 , 6*w - 490 , 38*w - 1820 , 966 , -66*w - 56 , 210*w + 1484 , 1528*w - 546 , -386*w - 266 , 256*w - 812 , 74*w + 1050 , -687*w - 2933 ],
[ -468*w + 1064 , -10*w + 98 , 90*w - 14 , 46*w + 56 , 66*w - 56 , 462 , 284*w - 392 , 14*w - 1946 , -94*w + 490 , -128*w - 308 , 166*w - 42 , -423*w + 203 ],
[ -163*w - 11781 , 490*w - 2912 , 130*w - 420 , 380*w - 1484 , -210*w + 1484 , -284*w - 392 , 4116 , 3588*w + 3640 , -720*w - 1792 , 980*w - 1092 , -292*w + 2716 , 959*w - 7357 ],
[ 8501*w - 13153 , 2407*w - 959 , 588*w + 924 , 1810*w + 2884 , -1528*w - 546 , -14*w - 1946 , -3588*w + 3640 , 26264 , 996*w - 6300 , 1894*w + 4942 , -2636*w + 756 , 8366*w - 1372 ],
[ -1358*w + 4718 , -494*w + 770 , -180*w - 84 , -540*w - 252 , 386*w - 266 , 94*w + 490 , 720*w - 1792 , -996*w - 6300 , 1904 , -552*w - 616 , 544*w - 672 , -1796*w + 2590 ],
[ 3457*w + 2667 , 736*w + 1498 , 48*w + 420 , 144*w + 1260 , -256*w - 812 , 128*w - 308 , -980*w - 1092 , -1894*w + 4942 , 552*w - 616 , 2408 , -744*w - 1400 , 1607*w + 4935 ],
[ -1154*w - 9044 , 44*w - 2464 , 90*w - 378 , 270*w - 1134 , -74*w + 1050 , -166*w - 42 , 292*w + 2716 , 2636*w + 756 , -544*w - 672 , 744*w - 1400 , 2464 , 497*w - 6167 ],
[ 46451*w - 8365 , 13863*w + 11991 , 159*w + 749 , -2349*w + 3087 , 687*w - 2933 , 423*w + 203 , -959*w - 7357 , -8366*w - 1372 , 1796*w + 2590 , -1607*w + 4935 , -497*w - 6167 , 62902 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 27356 , 5883*w + 22729 , 204*w + 868 , -466*w - 2240 , -84*w + 140 , 263*w + 1337 , 459*w + 1463 , -307*w + 1519 , 561*w + 329 , -378*w + 2324 , -497*w - 2149 , 20716*w + 44128 ],
[ -5883*w + 22729 , 29218 , -24*w + 1512 , -188*w - 2240 , -153*w + 245 , 166*w + 1400 , 233*w + 1771 , -451*w + 931 , 406*w + 840 , -736*w + 1498 , -44*w - 2464 , 7616*w + 66808 ],
[ -204*w + 868 , 24*w + 1512 , 322 , -58*w - 112 , -6*w - 28 , 86*w + 154 , 62*w + 112 , -16*w + 140 , 62*w - 14 , -16*w + 140 , -30*w - 126 , 241*w + 2569 ],
[ 466*w - 2240 , 188*w - 2240 , 58*w - 112 , 2996 , -24*w + 434 , 242*w - 1974 , -48*w - 2114 , 698*w - 1204 , -694*w - 1190 , 656*w - 1456 , 12*w + 2268 , -235*w - 12383 ],
[ 84*w + 140 , 153*w + 245 , 6*w - 28 , 24*w + 434 , 224 , -30*w - 350 , -52*w - 252 , 66*w - 308 , -124*w + 28 , 32*w - 280 , 60*w + 252 , 14*w - 1554 ],
[ -263*w + 1337 , -166*w + 1400 , -86*w + 154 , -242*w - 1974 , 30*w - 350 , 1806 , 230*w + 1498 , -376*w + 1288 , 624*w + 308 , -320*w + 1372 , -194*w - 1554 , 630*w + 8540 ],
[ -459*w + 1463 , -233*w + 1771 , -62*w + 112 , 48*w - 2114 , 52*w - 252 , -230*w + 1498 , 1596 , -540*w + 784 , 506*w + 938 , -538*w + 966 , 56*w - 1736 , -407*w + 9373 ],
[ 307*w + 1519 , 451*w + 931 , 16*w + 140 , -698*w - 1204 , -66*w - 308 , 376*w + 1288 , 540*w + 784 , 1736 , 598*w - 770 , 94*w + 1750 , -572*w - 924 , 2964*w + 5152 ],
[ -561*w + 329 , -406*w + 840 , -62*w - 14 , 694*w - 1190 , 124*w + 28 , -624*w + 308 , -506*w + 938 , -598*w - 770 , 2072 , -528*w - 392 , 472*w - 728 , -2679*w + 4403 ],
[ 378*w + 2324 , 736*w + 1498 , 16*w + 140 , -656*w - 1456 , -32*w - 280 , 320*w + 1372 , 538*w + 966 , -94*w + 1750 , 528*w - 392 , 2408 , -744*w - 1400 , 3521*w + 6937 ],
[ 497*w - 2149 , 44*w - 2464 , 30*w - 126 , -12*w + 2268 , -60*w + 252 , 194*w - 1554 , -56*w - 1736 , 572*w - 924 , -472*w - 728 , 744*w - 1400 , 2464 , 2*w - 11788 ],
[ -20716*w + 44128 , -7616*w + 66808 , -241*w + 2569 , 235*w - 12383 , -14*w - 1554 , -630*w + 8540 , 407*w + 9373 , -2964*w + 5152 , 2679*w + 4403 , -3521*w + 6937 , -2*w - 11788 , 202636 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 2478 , -80*w + 1890 , 180*w - 350 , -40*w , -12*w , 28*w , 8*w , -2*w , -2*w + 28 , -4*w + 28 , 0 , 240*w + 756 ],
[ 80*w + 1890 , 2002 , 68*w - 854 , -16*w + 112 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 385*w + 651 ],
[ -180*w - 350 , -68*w - 854 , 980 , 2*w - 364 , -56 , -72*w , -72*w , -16*w , 0 , 0 , 0 , -208*w - 224 ],
[ 40*w , 16*w + 112 , -2*w - 364 , 378 , 224 , 36*w - 42 , 114*w , 34*w , 0 , 0 , 0 , -18*w - 308 ],
[ 12*w , 0 , -56 , 224 , 364 , -30*w - 350 , 74*w - 84 , 28*w + 84 , 42*w - 42 , 60*w + 42 , 36*w - 126 , 90*w - 210 ],
[ -28*w , 0 , 72*w , -36*w - 42 , 30*w - 350 , 952 , -14*w + 280 , -6*w - 196 , -98*w + 98 , -140*w - 98 , -84*w + 294 , -366*w - 406 ],
[ -8*w , 0 , 72*w , -114*w , -74*w - 84 , 14*w + 280 , 336 , 28 , -28*w + 28 , -40*w - 28 , -24*w + 84 , 33*w - 259 ],
[ 2*w , 0 , 16*w , -34*w , -28*w + 84 , 6*w - 196 , 28 , 98 , 28*w - 42 , 44*w + 28 , 32*w - 112 , 146*w + 112 ],
[ 2*w + 28 , 0 , 0 , 0 , -42*w - 42 , 98*w + 98 , 28*w + 28 , -28*w - 42 , 126 , -38*w + 126 , 22*w + 154 , -121*w + 217 ],
[ 4*w + 28 , 0 , 0 , 0 , -60*w + 42 , 140*w - 98 , 40*w - 28 , -44*w + 28 , 38*w + 126 , 224 , 82*w + 98 , -58*w + 518 ],
[ 0 , 0 , 0 , 0 , -36*w - 126 , 84*w + 294 , 24*w + 84 , -32*w - 112 , -22*w + 154 , -82*w + 98 , 308 , -222*w + 56 ],
[ -240*w + 756 , -385*w + 651 , 208*w - 224 , 18*w - 308 , -90*w - 210 , 366*w - 406 , -33*w - 259 , -146*w + 112 , 121*w + 217 , 58*w + 518 , 222*w + 56 , 2968 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 4018 , -74*w - 1806 , -202*w , 32*w , 0 , 0 , 0 , -54*w , 36*w , 54*w , 0 , 408*w + 392 ],
[ 74*w - 1806 , 840 , 90*w + 28 , -14*w , 0 , 0 , 0 , 24*w , -16*w , -24*w , 0 , -178*w - 238 ],
[ 202*w , -90*w + 28 , 476 , -112 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -60*w - 280 ],
[ -32*w , 14*w , -112 , 154 , 42 , 90*w , 42*w , -12*w , 0 , 0 , 0 , -12*w + 154 ],
[ 0 , 0 , 0 , 42 , 28 , 10*w + 14 , 22*w , -10*w , 0 , 0 , 0 , 8*w + 42 ],
[ 0 , 0 , 0 , -90*w , -10*w + 14 , 714 , 8*w + 140 , -6*w , 0 , 0 , 0 , -48*w - 322 ],
[ 0 , 0 , 0 , -42*w , -22*w , -8*w + 140 , 140 , -56 , 0 , 0 , 0 , -40*w ],
[ 54*w , -24*w , 0 , 12*w , 10*w , 6*w , -56 , 42 , 0 , -20*w - 14 , 8*w - 28 , 10*w - 56 ],
[ -36*w , 16*w , 0 , 0 , 0 , 0 , 0 , 0 , 14 , -30*w , 12*w - 42 , -26*w + 28 ],
[ -54*w , 24*w , 0 , 0 , 0 , 0 , 0 , 20*w - 14 , 30*w , 714 , -148*w - 252 , 38*w + 462 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -8*w - 28 , -12*w - 42 , 148*w - 252 , 308 , 74*w - 224 ],
[ -408*w + 392 , 178*w - 238 , 60*w - 280 , 12*w + 154 , -8*w + 42 , 48*w - 322 , 40*w , -10*w - 56 , 26*w + 28 , -38*w + 462 , -74*w - 224 , 1078 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 316764 , 3270*w + 312172 , 84*w + 18214 , 3176*w + 22596 , -766*w + 1050 , -5016*w + 3906 , -2856*w - 686 , 5400*w - 7070 , 8*w + 2156 , 940*w + 11242 , 2764*w + 2492 , 44032*w + 66080 ],
[ -3270*w + 312172 , 332822 , 412*w + 21182 , 9522*w + 13902 , -6960*w + 560 , -1700*w , -3320*w , 3260*w , -152*w , -228*w , 0 , 46608*w + 47922 ],
[ -84*w + 18214 , -412*w + 21182 , 2940 , 3014*w - 6412 , 1696*w + 1764 , -1168*w - 140 , 244*w , 216*w , -8*w , -12*w , 0 , 1600*w + 5152 ],
[ -3176*w + 22596 , -9522*w + 13902 , -3014*w - 6412 , 80864 , -15164*w - 7336 , 6292*w - 2660 , -2616*w + 1120 , -104*w , -8*w , -12*w , 0 , 13206*w - 7280 ],
[ 766*w + 1050 , 6960*w + 560 , -1696*w + 1764 , 15164*w - 7336 , 58758 , -1248*w - 25452 , 598*w + 10108 , 68*w + 1260 , 0 , 0 , 0 , -16528*w - 35000 ],
[ 5016*w + 3906 , 1700*w , 1168*w - 140 , -6292*w - 2660 , 1248*w - 25452 , 21616 , -52*w - 6664 , 2554*w - 14770 , 320*w + 4340 , 2080*w + 22750 , 5440*w + 5600 , 9664*w + 14980 ],
[ 2856*w - 686 , 3320*w , -244*w , 2616*w + 1120 , -598*w + 10108 , 52*w - 6664 , 4970 , -1440*w + 5264 , -180*w - 2310 , -1170*w - 12600 , -3060*w - 3150 , -2488*w - 13776 ],
[ -5400*w - 7070 , -3260*w , -216*w , 104*w , -68*w + 1260 , -2554*w - 14770 , 1440*w + 5264 , 29610 , -2264*w - 6720 , -12716*w - 34370 , -11896*w + 5292 , -6288*w - 840 ],
[ -8*w + 2156 , 152*w , 8*w , 8*w , 0 , -320*w + 4340 , 180*w - 2310 , 2264*w - 6720 , 2926 , 250*w + 15680 , 3324*w + 5614 , 680*w + 3752 ],
[ -940*w + 11242 , 228*w , 12*w , 12*w , 0 , -2080*w + 22750 , 1170*w - 12600 , 12716*w - 34370 , -250*w + 15680 , 84266 , 17356*w + 32116 , 3108*w + 21532 ],
[ -2764*w + 2492 , 0 , 0 , 0 , 0 , -5440*w + 5600 , 3060*w - 3150 , 11896*w + 5292 , -3324*w + 5614 , -17356*w + 32116 , 37268 , -3366*w + 12698 ],
[ -44032*w + 66080 , -46608*w + 47922 , -1600*w + 5152 , -13206*w - 7280 , 16528*w - 35000 , -9664*w + 14980 , 2488*w - 13776 , 6288*w - 840 , -680*w + 3752 , -3108*w + 21532 , 3366*w + 12698 , 121688 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 6664 , 1697*w + 6251 , -598*w - 2170 , -272*w + 616 , -70*w - 210 , -170*w - 294 , -252*w - 588 , 302*w - 2856 , 1103*w - 3031 , -382*w - 2576 , -852*w - 1176 , 2226*w + 3542 ],
[ -1697*w + 6251 , 27622 , -400*w - 11186 , -482*w + 3108 , -48*w - 490 , -170*w - 196 , -122*w - 392 , 306*w - 1960 , 744*w - 2086 , -256*w - 1708 , -568*w - 784 , 5409*w + 9303 ],
[ 598*w - 2170 , 400*w - 11186 , 6510 , 122*w - 2576 , 238 , -326*w + 140 , -194*w , -128*w , 0 , 0 , 0 , -2338*w - 5418 ],
[ 272*w + 616 , 482*w + 3108 , -122*w - 2576 , 1834 , -12*w , 248*w + 490 , 124*w + 560 , -438*w + 336 , -768*w - 420 , -168*w + 1092 , 108*w + 1008 , 1114*w - 266 ],
[ 70*w - 210 , 48*w - 490 , 238 , 12*w , 28 , 2*w + 70 , -2*w + 84 , -88*w + 56 , -128*w - 70 , -28*w + 182 , 18*w + 168 , -62*w - 546 ],
[ 170*w - 294 , 170*w - 196 , 326*w + 140 , -248*w + 490 , -2*w + 70 , 1064 , -16*w + 728 , -426*w + 392 , -640*w - 350 , -140*w + 910 , 90*w + 840 , -252*w - 1554 ],
[ 252*w - 588 , 122*w - 392 , 194*w , -124*w + 560 , 2*w + 84 , 16*w + 728 , 700 , -504*w + 532 , -808*w - 392 , -224*w + 1316 , 132*w + 1232 , -6*w - 2044 ],
[ -302*w - 2856 , -306*w - 1960 , 128*w , 438*w + 336 , 88*w + 56 , 426*w + 392 , 504*w + 532 , 4130 , -1032*w + 5166 , 840*w + 2464 , 1140*w + 476 , -2124*w - 3108 ],
[ -1103*w - 3031 , -744*w - 2086 , 0 , 768*w - 420 , 128*w - 70 , 640*w - 350 , 808*w - 392 , 1032*w + 5166 , 8806 , 1976*w + 1344 , 1658*w - 2030 , -3627*w - 497 ],
[ 382*w - 2576 , 256*w - 1708 , 0 , 168*w + 1092 , 28*w + 182 , 140*w + 910 , 224*w + 1316 , -840*w + 2464 , -1976*w + 1344 , 4368 , 970*w + 2842 , -530*w - 6202 ],
[ 852*w - 1176 , 568*w - 784 , 0 , -108*w + 1008 , -18*w + 168 , -90*w + 840 , -132*w + 1232 , -1140*w + 476 , -1658*w - 2030 , -970*w + 2842 , 3388 , 990*w - 5040 ],
[ -2226*w + 3542 , -5409*w + 9303 , 2338*w - 5418 , -1114*w - 266 , 62*w - 546 , 252*w - 1554 , 6*w - 2044 , 2124*w - 3108 , 3627*w - 497 , 530*w - 6202 , -990*w - 5040 , 21714 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 208166 , -5592*w + 130718 , 6110*w + 10262 , -2454*w + 4830 , 362*w + 3976 , -1728*w - 12488 , 9604*w - 26236 , 15474*w - 25284 , -8038*w - 53270 , 8570*w + 11158 , 13740*w - 5278 , 49554*w + 140994 ],
[ 5592*w + 130718 , 98406 , 2578*w - 574 , -774*w + 7294 , -434*w + 1442 , 1280*w - 1652 , 1420*w - 5488 , 2050*w - 6132 , -2024*w - 6454 , 1448*w + 644 , 1920*w - 2408 , 47381*w + 91861 ],
[ -6110*w + 10262 , -2578*w - 574 , 7560 , -86*w - 3164 , 382*w + 1848 , -952*w - 6650 , 4504*w - 1344 , 6050*w + 1512 , 216*w - 17640 , 1476*w + 5796 , 3672*w + 3780 , -6228*w + 4802 ],
[ 2454*w + 4830 , 774*w + 7294 , 86*w - 3164 , 1862 , -238*w - 588 , 616*w + 2492 , -1700*w + 532 , -2318*w - 588 , -84*w + 6860 , -574*w - 2254 , -1428*w - 1470 , 5694*w + 5026 ],
[ -362*w + 3976 , 434*w + 1442 , -382*w + 1848 , 238*w - 588 , 1232 , 52*w - 3570 , 1524*w - 532 , 2050*w + 392 , 72*w - 5880 , 492*w + 1932 , 1224*w + 1260 , -476*w - 2996 ],
[ 1728*w - 12488 , -1280*w - 1652 , 952*w - 6650 , -616*w + 2492 , -52*w - 3570 , 11732 , -5798*w + 3136 , -8066*w - 1064 , -996*w + 25816 , -2270*w - 8750 , -5508*w - 5670 , 3848*w + 13734 ],
[ -9604*w - 26236 , -1420*w - 5488 , -4504*w - 1344 , 1700*w + 532 , -1524*w - 532 , 5798*w + 3136 , 34678 , -4072*w + 43638 , 16008*w + 14490 , -7120*w + 5488 , -6772*w + 22624 , 5176*w - 15792 ],
[ -15474*w - 25284 , -2050*w - 6132 , -6050*w + 1512 , 2318*w - 588 , -2050*w + 392 , 8066*w - 1064 , 4072*w + 43638 , 60018 , 24992*w + 2982 , -8576*w + 15904 , -5328*w + 38360 , 4742*w - 29484 ],
[ 8038*w - 53270 , 2024*w - 6454 , -216*w - 17640 , 84*w + 6860 , -72*w - 5880 , 996*w + 25816 , -16008*w + 14490 , -24992*w + 2982 , 104566 , -11552*w - 28224 , -22624*w - 10136 , 16955*w + 13223 ],
[ -8570*w + 11158 , -1448*w + 644 , -1476*w + 5796 , 574*w - 2254 , -492*w + 1932 , 2270*w - 8750 , 7120*w + 5488 , 8576*w + 15904 , 11552*w - 28224 , 17808 , 5382*w + 21434 , -3564*w - 17010 ],
[ -13740*w - 5278 , -1920*w - 2408 , -3672*w + 3780 , 1428*w - 1470 , -1224*w + 1260 , 5508*w - 5670 , 6772*w + 22624 , 5328*w + 38360 , 22624*w - 10136 , -5382*w + 21434 , 37268 , 892*w - 28266 ],
[ -49554*w + 140994 , -47381*w + 91861 , 6228*w + 4802 , -5694*w + 5026 , 476*w - 2996 , -3848*w + 13734 , -5176*w - 15792 , -4742*w - 29484 , -16955*w + 13223 , 3564*w - 17010 , -892*w - 28266 , 289772 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 17458 , 2147*w + 9905 , -962*w - 2198 , 244*w + 1484 , -1180*w - 980 , -129*w - 315 , -687*w - 1785 , -1291*w + 4543 , 1847*w - 5117 , -638*w - 4284 , -1420*w - 1960 , 1336*w + 1050 ],
[ -2147*w + 9905 , 19208 , -380*w - 5460 , 104*w + 2744 , -840*w - 672 , -54*w - 126 , -158*w - 714 , -442*w + 1862 , 744*w - 2086 , -256*w - 1708 , -568*w - 784 , 1795*w - 1323 ],
[ 962*w - 2198 , 380*w - 5460 , 1862 , -2*w - 868 , 162*w + 686 , 168 , -54*w + 560 , 412*w + 224 , -512*w - 280 , -112*w + 728 , 72*w + 672 , -270*w - 994 ],
[ -244*w + 1484 , -104*w + 2744 , 2*w - 868 , 882 , -48*w + 126 , 130*w - 70 , 146*w , 54*w , 0 , 0 , 0 , -48*w - 140 ],
[ 1180*w - 980 , 840*w - 672 , -162*w + 686 , 48*w + 126 , 1792 , 90*w + 546 , 60*w + 1484 , 1134*w + 560 , -1280*w - 700 , -280*w + 1820 , 180*w + 1680 , -116*w - 4270 ],
[ 129*w - 315 , 54*w - 126 , 168 , -130*w - 70 , -90*w + 546 , 504 , -22*w + 728 , 330*w + 252 , -384*w - 210 , -84*w + 546 , 54*w + 504 , -9*w - 1813 ],
[ 687*w - 1785 , 158*w - 714 , 54*w + 560 , -146*w , -60*w + 1484 , 22*w + 728 , 1904 , 1120*w + 532 , -1360*w - 644 , -392*w + 2268 , 228*w + 2128 , 119*w - 4963 ],
[ 1291*w + 4543 , 442*w + 1862 , -412*w + 224 , -54*w , -1134*w + 560 , -330*w + 252 , -1120*w + 532 , 6580 , 88*w - 7476 , -1512*w - 1064 , -1296*w + 1456 , 3329*w - 763 ],
[ -1847*w - 5117 , -744*w - 2086 , 512*w - 280 , 0 , 1280*w - 700 , 384*w - 210 , 1360*w - 644 , -88*w - 7476 , 8806 , 1976*w + 1344 , 1658*w - 2030 , -4009*w + 973 ],
[ 638*w - 4284 , 256*w - 1708 , 112*w + 728 , 0 , 280*w + 1820 , 84*w + 546 , 392*w + 2268 , 1512*w - 1064 , -1976*w + 1344 , 4368 , 970*w + 2842 , -826*w - 6720 ],
[ 1420*w - 1960 , 568*w - 784 , -72*w + 672 , 0 , -180*w + 1680 , -54*w + 504 , -228*w + 2128 , 1296*w + 1456 , -1658*w - 2030 , -970*w + 2842 , 3388 , 884*w - 5796 ],
[ -1336*w + 1050 , -1795*w - 1323 , 270*w - 994 , 48*w - 140 , 116*w - 4270 , 9*w - 1813 , -119*w - 4963 , -3329*w - 763 , 4009*w + 973 , 826*w - 6720 , -884*w - 5796 , 17136 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 6986 , 1428*w + 9240 , -1935*w - 7945 , -118*w - 70 , -261*w - 7 , 31*w + 287 , -170*w - 238 , -643*w + 399 , -264*w - 56 , -367*w + 1589 , 110*w + 1540 , 3065*w - 1631 ],
[ -1428*w + 9240 , 15694 , -791*w - 15421 , -132*w - 238 , -474*w - 364 , -6*w + 616 , -356*w - 560 , -1221*w - 77 , -451*w - 455 , -918*w + 2352 , -78*w + 2814 , 4768*w + 2128 ],
[ 1935*w - 7945 , 791*w - 15421 , 16254 , 120*w + 350 , 474*w + 336 , -6*w - 616 , 376*w + 560 , 1229*w + 77 , 451*w + 455 , 918*w - 2352 , 78*w - 2814 , -4413*w - 3843 ],
[ 118*w - 70 , 132*w - 238 , -120*w + 350 , 210 , 48*w - 98 , -24*w + 14 , -84*w - 56 , 78*w - 224 , 52*w - 28 , 20*w - 364 , -60*w - 252 , 90*w + 224 ],
[ 261*w - 7 , 474*w - 364 , -474*w + 336 , -48*w - 98 , 532 , 46*w - 98 , 66*w + 56 , 162*w + 1120 , -12*w + 420 , 452*w + 644 , 396*w - 308 , -562*w - 1260 ],
[ -31*w + 287 , 6*w + 616 , 6*w - 616 , 24*w + 14 , -46*w - 98 , 84 , -40*w + 56 , -118*w - 112 , -36*w - 84 , -128*w + 112 , -54*w + 266 , 296*w - 112 ],
[ 170*w - 238 , 356*w - 560 , -376*w + 560 , 84*w - 56 , -66*w + 56 , 40*w + 56 , 532 , -96*w + 336 , -52*w + 28 , -20*w + 364 , 60*w + 252 , 44*w - 1610 ],
[ 643*w + 399 , 1221*w - 77 , -1229*w + 77 , -78*w - 224 , -162*w + 1120 , 118*w - 112 , 96*w + 336 , 2940 , -160*w + 952 , 800*w + 2464 , 992*w + 224 , -847*w - 4305 ],
[ 264*w - 56 , 451*w - 455 , -451*w + 455 , -52*w - 28 , 12*w + 420 , 36*w - 84 , 52*w + 28 , 160*w + 952 , 406 , 392*w + 504 , 344*w - 280 , -503*w - 1113 ],
[ 367*w + 1589 , 918*w + 2352 , -918*w - 2352 , -20*w - 364 , -452*w + 644 , 128*w + 112 , 20*w + 364 , -800*w + 2464 , -392*w + 504 , 3696 , 800*w + 2128 , 390*w - 5012 ],
[ -110*w + 1540 , 78*w + 2814 , -78*w - 2814 , 60*w - 252 , -396*w - 308 , 54*w + 266 , -60*w + 252 , -992*w + 224 , -344*w - 280 , -800*w + 2128 , 2464 , 1326*w - 2394 ],
[ -3065*w - 1631 , -4768*w + 2128 , 4413*w - 3843 , -90*w + 224 , 562*w - 1260 , -296*w - 112 , -44*w - 1610 , 847*w - 4305 , 503*w - 1113 , -390*w - 5012 , -1326*w - 2394 , 15498 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 24290 , 1968*w - 50050 , 260*w + 17458 , -965*w - 1141 , 627*w + 399 , 492*w + 1008 , 79*w - 77 , -336*w + 84 , 93*w + 273 , -82*w + 826 , 60*w - 238 , 1498*w + 6650 ],
[ -1968*w - 50050 , 106876 , -2272*w - 38878 , 2413*w + 2583 , -1773*w - 77 , -686*w - 1176 , -243*w + 245 , 568*w - 588 , -224*w - 294 , -42*w - 1470 , -28*w + 588 , -3313*w - 13041 ],
[ -260*w + 17458 , 2272*w - 38878 , 18270 , -1190*w - 3094 , 1328*w + 938 , 216*w - 224 , 162*w + 70 , -224*w + 168 , 64*w + 84 , 12*w + 420 , 8*w - 168 , 454*w + 3696 ],
[ 965*w - 1141 , -2413*w + 2583 , 1190*w - 3094 , 2086 , -288*w - 1414 , 4*w - 672 , -42*w - 196 , 60*w + 504 , 56*w - 168 , 144*w + 112 , -112*w - 112 , 206*w + 1064 ],
[ -627*w + 399 , 1773*w - 77 , -1328*w + 938 , 288*w - 1414 , 1652 , 198*w + 476 , -10*w + 154 , -36*w - 238 , -14*w + 42 , -36*w - 28 , 28*w + 28 , 72*w - 658 ],
[ -492*w + 1008 , 686*w - 1176 , -216*w - 224 , -4*w - 672 , -198*w + 476 , 2870 , -4*w + 28 , -86*w - 1148 , -140*w + 420 , -360*w - 280 , 280*w + 280 , 328*w - 1442 ],
[ -79*w - 77 , 243*w + 245 , -162*w + 70 , 42*w - 196 , 10*w + 154 , 4*w + 28 , 56 , -20*w - 112 , -14*w + 70 , -48*w + 14 , 42*w + 42 , -18*w - 420 ],
[ 336*w + 84 , -568*w - 588 , 224*w + 168 , -60*w + 504 , 36*w - 238 , 86*w - 1148 , 20*w - 112 , 840 , 146*w - 266 , 288*w + 378 , -182*w - 406 , -242*w + 1610 ],
[ -93*w + 273 , 224*w - 294 , -64*w + 84 , -56*w - 168 , 14*w + 42 , 140*w + 420 , 14*w + 70 , -146*w - 266 , 280 , -160*w + 252 , 140*w - 84 , -212*w - 868 ],
[ 82*w + 826 , 42*w - 1470 , -12*w + 420 , -144*w + 112 , 36*w - 28 , 360*w - 280 , 48*w + 14 , -288*w + 378 , 160*w + 252 , 924 , 70*w - 602 , -660*w + 224 ],
[ -60*w - 238 , 28*w + 588 , -8*w - 168 , 112*w - 112 , -28*w + 28 , -280*w + 280 , -42*w + 42 , 182*w - 406 , -140*w - 84 , -70*w - 602 , 560 , 552*w - 392 ],
[ -1498*w + 6650 , 3313*w - 13041 , -454*w + 3696 , -206*w + 1064 , -72*w - 658 , -328*w - 1442 , 18*w - 420 , 242*w + 1610 , 212*w - 868 , 660*w + 224 , -552*w - 392 , 8302 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 41321196 , 143374*w - 14919590 , -53512*w + 1605548 , 1064*w - 98056 , 2544*w + 44520 , 61704*w + 29680 , 80588*w + 79800 , 45984*w + 148176 , 16302*w + 204344 , 106490*w - 76888 , -61736*w + 288456 , 
    1388404*w + 2391186 ],
[ -143374*w - 14919590 , 5438860 , 14160*w - 604534 , -2226*w + 41258 , -1724*w - 14826 , -23434*w - 8428 , -31364*w - 23982 , -18414*w - 45892 , -4376*w - 65310 , -34144*w + 22918 , 20218*w - 90706 , 
    -502330*w - 806106 ],
[ 53512*w + 1605548 , -14160*w - 604534 , 77392 , -14*w - 4536 , -760*w + 2772 , 4864*w + 42 , 4826*w + 1008 , 2734*w + 2212 , -8*w + 3556 , 1916*w - 924 , -1196*w + 4648 , 53200*w + 65254 ],
[ -1064*w - 98056 , 2226*w + 41258 , 14*w - 4536 , 6692 , -440*w + 4788 , 1212*w - 2170 , 102*w - 336 , -250*w , 28*w , -12*w , 0 , -4228*w - 10262 ],
[ -2544*w + 44520 , 1724*w - 14826 , 760*w + 2772 , 440*w + 4788 , 4956 , 1176*w - 5166 , 442*w - 1624 , 50*w - 168 , 0 , 0 , 0 , -654*w + 364 ],
[ -61704*w + 29680 , 23434*w - 8428 , -4864*w + 42 , -1212*w - 2170 , -1176*w - 5166 , 20286 , -52*w + 11032 , -1446*w + 3248 , -3168*w + 3360 , 1872*w + 11088 , -4896*w - 5040 , -344*w + 8190 ],
[ -80588*w + 79800 , 31364*w - 23982 , -4826*w + 1008 , -102*w - 336 , -442*w - 1624 , 52*w + 11032 , 12474 , -340*w + 7952 , -748*w + 140 , 442*w + 2898 , -1156*w - 1190 , 3022*w + 27202 ],
[ -45984*w + 148176 , 18414*w - 45892 , -2734*w + 2212 , 250*w , -50*w - 168 , 1446*w + 3248 , 340*w + 7952 , 9324 , 1724*w + 4760 , 2624*w - 5824 , -312*w + 10640 , 5360*w + 32592 ],
[ -16302*w + 204344 , 4376*w - 65310 , 8*w + 3556 , -28*w , 0 , 3168*w + 3360 , 748*w + 140 , -1724*w + 4760 , 16212 , 8014*w - 280 , -6548*w + 17374 , 200*w + 25060 ],
[ -106490*w - 76888 , 34144*w + 22918 , -1916*w - 924 , 12*w , 0 , -1872*w + 11088 , -442*w + 2898 , -2624*w - 5824 , -8014*w - 280 , 27846 , -8516*w - 23016 , -13486*w + 2072 ],
[ 61736*w + 288456 , -20218*w - 90706 , 1196*w + 4648 , 0 , 0 , 4896*w - 5040 , 1156*w - 1190 , 312*w + 10640 , 6548*w + 17374 , 8516*w - 23016 , 37268 , 11560*w + 28168 ],
[ -1388404*w + 2391186 , 502330*w - 806106 , -53200*w + 65254 , 4228*w - 10262 , 654*w + 364 , 344*w + 8190 , -3022*w + 27202 , -5360*w + 32592 , -200*w + 25060 , 13486*w + 2072 , -11560*w + 28168 , 528990 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 6440 , 36*w - 168 , -198*w - 896 , 330*w + 784 , -88*w - 168 , -772*w - 8302 , -707*w - 8071 , 60*w + 112 , -105*w - 231 , 84*w + 42 , 110*w - 308 , -1667*w - 2065 ],
[ -36*w - 168 , 42 , 14*w + 84 , -6*w - 28 , 0 , 25*w + 49 , 25*w + 49 , 0 , 0 , 0 , 0 , 18*w - 14 ],
[ 198*w - 896 , -14*w + 84 , 1428 , -362*w - 840 , 62*w + 196 , -37*w - 1057 , -129*w - 1141 , -32*w , 0 , 0 , 0 , -294*w - 154 ],
[ -330*w + 784 , 6*w - 28 , 362*w - 840 , 1526 , 8*w - 294 , -421*w - 777 , -387*w - 469 , 36*w + 112 , 0 , 0 , 0 , -146*w + 336 ],
[ 88*w - 168 , 0 , -62*w + 196 , -8*w - 294 , 84 , -5*w + 259 , w + 161 , -4*w - 70 , -2*w + 126 , -32*w - 56 , -84*w + 140 , 26*w - 42 ],
[ 772*w - 8302 , -25*w + 49 , 37*w - 1057 , 421*w - 777 , 5*w + 259 , 18760 , 254*w + 17780 , -58*w - 812 , 213*w + 1785 , -486*w - 700 , -1078*w + 1848 , 3360*w + 5082 ],
[ 707*w - 8071 , -25*w + 49 , 129*w - 1141 , 387*w - 469 , -w + 161 , -254*w + 17780 , 17150 , -10*w - 630 , 57*w + 1337 , -294*w - 728 , -882*w + 700 , 3194*w + 5600 ],
[ -60*w + 112 , 0 , 32*w , -36*w + 112 , 4*w - 70 , 58*w - 812 , 10*w - 630 , 168 , -12*w - 406 , 116*w + 182 , 294*w - 490 , -152*w + 70 ],
[ 105*w - 231 , 0 , 0 , 0 , 2*w + 126 , -213*w + 1785 , -57*w + 1337 , 12*w - 406 , 1372 , -318*w - 686 , -910*w + 1106 , 386*w - 196 ],
[ -84*w + 42 , 0 , 0 , 0 , 32*w - 56 , 486*w - 700 , 294*w - 728 , -116*w + 182 , 318*w - 686 , 952 , 798*w + 1134 , -330*w - 588 ],
[ -110*w - 308 , 0 , 0 , 0 , 84*w + 140 , 1078*w + 1848 , 882*w + 700 , -294*w - 490 , 910*w + 1106 , -798*w + 1134 , 6160 , 28*w - 2688 ],
[ 1667*w - 2065 , -18*w - 14 , 294*w - 154 , 146*w + 336 , -26*w - 42 , -3360*w + 5082 , -3194*w + 5600 , 152*w + 70 , -386*w - 196 , 330*w - 588 , -28*w - 2688 , 6776 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 44604 , 6358*w - 30212 , 3570*w - 17976 , -402*w - 3962 , -3734*w + 546 , 3160*w + 574 , 1264*w - 1778 , 848*w + 896 , -1616*w + 210 , -4144*w + 9142 , 372*w + 11788 , 12648*w + 14644 ],
[ -6358*w - 30212 , 39942 , 282*w + 24472 , -742*w + 6062 , -2064*w + 112 , -2808*w , -496*w , 696*w , -476*w , -84*w , 0 , -11720*w - 17962 ],
[ -3570*w - 17976 , -282*w + 24472 , 15624 , -570*w + 2912 , -4712*w - 854 , -2034*w + 70 , -754*w , 350*w , -272*w , -48*w , 0 , -5396*w - 14854 ],
[ 402*w - 3962 , 742*w + 6062 , 570*w + 2912 , 10500 , 6432*w - 546 , 170*w - 182 , 698*w - 448 , 170*w , -68*w , -12*w , 0 , -8870*w + 1820 ],
[ 3734*w + 546 , 2064*w + 112 , 4712*w - 854 , -6432*w - 546 , 161630 , 1198*w + 18704 , 862*w + 21196 , 80*w + 2100 , 0 , 0 , 0 , -21290*w - 77392 ],
[ -3160*w + 574 , 2808*w , 2034*w + 70 , -170*w - 182 , -1198*w + 18704 , 30632 , -64*w + 14490 , -2706*w + 1512 , 2160*w - 6930 , -2700*w - 30240 , -9180*w - 9450 , -4854*w + 1400 ],
[ -1264*w - 1778 , 496*w , 754*w , -698*w - 448 , -862*w + 21196 , 64*w + 14490 , 9282 , -1540*w + 2212 , 1232*w - 4746 , -1540*w - 17388 , -5236*w - 5390 , -3152*w - 4578 ],
[ -848*w + 896 , -696*w , -350*w , -170*w , -80*w + 2100 , 2706*w + 1512 , 1540*w + 2212 , 4284 , -844*w - 4368 , -5040*w - 3164 , -3168*w + 7700 , 1498*w + 1904 ],
[ 1616*w + 210 , 476*w , 272*w , 68*w , 0 , -2160*w - 6930 , -1232*w - 4746 , 844*w - 4368 , 6076 , 4876*w + 12054 , 5404*w - 3206 , -1026*w - 5544 ],
[ 4144*w + 9142 , 84*w , 48*w , 12*w , 0 , 2700*w - 30240 , 1540*w - 17388 , 5040*w - 3164 , -4876*w + 12054 , 53886 , 13968*w + 25340 , 3196*w - 16002 ],
[ -372*w + 11788 , 0 , 0 , 0 , 0 , 9180*w - 9450 , 5236*w - 5390 , 3168*w + 7700 , -5404*w - 3206 , -13968*w + 25340 , 37268 , 5680*w - 1638 ],
[ -12648*w + 14644 , 11720*w - 17962 , 5396*w - 14854 , 8870*w + 1820 , 21290*w - 77392 , 4854*w + 1400 , 3152*w - 4578 , -1498*w + 1904 , 1026*w - 5544 , -3196*w - 16002 , -5680*w - 1638 , 117572 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1596 , 16*w - 672 , -16*w + 280 , 32*w , 4*w , 28*w , 8*w , 4*w , -6*w + 56 , -4*w + 28 , 0 , -445*w - 973 ],
[ -16*w - 672 , 322 , 4*w - 154 , -10*w + 28 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 235*w + 427 ],
[ 16*w + 280 , -4*w - 154 , 196 , 2*w , 28 , 12*w - 28 , -36*w , 20*w , 0 , 0 , 0 , -148*w - 252 ],
[ -32*w , 10*w + 28 , -2*w , 42 , 14 , 18*w , -2*w , 4*w , 0 , 0 , 0 , 40*w ],
[ -4*w , 0 , 28 , 14 , 28 , 18*w + 98 , -2*w + 28 , 4*w + 56 , -28*w , -8*w - 14 , -12*w + 42 , -42 ],
[ -28*w , 0 , -12*w - 28 , -18*w , -18*w + 98 , 952 , 16*w + 280 , -6*w + 392 , -196*w , -56*w - 98 , -84*w + 294 , 24*w - 224 ],
[ -8*w , 0 , 36*w , 2*w , 2*w + 28 , -16*w + 280 , 196 , 56 , -56*w , -16*w - 28 , -24*w + 84 , -22*w - 14 ],
[ -4*w , 0 , -20*w , -4*w , -4*w + 56 , 6*w + 392 , 56 , 308 , -112*w + 28 , -24*w - 56 , -64*w + 224 , 25*w - 175 ],
[ 6*w + 56 , 0 , 0 , 0 , 28*w , 196*w , 56*w , 112*w + 28 , 406 , -24*w + 112 , 76*w + 196 , -73*w - 63 ],
[ 4*w + 28 , 0 , 0 , 0 , 8*w - 14 , 56*w - 98 , 16*w - 28 , 24*w - 56 , 24*w + 112 , 56 , 26*w - 14 , -22*w + 14 ],
[ 0 , 0 , 0 , 0 , 12*w + 42 , 84*w + 294 , 24*w + 84 , 64*w + 224 , -76*w + 196 , -26*w - 14 , 308 , -26*w - 140 ],
[ 445*w - 973 , -235*w + 427 , 148*w - 252 , -40*w , -42 , -24*w - 224 , 22*w - 14 , -25*w - 175 , 73*w - 63 , 22*w + 14 , 26*w - 140 , 2016 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 33516 , -1847*w + 5859 , -2038*w - 9562 , 672*w + 3080 , -13394*w + 2450 , -2626*w + 1470 , 1618*w + 5390 , -1452*w + 4522 , -1423*w + 2373 , -1006*w - 7756 , -1988*w - 2744 , 2338*w + 182 ],
[ 1847*w + 5859 , 8134 , -548*w + 6118 , 186*w - 1120 , -548*w + 38850 , -17*w + 9905 , 794*w + 1540 , -478*w + 1316 , -408*w + 686 , -288*w - 2212 , -568*w - 784 , -1414*w - 2114 ],
[ 2038*w - 9562 , 548*w + 6118 , 19222 , -2*w - 4872 , -1008*w + 78414 , 174*w + 19502 , 1038*w , -236*w , 0 , 0 , 0 , -3308*w - 7784 ],
[ -672*w + 3080 , -186*w - 1120 , 2*w - 4872 , 1330 , 960*w - 19292 , 138*w - 4620 , -276*w + 504 , -106*w - 112 , -104*w - 112 , 80*w - 448 , -36*w - 336 , 686*w + 2520 ],
[ 13394*w + 2450 , 548*w + 38850 , 1008*w + 78414 , -960*w - 19292 , 575596 , 484*w + 140994 , 382*w + 420 , 8*w - 6048 , 424*w - 4844 , 3936*w + 1008 , 2074*w - 4256 , -28260*w - 57008 ],
[ 2626*w + 1470 , 17*w + 9905 , -174*w + 19502 , -138*w - 4620 , -484*w + 140994 , 35574 , 90*w + 1932 , -522*w - 1946 , -219*w - 1561 , 1234*w - 1148 , 406*w - 2114 , -6990*w - 12698 ],
[ -1618*w + 5390 , -794*w + 1540 , -1038*w , 276*w + 504 , -382*w + 420 , -90*w + 1932 , 6412 , -1512*w - 980 , -1096*w - 1148 , 1080*w - 5432 , -444*w - 4144 , -504*w + 3752 ],
[ 1452*w + 4522 , 478*w + 1316 , 236*w , 106*w - 112 , -8*w - 6048 , 522*w - 1946 , 1512*w - 980 , 3794 , -144*w + 2394 , -1468*w - 924 , -948*w + 1316 , 1564*w + 1134 ],
[ 1423*w + 2373 , 408*w + 686 , 0 , 104*w - 112 , -424*w - 4844 , 219*w - 1561 , 1096*w - 1148 , 144*w + 2394 , 1750 , -1228*w - 364 , -700*w + 1372 , 1150*w + 322 ],
[ 1006*w - 7756 , 288*w - 2212 , 0 , -80*w - 448 , -3936*w + 1008 , -1234*w - 1148 , -1080*w - 5432 , 1468*w - 924 , 1228*w - 364 , 6944 , 1278*w + 3458 , 158*w - 5418 ],
[ 1988*w - 2744 , 568*w - 784 , 0 , 36*w - 336 , -2074*w - 4256 , -406*w - 2114 , 444*w - 4144 , 948*w + 1316 , 700*w + 1372 , -1278*w + 3458 , 3388 , 1032*w - 2618 ],
[ -2338*w + 182 , 1414*w - 2114 , 3308*w - 7784 , -686*w + 2520 , 28260*w - 57008 , 6990*w - 12698 , 504*w + 3752 , -1564*w + 1134 , -1150*w + 322 , -158*w - 5418 , -1032*w - 2618 , 18844 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 23240 , 50412*w - 321622 , 16565*w - 113435 , 331*w - 385 , -618*w + 6776 , -5304*w + 1806 , 1249*w - 861 , 1378*w + 1176 , -1231*w + 17521 , -2417*w + 6503 , -365*w + 5705 , -14925*w - 52773 ],
[ -50412*w - 321622 , 5420464 , 17065*w + 1893381 , -4212*w + 11200 , -6348*w - 99358 , 65756*w - 86212 , -15076*w + 24794 , -20642*w + 1148 , -13850*w - 249102 , 21146*w - 117166 , -5204*w - 81424 , 
    340817*w + 547883 ],
[ -16565*w - 113435 , -17065*w + 1893381 , 662046 , -1514*w + 3570 , -1884*w - 34510 , 23211*w - 28889 , -5296*w + 8344 , -7180*w + 28 , -4157*w - 87143 , 7685*w - 40509 , -1611*w - 28511 , 117144*w + 198954
],
[ -331*w - 385 , 4212*w + 11200 , 1514*w + 3570 , 490 , -80*w - 714 , 180*w - 518 , -154*w + 168 , -114*w + 84 , -204*w - 812 , 4*w - 476 , -60*w - 252 , 1202*w - 882 ],
[ 618*w + 6776 , 6348*w - 99358 , 1884*w - 34510 , 80*w - 714 , 3276 , -1798*w + 1890 , 552*w - 672 , 594*w + 112 , 176*w + 6384 , -648*w + 2744 , 24*w + 2072 , -5578*w - 11186 ],
[ 5304*w + 1806 , -65756*w - 86212 , -23211*w - 28889 , -180*w - 518 , 1798*w + 1890 , 15428 , -130*w - 3976 , 478*w - 3724 , 6916*w + 4116 , 2562*w + 6706 , 2218*w + 938 , -8286*w + 21658 ],
[ -1249*w - 861 , 15076*w + 24794 , 5296*w + 8344 , 154*w + 168 , -552*w - 672 , 130*w - 3976 , 1288 , -156*w + 1008 , -1740*w - 1428 , -600*w - 1848 , -556*w - 364 , 2149*w - 4753 ],
[ -1378*w + 1176 , 20642*w + 1148 , 7180*w + 28 , 114*w + 84 , -594*w + 112 , -478*w - 3724 , 156*w + 1008 , 1092 , -1840*w + 504 , -844*w - 1148 , -592*w + 224 , 1231*w - 8883 ],
[ 1231*w + 17521 , 13850*w - 249102 , 4157*w - 87143 , 204*w - 812 , -176*w + 6384 , -6916*w + 4116 , 1740*w - 1428 , 1840*w + 504 , 23240 , -2380*w + 10052 , 176*w + 7392 , -14282*w - 19348 ],
[ 2417*w + 6503 , -21146*w - 117166 , -7685*w - 40509 , -4*w - 476 , 648*w + 2744 , -2562*w + 6706 , 600*w - 1848 , 844*w - 1148 , 2380*w + 10052 , 6160 , 864*w + 3136 , -8314*w + 2786 ],
[ 365*w + 5705 , 5204*w - 81424 , 1611*w - 28511 , 60*w - 252 , -24*w + 2072 , -2218*w + 938 , 556*w - 364 , 592*w + 224 , -176*w + 7392 , -864*w + 3136 , 2464 , -4744*w - 6692 ],
[ 14925*w - 52773 , -340817*w + 547883 , -117144*w + 198954 , -1202*w - 882 , 5578*w - 11186 , 8286*w + 21658 , -2149*w - 4753 , -1231*w - 8883 , 14282*w - 19348 , 8314*w + 2786 , 4744*w - 6692 , 218302 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 97426 , -3064*w - 2800 , 1320*w + 322 , -397*w + 469 , 1074*w - 196 , 1040*w + 1120 , 1119*w - 189 , -700*w + 1400 , -13*w + 2681 , -1110*w - 9226 , 3802*w + 1400 , -19213*w - 28301 ],
[ 3064*w - 2800 , 18186 , -74*w - 3892 , -42*w + 84 , -92*w - 14 , -60*w - 126 , -91*w - 35 , 69*w - 77 , 17*w - 217 , 34*w + 784 , -298*w - 266 , 1052*w + 2422 ],
[ -1320*w + 322 , 74*w - 3892 , 966 , 18*w - 238 , 24*w + 98 , 16*w + 56 , -10*w + 56 , -20*w - 28 , -24*w + 56 , 64*w - 224 , 60*w + 252 , -22*w - 1442 ],
[ 397*w + 469 , 42*w + 84 , -18*w - 238 , 714 , -24*w - 98 , 0 , 138*w - 56 , -20*w + 28 , 24*w - 56 , -64*w + 224 , -60*w - 252 , -125*w + 791 ],
[ -1074*w - 196 , 92*w - 14 , -24*w + 98 , 24*w - 98 , 196 , -28*w + 14 , -20*w + 56 , -14*w - 112 , -56*w - 56 , 220*w + 28 , -108*w + 532 , 528*w - 1694 ],
[ -1040*w + 1120 , 60*w - 126 , -16*w + 56 , 0 , 28*w + 14 , 280 , 26*w + 140 , -54*w , -20*w + 140 , 18*w - 462 , 174*w + 238 , -148*w - 2072 ],
[ -1119*w - 189 , 91*w - 35 , 10*w + 56 , -138*w - 56 , 20*w + 56 , -26*w + 140 , 336 , -28*w - 112 , -24*w + 56 , 64*w - 224 , 60*w + 252 , 210*w - 1680 ],
[ 700*w + 1400 , -69*w - 77 , 20*w - 28 , 20*w + 28 , 14*w - 112 , 54*w , 28*w - 112 , 140 , 40*w + 56 , -144*w - 112 , 96*w - 336 , -581*w + 805 ],
[ 13*w + 2681 , -17*w - 217 , 24*w + 56 , -24*w - 56 , 56*w - 56 , 20*w + 140 , 24*w + 56 , -40*w + 56 , 182 , -80*w - 560 , 248*w + 56 , -756*w - 1092 ],
[ 1110*w - 9226 , -34*w + 784 , -64*w - 224 , 64*w + 224 , -220*w + 28 , -18*w - 462 , -64*w - 224 , 144*w - 112 , 80*w - 560 , 2128 , -768*w - 1008 , 2014*w + 5908 ],
[ -3802*w + 1400 , 298*w - 266 , -60*w + 252 , 60*w - 252 , 108*w + 532 , -174*w + 238 , -60*w + 252 , -96*w - 336 , -248*w + 56 , 768*w - 1008 , 2464 , 1222*w - 7868 ],
[ 19213*w - 28301 , -1052*w + 2422 , 22*w - 1442 , 125*w + 791 , -528*w - 1694 , 148*w - 2072 , -210*w - 1680 , 581*w + 805 , 756*w - 1092 , -2014*w + 5908 , -1222*w - 7868 , 39802 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 630 , -158*w - 84 , -42*w + 14 , 44*w - 266 , -199*w + 7 , 107*w + 77 , -108*w + 280 , -116*w + 70 , 69*w - 119 , 32*w + 42 , -36*w - 196 , -96*w + 994 ],
[ 158*w - 84 , 5446 , -179*w + 385 , -60*w + 322 , 174*w - 308 , -293*w + 133 , -141*w - 777 , 105*w - 553 , 75*w + 371 , -101*w + 315 , 162*w + 56 , 3508*w + 1582 ],
[ 42*w + 14 , 179*w + 385 , 112 , -2*w - 196 , -50*w + 112 , -4*w + 14 , -38*w , -10*w , 0 , 0 , 0 , 380*w - 672 ],
[ -44*w - 266 , 60*w + 322 , 2*w - 196 , 2282 , 420*w - 1484 , 96*w + 210 , 220*w + 140 , -16*w - 210 , 30*w - 70 , 90*w + 70 , 30*w - 210 , -236*w - 490 ],
[ 199*w + 7 , -174*w - 308 , 50*w + 112 , -420*w - 1484 , 1904 , -82*w - 182 , -62*w + 392 , 74*w + 392 , -36*w + 84 , -108*w - 84 , -36*w + 252 , 86*w + 434 ],
[ -107*w + 77 , 293*w + 133 , 4*w + 14 , -96*w + 210 , 82*w - 182 , 644 , -148*w + 336 , -106*w - 182 , 30*w - 70 , 90*w + 70 , 30*w - 210 , -76*w - 1148 ],
[ 108*w + 280 , 141*w - 777 , 38*w , -220*w + 140 , 62*w + 392 , 148*w + 336 , 980 , -128*w + 308 , 4*w - 420 , 140*w - 28 , -100*w - 196 , -548*w - 602 ],
[ 116*w + 70 , -105*w - 553 , 10*w , 16*w - 210 , -74*w + 392 , 106*w - 182 , 128*w + 308 , 378 , -66*w - 112 , 2*w - 238 , -92*w + 84 , -276*w + 700 ],
[ -69*w - 119 , -75*w + 371 , 0 , -30*w - 70 , 36*w + 84 , -30*w - 70 , -4*w - 420 , 66*w - 112 , 686 , -200*w - 224 , 96*w + 112 , 268*w + 392 ],
[ -32*w + 42 , 101*w + 315 , 0 , -90*w + 70 , 108*w - 84 , -90*w + 70 , -140*w - 28 , -2*w - 238 , 200*w - 224 , 616 , 40*w - 168 , 224*w - 784 ],
[ 36*w - 196 , -162*w + 56 , 0 , -30*w - 210 , 36*w + 252 , -30*w - 210 , 100*w - 196 , 92*w + 84 , -96*w + 112 , -40*w - 168 , 224 , 112*w + 672 ],
[ 96*w + 994 , -3508*w + 1582 , -380*w - 672 , 236*w - 490 , -86*w + 434 , 76*w - 1148 , 548*w - 602 , 276*w + 700 , -268*w + 392 , -224*w - 784 , -112*w + 672 , 19992 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1067836 , 93062*w - 436534 , -96060*w + 60662 , 184686*w - 352786 , -89430*w + 100380 , 26464*w - 62104 , 74024*w - 63238 , -1303800*w + 11811884 , 433884*w - 3988684 , 24268*w + 1470 , 46880*w - 10696 , 
    -592790*w - 2042040 ],
[ -93062*w - 436534 , 378126 , -50556*w - 54082 , 38856*w - 4130 , 19604*w - 1624 , 208*w - 140 , -10828*w , -839452*w - 6371148 , 280736*w + 2123716 , -240*w , 0 , 488056*w + 415520 ],
[ 96060*w + 60662 , 50556*w - 54082 , 1245468 , -297814*w - 454944 , 61040*w - 81480 , -34220*w + 15260 , -11020*w + 4480 , 476150*w + 5221902 , -158590*w - 1740634 , 60*w , 0 , -374108*w - 431256 ],
[ -184686*w - 352786 , -38856*w - 4130 , 297814*w - 454944 , 1623174 , -47496*w - 321874 , 18138*w + 174020 , 7382*w + 74620 , -66600*w - 5253192 , 22040*w + 1748964 , -12*w , 0 , 326000*w + 607964 ],
[ 89430*w + 100380 , -19604*w - 1624 , -61040*w - 81480 , 47496*w - 321874 , 344638 , 1586*w - 105840 , 51690*w - 313572 , 611660*w + 1449182 , -218566*w - 572614 , 44000*w - 57750 , 82400*w - 134400 , 
    -245022*w + 61488 ],
[ -26464*w - 62104 , -208*w - 140 , 34220*w + 15260 , -18138*w + 174020 , -1586*w - 105840 , 39914 , -15924*w + 91770 , -79730*w - 717864 , 31158*w + 267960 , -13750*w + 17850 , -25750*w + 42000 , 79182*w + 
    60298 ],
[ -74024*w - 63238 , 10828*w , 11020*w + 4480 , -7382*w + 74620 , -51690*w - 313572 , 15924*w + 91770 , 520842 , -795726*w - 1282484 , 317756*w + 536340 , -49254*w + 186116 , -83270*w + 390544 , 309420*w - 
    333942 ],
[ 1303800*w + 11811884 , 839452*w - 6371148 , -476150*w + 5221902 , 66600*w - 5253192 , -611660*w + 1449182 , 79730*w - 717864 , 795726*w - 1282484 , 160463268 , -33642*w - 54160148 , 325740*w - 89642 , 
    623342*w - 346402 , -10226812*w - 20071590 ],
[ -433884*w - 3988684 , -280736*w + 2123716 , 158590*w - 1740634 , -22040*w + 1748964 , 218566*w - 572614 , -31158*w + 267960 , -317756*w + 536340 , 33642*w - 54160148 , 18342156 , -139600*w + 34930 , 
    -268442*w + 141442 , 3492492*w + 6853616 ],
[ -24268*w + 1470 , 240*w , -60*w , 12*w , -44000*w - 57750 , 13750*w + 17850 , 49254*w + 186116 , -325740*w - 89642 , 139600*w + 34930 , 104874 , 7708*w + 206332 , 80978*w - 279846 ],
[ -46880*w - 10696 , 0 , 0 , 0 , -82400*w - 134400 , 25750*w + 42000 , 83270*w + 390544 , -623342*w - 346402 , 268442*w + 141442 , -7708*w + 206332 , 409948 , 178724*w - 503986 ],
[ 592790*w - 2042040 , -488056*w + 415520 , 374108*w - 431256 , -326000*w + 607964 , 245022*w + 61488 , -79182*w + 60298 , -309420*w - 333942 , 10226812*w - 20071590 , -3492492*w + 6853616 , -80978*w - 
    279846 , -178724*w - 503986 , 7368424 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 196070 , -261*w + 60781 , 2826*w + 35182 , -4708*w - 15036 , 1387*w - 2275 , -219*w - 4193 , -25258*w + 33362 , -8331*w - 14399 , -11353*w + 7343 , -16794*w - 81620 , 23768*w - 28 , -29885*w - 28847 ],
[ 261*w + 60781 , 31990 , 698*w + 18158 , -1898*w + 896 , 898*w + 84 , -54*w - 294 , -2458*w + 6188 , -998*w - 798 , -1256*w + 1806 , -2704*w - 8260 , 2736*w - 1568 , -4478*w + 4942 ],
[ -2826*w + 35182 , -698*w + 18158 , 15008 , -610*w + 2898 , 798*w - 252 , 390*w - 378 , -1242*w - 112 , -138*w - 952 , -512*w - 280 , -176*w - 3416 , 816*w + 840 , 1160*w + 1498 ],
[ 4708*w - 15036 , 1898*w + 896 , 610*w + 2898 , 8554 , 314*w - 742 , 310*w + 1022 , 6700*w + 392 , 1762*w + 4760 , 2560*w + 1400 , 880*w + 17080 , -4080*w - 4200 , 7612*w + 15274 ],
[ -1387*w - 2275 , -898*w + 84 , -798*w - 252 , -314*w - 742 , 728 , -68*w + 182 , 18*w - 504 , -126*w + 420 , 80*w - 56 , 80*w + 2240 , -544*w - 560 , -484*w + 2464 ],
[ 219*w - 4193 , 54*w - 294 , -390*w - 378 , -310*w + 1022 , 68*w + 182 , 504 , 1012*w + 28 , 246*w + 798 , 384*w + 210 , 132*w + 2562 , -612*w - 630 , 656*w + 4130 ],
[ 25258*w + 33362 , 2458*w + 6188 , 1242*w - 112 , -6700*w + 392 , -18*w - 504 , -1012*w + 28 , 57932 , -5264*w + 13748 , -1624*w + 21784 , -20608*w + 3500 , 5992*w - 33292 , -15496*w + 42434 ],
[ 8331*w - 14399 , 998*w - 798 , 138*w - 952 , -1762*w + 4760 , 126*w + 420 , -246*w + 798 , 5264*w + 13748 , 8820 , 1888*w + 6132 , -2816*w + 20496 , -3646*w - 10878 , 2152*w + 23898 ],
[ 11353*w + 7343 , 1256*w + 1806 , 512*w - 280 , -2560*w + 1400 , -80*w - 56 , -384*w + 210 , 1624*w + 21784 , -1888*w + 6132 , 8806 , -8608*w + 6776 , 1286*w - 15666 , -5122*w + 20902 ],
[ 16794*w - 81620 , 2704*w - 8260 , 176*w - 3416 , -880*w + 17080 , -80*w + 2240 , -132*w + 2562 , 20608*w + 3500 , 2816*w + 20496 , 8608*w + 6776 , 81312 , -18334*w - 25998 , 17498*w + 62300 ],
[ -23768*w - 28 , -2736*w - 1568 , -816*w + 840 , 4080*w - 4200 , 544*w - 560 , 612*w - 630 , -5992*w - 33292 , 3646*w - 10878 , -1286*w - 15666 , 18334*w - 25998 , 37268 , 8362*w - 47404 ],
[ 29885*w - 28847 , 4478*w + 4942 , -1160*w + 1498 , -7612*w + 15274 , 484*w + 2464 , -656*w + 4130 , 15496*w + 42434 , -2152*w + 23898 , 5122*w + 20902 , -17498*w + 62300 , -8362*w - 47404 , 96558 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 98826 , 1035*w - 17031 , -308*w + 1372 , -620*w - 770 , 948*w + 490 , -836*w - 280 , -327*w - 861 , -900*w + 4340 , w + 91 , -242*w - 1386 , 26*w - 140 , -4907*w - 12019 ],
[ -1035*w - 17031 , 3108 , 28*w - 224 , 116*w - 112 , -108*w + 28 , 160*w , -8*w , 94*w - 840 , -6*w , 60*w + 252 , 0 , 964*w + 1568 ],
[ 308*w + 1372 , -28*w - 224 , 196 , -2*w - 140 , 24*w - 28 , 132*w + 28 , -136*w , -20*w , 0 , 0 , 0 , -86*w - 434 ],
[ 620*w - 770 , -116*w - 112 , 2*w - 140 , 882 , -216*w - 1134 , 60*w + 1050 , 132*w + 1260 , 724*w + 280 , 60*w - 140 , -150*w + 140 , -60*w + 210 , 44*w + 1806 ],
[ -948*w + 490 , 108*w + 28 , -24*w - 28 , 216*w - 1134 , 4228 , -138*w - 4354 , 70*w - 3612 , -2092*w - 840 , -180*w + 420 , 450*w - 420 , 180*w - 630 , -70*w - 4564 ],
[ 836*w - 280 , -160*w , -132*w + 28 , -60*w + 1050 , 138*w - 4354 , 6328 , -46*w + 2016 , 2094*w + 616 , 180*w - 420 , -450*w + 420 , -180*w + 630 , 588*w + 4984 ],
[ 327*w - 861 , 8*w , 136*w , -132*w + 1260 , -70*w - 3612 , 46*w + 2016 , 7336 , 2520*w + 784 , 296*w - 644 , -460*w + 224 , -296*w + 1036 , -312*w + 5138 ],
[ 900*w + 4340 , -94*w - 840 , 20*w , -724*w + 280 , 2092*w - 840 , -2094*w + 616 , -2520*w + 784 , 10178 , 304*w + 770 , -424*w - 1904 , -444*w - 756 , -3020*w + 630 ],
[ -w + 91 , 6*w , 0 , -60*w - 140 , 180*w + 420 , -180*w - 420 , -296*w - 644 , -304*w + 770 , 182 , 48*w - 168 , -24*w - 224 , -284*w - 518 ],
[ 242*w - 1386 , -60*w + 252 , 0 , 150*w + 140 , -450*w - 420 , 450*w + 420 , 460*w + 224 , 424*w - 1904 , -48*w - 168 , 616 , 66*w + 154 , 518*w + 686 ],
[ -26*w - 140 , 0 , 0 , 60*w + 210 , -180*w - 630 , 180*w + 630 , 296*w + 1036 , 444*w - 756 , 24*w - 224 , -66*w + 154 , 308 , 310*w + 854 ],
[ 4907*w - 12019 , -964*w + 1568 , 86*w - 434 , -44*w + 1806 , 70*w - 4564 , -588*w + 4984 , 312*w + 5138 , 3020*w + 630 , 284*w - 518 , -518*w + 686 , -310*w + 854 , 9996 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 5106780 , -43583*w - 2426361 , 23850*w + 164822 , -33448*w - 40712 , 25928*w + 91546 , -31188*w - 165158 , 79365*w - 73227 , -268154*w + 407148 , -41611*w + 164311 , 19806*w - 38052 , 106940*w - 59668 , 
    364815*w + 744373 ],
[ 43583*w - 2426361 , 1173046 , -10312*w - 88872 , 15714*w + 17052 , -11830*w - 41846 , 12744*w + 74102 , -35335*w + 29533 , 120780*w - 171388 , 19051*w - 71225 , -8818*w + 16408 , -47336*w + 23996 , 
    -171795*w - 386631 ],
[ -23850*w + 164822 , 10312*w - 88872 , 15008 , -610*w + 2898 , -1254*w + 1820 , 1866*w - 2058 , 8*w + 1008 , -2810*w - 1624 , -624*w + 448 , 184*w - 56 , 816*w + 840 , 13008*w + 40614 ],
[ 33448*w - 40712 , -15714*w + 17052 , 610*w + 2898 , 8554 , -1192*w - 7798 , 1108*w + 9926 , -4910*w - 5208 , 15122*w + 8120 , 3120*w - 2240 , -920*w + 280 , -4080*w - 4200 , 6818*w - 16576 ],
[ -25928*w + 91546 , 11830*w - 41846 , 1254*w + 1820 , 1192*w - 7798 , 14224 , -6*w - 15750 , 4880*w + 7532 , -16534*w - 9268 , -3432*w + 2464 , 1012*w - 308 , 4488*w + 4620 , -1108*w + 12754 ],
[ 31188*w - 165158 , -12744*w + 74102 , -1866*w - 2058 , -1108*w + 9926 , 6*w - 15750 , 22008 , -7358*w - 10136 , 26010*w + 12558 , 5724*w - 5208 , -1998*w + 462 , -8364*w - 8610 , -2570*w - 19978 ],
[ -79365*w - 73227 , 35335*w + 29533 , -8*w + 1008 , 4910*w - 5208 , -4880*w + 7532 , 7358*w - 10136 , 30352 , -7040*w - 91672 , -4600*w - 15456 , 1052*w + 4900 , 312*w + 26628 , -13244*w + 7504 ],
[ 268154*w + 407148 , -120780*w - 171388 , 2810*w - 1624 , -15122*w + 8120 , 16534*w - 9268 , -26010*w + 12558 , 7040*w - 91672 , 301490 , 11304*w + 59290 , -1806*w - 19390 , 7566*w - 90314 , 51146*w - 21504
],
[ 41611*w + 164311 , -19051*w - 71225 , 624*w + 448 , -3120*w - 2240 , 3432*w + 2464 , -5724*w - 5208 , 4600*w - 15456 , -11304*w + 59290 , 15862 , 652*w - 4900 , 6068*w - 16772 , 12212*w + 8638 ],
[ -19806*w - 38052 , 8818*w + 16408 , -184*w - 56 , 920*w + 280 , -1012*w - 308 , 1998*w + 462 , -1052*w + 4900 , 1806*w - 19390 , -652*w - 4900 , 2072 , -1394*w + 7882 , -3972*w + 1456 ],
[ -106940*w - 59668 , 47336*w + 23996 , -816*w + 840 , 4080*w - 4200 , -4488*w + 4620 , 8364*w - 8610 , -312*w + 26628 , -7566*w - 90314 , -6068*w - 16772 , 1394*w + 7882 , 37268 , -15476*w + 24514 ],
[ -364815*w + 744373 , 171795*w - 386631 , -13008*w + 40614 , -6818*w - 16576 , 1108*w + 12754 , 2570*w - 19978 , 13244*w + 7504 , -51146*w - 21504 , -12212*w + 8638 , 3972*w + 1456 , 15476*w + 24514 , 
    330218 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 98756 , 16778*w + 164668 , -732*w - 7224 , -2284*w + 7826 , 800*w - 840 , 1756*w - 224 , -3828*w + 2926 , 5730*w - 2828 , -2114*w + 1162 , 1042*w - 4914 , 970*w + 9464 , 3736*w - 1736 ],
[ -16778*w + 164668 , 332822 , 568*w - 12222 , -9678*w + 19502 , 3120*w + 560 , 5000*w , -5348*w , 3260*w , -1064*w , -228*w , 0 , 1516*w - 6412 ],
[ 732*w - 7224 , -568*w - 12222 , 6524 , -4186*w + 10780 , -6448*w + 1736 , -2928*w - 280 , 876*w , -76*w , 56*w , 12*w , 0 , -5388*w + 840 ],
[ 2284*w + 7826 , 9678*w + 19502 , 4186*w + 10780 , 68544 , -11852*w + 22484 , -5792*w + 3920 , 1024*w - 1120 , 396*w , -56*w , -12*w , 0 , -18680*w + 19544 ],
[ -800*w - 840 , -3120*w + 560 , 6448*w + 1736 , 11852*w + 22484 , 65310 , -1194*w + 30800 , 190*w - 6776 , 32*w - 1260 , 0 , 0 , 0 , 7878*w + 52584 ],
[ -1756*w - 224 , -5000*w , 2928*w - 280 , 5792*w + 3920 , 1194*w + 30800 , 18424 , -34*w - 5222 , 1434*w - 5684 , -540*w + 2310 , -720*w - 5040 , 3060*w + 3150 , 6112*w + 25942 ],
[ 3828*w + 2926 , 5348*w , -876*w , -1024*w - 1120 , -190*w - 6776 , 34*w - 5222 , 5012 , 96*w - 3346 , -36*w + 1134 , -48*w - 126 , 204*w + 210 , -2102*w - 10360 ],
[ -5730*w - 2828 , -3260*w , 76*w , -396*w , -32*w - 1260 , -1434*w - 5684 , -96*w - 3346 , 29610 , -248*w - 12040 , 5792*w + 11886 , -11896*w + 5292 , 2678*w + 3836 ],
[ 2114*w + 1162 , 1064*w , -56*w , 56*w , 0 , 540*w + 2310 , 36*w + 1134 , 248*w - 12040 , 4942 , -2296*w - 5320 , 4988*w - 1442 , -1178*w - 1848 ],
[ -1042*w - 4914 , 228*w , -12*w , 12*w , 0 , 720*w - 5040 , 48*w - 126 , -5792*w + 11886 , 2296*w - 5320 , 13902 , -6360*w - 15316 , 720*w + 4102 ],
[ -970*w + 9464 , 0 , 0 , 0 , 0 , -3060*w + 3150 , -204*w + 210 , 11896*w + 5292 , -4988*w - 1442 , 6360*w - 15316 , 37268 , 1148*w - 7182 ],
[ -3736*w - 1736 , -1516*w - 6412 , 5388*w + 840 , 18680*w + 19544 , -7878*w + 52584 , -6112*w + 25942 , 2102*w - 10360 , -2678*w + 3836 , 1178*w - 1848 , -720*w + 4102 , -1148*w - 7182 , 88620 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1844612 , 40819*w - 637371 , -133011*w + 248227 , 13085*w - 67459 , 2282*w + 5418 , -8909*w + 12789 , -44064*w - 98924 , -31079*w - 74557 , 3310*w + 81046 , -3665*w + 13363 , 9370*w + 13636 , -748789*w - 
    1786295 ],
[ -40819*w - 637371 , 843304 , 26709*w - 747775 , -29638*w + 2506 , -8735*w - 14553 , 4732*w + 7462 , -3645*w - 42329 , -9363*w - 39711 , -3071*w + 33929 , -2729*w + 3829 , 3496*w + 7322 , 472638*w + 874300 
],
[ 133011*w + 248227 , -26709*w - 747775 , 781998 , 26950*w + 13804 , 8894*w + 14546 , -2442*w - 9254 , 11008*w + 81088 , 14742*w + 70406 , 6400*w - 55608 , 4604*w - 5572 , -5550*w - 13454 , -401788*w - 
    285488 ],
[ -13085*w - 67459 , 29638*w + 2506 , -26950*w + 13804 , 22554 , -486*w + 4214 , 806*w - 3780 , 3378*w + 12628 , 2468*w + 12992 , 1528*w - 9912 , 860*w - 868 , -888*w - 2744 , 51575*w - 47187 ],
[ -2282*w + 5418 , 8735*w - 14553 , -8894*w + 14546 , 486*w + 4214 , 1260 , 90*w - 742 , -114*w + 2744 , -20*w + 2912 , 596*w - 1708 , 182*w - 42 , -66*w - 770 , 1109*w - 36169 ],
[ 8909*w + 12789 , -4732*w + 7462 , 2442*w - 9254 , -806*w - 3780 , -90*w - 742 , 1638 , -2724*w - 2590 , -2126*w - 2814 , 574*w + 3472 , -158*w + 546 , 630*w + 182 , -12611*w + 28035 ],
[ 44064*w - 98924 , 3645*w - 42329 , -11008*w + 81088 , -3378*w + 12628 , 114*w + 2744 , 2724*w - 2590 , 53074 , -840*w + 42378 , 6462*w - 18480 , 1720*w + 1176 , -1340*w - 10556 , -181*w + 153097 ],
[ 31079*w - 74557 , 9363*w - 39711 , -14742*w + 70406 , -2468*w + 12992 , 20*w + 2912 , 2126*w - 2814 , 840*w + 42378 , 34706 , 5294*w - 15540 , 1536*w + 896 , -1224*w - 8344 , 4062*w + 90202 ],
[ -3310*w + 81046 , 3071*w + 33929 , -6400*w - 55608 , -1528*w - 9912 , -596*w - 1708 , -574*w + 3472 , -6462*w - 18480 , -5294*w - 15540 , 14770 , -832*w + 2016 , 1736*w + 2856 , -15693*w - 47411 ],
[ 3665*w + 13363 , 2729*w + 3829 , -4604*w - 5572 , -860*w - 868 , -182*w - 42 , 158*w + 546 , -1720*w + 1176 , -1536*w + 896 , 832*w + 2016 , 784 , 304*w - 448 , -3854*w - 2016 ],
[ -9370*w + 13636 , -3496*w + 7322 , 5550*w - 13454 , 888*w - 2744 , 66*w - 770 , -630*w + 182 , 1340*w - 10556 , 1224*w - 8344 , -1736*w + 2856 , -304*w - 448 , 2464 , 954*w - 24206 ],
[ 748789*w - 1786295 , -472638*w + 874300 , 401788*w - 285488 , -51575*w - 47187 , -1109*w - 36169 , 12611*w + 28035 , 181*w + 153097 , -4062*w + 90202 , 15693*w - 47411 , 3854*w - 2016 , -954*w - 24206 , 
    4462066 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1260 , 6*w - 210 , -15*w - 105 , -5*w + 63 , 5*w - 231 , 178*w + 252 , -19*w + 91 , 189*w - 917 , -28*w - 28 , -219*w - 413 , 312*w - 14 , 259*w + 1225 ],
[ -6*w - 210 , 252 , 4*w + 56 , -6*w , 90*w - 42 , 42*w , -18*w , -12*w , 0 , 0 , 0 , 98*w + 378 ],
[ 15*w - 105 , -4*w + 56 , 42 , 28 , -20*w - 70 , 34*w + 14 , 4*w , -6*w , 0 , 0 , 0 , 40*w + 98 ],
[ 5*w + 63 , 6*w , 28 , 84 , -40*w - 140 , 68*w + 28 , 8*w , -12*w , 0 , 0 , 0 , 88*w + 28 ],
[ -5*w - 231 , -90*w - 42 , 20*w - 70 , 40*w - 140 , 1064 , -164*w - 210 , -14*w - 140 , 34*w , 0 , 0 , 0 , -198*w - 476 ],
[ -178*w + 252 , -42*w , -34*w + 14 , -68*w + 28 , 164*w - 210 , 1092 , -26*w + 28 , 294*w - 210 , -70 , 30*w - 630 , 150*w + 630 , -314*w + 1204 ],
[ 19*w + 91 , 18*w , -4*w , -8*w , 14*w - 140 , 26*w + 28 , 56 , 14*w - 280 , -10*w , -88*w - 28 , 84*w - 140 , 88*w + 168 ],
[ -189*w - 917 , 12*w , 6*w , 12*w , -34*w , -294*w - 210 , -14*w - 280 , 3192 , 100*w - 56 , 894*w - 84 , -770*w + 1694 , -916*w - 1778 ],
[ 28*w - 28 , 0 , 0 , 0 , 0 , -70 , 10*w , -100*w - 56 , 28 , -10*w + 224 , -50*w - 210 , 72*w - 154 ],
[ 219*w - 413 , 0 , 0 , 0 , 0 , -30*w - 630 , 88*w - 28 , -894*w - 84 , 10*w + 224 , 1974 , -524*w - 1708 , 464*w - 1610 ],
[ -312*w - 14 , 0 , 0 , 0 , 0 , -150*w + 630 , -84*w - 140 , 770*w + 1694 , 50*w - 210 , 524*w - 1708 , 2464 , -818*w + 658 ],
[ -259*w + 1225 , -98*w + 378 , -40*w + 98 , -88*w + 28 , 198*w - 476 , 314*w + 1204 , -88*w + 168 , 916*w - 1778 , -72*w - 154 , -464*w - 1610 , 818*w + 658 , 5908 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 31598 , 9501*w - 12985 , -9264*w + 15008 , 307*w - 987 , -648*w - 5838 , -2438*w + 2814 , 1138*w - 2758 , -1585*w + 637 , 1633*w + 13741 , 4796*w + 9394 , 445*w - 1477 , -23692*w - 32074 ],
[ -9501*w - 12985 , 27580 , -823*w - 27223 , 84*w + 406 , 1930*w + 756 , -42*w - 5362 , 262*w + 3234 , 374*w - 3220 , -4094*w - 1302 , -3962*w + 5782 , 242*w + 1302 , 20069*w - 35203 ],
[ 9264*w + 15008 , 823*w - 27223 , 27958 , -48*w - 980 , -1896*w - 1316 , -60*w + 5236 , -330*w - 3248 , -417*w + 3073 , 4024*w + 1946 , 4034*w - 5110 , -210*w - 1302 , -21558*w + 31010 ],
[ -307*w - 987 , -84*w + 406 , 48*w - 980 , 714 , 54*w + 378 , 102*w - 168 , 150*w + 168 , 28*w - 84 , -172*w - 588 , -288*w - 224 , -12*w + 84 , 1211*w - 679 ],
[ 648*w - 5838 , -1930*w + 756 , 1896*w - 1316 , -54*w + 378 , 1708 , 670*w - 434 , -302*w + 504 , 412*w + 84 , -204*w - 3612 , -1032*w - 2856 , -138*w + 294 , 3815*w + 7945 ],
[ 2438*w + 2814 , 42*w - 5362 , 60*w + 5236 , -102*w - 168 , -670*w - 434 , 3668 , -88*w - 1904 , -178*w + 1876 , 2620*w + 476 , 2416*w - 4144 , -182*w - 742 , -2811*w + 11893 ],
[ -1138*w - 2758 , -262*w + 3234 , 330*w - 3248 , -150*w + 168 , 302*w + 504 , 88*w - 1904 , 1484 , 156*w - 1036 , -1344*w - 840 , -1380*w + 1596 , 68*w + 420 , 2271*w - 4039 ],
[ 1585*w + 637 , -374*w - 3220 , 417*w + 3073 , -28*w - 84 , -412*w + 84 , 178*w + 1876 , -156*w - 1036 , 1092 , 1380*w - 644 , 1060*w - 2940 , -128*w - 336 , -1136*w + 8120 ],
[ -1633*w + 13741 , 4094*w - 1302 , -4024*w + 1946 , 172*w - 588 , 204*w - 3612 , -2620*w + 476 , 1344*w - 840 , -1380*w - 644 , 13328 , 3308*w + 11676 , 512*w - 1008 , -9856*w - 13958 ],
[ -4796*w + 9394 , 3962*w + 5782 , -4034*w - 5110 , 288*w - 224 , 1032*w - 2856 , -2416*w - 4144 , 1380*w + 1596 , -1060*w - 2940 , -3308*w + 11676 , 16016 , 704*w , -5394*w - 29302 ],
[ -445*w - 1477 , -242*w + 1302 , 210*w - 1302 , 12*w + 84 , 138*w + 294 , 182*w - 742 , -68*w + 420 , 128*w - 336 , -512*w - 1008 , -704*w , 224 , 1332*w - 1834 ],
[ 23692*w - 32074 , -20069*w - 35203 , 21558*w + 31010 , -1211*w - 679 , -3815*w + 7945 , 2811*w + 11893 , -2271*w - 4039 , 1136*w + 8120 , 9856*w - 13958 , 5394*w - 29302 , -1332*w - 1834 , 170170 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 8148 , 1129*w + 26621 , -2204*w - 21672 , -456*w + 2198 , -66*w + 616 , -321*w + 357 , 344*w - 434 , 1272*w + 1610 , 81*w - 77 , 988*w - 1148 , 388*w - 2282 , -5566*w - 3962 ],
[ -1129*w + 26621 , 94416 , -4415*w - 83293 , -2326*w + 5110 , -1274*w + 2310 , -1899*w + 987 , 1608*w - 1148 , 4440*w + 10878 , 361*w + 35 , 4334*w - 2016 , 2404*w - 7952 , -21242*w - 23198 ],
[ 2204*w - 21672 , 4415*w - 83293 , 80794 , 2662*w - 1190 , 1930*w - 2842 , 2045*w - 833 , -1596*w + 756 , -3918*w - 13930 , -385*w - 273 , -4590*w + 308 , -2972*w + 7168 , 20116*w + 30100 ],
[ 456*w + 2198 , 2326*w + 5110 , -2662*w - 1190 , 2422 , 184*w + 336 , -38*w + 560 , 102*w - 420 , 774*w - 280 , 40*w - 70 , 140*w - 910 , -90*w - 840 , -1108*w + 4228 ],
[ 66*w + 616 , 1274*w + 2310 , -1930*w - 2842 , -184*w + 336 , 2380 , 108*w + 1890 , -66*w - 1036 , 1512*w - 616 , 88*w - 154 , 308*w - 2002 , -198*w - 1848 , -1816*w + 4186 ],
[ 321*w + 357 , 1899*w + 987 , -2045*w - 833 , 38*w + 560 , -108*w + 1890 , 1848 , -16*w - 1036 , 1254*w - 588 , 72*w - 126 , 252*w - 1638 , -162*w - 1512 , -1320*w + 4494 ],
[ -344*w - 434 , -1608*w - 1148 , 1596*w + 756 , -102*w - 420 , 66*w - 1036 , 16*w - 1036 , 700 , -840*w + 588 , -40*w + 112 , -224*w + 1316 , 132*w + 1232 , 1052*w - 3234 ],
[ -1272*w + 1610 , -4440*w + 10878 , 3918*w - 13930 , -774*w - 280 , -1512*w - 616 , -1254*w - 588 , 840*w + 588 , 10738 , 136*w + 714 , 1512*w + 3472 , 1836*w + 196 , -3040*w - 15260 ],
[ -81*w - 77 , -361*w + 35 , 385*w - 273 , -40*w - 70 , -88*w - 154 , -72*w - 126 , 40*w + 112 , -136*w + 714 , 70 , 8*w + 336 , 86*w + 238 , 64*w - 1078 ],
[ -988*w - 1148 , -4334*w - 2016 , 4590*w + 308 , -140*w - 910 , -308*w - 2002 , -252*w - 1638 , 224*w + 1316 , -1512*w + 3472 , -8*w + 336 , 4368 , 970*w + 2842 , 1902*w - 10528 ],
[ -388*w - 2282 , -2404*w - 7952 , 2972*w + 7168 , 90*w - 840 , 198*w - 1848 , 162*w - 1512 , -132*w + 1232 , -1836*w + 196 , -86*w + 238 , -970*w + 2842 , 3388 , 3556*w - 4158 ],
[ 5566*w - 3962 , 21242*w - 23198 , -20116*w + 30100 , 1108*w + 4228 , 1816*w + 4186 , 1320*w + 4494 , -1052*w - 3234 , 3040*w - 15260 , -64*w - 1078 , -1902*w - 10528 , -3556*w - 4158 , 50316 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 8302 , 5583*w - 31521 , -576*w + 1624 , -422*w - 910 , -256*w - 784 , -364*w - 602 , -260*w - 1190 , -394*w + 4214 , 1108*w + 1316 , -1548*w - 1344 , 1496*w - 3080 , 6787*w + 1617 ],
[ -5583*w - 31521 , 952406 , 44087*w + 220493 , -16876*w + 3752 , 6647*w + 4711 , 340*w + 154 , -635*w + 1533 , 3320*w + 714 , 340*w - 6426 , -374*w + 2142 , -1292*w - 3332 , -17290*w + 73920 ],
[ 576*w + 1624 , -44087*w + 220493 , 101360 , -7114*w - 10500 , 2572*w + 4872 , 548*w - 1036 , -152*w - 1302 , -124*w + 5124 , 1200*w + 1204 , -1564*w - 1428 , 1528*w - 3192 , -300*w + 7714 ],
[ 422*w - 910 , 16876*w + 3752 , 7114*w - 10500 , 8470 , 886*w - 2786 , 742*w + 224 , 120*w - 56 , -90*w - 84 , 58*w + 98 , -76*w - 84 , 84*w - 140 , 1458*w - 1064 ],
[ 256*w - 784 , -6647*w + 4711 , -2572*w + 4872 , -886*w - 2786 , 3570 , -210*w + 2646 , 44*w + 1036 , 328*w - 2044 , -522*w - 882 , 684*w + 756 , -756*w + 1260 , -1050*w - 574 ],
[ 364*w - 602 , -340*w + 154 , -548*w - 1036 , -742*w + 224 , 210*w + 2646 , 2982 , 50*w + 1008 , 290*w - 1764 , -416*w - 896 , 520*w + 476 , -588*w + 980 , -16*w - 392 ],
[ 260*w - 1190 , 635*w + 1533 , 152*w - 1302 , -120*w - 56 , -44*w + 1036 , -50*w + 1008 , 672 , 416*w - 1316 , -348*w - 980 , 320*w + 1064 , -644*w + 252 , -880*w - 2100 ],
[ 394*w + 4214 , -3320*w + 714 , 124*w + 5124 , 90*w - 84 , -328*w - 2044 , -290*w - 1764 , -416*w - 1316 , 4956 , 1390*w + 350 , -1640*w - 994 , 1358*w - 3906 , 3961*w + 35 ],
[ -1108*w + 1316 , -340*w - 6426 , -1200*w + 1204 , -58*w + 98 , 522*w - 882 , 416*w - 896 , 348*w - 980 , -1390*w + 350 , 2968 , 160*w - 2884 , 1120*w + 2240 , 409*w + 8141 ],
[ 1548*w - 1344 , 374*w + 2142 , 1564*w - 1428 , 76*w - 84 , -684*w + 756 , -520*w + 476 , -320*w + 1064 , 1640*w - 994 , -160*w - 2884 , 5068 , -1778*w - 2786 , -284*w - 9800 ],
[ -1496*w - 3080 , 1292*w - 3332 , -1528*w - 3192 , -84*w - 140 , 756*w + 1260 , 588*w + 980 , 644*w + 252 , -1358*w - 3906 , -1120*w + 2240 , 1778*w - 2786 , 6160 , -3548*w + 7182 ],
[ -6787*w + 1617 , 17290*w + 73920 , 300*w + 7714 , -1458*w - 1064 , 1050*w - 574 , 16*w - 392 , 880*w - 2100 , -3961*w + 35 , -409*w + 8141 , 284*w - 9800 , 3548*w + 7182 , 55594 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 8470 , -64*w + 2646 , 368*w + 4186 , -46*w , 0 , 0 , 312*w , -78*w , 286*w , -78*w , 0 , 932*w + 938 ],
[ 64*w + 2646 , 2226 , 112*w + 1162 , -14*w + 210 , 270*w - 126 , -360*w , -174*w , -60*w , 88*w , -24*w , 0 , 770*w + 518 ],
[ -368*w + 4186 , -112*w + 1162 , 4200 , 4*w - 154 , 56*w - 364 , -152*w - 322 , 88*w - 224 , 26*w + 28 , 242*w - 1414 , 216*w + 1358 , 372*w - 70 , 614*w + 1386 ],
[ 46*w , 14*w + 210 , -4*w - 154 , 98 , 70*w - 14 , 80*w - 28 , 34*w , 8*w , 0 , 0 , 0 , 58*w - 154 ],
[ 0 , -270*w - 126 , -56*w - 364 , -70*w - 14 , 714 , 60*w , 30*w - 140 , 4*w , 0 , 0 , 0 , -62*w + 840 ],
[ 0 , 360*w , 152*w - 322 , -80*w - 28 , -60*w , 2814 , -32*w + 1680 , -6*w + 280 , 0 , 0 , 0 , 378*w - 910 ],
[ -312*w , 174*w , -88*w - 224 , -34*w , -30*w - 140 , 32*w + 1680 , 1260 , 224 , 240*w + 168 , -208*w + 392 , 48*w + 448 , 104*w - 630 ],
[ 78*w , 60*w , -26*w + 28 , -8*w , -4*w , 6*w + 280 , 224 , 168 , 330*w , -286*w + 602 , 66*w + 616 , -48*w - 168 ],
[ -286*w , -88*w , -242*w - 1414 , 0 , 0 , 0 , -240*w + 168 , -330*w , 6440 , -1698*w - 5334 , -1662*w + 1428 , 28*w - 1764 ],
[ 78*w , 24*w , -216*w + 1358 , 0 , 0 , 0 , 208*w + 392 , 286*w + 602 , 1698*w - 5334 , 7658 , 1780*w + 1932 , -564*w + 1414 ],
[ 0 , 0 , -372*w - 70 , 0 , 0 , 0 , -48*w + 448 , -66*w + 616 , 1662*w + 1428 , -1780*w + 1932 , 3388 , -484*w - 574 ],
[ -932*w + 938 , -770*w + 518 , -614*w + 1386 , -58*w - 154 , 62*w + 840 , -378*w - 910 , -104*w - 630 , 48*w - 168 , -28*w - 1764 , 564*w + 1414 , 484*w - 574 , 3570 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1372 , -240*w - 5348 , 226*w + 1820 , 15*w + 21 , -14*w + 56 , 30*w - 224 , -73*w - 49 , -6*w + 56 , 55*w - 105 , -4*w + 602 , 124*w + 182 , 278*w + 560 ],
[ 240*w - 5348 , 29274 , -810*w - 9590 , -86*w + 714 , 12*w - 504 , 252*w + 1344 , 238*w + 294 , -44*w - 336 , -250*w + 630 , -24*w - 3612 , -744*w - 1092 , -1128*w - 3514 ],
[ -226*w + 1820 , 810*w - 9590 , 3864 , 28*w - 378 , -4*w + 168 , -84*w - 448 , -86*w - 98 , 12*w + 112 , 90*w - 210 , 4*w + 1204 , 248*w + 364 , 240*w + 1470 ],
[ -15*w + 21 , 86*w + 714 , -28*w - 378 , 728 , -10*w - 210 , 190*w + 70 , -60*w , -50*w , 0 , 0 , 0 , 98*w + 112 ],
[ 14*w + 56 , -12*w - 504 , 4*w + 168 , 10*w - 210 , 98 , -44*w - 140 , 14*w + 28 , 16*w , 0 , 0 , 0 , -20*w - 28 ],
[ -30*w - 224 , -252*w + 1344 , 84*w - 448 , -190*w + 70 , 44*w - 140 , 714 , -2*w - 196 , -6*w - 84 , 0 , 0 , 0 , -38*w + 70 ],
[ 73*w - 49 , -238*w + 294 , 86*w - 98 , 60*w , -14*w + 28 , 2*w - 196 , 756 , -42 , -100*w , 300*w - 1680 , -250*w - 1050 , 284*w + 294 ],
[ 6*w + 56 , 44*w - 336 , -12*w + 112 , 50*w , -16*w , 6*w - 84 , -42 , 42 , 12*w - 14 , -36*w + 210 , 30*w + 126 , 2*w - 70 ],
[ -55*w - 105 , 250*w + 630 , -90*w - 210 , 0 , 0 , 0 , 100*w , -12*w - 14 , 140 , -260*w - 420 , -178*w + 238 , 12*w - 252 ],
[ 4*w + 602 , 24*w - 3612 , -4*w + 1204 , 0 , 0 , 0 , -300*w - 1680 , 36*w + 210 , 260*w - 420 , 5642 , 1184*w + 2016 , -730*w - 84 ],
[ -124*w + 182 , 744*w - 1092 , -248*w + 364 , 0 , 0 , 0 , 250*w - 1050 , -30*w + 126 , 178*w + 238 , -1184*w + 2016 , 2464 , -252*w - 1148 ],
[ -278*w + 560 , 1128*w - 3514 , -240*w + 1470 , -98*w + 112 , 20*w - 28 , 38*w + 70 , -284*w + 294 , -2*w - 70 , -12*w - 252 , 730*w - 84 , 252*w - 1148 , 2156 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1644664 , -50488*w + 951146 , -5062*w - 68040 , 13662*w - 81116 , 62712*w - 41020 , -8912*w + 28756 , 55384*w + 10416 , 11824*w + 2912 , -9708*w + 60844 , -17028*w - 29260 , -19430*w - 1834 , 710088*w + 
    1187424 ],
[ 50488*w + 951146 , 618142 , -25004*w - 17724 , 29152*w + 9982 , 36180*w - 5880 , -5440*w - 700 , 19460*w , 4148*w , -672*w , -288*w , 0 , 436710*w + 388122 ],
[ 5062*w - 68040 , 25004*w - 17724 , 70980 , 37390*w - 57736 , 12152*w - 19572 , -7496*w + 3920 , -2820*w + 1120 , -96*w , 56*w , 24*w , 0 , -75630*w - 127050 ],
[ -13662*w - 81116 , -29152*w + 9982 , -37390*w - 57736 , 565670 , 2424*w + 226142 , 3370*w - 110460 , 1222*w - 16324 , 92*w + 3780 , -28*w , -12*w , 0 , 28838*w - 100968 ],
[ -62712*w - 41020 , -36180*w - 5880 , -12152*w - 19572 , -2424*w + 226142 , 344638 , 1586*w - 105840 , -51014*w + 267148 , -14438*w + 50890 , -29600*w - 319550 , 98400*w - 1750 , 82400*w - 134400 , 
    -149872*w + 120932 ],
[ 8912*w + 28756 , 5440*w - 700 , 7496*w + 3920 , -3370*w - 110460 , -1586*w - 105840 , 39914 , 16028*w - 68502 , 4494*w - 13384 , 9250*w + 99400 , -30750*w + 350 , -25750*w + 42000 , 44618*w + 22148 ],
[ -55384*w + 10416 , -19460*w , 2820*w + 1120 , -1222*w - 16324 , 51014*w + 267148 , -16028*w - 68502 , 436618 , -7436*w + 88606 , -140206*w - 350070 , 128402*w - 222152 , 64730*w - 360304 , -190350*w + 
    414092 ],
[ -11824*w + 2912 , -4148*w , 96*w , -92*w + 3780 , 14438*w + 50890 , -4494*w - 13384 , 7436*w + 88606 , 19096 , -35134*w - 52276 , 21822*w - 62314 , 6238*w - 81816 , -33776*w + 105350 ],
[ 9708*w + 60844 , 672*w , -56*w , 28*w , 29600*w - 319550 , -9250*w + 99400 , 140206*w - 350070 , 35134*w - 52276 , 667240 , -195226*w - 125818 , -188222*w + 159740 , 252324*w + 193200 ],
[ 17028*w - 29260 , 288*w , -24*w , 12*w , -98400*w - 1750 , 30750*w + 350 , -128402*w - 222152 , -21822*w - 62314 , 195226*w - 125818 , 423626 , 82244*w + 355404 , 10708*w - 555030 ],
[ 19430*w - 1834 , 0 , 0 , 0 , -82400*w - 134400 , 25750*w + 42000 , -64730*w - 360304 , -6238*w - 81816 , 188222*w + 159740 , -82244*w + 355404 , 409948 , 116136*w - 449722 ],
[ -710088*w + 1187424 , -436710*w + 388122 , 75630*w - 127050 , -28838*w - 100968 , 149872*w + 120932 , -44618*w + 22148 , 190350*w + 414092 , 33776*w + 105350 , -252324*w + 193200 , -10708*w - 555030 , 
    -116136*w - 449722 , 3897488 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 10570308 , 1045822*w - 1996316 , -1073748*w + 697662 , -682618*w - 570122 , -23626*w - 167118 , 906870*w + 1984654 , -61212016*w - 85727250 , 3917716*w + 5965022 , 4348802*w + 6465060 , -583126*w - 2337104
, 778370*w + 106456 , 4800860*w - 2925412 ],
[ -1045822*w - 1996316 , 11262846 , -1658616*w - 6420246 , -1868206*w - 138642 , -100272*w + 200424 , 116988*w - 21560 , -2901102*w - 46486230 , 198930*w + 3098186 , 195214*w + 3098186 , -60*w , 0 , 
    1455442*w + 10001404 ],
[ 1073748*w + 697662 , 1658616*w - 6420246 , 9557940 , 1077974*w + 6512632 , 85536*w + 229488 , -58424*w - 391020 , 3020966*w + 78496670 , -204010*w - 5251162 , -202418*w - 5238562 , -84*w , 0 , 573788*w - 
    6027714 ],
[ 682618*w - 570122 , 1868206*w - 138642 , -1077974*w + 6512632 , 13457864 , 37288*w + 1341844 , 1265548*w - 7509180 , 15875568*w + 60853030 , -895160*w - 3275034 , -454834*w - 5478284 , -1868012*w + 2976750
, 152000*w - 4228000 , 1899658*w + 6410740 ],
[ 23626*w - 167118 , 100272*w + 200424 , -85536*w + 229488 , -37288*w + 1341844 , 172872 , 177244*w - 1043084 , 2695416*w + 3434788 , -157114*w - 122010 , -96658*w - 424354 , -256850*w + 409500 , 20900*w - 
    581350 , 106492*w + 1171072 ],
[ -906870*w + 1984654 , -116988*w - 21560 , 58424*w - 391020 , -1265548*w - 7509180 , -177244*w - 1043084 , 12143264 , -19478576*w - 25960340 , 783656*w + 867076 , 860062*w + 5151930 , 1794920*w - 8555610 , 
1129520*w + 6555640 , -1644252*w - 5399548 ],
[ 61212016*w - 85727250 , 2901102*w - 46486230 , -3020966*w + 78496670 , -15875568*w + 60853030 , -2695416*w + 3434788 , 19478576*w - 25960340 , 3999277702 , 496634*w - 260505056 , 4887884*w - 271050682 , 
    -13713206*w + 5627958 , 4725414*w - 23917012 , -75620998*w - 205172450 ],
[ -3917716*w + 5965022 , -198930*w + 3098186 , 204010*w - 5251162 , 895160*w - 3275034 , 157114*w - 122010 , -783656*w + 867076 , -496634*w - 260505056 , 17191300 , -105978*w + 17535182 , 392372*w - 273854 ,
-109398*w + 732242 , 5012072*w + 14476812 ],
[ -4348802*w + 6465060 , -195214*w + 3098186 , 202418*w - 5238562 , 454834*w - 5478284 , 96658*w - 424354 , -860062*w + 5151930 , -4887884*w - 271050682 , 105978*w + 17535182 , 19495602 , 1120872*w - 3391304
, 269802*w + 3238102 , 4359518*w + 12977062 ],
[ 583126*w - 2337104 , 60*w , 84*w , 1868012*w + 2976750 , 256850*w + 409500 , -1794920*w - 8555610 , 13713206*w + 5627958 , -392372*w - 273854 , -1120872*w - 3391304 , 8314698 , -1861540*w - 3638292 , 
    1946106*w + 963480 ],
[ -778370*w + 106456 , 0 , 0 , -152000*w - 4228000 , -20900*w - 581350 , -1129520*w + 6555640 , -4725414*w - 23917012 , 109398*w + 732242 , -269802*w + 3238102 , 1861540*w - 3638292 , 4509428 , -637612*w - 
    3470712 ],
[ -4800860*w - 2925412 , -1455442*w + 10001404 , -573788*w - 6027714 , -1899658*w + 6410740 , -106492*w + 1171072 , 1644252*w - 5399548 , 75620998*w - 205172450 , -5012072*w + 14476812 , -4359518*w + 
    12977062 , -1946106*w + 963480 , 637612*w - 3470712 , 38377248 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1010086 , 204794*w - 227668 , 57898*w - 153174 , -249793*w - 2166689 , 246105*w + 2205889 , 2194*w + 109858 , 51052*w + 12362 , 77264*w - 10892 , -11050*w + 27356 , 6638*w + 1078 , -9640*w + 4172 , 
    1294245*w + 1057567 ],
[ -204794*w - 227668 , 813652 , 3501*w + 438809 , 455477*w + 326067 , -457317*w - 391531 , -8966*w + 72016 , -957*w + 114919 , 20943*w + 187047 , -12627*w - 21819 , 1573*w + 16093 , -3524*w - 22162 , 
    -512355*w + 1203349 ],
[ -57898*w - 153174 , -3501*w + 438809 , 273000 , 139479*w + 378861 , -139033*w - 422107 , 6138*w + 53620 , 4672*w + 48160 , 20154*w + 79520 , -7208*w - 6384 , 2006*w + 7238 , -2922*w - 8330 , -270911*w + 
    68369 ],
[ 249793*w - 2166689 , -455477*w + 326067 , -139479*w + 378861 , 5239486 , 15876*w - 5341490 , 37165*w - 195979 , -93004*w - 100310 , -140832*w - 92638 , 25276*w - 34538 , -11043*w - 11333 , 18134*w + 7756 ,
-2566493*w - 4731377 ],
[ -246105*w + 2205889 , 457317*w - 391531 , 139033*w - 422107 , -15876*w - 5341490 , 5451544 , -39441*w + 192745 , 93484*w + 96166 , 139742*w + 85918 , -24748*w + 35210 , 10935*w + 10745 , -17954*w - 7000 , 
2627387*w + 4780027 ],
[ -2194*w + 109858 , 8966*w + 72016 , -6138*w + 53620 , -37165*w - 195979 , 39441*w + 192745 , 68166 , 17508*w + 23198 , 29680*w + 38850 , -6110*w + 1736 , 3076*w + 5460 , -4194*w - 2338 , 169097*w + 14189 
],
[ -51052*w + 12362 , 957*w + 114919 , -4672*w + 48160 , 93004*w - 100310 , -93484*w + 96166 , -17508*w + 23198 , 53074 , 1698*w + 83454 , -3282*w - 12096 , -428*w + 9492 , -1340*w - 10556 , -9480*w + 466172 
],
[ -77264*w - 10892 , -20943*w + 187047 , -20154*w + 79520 , 140832*w - 92638 , -139742*w + 85918 , -29680*w + 38850 , -1698*w + 83454 , 138908 , -5322*w - 22162 , -528*w + 15344 , -1680*w - 16912 , -37446*w 
    + 660534 ],
[ 11050*w + 27356 , 12627*w - 21819 , 7208*w - 6384 , -25276*w - 34538 , 24748*w + 35210 , 6110*w + 1736 , 3282*w - 12096 , 5322*w - 22162 , 5362 , 536*w - 2408 , -376*w + 2856 , 35484*w - 80990 ],
[ -6638*w + 1078 , -1573*w + 16093 , -2006*w + 7238 , 11043*w - 11333 , -10935*w + 10745 , -3076*w + 5460 , 428*w + 9492 , 528*w + 15344 , -536*w - 2408 , 2128 , -368*w - 1792 , 1569*w + 58625 ],
[ 9640*w + 4172 , 3524*w - 22162 , 2922*w - 8330 , -18134*w + 7756 , 17954*w - 7000 , 4194*w - 2338 , 1340*w - 10556 , 1680*w - 16912 , 376*w + 2856 , 368*w - 1792 , 2464 , 8790*w - 85540 ],
[ -1294245*w + 1057567 , 512355*w + 1203349 , 270911*w + 68369 , 2566493*w - 4731377 , -2627387*w + 4780027 , -169097*w + 14189 , 9480*w + 466172 , 37446*w + 660534 , -35484*w - 80990 , -1569*w + 58625 , 
    -8790*w - 85540 , 13293546 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 2057538 , -27011*w - 163933 , -24501*w + 58709 , 12138*w - 69986 , -460*w - 17276 , 11779*w + 139027 , -191769*w - 129269 , -871*w - 62531 , -1827*w + 42021 , 6747*w - 218603 , -40484*w - 70826 , -315125*w
    - 1134189 ],
[ 27011*w - 163933 , 44296 , -7202*w + 45346 , 2788*w - 17304 , 815*w - 2051 , 940*w - 2268 , -2292*w + 23128 , -1497*w + 371 , 902*w - 588 , -2526*w + 2268 , -238*w + 3990 , 16589*w + 68075 ],
[ 24501*w + 58709 , 7202*w + 45346 , 128576 , -714*w - 62552 , 124*w - 9856 , 6410*w + 23254 , -40582*w + 53536 , -4762*w - 8624 , 2112*w + 5376 , -6432*w - 36960 , -8928*w - 2016 , -28026*w - 131334 ],
[ -12138*w - 69986 , -2788*w - 17304 , 714*w - 62552 , 34594 , 256*w + 5964 , -3442*w - 21980 , 32908*w - 12852 , 2498*w + 9128 , -916*w - 5320 , 1662*w + 31178 , 6466*w + 6706 , 10407*w + 90503 ],
[ 460*w - 17276 , -815*w - 2051 , -124*w - 9856 , -256*w + 5964 , 1540 , 288*w - 5110 , 5982*w + 7476 , -54*w + 2380 , 92*w - 1260 , -844*w + 5964 , 908*w + 2828 , -95*w + 14609 ],
[ -11779*w + 139027 , -940*w - 2268 , -6410*w + 23254 , 3442*w - 21980 , -288*w - 5110 , 35154 , -43396*w - 47852 , -492*w - 15456 , -558*w + 8470 , 6362*w - 44114 , -6686*w - 21182 , 12684*w - 120918 ],
[ 191769*w - 129269 , 2292*w + 23128 , 40582*w + 53536 , -32908*w - 12852 , -5982*w + 7476 , 43396*w - 47852 , 453460 , -19908*w + 26264 , 11820*w - 8316 , -62736*w + 10024 , -15932*w + 87332 , -167941*w + 
    65513 ],
[ 871*w - 62531 , 1497*w + 371 , 4762*w - 8624 , -2498*w + 9128 , 54*w + 2380 , 492*w - 15456 , 19908*w + 26264 , 10864 , -130*w - 5082 , -1286*w + 14882 , 2436*w + 5796 , -5305*w + 48951 ],
[ 1827*w + 42021 , -902*w - 588 , -2112*w + 5376 , 916*w - 5320 , -92*w - 1260 , 558*w + 8470 , -11820*w - 8316 , 130*w - 5082 , 3080 , -448*w - 12152 , -2472*w - 2744 , -181*w - 31773 ],
[ -6747*w - 218603 , 2526*w + 2268 , 6432*w - 36960 , -1662*w + 31178 , 844*w + 5964 , -6362*w - 44114 , 62736*w + 10024 , 1286*w + 14882 , 448*w - 12152 , 78008 , 15208*w + 22232 , 7026*w + 184072 ],
[ 40484*w - 70826 , 238*w + 3990 , 8928*w - 2016 , -6466*w + 6706 , -908*w + 2828 , 6686*w - 21182 , 15932*w + 87332 , -2436*w + 5796 , 2472*w - 2744 , -15208*w + 22232 , 27104 , -33629*w + 62027 ],
[ 315125*w - 1134189 , -16589*w + 68075 , 28026*w - 131334 , -10407*w + 90503 , 95*w + 14609 , -12684*w - 120918 , 167941*w + 65513 , 5305*w + 48951 , 181*w - 31773 , -7026*w + 184072 , 33629*w + 62027 , 
    1296218 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 281631476 , -9289158*w - 31836644 , -2611318*w - 19278504 , -1391202*w - 9587494 , -27588584*w + 24833564 , -47120450*w - 958404566 , -17056508*w - 343757946 , 6159744*w + 31457174 , 7156848*w + 26334504 ,
5641350*w + 5084352 , 598612*w - 38516450 , -22174338*w - 6384126 ],
[ 9289158*w - 31836644 , 112827918 , 8989686*w + 45924144 , 1959946*w + 23675134 , -825412*w - 9046576 , -18482232*w - 536586540 , -6714322*w - 195874602 , 611806*w + 17805662 , 614458*w + 17856062 , -396*w 
, 0 , 31835124*w - 78214990 ],
[ 2611318*w - 19278504 , -8989686*w + 45924144 , 91602924 , -1130630*w + 26268872 , 19249012*w - 114478644 , -85356408*w - 230261360 , -34679858*w - 85766660 , -157302*w + 17818640 , 706084*w + 23880290 , 
    -5603952*w + 8930250 , 11772000*w + 28560000 , 49585044*w + 28332948 ],
[ 1391202*w - 9587494 , -1959946*w + 23675134 , 1130630*w + 26268872 , 8781976 , 4518012*w - 28111160 , -20058412*w - 113389920 , -8161008*w - 41859398 , -57896*w + 6228138 , 151318*w + 7694876 , -1354312*w 
    + 2157750 , 2844900*w + 6902000 , 15045096*w - 3477432 ],
[ 27588584*w + 24833564 , 825412*w - 9046576 , -19249012*w - 114478644 , -4518012*w - 28111160 , 314185312 , 199999348*w + 328232380 , 83786720*w + 115406928 , -4718542*w - 47910618 , -10023668*w - 59543554 
, 9231450*w - 43187550 , -44612950*w - 27332200 , -38291224*w + 26640054 ],
[ 47120450*w - 958404566 , 18482232*w - 536586540 , 85356408*w - 230261360 , 20058412*w - 113389920 , -199999348*w + 328232380 , 16113095432 , 20317024*w + 5937006992 , 17621800*w - 572629400 , 17237014*w - 
    601642958 , 29221332*w - 19811526 , -37747048*w - 167028484 , 275686154*w + 582810158 ],
[ 17056508*w - 343757946 , 6714322*w - 195874602 , 34679858*w - 85766660 , 8161008*w - 41859398 , -83786720*w + 115406928 , -20317024*w + 5937006992 , 2190298054 , 8431310*w - 210080052 , 8751794*w - 
    221897998 , 12143718*w - 4532542 , -12412400*w - 71990842 , 100551688*w + 207909394 ],
[ -6159744*w + 31457174 , -611806*w + 17805662 , 157302*w + 17818640 , 57896*w + 6228138 , 4718542*w - 47910618 , -17621800*w - 572629400 , -8431310*w - 210080052 , 25032980 , 754980*w + 27199984 , 
    -1849372*w + 6508754 , 7041966*w + 6944910 , -5841206*w - 26928342 ],
[ -7156848*w + 26334504 , -614458*w + 17856062 , -706084*w + 23880290 , -151318*w + 7694876 , 10023668*w - 59543554 , -17237014*w - 601642958 , -8751794*w - 221897998 , -754980*w + 27199984 , 30481234 , 
    -2982412*w + 7029596 , 8287134*w + 13606446 , -3792670*w - 24887786 ],
[ -5641350*w + 5084352 , 396*w , 5603952*w + 8930250 , 1354312*w + 2157750 , -9231450*w - 43187550 , -29221332*w - 19811526 , -12143718*w - 4532542 , 1849372*w + 6508754 , 2982412*w + 7029596 , 8314698 , 
    7361372*w - 5754196 , 2875942*w - 13338612 ],
[ -598612*w - 38516450 , 0 , -11772000*w + 28560000 , -2844900*w + 6902000 , 44612950*w - 27332200 , 37747048*w - 167028484 , 12412400*w - 71990842 , -7041966*w + 6944910 , -8287134*w + 13606446 , -7361372*w
    - 5754196 , 49603708 , 9834822*w + 27048952 ],
[ 22174338*w - 6384126 , -31835124*w - 78214990 , -49585044*w + 28332948 , -15045096*w - 3477432 , 38291224*w + 26640054 , -275686154*w + 582810158 , -100551688*w + 207909394 , 5841206*w - 26928342 , 
    3792670*w - 24887786 , -2875942*w - 13338612 , -9834822*w + 27048952 , 387906680 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1722 , -8*w + 476 , -48*w - 462 , 28*w , 0 , 0 , 40*w , -12*w , -32*w , 12*w , 0 , -145*w - 483 ],
[ 8*w + 476 , 13454 , -174*w - 6314 , 86*w - 56 , 20*w + 84 , 436*w - 1960 , -416*w - 1204 , -28*w + 56 , -556*w + 2212 , 1156*w + 2436 , -1248*w + 56 , -1865*w - 6139 ],
[ 48*w - 462 , 174*w - 6314 , 3318 , -30*w - 84 , -10*w - 42 , -314*w + 924 , 72*w + 602 , 38*w - 28 , 278*w - 1106 , -578*w - 1218 , 624*w - 28 , 633*w + 2919 ],
[ -28*w , -86*w - 56 , 30*w - 84 , 70 , 6*w , 28*w - 154 , 34*w - 28 , -6*w , 0 , 0 , 0 , 91*w - 77 ],
[ 0 , -20*w + 84 , 10*w - 42 , -6*w , 14 , 36*w , -14*w , 4*w , 0 , 0 , 0 , -9*w - 105 ],
[ 0 , -436*w - 1960 , 314*w + 924 , -28*w - 154 , -36*w , 1722 , 184*w + 308 , 14*w , 10*w - 840 , -580*w - 280 , 420*w - 700 , 287*w + 1001 ],
[ -40*w , 416*w - 1204 , -72*w + 602 , -34*w - 28 , 14*w , -184*w + 308 , 1106 , 4*w - 140 , 182*w - 238 , -56*w - 896 , 234*w + 490 , -265*w + 1113 ],
[ 12*w , 28*w + 56 , -38*w - 28 , 6*w , -4*w , -14*w , -4*w - 140 , 42 , 24*w + 28 , 8*w - 126 , 20*w + 84 , 4*w - 126 ],
[ 32*w , 556*w + 2212 , -278*w - 1106 , 0 , 0 , -10*w - 840 , -182*w - 238 , -24*w + 28 , 1078 , 700*w + 252 , -494*w + 882 , -267*w - 637 ],
[ -12*w , -1156*w + 2436 , 578*w - 1218 , 0 , 0 , 580*w - 280 , 56*w - 896 , -8*w - 126 , -700*w + 252 , 3486 , -748*w - 2156 , 461*w - 847 ],
[ 0 , 1248*w + 56 , -624*w - 28 , 0 , 0 , -420*w - 700 , -234*w + 490 , -20*w + 84 , 494*w + 882 , 748*w - 2156 , 2464 , -436*w - 98 ],
[ 145*w - 483 , 1865*w - 6139 , -633*w + 2919 , -91*w - 77 , 9*w - 105 , -287*w + 1001 , 265*w + 1113 , -4*w - 126 , 267*w - 637 , -461*w - 847 , 436*w - 98 , 6510 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 2478 , -40*w + 1190 , 140*w - 350 , -40*w , -16*w , -12*w , 8*w , -4*w , -10*w + 84 , -4*w + 28 , 0 , 166*w + 574 ],
[ 40*w + 1190 , 714 , 40*w - 406 , -12*w + 56 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 171*w + 315 ],
[ -140*w - 350 , -40*w - 406 , 630 , 2*w - 364 , -42 , 36*w , 42*w , -12*w , 0 , 0 , 0 , -190*w - 112 ],
[ 40*w , 12*w + 56 , -2*w - 364 , 882 , 434 , -32*w - 70 , -254*w , 54*w , 0 , 0 , 0 , -44*w - 434 ],
[ 16*w , 0 , -42 , 434 , 588 , 28*w + 98 , -184*w - 112 , 34*w + 224 , 168*w + 56 , 80*w + 56 , 48*w - 168 , -78*w - 154 ],
[ 12*w , 0 , -36*w , 32*w - 70 , -28*w + 98 , 252 , 34*w - 140 , -6*w + 168 , 126*w + 42 , 60*w + 42 , 36*w - 126 , 48*w + 126 ],
[ -8*w , 0 , -42*w , 254*w , 184*w - 112 , -34*w - 140 , 784 , -252 , -84*w - 28 , -40*w - 28 , -24*w + 84 , -195*w + 203 ],
[ 4*w , 0 , 12*w , -54*w , -34*w + 224 , 6*w + 168 , -252 , 308 , 168*w + 28 , 88*w + 56 , 64*w - 224 , 77*w + 189 ],
[ 10*w + 84 , 0 , 0 , 0 , -168*w + 56 , -126*w + 42 , 84*w - 28 , -168*w + 28 , 910 , -26*w + 434 , 130*w + 238 , -157*w + 105 ],
[ 4*w + 28 , 0 , 0 , 0 , -80*w + 56 , -60*w + 42 , 40*w - 28 , -88*w + 56 , 26*w + 434 , 224 , 82*w + 98 , -74*w + 112 ],
[ 0 , 0 , 0 , 0 , -48*w - 168 , -36*w - 126 , 24*w + 84 , -64*w - 224 , -130*w + 238 , -82*w + 98 , 308 , -94*w - 126 ],
[ -166*w + 574 , -171*w + 315 , 190*w - 112 , 44*w - 434 , 78*w - 154 , -48*w + 126 , 195*w + 203 , -77*w + 189 , 157*w + 105 , 74*w + 112 , 94*w - 126 , 1414 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 120162 , 805*w - 97013 , -523*w - 48895 , -12784*w + 4564 , 4842*w + 3220 , -926*w - 6216 , 1591*w + 6867 , -15732*w + 45066 , 194*w - 42140 , -190*w - 13454 , 1472*w - 2842 , 5983*w + 40817 ],
[ -805*w - 97013 , 109984 , 691*w + 53795 , 19262*w + 11746 , -3808*w - 12670 , 1794*w + 8848 , 199*w - 12775 , 41381*w + 9947 , -23866*w + 46816 , -7092*w + 16100 , -3508*w - 2044 , -42397*w - 47383 ],
[ 523*w - 48895 , -691*w + 53795 , 26712 , 9258*w + 4956 , -1884*w - 6006 , 498*w + 4172 , 209*w - 6069 , 19649*w + 3801 , -11132*w + 22694 , -3302*w + 7770 , -1662*w - 882 , -19658*w - 23646 ],
[ 12784*w + 4564 , -19262*w + 11746 , -9258*w + 4956 , 47194 , 3398*w - 11256 , -628*w + 5726 , 3448*w - 2352 , 8048*w + 93576 , -20600*w - 39368 , -6852*w - 11396 , -150*w - 8022 , -6815*w - 76181 ],
[ -4842*w + 3220 , 3808*w - 12670 , 1884*w - 6006 , -3398*w - 11256 , 6244 , -28*w - 3122 , -804*w + 4200 , -14710*w - 18648 , 10968*w - 9240 , 3360*w - 3360 , 1124*w + 1764 , 11642*w - 826 ],
[ 926*w - 6216 , -1794*w + 8848 , -498*w + 4172 , 628*w + 5726 , 28*w - 3122 , 5600 , 378*w - 3780 , 7350*w + 8988 , -5484*w + 4620 , -1680*w + 1680 , -562*w - 882 , -5378*w + 1120 ],
[ -1591*w + 6867 , -199*w - 12775 , -209*w - 6069 , -3448*w - 2352 , 804*w + 4200 , -378*w - 3780 , 4648 , -13776*w + 1148 , 7036*w - 18340 , 2048*w - 6048 , 1148*w + 140 , 10369*w - 16121 ],
[ 15732*w + 45066 , -41381*w + 9947 , -19649*w + 3801 , -8048*w + 93576 , 14710*w - 18648 , -7350*w + 8988 , 13776*w + 1148 , 340732 , -63300*w - 177996 , -20856*w - 51912 , 672*w - 28224 , -54485*w - 274337
],
[ -194*w - 42140 , 23866*w + 46816 , 11132*w + 22694 , 20600*w - 39368 , -10968*w - 9240 , 5484*w + 4620 , -7036*w - 18340 , 63300*w - 177996 , 176176 , 1300*w + 54404 , -5616*w + 14112 , -22783*w + 219023 
],
[ 190*w - 13454 , 7092*w + 16100 , 3302*w + 7770 , 6852*w - 11396 , -3360*w - 3360 , 1680*w + 1680 , -2048*w - 6048 , 20856*w - 51912 , -1300*w + 54404 , 16912 , -1856*w + 4032 , -8834*w + 65800 ],
[ -1472*w - 2842 , 3508*w - 2044 , 1662*w - 882 , 150*w - 8022 , -1124*w + 1764 , 562*w - 882 , -1148*w + 140 , -672*w - 28224 , 5616*w + 14112 , 1856*w + 4032 , 2464 , 5045*w + 23555 ],
[ -5983*w + 40817 , 42397*w - 47383 , 19658*w - 23646 , 6815*w - 76181 , -11642*w - 826 , 5378*w + 1120 , -10369*w - 16121 , 54485*w - 274337 , 22783*w + 219023 , 8834*w + 65800 , -5045*w + 23555 , 405552 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 112336 , 1666*w - 27818 , 3676*w + 4844 , -1844*w - 700 , 112*w + 448 , -3068*w - 728 , 1402*w - 826 , -174*w - 5502 , -1168*w + 5614 , -172*w - 6944 , -648*w - 2800 , -8187*w - 10451 ],
[ -1666*w - 27818 , 18578 , -1037*w + 2303 , 467*w + 77 , -26*w - 84 , 683*w + 161 , -281*w + 203 , 40*w + 1190 , 249*w - 1239 , 48*w + 1526 , 144*w + 602 , 850*w - 56 ],
[ -3676*w + 4844 , 1037*w + 2303 , 3444 , -78*w - 1092 , -56 , -216*w - 896 , -104*w + 224 , 224*w - 448 , -320*w , 336*w - 560 , 48*w - 336 , -547*w - 3493 ],
[ 1844*w - 700 , -467*w + 77 , 78*w - 1092 , 602 , 42 , 6*w + 504 , 102*w - 112 , -180*w , 168*w + 280 , -228*w + 28 , -80*w + 112 , -83*w + 1295 ],
[ -112*w + 448 , 26*w - 84 , -56 , 42 , 28 , -6*w + 14 , 52*w , -10*w , 0 , 0 , 0 , -14*w - 42 ],
[ 3068*w - 728 , -683*w + 161 , 216*w - 896 , -6*w + 504 , 6*w + 14 , 980 , 38*w - 280 , -206*w + 280 , 284*w + 140 , -324*w + 364 , -70*w + 266 , -365*w + 2009 ],
[ -1402*w - 826 , 281*w + 203 , 104*w + 224 , -102*w - 112 , -52*w , -38*w - 280 , 784 , 48*w - 252 , -80*w , 84*w - 140 , 12*w - 84 , 98*w - 602 ],
[ 174*w - 5502 , -40*w + 1190 , -224*w - 448 , 180*w , 10*w , 206*w + 280 , -48*w - 252 , 756 , 160*w - 588 , -48*w + 784 , 80*w + 336 , 395*w + 833 ],
[ 1168*w + 5614 , -249*w - 1239 , 320*w , -168*w + 280 , 0 , -284*w + 140 , 80*w , -160*w - 588 , 854 , -200*w - 840 , -136*w - 168 , -604*w - 126 ],
[ 172*w - 6944 , -48*w + 1526 , -336*w - 560 , 228*w + 28 , 0 , 324*w + 364 , -84*w - 140 , 48*w + 784 , 200*w - 840 , 1232 , 96*w + 336 , 550*w + 1134 ],
[ 648*w - 2800 , -144*w + 602 , -48*w - 336 , 80*w + 112 , 0 , 70*w + 266 , -12*w - 84 , -80*w + 336 , 136*w - 168 , -96*w + 336 , 224 , 112*w + 686 ],
[ 8187*w - 10451 , -850*w - 56 , 547*w - 3493 , 83*w + 1295 , 14*w - 42 , 365*w + 2009 , -98*w - 602 , -395*w + 833 , 604*w - 126 , -550*w + 1134 , -112*w + 686 , 7224 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 132888 , -10822*w + 106050 , -123294*w + 392812 , -9272*w - 5782 , 31800*w - 74634 , -5470*w + 4774 , -7496*w + 1232 , -8222*w + 22008 , -202*w + 69678 , 17208*w + 65422 , -25530*w + 15512 , 13874*w + 
    228270 ],
[ 10822*w + 106050 , 103488 , -77494*w + 392000 , -8300*w - 4732 , 27858*w - 72366 , -7616*w + 7686 , -2194*w + 3038 , -1868*w + 20272 , 10486*w + 42462 , 20284*w + 20916 , -12998*w + 36484 , 11066*w + 
    161490 ],
[ 123294*w + 392812 , 77494*w + 392000 , 4064914 , -31590*w - 5642 , -36808*w - 1182804 , 18152*w + 305410 , -5264*w - 147980 , 1138*w + 10500 , -128*w , 48*w , 0 , 591394*w + 1616020 ],
[ 9272*w - 5782 , 8300*w - 4732 , 31590*w - 5642 , 10500 , -7112*w + 1274 , 1566*w - 1078 , -1378*w + 448 , -102*w , 32*w , -12*w , 0 , 8390*w - 8932 ],
[ -31800*w - 74634 , -27858*w - 72366 , 36808*w - 1182804 , 7112*w + 1274 , 801374 , -2410*w - 299544 , -42370*w + 111748 , -23816*w + 102732 , 41040*w + 335160 , 120960*w + 234360 , -111240*w + 181440 , 
    -80648*w - 791042 ],
[ 5470*w + 4774 , 7616*w + 7686 , -18152*w + 305410 , -1566*w - 1078 , 2410*w - 299544 , 125720 , 23208*w - 56798 , 12710*w - 59752 , -21964*w - 178626 , -64736*w - 125706 , 59534*w - 97104 , -9564*w + 
    274036 ],
[ 7496*w + 1232 , 2194*w + 3038 , 5264*w - 147980 , 1378*w + 448 , 42370*w + 111748 , -23208*w - 56798 , 95522 , 10116*w + 69524 , 62956*w + 67914 , 75424*w - 46186 , -10406*w + 176176 , -7794*w - 234304 ],
[ 8222*w + 22008 , 1868*w + 20272 , -1138*w + 10500 , 102*w , 23816*w + 102732 , -12710*w - 59752 , -10116*w + 69524 , 66556 , 44236*w + 115220 , 69808*w + 29680 , -31772*w + 139384 , 32808*w - 133518 ],
[ 202*w + 69678 , -10486*w + 42462 , 128*w , -32*w , -41040*w + 335160 , 21964*w - 178626 , -62956*w + 67914 , -44236*w + 115220 , 418726 , 104624*w + 387282 , -152226*w + 97048 , 150226*w - 124222 ],
[ -17208*w + 65422 , -20284*w + 20916 , -48*w , 12*w , -120960*w + 234360 , 64736*w - 125706 , -75424*w - 46186 , -69808*w + 29680 , -104624*w + 387282 , 541338 , -165080*w - 176512 , 170364*w + 150500 ],
[ 25530*w + 15512 , 12998*w + 36484 , 0 , 0 , 111240*w + 181440 , -59534*w - 97104 , 10406*w + 176176 , 31772*w + 139384 , 152226*w + 97048 , 165080*w - 176512 , 409948 , -9736*w - 412202 ],
[ -13874*w + 228270 , -11066*w + 161490 , -591394*w + 1616020 , -8390*w - 8932 , 80648*w - 791042 , 9564*w + 274036 , 7794*w - 234304 , -32808*w - 133518 , -150226*w - 124222 , -170364*w + 150500 , 9736*w - 
    412202 , 1860866 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 58506 , 6*w + 126 , 1151*w - 609 , -1567*w + 6279 , -2317*w - 6195 , 307*w + 5649 , -5717*w + 11907 , 1753*w - 8701 , -6200*w - 20482 , 3921*w - 1323 , -7492*w + 15442 , 16458*w + 23324 ],
[ -6*w + 126 , 196 , 20*w + 252 , -526*w - 448 , -78*w - 42 , -104*w - 28 , 26*w , 0 , 0 , 0 , 0 , 330*w + 42 ],
[ -1151*w - 609 , -20*w + 252 , 1610 , -720*w - 2884 , 432*w - 378 , -414*w - 126 , -72*w , 54*w , 0 , 0 , 0 , -1007*w + 2429 ],
[ 1567*w + 6279 , 526*w - 448 , 720*w - 2884 , 18228 , -1408*w + 2660 , 916*w + 2548 , 232*w - 560 , -148*w , 0 , 0 , 0 , 2881*w - 7399 ],
[ 2317*w - 6195 , 78*w - 42 , -432*w - 378 , 1408*w + 2660 , 4592 , 362*w - 1722 , 1178*w - 924 , -622*w + 1120 , -240*w + 4900 , -660*w - 1260 , 1860*w + 420 , -1673*w - 10283 ],
[ -307*w + 5649 , 104*w - 28 , 414*w - 126 , -916*w + 2548 , -362*w - 1722 , 1764 , -646*w + 1904 , 186*w - 1400 , -906*w - 2786 , 570*w - 294 , -1014*w + 2394 , 1851*w + 2275 ],
[ 5717*w + 11907 , -26*w , 72*w , -232*w - 560 , -1178*w - 924 , 646*w + 1904 , 11704 , -964*w - 5544 , -6610*w + 672 , 1212*w - 6300 , 336*w + 16688 , 5161*w - 8407 ],
[ -1753*w - 8701 , 0 , -54*w , 148*w , 622*w + 1120 , -186*w - 1400 , 964*w - 5544 , 3332 , 3276*w + 4060 , -1196*w + 2324 , 1396*w - 8428 , -3223*w + 1631 ],
[ 6200*w - 20482 , 0 , 0 , 0 , 240*w + 4900 , 906*w - 2786 , 6610*w + 672 , -3276*w + 4060 , 29820 , -4082*w - 5572 , 10714*w - 1078 , -5488*w - 16898 ],
[ -3921*w - 1323 , 0 , 0 , 0 , 660*w - 1260 , -570*w - 294 , -1212*w - 6300 , 1196*w + 2324 , 4082*w - 5572 , 4998 , -2172*w - 10108 , -1057*w + 8841 ],
[ 7492*w + 15442 , 0 , 0 , 0 , -1860*w + 420 , 1014*w + 2394 , -336*w + 16688 , -1396*w - 8428 , -10714*w - 1078 , 2172*w - 10108 , 27104 , 6264*w - 14406 ],
[ -16458*w + 23324 , -330*w + 42 , 1007*w + 2429 , -2881*w - 7399 , 1673*w - 10283 , -1851*w + 2275 , -5161*w - 8407 , 3223*w + 1631 , 5488*w - 16898 , 1057*w + 8841 , -6264*w - 14406 , 54040 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 16418766 , 2032385*w + 636461 , -9595609*w + 27677069 , -7208428*w + 21045598 , 3048894*w - 7482104 , 14693*w + 1559649 , 283598*w + 1470392 , 254312*w + 810544 , 21189*w - 244881 , -68651*w - 265769 , 
    118228*w + 33726 , 9737977*w + 29207479 ],
[ -2032385*w + 636461 , 8692124 , -4057073*w - 8896853 , -3040403*w - 6478325 , 951105*w + 933975 , 68779*w + 1209173 , 286946*w + 1207822 , 225936*w + 647192 , -6526*w - 177870 , -51251*w - 176883 , 85906*w
    + 4480 , 395063*w + 14481957 ],
[ 9595609*w + 27677069 , 4057073*w - 8896853 , 87135664 , 162637*w + 65815463 , 543663*w - 24709251 , 947234*w + 1789536 , 1262178*w + 520016 , 824862*w - 142576 , -116934*w - 335006 , -236290*w - 52682 , 
    161922*w - 441910 , 32709471*w + 6914789 ],
[ 7208428*w + 21045598 , 3040403*w - 6478325 , -162637*w + 65815463 , 49732270 , 466520*w - 18764690 , 722197*w + 1428063 , 973476*w + 468748 , 639284*w - 67872 , -89769*w - 264537 , -182031*w - 49329 , 
    127608*w - 335286 , 24812515*w + 5920929 ],
[ -3048894*w - 7482104 , -951105*w + 933975 , -543663*w - 24709251 , -466520*w - 18764690 , 8084160 , -451107*w - 1032283 , -611870*w - 534996 , -406026*w - 114856 , 67007*w + 205079 , 115681*w + 32823 , 
    -85812*w + 210406 , -10650443*w - 1832747 ],
[ -14693*w + 1559649 , -68779*w + 1209173 , -947234*w + 1789536 , -722197*w + 1428063 , 451107*w - 1032283 , 685020 , 86814*w + 685216 , 82642*w + 392868 , 6996*w - 135128 , -31064*w - 102088 , 50434*w + 
    10514 , 1387017*w + 4799011 ],
[ -283598*w + 1470392 , -286946*w + 1207822 , -1262178*w + 520016 , -973476*w + 468748 , 611870*w - 534996 , -86814*w + 685216 , 802522 , 36354*w + 496440 , 18464*w - 128310 , -15956*w - 124180 , 47580*w + 
    54460 , 579894*w + 6358842 ],
[ -254312*w + 810544 , -225936*w + 647192 , -824862*w - 142576 , -639284*w - 67872 , 406026*w - 114856 , -82642*w + 392868 , -36354*w + 496440 , 320138 , 16002*w - 74592 , -4344*w - 79352 , 26584*w + 47096 ,
41276*w + 4108006 ],
[ -21189*w - 244881 , 6526*w - 177870 , 116934*w - 335006 , 89769*w - 264537 , -67007*w + 205079 , -6996*w - 135128 , -18464*w - 128310 , -16002*w - 74592 , 34482 , 8328*w + 16184 , -10536*w + 3304 , 
    -275083*w - 662053 ],
[ 68651*w - 265769 , 51251*w - 176883 , 236290*w - 52682 , 182031*w - 49329 , -115681*w + 32823 , 31064*w - 102088 , 15956*w - 124180 , 4344*w - 79352 , -8328*w + 16184 , 27216 , -7328*w - 18704 , -33629*w -
    1187053 ],
[ -118228*w + 33726 , -85906*w + 4480 , -161922*w - 441910 , -127608*w - 335286 , 85812*w + 210406 , -50434*w + 10514 , -47580*w + 54460 , -26584*w + 47096 , 10536*w + 3304 , 7328*w - 18704 , 27104 , 
    -317682*w + 835240 ],
[ -9737977*w + 29207479 , -395063*w + 14481957 , -32709471*w + 6914789 , -24812515*w + 5920929 , 10650443*w - 1832747 , -1387017*w + 4799011 , -579894*w + 6358842 , -41276*w + 4108006 , 275083*w - 662053 , 
    33629*w - 1187053 , 317682*w + 835240 , 109563706 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 18994178 , 268054*w - 7138502 , -186480*w + 2497754 , 179597*w + 255325 , -18410695*w - 134085581 , 21435*w + 54313 , -3654623*w - 27146497 , 147967*w + 132209 , -11951*w + 106645 , 31014*w + 69468 , 
    32328*w + 13748 , -6268610*w - 4997608 ],
[ -268054*w - 7138502 , 3250562 , 34241*w - 1174607 , -100190*w - 233254 , 7429764*w + 42062804 , -8132*w - 51856 , 1562603*w + 8802045 , -169599*w + 56987 , -10403*w - 139475 , -51337*w - 34461 , -41660*w +
    38626 , 2112603*w + 1061627 ],
[ 186480*w + 2497754 , -34241*w - 1174607 , 442246 , 40222*w + 66164 , -3192999*w - 13630519 , 3458*w + 16674 , -665371*w - 2862559 , 58556*w - 20440 , 3900*w + 48580 , 18050*w + 11410 , 14510*w - 14210 , 
    -742532*w - 140588 ],
[ -179597*w + 255325 , 100190*w - 233254 , -40222*w + 66164 , 101570 , 943069*w - 783727 , -2058*w + 16296 , 168403*w - 271705 , 48676*w - 3500 , 784*w + 39872 , 13636*w + 14980 , 12184*w - 5992 , 27514*w - 
    275940 ],
[ 18410695*w - 134085581 , -7429764*w + 42062804 , 3192999*w - 13630519 , -943069*w - 783727 , 1209806920 , -151537*w - 257873 , -473413*w + 241267355 , 246592*w - 1836646 , 63096*w + 201670 , 66209*w - 
    70301 , 61660*w - 75362 , 44123283*w + 88206391 ],
[ -21435*w + 54313 , 8132*w - 51856 , -3458*w + 16674 , 2058*w + 16296 , 151537*w - 257873 , 3766 , 20371*w - 73493 , 9992*w - 9814 , 1934*w + 8960 , 3928*w - 504 , 2614*w - 5530 , -368*w - 49644 ],
[ 3654623*w - 27146497 , -1562603*w + 8802045 , 665371*w - 2862559 , -168403*w - 271705 , 473413*w + 241267355 , -20371*w - 73493 , 48505478 , -44770*w - 506702 , 26670*w - 69020 , -17131*w - 99057 , 
    -25296*w - 32662 , 8870937*w + 17456663 ],
[ -147967*w + 132209 , 169599*w + 56987 , -58556*w - 20440 , -48676*w - 3500 , -246592*w - 1836646 , -9992*w - 9814 , 44770*w - 506702 , 286748 , -31862*w + 11410 , -9456*w + 80976 , 7600*w + 66416 , 
    -103368*w - 138600 ],
[ 11951*w + 106645 , 10403*w - 139475 , -3900*w + 48580 , -784*w + 39872 , -63096*w + 201670 , -1934*w + 8960 , -26670*w - 69020 , 31862*w + 11410 , 34706 , 11704*w + 16408 , 11384*w - 4424 , -7334*w + 44478
],
[ -31014*w + 69468 , 51337*w - 34461 , -18050*w + 11410 , -13636*w + 14980 , -66209*w - 70301 , -3928*w - 504 , 17131*w - 99057 , 9456*w + 80976 , -11704*w + 16408 , 35728 , 7008*w + 24752 , -16622*w - 6174 
],
[ -32328*w + 13748 , 41660*w + 38626 , -14510*w - 14210 , -12184*w - 5992 , -61660*w - 75362 , -2614*w - 5530 , 25296*w - 32662 , -7600*w + 66416 , -11384*w - 4424 , -7008*w + 24752 , 27104 , -10248*w - 
    14196 ],
[ 6268610*w - 4997608 , -2112603*w + 1061627 , 742532*w - 140588 , -27514*w - 275940 , -44123283*w + 88206391 , 368*w - 49644 , -8870937*w + 17456663 , 103368*w - 138600 , 7334*w + 44478 , 16622*w - 6174 , 
    10248*w - 14196 , 17723496 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 244636 , 67808*w - 329280 , 7532*w + 139552 , -1074*w - 4886 , 7563*w - 6377 , -18009*w + 6699 , 10280*w + 53578 , 7942*w + 27496 , -17073*w - 1687 , -19588*w + 60802 , 942*w + 63000 , -25947*w + 91231 ],
[ -67808*w - 329280 , 704200 , -45382*w - 159418 , 3982*w - 10388 , -4371*w + 18193 , 19421*w - 41699 , -28276*w - 29484 , -17538*w - 8848 , 20361*w - 37247 , 2350*w - 116536 , -22076*w - 70728 , -24551*w - 
    237251 ],
[ -7532*w + 139552 , 45382*w - 159418 , 85722 , -364*w - 5824 , 4267*w - 1883 , -8929*w - 707 , 3348*w + 28896 , 2980*w + 15316 , -8925*w - 3437 , -11450*w + 28952 , -816*w + 33040 , -22929*w + 32697 ],
[ 1074*w - 4886 , -3982*w - 10388 , 364*w - 5824 , 4130 , -38*w + 3374 , -986*w - 4410 , -1644*w + 56 , -834*w + 504 , 384*w - 2268 , -708*w - 3948 , -1224*w - 1260 , 7228*w + 7378 ],
[ -7563*w - 6377 , 4371*w + 18193 , -4267*w - 1883 , 38*w + 3374 , 8008 , -518*w - 14098 , -5614*w + 336 , -3086*w + 1764 , 1280*w - 7560 , -2360*w - 13160 , -4080*w - 4200 , 712*w - 7476 ],
[ 18009*w + 6699 , -19421*w - 41699 , 8929*w - 707 , 986*w - 4410 , 518*w - 14098 , 29708 , 10924*w - 2520 , 5998*w - 4900 , -3016*w + 17122 , 5482*w + 30142 , 9316*w + 9590 , 4352*w + 3584 ],
[ -10280*w + 53578 , 28276*w - 29484 , -3348*w + 28896 , 1644*w + 56 , 5614*w + 336 , -10924*w - 2520 , 41300 , 1464*w + 23520 , -6808*w - 12572 , -14452*w + 9828 , -6240*w + 26460 , -6688*w + 5796 ],
[ -7942*w + 27496 , 17538*w - 8848 , -2980*w + 15316 , 834*w + 504 , 3086*w + 1764 , -5998*w - 4900 , -1464*w + 23520 , 13874 , -3192*w - 9142 , -8512*w + 784 , -4688*w + 12712 , -4028*w + 2828 ],
[ 17073*w - 1687 , -20361*w - 37247 , 8925*w - 3437 , -384*w - 2268 , -1280*w - 7560 , 3016*w + 17122 , 6808*w - 12572 , 3192*w - 9142 , 18886 , 10122*w + 20538 , 9974*w - 2338 , 742*w + 11662 ],
[ 19588*w + 60802 , -2350*w - 116536 , 11450*w + 28952 , 708*w - 3948 , 2360*w - 13160 , -5482*w + 30142 , 14452*w + 9828 , 8512*w + 784 , -10122*w + 20538 , 60648 , 12158*w + 34986 , -4958*w + 14378 ],
[ -942*w + 63000 , 22076*w - 70728 , 816*w + 33040 , 1224*w - 1260 , 4080*w - 4200 , -9316*w + 9590 , 6240*w + 26460 , 4688*w + 12712 , -9974*w - 2338 , -12158*w + 34986 , 37268 , -5912*w + 1554 ],
[ 25947*w + 91231 , 24551*w - 237251 , 22929*w + 32697 , -7228*w + 7378 , -712*w - 7476 , -4352*w + 3584 , 6688*w + 5796 , 4028*w + 2828 , -742*w + 11662 , 4958*w + 14378 , 5912*w + 1554 , 197092 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 431074 , -5688*w - 207998 , -752*w + 644 , -15908*w - 2926 , -2836*w - 1106 , 86*w - 14210 , 2426*w + 8708 , -13090*w - 36960 , -4816*w + 12894 , 1468*w - 2464 , 2764*w + 11424 , -56185*w - 174741 ],
[ 5688*w - 207998 , 120358 , 152*w + 602 , 8364*w + 27594 , 1542*w + 2170 , 394*w - 15022 , 2390*w + 2772 , -19022*w + 4172 , 1336*w + 21406 , 304*w - 5348 , 6000*w + 1792 , 15385*w + 74767 ],
[ 752*w + 644 , -152*w + 602 , 1918 , 332*w + 3794 , -454*w + 882 , -1212*w - 2268 , 758*w + 784 , -3080*w - 1624 , -152*w + 3080 , 112*w - 728 , 816*w + 840 , -3198*w - 1666 ],
[ 15908*w - 2926 , -8364*w + 27594 , -332*w + 3794 , 44422 , -592*w + 3234 , -936*w - 32480 , 5770*w + 10220 , -37616*w - 20300 , -1900*w + 38500 , 1400*w - 9100 , 10200*w + 10500 , -22976*w - 5152 ],
[ 2836*w - 1106 , -1542*w + 2170 , 454*w + 882 , 592*w + 3234 , 1624 , -506*w + 350 , 578*w + 84 , -3034*w - 1456 , -152*w + 3080 , 112*w - 728 , 816*w + 840 , -2904*w + 4760 ],
[ -86*w - 14210 , -394*w - 15022 , 1212*w - 2268 , 936*w - 32480 , 506*w + 350 , 36792 , -4788*w - 10724 , 33930*w + 16310 , 994*w - 42294 , -1652*w + 9618 , -10948*w - 11270 , 16023*w + 33551 ],
[ -2426*w + 8708 , -2390*w + 2772 , -758*w + 784 , -5770*w + 10220 , -578*w + 84 , 4788*w - 10724 , 9548 , -7480*w - 47712 , -6612*w + 9800 , 1904*w - 1204 , 1448*w + 14644 , -1878*w - 30730 ],
[ 13090*w - 36960 , 19022*w + 4172 , 3080*w - 1624 , 37616*w - 20300 , 3034*w - 1456 , -33930*w + 16310 , 7480*w - 47712 , 301490 , 47842*w - 6524 , -11392*w - 7784 , 7566*w - 90314 , -12604*w + 155344 ],
[ 4816*w + 12894 , -1336*w + 21406 , 152*w + 3080 , 1900*w + 38500 , 152*w + 3080 , -994*w - 42294 , 6612*w + 9800 , -47842*w - 6524 , 73206 , 2874*w - 15554 , 18226*w + 18214 , -23017*w - 28245 ],
[ -1468*w - 2464 , -304*w - 5348 , -112*w - 728 , -1400*w - 9100 , -112*w - 728 , 1652*w + 9618 , -1904*w - 1204 , 11392*w - 7784 , -2874*w - 15554 , 4368 , -4782*w + 1106 , 6746*w + 1610 ],
[ -2764*w + 11424 , -6000*w + 1792 , -816*w + 840 , -10200*w + 10500 , -816*w + 840 , 10948*w - 11270 , -1448*w + 14644 , -7566*w - 90314 , -18226*w + 18214 , 4782*w + 1106 , 37268 , 2588*w - 51086 ],
[ 56185*w - 174741 , -15385*w + 74767 , 3198*w - 1666 , 22976*w - 5152 , 2904*w + 4760 , -16023*w + 33551 , 1878*w - 30730 , 12604*w + 155344 , 23017*w - 28245 , -6746*w + 1610 , -2588*w - 51086 , 204722 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 92260 , -2588*w - 32242 , -4851*w - 34475 , 5357*w + 343 , -1970*w - 1498 , 1461*w - 2009 , -16322*w + 14868 , 11827*w - 2695 , 3318*w + 46284 , 1997*w - 10479 , 11260*w + 11718 , -45382*w - 16758 ],
[ 2588*w - 32242 , 17150 , 1271*w + 14021 , -978*w - 1666 , 180*w + 1428 , -1486*w - 896 , 4328*w + 4676 , -2124*w - 3808 , 1833*w - 8463 , -838*w + 896 , -1170*w - 5838 , 21671*w + 14147 ],
[ 4851*w - 34475 , -1271*w + 14021 , 16254 , -1542*w - 1358 , 480*w + 952 , -746*w - 504 , 5292*w + 868 , -3484*w - 2352 , 841*w - 13615 , -918*w + 2352 , -2658*w - 6174 , 17849*w + 29967 ],
[ -5357*w + 343 , 978*w - 1666 , 1542*w - 1358 , 4410 , 66*w - 1778 , 342*w - 56 , -2370*w - 12656 , 644*w + 9296 , -5656*w + 4648 , 1376*w + 1568 , -1080*w + 10248 , -760*w - 6678 ],
[ 1970*w - 1498 , -180*w + 1428 , -480*w + 952 , -66*w - 1778 , 812 , -258*w + 182 , 1226*w + 4928 , -400*w - 3752 , 2274*w - 2366 , -580*w - 532 , 326*w - 4298 , 1044*w + 1414 ],
[ -1461*w - 2009 , 1486*w - 896 , 746*w - 504 , -342*w - 56 , 258*w + 182 , 2436 , 1280*w - 3360 , -1010*w + 420 , -190*w - 3822 , -168*w + 840 , -902*w - 1078 , -956*w - 9800 ],
[ 16322*w + 14868 , -4328*w + 4676 , -5292*w + 868 , 2370*w - 12656 , -1226*w + 4928 , -1280*w - 3360 , 50260 , 3556*w - 31276 , 19448*w + 9576 , -3180*w - 10220 , 9204*w - 25900 , 3642*w + 27832 ],
[ -11827*w - 2695 , 2124*w - 3808 , 3484*w - 2352 , -644*w + 9296 , 400*w - 3752 , 1010*w + 420 , -3556*w - 31276 , 22610 , -13400*w + 2898 , 2760*w + 4984 , -4248*w + 21336 , -2646*w - 15806 ],
[ -3318*w + 46284 , -1833*w - 8463 , -841*w - 13615 , 5656*w + 4648 , -2274*w - 2366 , 190*w - 3822 , -19448*w + 9576 , 13400*w + 2898 , 59206 , 3608*w - 11144 , 12728*w + 21672 , -7828*w + 10850 ],
[ -1997*w - 10479 , 838*w + 896 , 918*w + 2352 , -1376*w + 1568 , 580*w - 532 , 168*w + 840 , 3180*w - 10220 , -2760*w + 4984 , -3608*w - 11144 , 3696 , -3728*w + 1344 , 838*w - 4606 ],
[ -11260*w + 11718 , 1170*w - 5838 , 2658*w - 6174 , 1080*w + 10248 , -326*w - 4298 , 902*w - 1078 , -9204*w - 25900 , 4248*w + 21336 , -12728*w + 21672 , 3728*w + 1344 , 27104 , -5054*w - 7966 ],
[ 45382*w - 16758 , -21671*w + 14147 , -17849*w + 29967 , 760*w - 6678 , -1044*w + 1414 , 956*w - 9800 , -3642*w + 27832 , 2646*w - 15806 , 7828*w + 10850 , -838*w - 4606 , 5054*w - 7966 , 243572 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 57652 , 1653*w + 147 , 3047*w - 26873 , 1424*w - 3080 , -173*w - 1631 , 1411*w + 4025 , 1464*w + 5558 , -2333*w + 1841 , -212*w - 1624 , -3501*w + 8911 , -628*w + 12978 , -27475*w - 79639 ],
[ -1653*w + 147 , 1106 , 743*w - 385 , -60*w + 112 , 28 , 28*w , -4*w , 8*w , 0 , 0 , 0 , 1841*w - 7287 ],
[ -3047*w - 26873 , -743*w - 385 , 16814 , -480*w + 3178 , 282*w + 728 , -1514*w - 896 , -1122*w - 1162 , 759*w - 2765 , 243*w + 567 , 434*w - 6328 , -1170*w - 5838 , 17844*w + 30100 ],
[ -1424*w - 3080 , 60*w + 112 , 480*w + 3178 , 1666 , 136*w + 490 , -512*w + 686 , -544*w - 1512 , 590*w - 840 , 92*w + 364 , 612*w - 3164 , -260*w - 3556 , 2002*w + 2156 ],
[ 173*w - 1631 , 28 , -282*w + 728 , -136*w + 490 , 532 , -178*w - 14 , -258*w - 2184 , 742*w + 168 , -12*w + 420 , 1132*w - 1876 , 484*w - 3388 , -1453*w + 3731 ],
[ -1411*w + 4025 , -28*w , 1514*w - 896 , 512*w + 686 , 178*w - 14 , 2436 , -580*w , 26*w - 1120 , 140*w + 28 , -432*w - 2240 , -902*w - 1078 , -243*w - 6461 ],
[ -1464*w + 5558 , 4*w , 1122*w - 1162 , 544*w - 1512 , 258*w - 2184 , 580*w , 10948 , -3144*w - 3584 , 268*w - 1876 , -6076*w + 3780 , -4044*w + 13076 , 8668*w - 8792 ],
[ 2333*w + 1841 , -8*w , -759*w - 2765 , -590*w - 840 , -742*w + 168 , -26*w - 1120 , 3144*w - 3584 , 7868 , -624*w + 56 , 3232*w + 11200 , 5248*w + 3808 , -6177*w - 14945 ],
[ 212*w - 1624 , 0 , -243*w + 567 , -92*w + 364 , 12*w + 420 , -140*w + 28 , -268*w - 1876 , 624*w + 56 , 406 , 984*w - 1624 , 408*w - 2968 , -1190*w + 3962 ],
[ 3501*w + 8911 , 0 , -434*w - 6328 , -612*w - 3164 , -1132*w - 1876 , 432*w - 2240 , 6076*w + 3780 , -3232*w + 11200 , -984*w - 1624 , 26096 , 6128*w + 21056 , -3695*w - 35665 ],
[ 628*w + 12978 , 0 , 1170*w - 5838 , 260*w - 3556 , -484*w - 3388 , 902*w - 1078 , 4044*w + 13076 , -5248*w + 3808 , -408*w - 2968 , -6128*w + 21056 , 27104 , 5564*w - 35490 ],
[ 27475*w - 79639 , -1841*w - 7287 , -17844*w + 30100 , -2002*w + 2156 , 1453*w + 3731 , 243*w - 6461 , -8668*w - 8792 , 6177*w - 14945 , 1190*w + 3962 , 3695*w - 35665 , -5564*w - 35490 , 264852 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 7044827202 , -324345892*w + 747874148 , -236953072*w + 446285742 , 38938986*w - 739701088 , -3323461990*w - 14170339932 , 3125214952*w + 13421503550 , -177344586*w - 1060316712 , -260610084*w - 733846820 ,
-26600278*w + 218347108 , 67394460*w + 238435260 , -127138980*w + 43932238 , 3699133156*w - 1006543188 ],
[ 324345892*w + 747874148 , 1211081550 , -28437084*w + 564688614 , -382624834*w + 2162939646 , -891008740*w - 1602244700 , 982968950*w + 1120419090 , -138210180*w + 120152452 , -9808376*w - 441794388 , 
    114286938*w - 100939902 , -118848588*w - 378441000 , 208416000*w - 101136000 , 127285820*w - 1428642502 ],
[ 236953072*w + 446285742 , 28437084*w + 564688614 , 328253940 , -162884610*w + 941445820 , -403791884*w - 1910105484 , 441346054*w + 1627155390 , -60817832*w - 28829584 , -5469200*w - 271327644 , 49494478*w
    - 30052582 , -51253212*w - 163201500 , 89879400*w - 43614900 , 328741582*w + 131702676 ],
[ -38938986*w - 739701088 , 382624834*w + 2162939646 , 162884610*w + 941445820 , 7582303176 , -2944332996*w - 6126131340 , 3033801288*w + 4203648190 , -292519562*w + 631449518 , -273485716*w - 1683439422 , 
    273981712*w - 778877106 , -615856612*w - 603057000 , 570198700*w - 1282020950 , 1481352868*w - 3139068282 ],
[ 3323461990*w - 14170339932 , 891008740*w - 1602244700 , 403791884*w - 1910105484 , 2944332996*w - 6126131340 , 147301438480 , -923688308*w - 138299658196 , 385472082*w + 9097433814 , -256583728*w + 
    11088160958 , -442789856*w - 1351361788 , 376666836*w + 1687875084 , -844125840*w + 48143354 , -34356456350*w - 57817922386 ],
[ -3125214952*w + 13421503550 , -982968950*w + 1120419090 , -441346054*w + 1627155390 , -3033801288*w + 4203648190 , 923688308*w - 138299658196 , 130240616702 , -319208774*w - 8773348962 , 364758270*w - 
    10178694400 , 388703626*w + 1498761768 , -209487222*w - 1623422318 , 726600790*w + 355302052 , 32161535374*w + 55679175160 ],
[ 177344586*w - 1060316712 , 138210180*w + 120152452 , 60817832*w - 28829584 , 292519562*w + 631449518 , -385472082*w + 9097433814 , 319208774*w - 8773348962 , 715322034 , -71064780*w + 514405542 , 
    -1957596*w - 225954218 , -71289148*w + 83787648 , 8328568*w - 234114594 , -2125554132*w - 4212165412 ],
[ 260610084*w - 733846820 , 9808376*w - 441794388 , 5469200*w - 271327644 , 273485716*w - 1683439422 , 256583728*w + 11088160958 , -364758270*w - 10178694400 , 71064780*w + 514405542 , 1059063670 , 
    -84562140*w + 28677516 , 128671476*w + 266588154 , -171932412*w + 189389172 , -2520919582*w - 3725149330 ],
[ 26600278*w + 218347108 , -114286938*w - 100939902 , -49494478*w - 30052582 , -273981712*w - 778877106 , 442789856*w - 1351361788 , -388703626*w + 1498761768 , 1957596*w - 225954218 , 84562140*w + 28677516 
, 168052724 , 88541590*w - 92588384 , -14662026*w + 284392934 , 283124182*w + 1108071370 ],
[ -67394460*w + 238435260 , 118848588*w - 378441000 , 51253212*w - 163201500 , 615856612*w - 603057000 , -376666836*w + 1687875084 , 209487222*w - 1623422318 , 71289148*w + 83787648 , -128671476*w + 
    266588154 , -88541590*w - 92588384 , 420222894 , -157779672*w - 234584252 , -226445158*w - 621917394 ],
[ 127138980*w + 43932238 , -208416000*w - 101136000 , -89879400*w - 43614900 , -570198700*w - 1282020950 , 844125840*w + 48143354 , -726600790*w + 355302052 , -8328568*w - 234114594 , 171932412*w + 189389172
, 14662026*w + 284392934 , 157779672*w - 234584252 , 545640788 , -107231638*w + 942403350 ],
[ -3699133156*w - 1006543188 , -127285820*w - 1428642502 , -328741582*w + 131702676 , -1481352868*w - 3139068282 , 34356456350*w - 57817922386 , -32161535374*w + 55679175160 , 2125554132*w - 4212165412 , 
    2520919582*w - 3725149330 , -283124182*w + 1108071370 , 226445158*w - 621917394 , 107231638*w + 942403350 , 82813170482 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 40502 , 2460*w - 5138 , 764*w + 6580 , -378*w - 5432 , -1556*w - 1526 , -132*w + 252 , 96*w + 2604 , 478*w + 252 , -20*w + 658 , -548*w + 6860 , 1032*w + 4242 , 6768*w + 10458 ],
[ -2460*w - 5138 , 8134 , -368*w + 4158 , 330*w - 1330 , 222*w + 490 , -54*w - 126 , -368*w - 714 , -270*w + 224 , -24*w - 238 , -288*w - 2212 , -568*w - 784 , -2409*w + 637 ],
[ -764*w + 6580 , 368*w + 4158 , 6510 , -2*w - 3486 , -310*w + 938 , -260*w + 140 , -322*w , -128*w , 0 , 0 , 0 , -174*w + 644 ],
[ 378*w - 5432 , -330*w - 1330 , 2*w - 3486 , 2422 , 230*w + 476 , 130*w - 280 , 176*w - 700 , -66*w - 280 , 40*w - 70 , 200*w - 1120 , -90*w - 840 , -678*w + 98 ],
[ 1556*w - 1526 , -222*w + 490 , 310*w + 938 , -230*w + 476 , 3808 , -150*w - 798 , -116*w - 2100 , -426*w - 784 , 112*w - 196 , 560*w - 3136 , -252*w - 2352 , -1044*w + 630 ],
[ 132*w + 252 , 54*w - 126 , 260*w + 140 , -130*w - 280 , 150*w - 798 , 504 , -22*w + 728 , 78*w + 252 , -24*w + 42 , -120*w + 672 , 54*w + 504 , 249*w - 637 ],
[ -96*w + 2604 , 368*w - 714 , 322*w , -176*w - 700 , 116*w - 2100 , 22*w + 728 , 1904 , 280*w + 700 , -64*w + 196 , -544*w + 2800 , 228*w + 2128 , 1151*w - 945 ],
[ -478*w + 252 , 270*w + 224 , 128*w , 66*w - 280 , 426*w - 784 , -78*w + 252 , -280*w + 700 , 658 , -56*w - 42 , -644*w + 476 , -252*w + 1036 , 556*w + 994 ],
[ 20*w + 658 , 24*w - 238 , 0 , -40*w - 70 , -112*w - 196 , 24*w + 42 , 64*w + 196 , 56*w - 42 , 70 , 2*w + 434 , 86*w + 238 , 115*w - 301 ],
[ 548*w + 6860 , 288*w - 2212 , 0 , -200*w - 1120 , -560*w - 3136 , 120*w + 672 , 544*w + 2800 , 644*w + 476 , -2*w + 434 , 6944 , 1278*w + 3458 , 2072*w - 3850 ],
[ -1032*w + 4242 , 568*w - 784 , 0 , 90*w - 840 , 252*w - 2352 , -54*w + 504 , -228*w + 2128 , 252*w + 1036 , -86*w + 238 , -1278*w + 3458 , 3388 , 1736*w + 700 ],
[ -6768*w + 10458 , 2409*w + 637 , 174*w + 644 , 678*w + 98 , 1044*w + 630 , -249*w - 637 , -1151*w - 945 , -556*w + 994 , -115*w - 301 , -2072*w - 3850 , -1736*w + 700 , 19530 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 9968 , -674*w - 2590 , -236*w + 4802 , -160*w + 1918 , 3562*w - 20328 , -2348*w - 20706 , -6172*w - 8078 , 2056*w + 3024 , -2602*w + 2254 , -1508*w + 2996 , -234*w - 3878 , 9756*w + 11018 ],
[ 674*w - 2590 , 5768 , -40*w - 644 , 106*w - 812 , -4112*w - 588 , 4260*w + 140 , 700*w + 1680 , 12*w - 840 , 246*w + 1008 , 60*w + 252 , 0 , 733*w - 8799 ],
[ 236*w + 4802 , 40*w - 644 , 4368 , -214*w + 1274 , -6*w - 17430 , -324*w - 13734 , -4290*w - 5292 , 1572*w + 2100 , -1980*w + 2100 , -990*w + 2310 , -270*w - 2520 , 7038*w + 1064 ],
[ 160*w + 1918 , -106*w - 812 , 214*w + 1274 , 882 , -84*w - 4116 , -600*w - 5250 , -1580*w - 1820 , 544*w + 700 , -660*w + 700 , -330*w + 770 , -90*w - 840 , 2294*w + 994 ],
[ -3562*w - 20328 , 4112*w - 588 , 6*w - 17430 , 84*w - 4116 , 118888 , -662*w + 5054 , 16596*w + 10948 , -6218*w - 7280 , 7920*w - 8400 , 3960*w - 9240 , 1080*w + 10080 , -37008*w - 1008 ],
[ 2348*w - 20706 , -4260*w + 140 , 324*w - 13734 , 600*w - 5250 , 662*w + 5054 , 169568 , 21058*w + 41272 , -6606*w - 11704 , 8700*w - 5600 , 5750*w - 14350 , 1950*w + 18200 , -23153*w + 301 ],
[ 6172*w - 8078 , -700*w + 1680 , 4290*w - 5292 , 1580*w - 1820 , -16596*w + 10948 , -21058*w + 41272 , 51184 , 192*w - 18452 , 6136*w + 15232 , 4860*w + 5012 , -2844*w + 7336 , -7671*w - 61117 ],
[ -2056*w + 3024 , -12*w - 840 , -1572*w + 2100 , -544*w + 700 , 6218*w - 7280 , 6606*w - 11704 , -192*w - 18452 , 7196 , -2576*w - 5824 , -1684*w - 1652 , 828*w - 2436 , 3191*w + 22197 ],
[ 2602*w + 2254 , -246*w + 1008 , 1980*w + 2100 , 660*w + 700 , -7920*w - 8400 , -8700*w - 5600 , -6136*w + 15232 , 2576*w - 5824 , 11382 , 816*w + 5152 , -1416*w + 336 , 4827*w - 25417 ],
[ 1508*w + 2996 , -60*w + 252 , 990*w + 2310 , 330*w + 770 , -3960*w - 9240 , -5750*w - 14350 , -4860*w + 5012 , 1684*w - 1652 , -816*w + 5152 , 4312 , -1210*w - 1694 , 5016*w - 14378 ],
[ 234*w - 3878 , 0 , 270*w - 2520 , 90*w - 840 , -1080*w + 10080 , -1950*w + 18200 , 2844*w + 7336 , -828*w - 2436 , 1416*w + 336 , 1210*w - 1694 , 3388 , -5588*w - 3570 ],
[ -9756*w + 11018 , -733*w - 8799 , -7038*w + 1064 , -2294*w + 994 , 37008*w - 1008 , 23153*w + 301 , 7671*w - 61117 , -3191*w + 22197 , -4827*w - 25417 , -5016*w - 14378 , 5588*w - 3570 , 115878 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 960190 , -11048*w - 228368 , -4964*w - 5222 , 1624*w - 9408 , 6336*w + 7728 , -564*w + 1008 , -3708*w + 2912 , 1536*w + 5712 , -3234*w - 7364 , 1284*w + 308 , -496*w + 7280 , 63438*w + 106064 ],
[ 11048*w - 228368 , 59472 , 1292*w + 7476 , -382*w + 4074 , -2100*w - 2058 , 36*w - 252 , 1166*w - 728 , -342*w - 1470 , 802*w + 1890 , -320*w - 84 , 124*w - 1820 , -13671*w - 28469 ],
[ 4964*w - 5222 , -1292*w + 7476 , 17654 , -2*w + 12782 , -4232*w - 1778 , -164*w - 280 , 1742*w , 228*w , 0 , 0 , 0 , 1556*w + 6762 ],
[ -1624*w - 9408 , 382*w + 4074 , 2*w + 12782 , 19922 , -4696*w - 5614 , 108*w + 420 , 1846*w + 3920 , 1904*w + 1680 , -2440*w - 1400 , 640*w - 560 , 360*w + 3360 , 3554*w + 7868 ],
[ -6336*w + 7728 , 2100*w - 2058 , 4232*w - 1778 , 4696*w - 5614 , 14028 , -164*w - 658 , -286*w - 6944 , -1042*w - 1568 , 1464*w + 840 , -384*w + 336 , -216*w - 2016 , 1128*w + 126 ],
[ 564*w + 1008 , -36*w - 252 , 164*w - 280 , -108*w + 420 , 164*w - 658 , 252 , -52*w + 644 , 246*w + 252 , -366*w - 210 , 96*w - 84 , 54*w + 504 , 492*w - 602 ],
[ 3708*w + 2912 , -1166*w - 728 , -1742*w , -1846*w + 3920 , 286*w - 6944 , 52*w + 644 , 5068 , 1176*w + 1400 , -1804*w - 896 , 520*w - 560 , 324*w + 3024 , 1380*w - 1092 ],
[ -1536*w + 5712 , 342*w - 1470 , -228*w , -1904*w + 1680 , 1042*w - 1568 , -246*w + 252 , -1176*w + 1400 , 4060 , -312*w - 5544 , 360*w + 1176 , -900*w + 1764 , 1371*w + 7175 ],
[ 3234*w - 7364 , -802*w + 1890 , 0 , 2440*w - 1400 , -1464*w + 840 , 366*w - 210 , 1804*w - 896 , 312*w - 5544 , 7966 , -432*w - 1960 , 1546*w - 1946 , -1479*w - 10871 ],
[ -1284*w + 308 , 320*w - 84 , 0 , -640*w - 560 , 384*w + 336 , -96*w - 84 , -520*w - 560 , -360*w + 1176 , 432*w - 1960 , 728 , -570*w - 238 , -274*w + 3108 ],
[ 496*w + 7280 , -124*w - 1820 , 0 , -360*w + 3360 , 216*w - 2016 , -54*w + 504 , -324*w + 3024 , 900*w + 1764 , -1546*w - 1946 , 570*w - 238 , 3388 , 2416*w + 1204 ],
[ -63438*w + 106064 , 13671*w - 28469 , -1556*w + 6762 , -3554*w + 7868 , -1128*w + 126 , -492*w - 602 , -1380*w - 1092 , -1371*w + 7175 , 1479*w - 10871 , 274*w + 3108 , -2416*w + 1204 , 60284 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 73402 , -1323*w - 511 , 1706*w + 14 , 6048*w + 22316 , 1599*w + 7875 , -6870*w - 41412 , 29171*w - 20881 , -5469*w + 6461 , -7347*w - 19985 , -12818*w - 49308 , 15244*w - 4228 , 17708*w + 7154 ],
[ 1323*w - 511 , 3206 , 478*w + 14 , 1514*w - 5404 , 408*w - 1764 , -1654*w + 5208 , -2848*w - 12670 , 794*w + 2534 , -392*w + 3878 , -2000*w + 5404 , -528*w - 4928 , 200*w + 980 ],
[ -1706*w + 14 , -478*w + 14 , 4480 , 842*w + 3990 , 80*w + 798 , 1130*w - 3038 , 1848*w + 1680 , -358*w - 224 , -288*w - 1736 , -176*w - 3416 , 816*w + 840 , 192*w + 4858 ],
[ -6048*w + 22316 , -1514*w - 5404 , -842*w + 3990 , 28546 , 278*w + 9296 , -700*w - 31934 , 20574*w + 17136 , -4482*w - 2240 , -2880*w - 17360 , -1760*w - 34160 , 8160*w + 8400 , 2126*w + 7980 ],
[ -1599*w + 7875 , -408*w - 1764 , -80*w + 798 , -278*w + 9296 , 3388 , -280*w - 12110 , 6694*w + 5852 , -1464*w - 812 , -936*w - 5642 , -572*w - 11102 , 2652*w + 2730 , 972*w + 1036 ],
[ 6870*w - 41412 , 1654*w + 5208 , -1130*w - 3038 , 700*w - 31934 , 280*w - 12110 , 55384 , -28714*w - 23968 , 5930*w + 2912 , 3096*w + 27202 , 2732*w + 56462 , -13532*w - 13930 , -8158*w - 2562 ],
[ -29171*w - 20881 , 2848*w - 12670 , -1848*w + 1680 , -20574*w + 17136 , -6694*w + 5852 , 28714*w - 23968 , 147952 , -1472*w - 30436 , 15232*w - 29652 , 33912*w - 37884 , -2560*w + 65324 , -3024*w + 31682 
],
[ 5469*w + 6461 , -794*w + 2534 , 358*w - 224 , 4482*w - 2240 , 1464*w - 812 , -5930*w + 2912 , 1472*w - 30436 , 6580 , -3112*w + 5348 , -6696*w + 4760 , 1136*w - 11984 , 1004*w - 5530 ],
[ 7347*w - 19985 , 392*w + 3878 , 288*w - 1736 , 2880*w - 17360 , 936*w - 5642 , -3096*w + 27202 , -15232*w - 29652 , 3112*w + 5348 , 20902 , -848*w + 38248 , -8278*w - 13454 , -3570*w - 6664 ],
[ 12818*w - 49308 , 2000*w + 5404 , 176*w - 3416 , 1760*w - 34160 , 572*w - 11102 , -2732*w + 56462 , -33912*w - 37884 , 6696*w + 4760 , 848*w + 38248 , 81312 , -18334*w - 25998 , -9196*w - 13244 ],
[ -15244*w - 4228 , 528*w - 4928 , -816*w + 840 , -8160*w + 8400 , -2652*w + 2730 , 13532*w - 13930 , 2560*w + 65324 , -1136*w - 11984 , 8278*w - 13454 , 18334*w - 25998 , 37268 , -28*w + 18872 ],
[ -17708*w + 7154 , -200*w + 980 , -192*w + 4858 , -2126*w + 7980 , -972*w + 1036 , 8158*w - 2562 , 3024*w + 31682 , -1004*w - 5530 , 3570*w - 6664 , 9196*w - 13244 , 28*w + 18872 , 42728 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 73303524 , -77532*w - 18587268 , 182076*w + 1120420 , -121492*w + 2981622 , 4664*w + 609112 , -252700*w - 59696 , 287564*w + 151830 , 4084*w - 13258 , 8312*w + 63154 , 998*w - 4830 , -11708*w - 57582 , 
    5961000*w + 11505872 ],
[ 77532*w - 18587268 , 4737208 , -27816*w - 315896 , 90100*w - 781970 , 7806*w - 146552 , 65412*w + 12614 , -76218*w - 34398 , -1052*w + 3150 , -3222*w - 22596 , -534*w + 2436 , 5778*w + 17430 , -1507666*w -
    3002146 ],
[ -182076*w + 1120420 , 27816*w - 315896 , 237580 , -64838*w + 299236 , -17368*w - 10752 , -3968*w - 840 , 2300*w + 2240 , 364*w , 168*w , -36*w , 0 , 99806*w + 294602 ],
[ 121492*w + 2981622 , -90100*w - 781970 , 64838*w + 299236 , 1293376 , -30420*w + 224756 , -3432*w + 14224 , 312*w + 8064 , 356*w - 5040 , 56*w , -12*w , 0 , 370274*w + 355208 ],
[ -4664*w + 609112 , -7806*w - 146552 , 17368*w - 10752 , 30420*w + 224756 , 113694 , -110*w - 13552 , 23142*w - 71792 , -776*w + 6244 , 38880*w + 28560 , -2880*w - 20160 , -37080*w + 60480 , 80334*w + 13860
],
[ 252700*w - 59696 , -65412*w + 12614 , 3968*w - 840 , 3432*w + 14224 , 110*w - 13552 , 56840 , 7306*w - 91098 , -234*w + 1470 , 12312*w + 5124 , -912*w - 5544 , -11742*w + 19152 , 43862*w - 167314 ],
[ -287564*w + 151830 , 76218*w - 34398 , -2300*w + 2240 , -312*w + 8064 , -23142*w - 71792 , -7306*w - 91098 , 505540 , -2964*w - 26096 , -142408*w + 112168 , 23216*w + 47670 , 74618*w - 376432 , -53412*w + 
    465388 ],
[ -4084*w - 13258 , 1052*w + 3150 , -364*w , -356*w - 5040 , 776*w + 6244 , 234*w + 1470 , 2964*w - 26096 , 1848 , 9452*w + 112 , -1096*w - 4074 , -7102*w + 19544 , 1024*w - 16198 ],
[ -8312*w + 63154 , 3222*w - 22596 , -168*w , -56*w , -38880*w + 28560 , -12312*w + 5124 , 142408*w + 112168 , -9452*w + 112 , 349006 , 21376*w - 40628 , -103270*w - 261408 , 91364*w + 127708 ],
[ -998*w - 4830 , 534*w + 2436 , 36*w , 12*w , 2880*w - 20160 , 912*w - 5544 , -23216*w + 47670 , 1096*w - 4074 , -21376*w - 40628 , 13902 , 28036*w - 13888 , -17676*w + 24304 ],
[ 11708*w - 57582 , -5778*w + 17430 , 0 , 0 , 37080*w + 60480 , 11742*w + 19152 , -74618*w - 376432 , 7102*w + 19544 , 103270*w - 261408 , -28036*w - 13888 , 409948 , -34948*w - 282436 ],
[ -5961000*w + 11505872 , 1507666*w - 3002146 , -99806*w + 294602 , -370274*w + 355208 , -80334*w + 13860 , -43862*w - 167314 , 53412*w + 465388 , -1024*w - 16198 , -91364*w + 127708 , 17676*w + 24304 , 
    34948*w - 282436 , 5474378 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 158970 , 25026*w - 170310 , 10500*w - 67732 , -3079*w + 259 , -3710*w - 4564 , 17*w - 1127 , 375*w + 987 , 541*w - 3493 , -3105*w - 20727 , -14988*w + 3318 , 7280*w - 20706 , -12972*w - 60158 ],
[ -25026*w - 170310 , 339178 , 4702*w + 158270 , 3414*w - 12572 , 10580*w - 6356 , 589*w + 1743 , -1558*w - 560 , 1334*w + 7294 , 17139*w + 14595 , 18096*w - 71862 , 3478*w + 60438 , 48721*w + 95823 ],
[ -10500*w - 67732 , -4702*w + 158270 , 78820 , 2008*w - 6622 , 5370*w - 2968 , 417*w + 861 , -672*w - 364 , 620*w + 3822 , 8461*w + 8981 , 10140*w - 34622 , 936*w + 30912 , 21837*w + 51919 ],
[ 3079*w + 259 , -3414*w - 12572 , -2008*w - 6622 , 3066 , -536*w - 406 , -170*w - 112 , 18*w + 252 , -276*w - 700 , -2248*w - 728 , -1644*w + 9716 , -892*w - 7196 , -1538*w - 1554 ],
[ 3710*w - 4564 , -10580*w - 6356 , -5370*w - 2968 , 536*w - 406 , 7056 , -122*w + 742 , 106*w - 756 , -300*w + 868 , 434*w + 6258 , 4760*w + 952 , -2614*w + 5530 , -5104*w + 9044 ],
[ -17*w - 1127 , -589*w + 1743 , -417*w + 861 , 170*w - 112 , 122*w + 742 , 336 , 84 , -22*w + 196 , 134*w + 630 , 524*w - 308 , -214*w + 826 , 28*w + 182 ],
[ -375*w + 987 , 1558*w - 560 , 672*w - 364 , -18*w + 252 , -106*w - 756 , 84 , 252 , 12*w - 140 , -224*w - 896 , -700*w + 756 , 228*w - 1260 , 600*w - 2562 ],
[ -541*w - 3493 , -1334*w + 7294 , -620*w + 3822 , 276*w - 700 , 300*w + 868 , 22*w + 196 , -12*w - 140 , 434 , 632*w + 1778 , 1496*w - 2072 , -408*w + 2968 , 304*w + 3346 ],
[ 3105*w - 20727 , -17139*w + 14595 , -8461*w + 8981 , 2248*w - 728 , -434*w + 6258 , -134*w + 630 , 224*w - 896 , -632*w + 1778 , 15974 , 10360*w + 9016 , -7080*w + 8456 , -5106*w + 17794 ],
[ 14988*w + 3318 , -18096*w - 71862 , -10140*w - 34622 , 1644*w + 9716 , -4760*w + 952 , -524*w - 308 , 700*w + 756 , -1496*w - 2072 , -10360*w + 9016 , 53648 , -9776*w - 28000 , -14596*w - 15092 ],
[ -7280*w - 20706 , -3478*w + 60438 , -936*w + 30912 , 892*w - 7196 , 2614*w + 5530 , 214*w + 826 , -228*w - 1260 , 408*w + 2968 , 7080*w + 8456 , 9776*w - 28000 , 27104 , 4878*w + 26306 ],
[ 12972*w - 60158 , -48721*w + 95823 , -21837*w + 51919 , 1538*w - 1554 , 5104*w + 9044 , -28*w + 182 , -600*w - 2562 , -304*w + 3346 , 5106*w + 17794 , 14596*w - 15092 , -4878*w + 26306 , 89670 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 7560 , -108*w + 868 , -106*w - 238 , -1878*w + 12180 , -510*w + 3990 , 6*w + 14 , -200*w + 70 , -340*w + 210 , 166*w - 1092 , -224*w - 294 , -46*w - 238 , 178*w + 2422 ],
[ 108*w + 868 , 1666 , -88*w + 812 , -911*w + 2667 , -283*w + 833 , 16*w , 0 , -56*w , -8*w , -24*w + 84 , 0 , 66*w + 630 ],
[ 106*w - 238 , 88*w + 812 , 1162 , 204*w + 3514 , 92*w + 1022 , -4*w + 56 , -102*w + 112 , -20*w , 0 , 0 , 0 , 246*w + 420 ],
[ 1878*w + 12180 , 911*w + 2667 , -204*w + 3514 , 47026 , 346*w + 15134 , 68*w + 238 , -602*w + 1400 , -1044*w + 420 , 159*w + 5229 , 894*w + 3108 , 372*w + 546 , 4129*w + 5649 ],
[ 510*w + 3990 , 283*w + 833 , -92*w + 1022 , -346*w + 15134 , 5096 , 18*w + 42 , -182*w + 476 , -440*w - 308 , -331*w + 4291 , 568*w + 2632 , 244*w + 686 , 1849*w + 2289 ],
[ -6*w + 14 , -16*w , 4*w + 56 , -68*w + 238 , -18*w + 42 , 42 , -28*w + 112 , -6*w + 28 , 0 , 0 , 0 , 42*w + 154 ],
[ 200*w + 70 , 0 , 102*w + 112 , 602*w + 1400 , 182*w + 476 , 28*w + 112 , 826 , -120*w - 98 , -480*w + 3220 , 390*w + 2100 , 150*w + 630 , 1092*w + 588 ],
[ 340*w + 210 , 56*w , 20*w , 1044*w + 420 , 440*w - 308 , 6*w + 28 , 120*w - 98 , 1498 , 2504*w - 3500 , 550*w - 4620 , 86*w - 1610 , -732*w - 3920 ],
[ -166*w - 1092 , 8*w , 0 , -159*w + 5229 , 331*w + 4291 , 0 , 480*w + 3220 , -2504*w - 3500 , 52542 , 9470*w + 23604 , 3474*w + 6706 , 12116*w - 3192 ],
[ 224*w - 294 , 24*w + 84 , 0 , -894*w + 3108 , -568*w + 2632 , 0 , -390*w + 2100 , -550*w - 4620 , -9470*w + 23604 , 22638 , 352*w + 7392 , 6088*w + 14000 ],
[ 46*w - 238 , 0 , 0 , -372*w + 546 , -244*w + 686 , 0 , -150*w + 630 , -86*w - 1610 , -3474*w + 6706 , -352*w + 7392 , 2464 , 1754*w + 5194 ],
[ -178*w + 2422 , -66*w + 630 , -246*w + 420 , -4129*w + 5649 , -1849*w + 2289 , -42*w + 154 , -1092*w + 588 , 732*w - 3920 , -12116*w - 3192 , -6088*w + 14000 , -1754*w + 5194 , 22400 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 16128 , -436*w - 27482 , -564*w - 6608 , -154*w - 112 , -1288*w + 5964 , 2578*w - 41062 , 5366*w - 51870 , 40*w - 56 , -1756*w - 224 , 5072*w - 2716 , -2440*w + 8848 , -9004*w - 21896 ],
[ 436*w - 27482 , 51982 , 612*w + 13286 , 226*w + 448 , 3152*w - 11592 , -5011*w + 71673 , -10523*w + 93177 , -104*w + 112 , 3424*w + 448 , -10168*w + 5432 , 4880*w - 17696 , 16082*w + 39970 ],
[ 564*w - 6608 , -612*w + 13286 , 4452 , 86*w + 378 , 1166*w - 4200 , -1656*w + 16268 , -3166*w + 22078 , -56*w + 28 , 856*w + 112 , -2542*w + 1358 , 1220*w - 4424 , 3628*w + 10108 ],
[ 154*w - 112 , -226*w + 448 , -86*w + 378 , 126 , 294*w - 490 , -349*w - 7 , -449*w + 147 , 2*w , 0 , 0 , 0 , -138*w + 616 ],
[ 1288*w + 5964 , -3152*w - 11592 , -1166*w - 4200 , -294*w - 490 , 15512 , -2030*w - 11396 , -1874*w - 26642 , 38*w , -1770*w + 1680 , 4560*w - 11340 , -420*w + 13020 , -6724*w - 2436 ],
[ -2578*w - 41062 , 5011*w + 71673 , 1656*w + 16268 , 349*w - 7 , 2030*w - 11396 , 122402 , -5459*w + 148337 , -90*w - 350 , 4048*w - 840 , -11189*w + 9051 , 4752*w - 21406 , 28254*w + 51254 ],
[ -5366*w - 51870 , 10523*w + 93177 , 3166*w + 22078 , 449*w + 147 , 1874*w - 26642 , 5459*w + 148337 , 199962 , -200*w - 238 , 7438*w - 4704 , -19789*w + 31479 , 5316*w - 46634 , 41676*w + 52962 ],
[ -40*w - 56 , 104*w + 112 , 56*w + 28 , -2*w , -38*w , 90*w - 350 , 200*w - 238 , 42 , -16*w - 154 , 108*w + 294 , -124*w - 28 , -56*w - 504 ],
[ 1756*w - 224 , -3424*w + 448 , -856*w + 112 , 0 , 1770*w + 1680 , -4048*w - 840 , -7438*w - 4704 , 16*w - 154 , 4060 , -1970*w - 11956 , 3546*w + 4298 , -2438*w + 11732 ],
[ -5072*w - 2716 , 10168*w + 5432 , 2542*w + 1358 , 0 , -4560*w - 11340 , 11189*w + 9051 , 19789*w + 31479 , -108*w + 294 , 1970*w - 11956 , 43526 , -8668*w - 25564 , 11714*w - 28826 ],
[ 2440*w + 8848 , -4880*w - 17696 , -1220*w - 4424 , 0 , 420*w + 13020 , -4752*w - 21406 , -5316*w - 46634 , 124*w - 28 , -3546*w + 4298 , 8668*w - 25564 , 27104 , -12704*w + 420 ],
[ 9004*w - 21896 , -16082*w + 39970 , -3628*w + 10108 , 138*w + 616 , 6724*w - 2436 , -28254*w + 51254 , -41676*w + 52962 , 56*w - 504 , 2438*w + 11732 , -11714*w - 28826 , 12704*w + 420 , 78260 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 8722 , 580*w + 1442 , 82*w + 616 , 291*w + 637 , 660*w - 854 , -89*w - 217 , -98*w - 266 , 27*w - 847 , 138*w - 1162 , -898*w - 2646 , -1128*w - 210 , 6125*w + 7413 ],
[ -580*w + 1442 , 6650 , -90*w - 1932 , 18*w + 280 , 216*w - 112 , -8*w - 70 , -13*w - 77 , 30*w - 224 , 73*w - 287 , -176*w - 882 , -298*w - 266 , 1475*w + 5761 ],
[ -82*w + 616 , 90*w - 1932 , 854 , 18*w + 98 , 60*w + 294 , -2*w , -38*w - 56 , 16*w - 56 , 52*w - 28 , 20*w - 364 , -60*w - 252 , 98*w + 532 ],
[ -291*w + 637 , -18*w + 280 , -18*w + 98 , 210 , 60*w + 98 , -6*w - 28 , 18*w - 56 , 36*w - 56 , 52*w - 28 , 20*w - 364 , -60*w - 252 , 186*w + 1946 ],
[ -660*w - 854 , -216*w - 112 , -60*w + 294 , -60*w + 98 , 1568 , 42*w + 154 , -78*w - 140 , 100*w + 140 , 180*w + 420 , 640*w - 560 , 270*w - 1330 , -1498*w + 3822 ],
[ 89*w - 217 , 8*w - 70 , 2*w , 6*w - 28 , -42*w + 154 , 84 , -10*w + 56 , -2*w + 84 , -16*w + 112 , 108*w + 252 , 114*w - 14 , -212*w - 546 ],
[ 98*w - 266 , 13*w - 77 , 38*w - 56 , -18*w - 56 , 78*w - 140 , 10*w + 56 , 336 , -24*w + 140 , -52*w + 28 , -20*w + 364 , 60*w + 252 , -57*w - 1015 ],
[ -27*w - 847 , -30*w - 224 , -16*w - 56 , -36*w - 56 , -100*w + 140 , 2*w + 84 , 24*w + 140 , 210 , -40*w + 238 , 200*w + 616 , 248*w + 56 , -798*w - 882 ],
[ -138*w - 1162 , -73*w - 287 , -52*w - 28 , -52*w - 28 , -180*w + 420 , 16*w + 112 , 52*w + 28 , 40*w + 238 , 406 , 392*w + 504 , 344*w - 280 , -1273*w - 259 ],
[ 898*w - 2646 , 176*w - 882 , -20*w - 364 , -20*w - 364 , -640*w - 560 , -108*w + 252 , 20*w + 364 , -200*w + 616 , -392*w + 504 , 3696 , 800*w + 2128 , -1546*w - 9184 ],
[ 1128*w - 210 , 298*w - 266 , 60*w - 252 , 60*w - 252 , -270*w - 1330 , -114*w - 14 , -60*w + 252 , -248*w + 56 , -344*w - 280 , -800*w + 2128 , 2464 , 1080*w - 7840 ],
[ -6125*w + 7413 , -1475*w + 5761 , -98*w + 532 , -186*w + 1946 , 1498*w + 3822 , 212*w - 546 , 57*w - 1015 , 798*w - 882 , 1273*w - 259 , 1546*w - 9184 , -1080*w - 7840 , 41440 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 25760 , -8993*w - 161959 , -3241*w - 51247 , 404*w + 1344 , -2472*w + 2016 , -470*w + 3402 , 824*w - 1190 , 1494*w + 2086 , -96*w - 2730 , 332*w - 952 , 1000*w - 2884 , -10930*w - 10850 ],
[ 8993*w - 161959 , 1153264 , 2241*w + 359723 , -2902*w - 15848 , 15804*w - 14448 , -1761*w - 25515 , -5871*w + 8925 , -11409*w - 15435 , 735*w + 20391 , -2484*w + 7098 , -7500*w + 21630 , 70422*w + 109144 
],
[ 3241*w - 51247 , -2241*w + 359723 , 113260 , -962*w - 3668 , 5484*w - 5516 , 625*w - 8589 , -1981*w + 2975 , -3735*w - 5145 , 245*w + 6797 , -828*w + 2366 , -2500*w + 7210 , 22054*w + 33950 ],
[ -404*w + 1344 , 2902*w - 15848 , 962*w - 3668 , 2730 , -72*w - 3178 , 1286*w - 1582 , 8*w + 672 , -330*w + 588 , 276*w + 336 , 48*w + 336 , 108*w + 1008 , -432*w - 4242 ],
[ 2472*w + 2016 , -15804*w - 14448 , -5484*w - 5516 , 72*w - 3178 , 11032 , -550*w + 7826 , -22*w - 2940 , 1634*w - 2352 , -1104*w - 1344 , -192*w - 1344 , -432*w - 4032 , -1914*w + 8624 ],
[ 470*w + 3402 , 1761*w - 25515 , -625*w - 8589 , -1286*w - 1582 , 550*w + 7826 , 12152 , -4*w - 2128 , 1184*w - 1246 , -782*w - 952 , -136*w - 952 , -306*w - 2856 , -326*w + 574 ],
[ -824*w - 1190 , 5871*w + 8925 , 1981*w + 2975 , -8*w + 672 , 22*w - 2940 , 4*w - 2128 , 1050 , -560*w + 1036 , 404*w + 490 , 52*w + 532 , 180*w + 1680 , 970*w - 2716 ],
[ -1494*w + 2086 , 11409*w - 15435 , 3735*w - 5145 , 330*w + 588 , -1634*w - 2352 , -1184*w - 1246 , 560*w + 1036 , 3668 , 674*w - 1134 , 312*w + 280 , 1038*w + 1218 , -454*w - 6874 ],
[ 96*w - 2730 , -735*w + 20391 , -245*w + 6797 , -276*w + 336 , 1104*w - 1344 , 782*w - 952 , -404*w + 490 , -674*w - 1134 , 1386 , -186*w + 406 , -588*w + 1288 , 1536*w + 1484 ],
[ -332*w - 952 , 2484*w + 7098 , 828*w + 2366 , -48*w + 336 , 192*w - 1344 , 136*w - 952 , -52*w + 532 , -312*w + 280 , 186*w + 406 , 336 , 46*w + 994 , 664*w - 980 ],
[ -1000*w - 2884 , 7500*w + 21630 , 2500*w + 7210 , -108*w + 1008 , 432*w - 4032 , 306*w - 2856 , -180*w + 1680 , -1038*w + 1218 , 588*w + 1288 , -46*w + 994 , 3388 , 2062*w - 3038 ],
[ 10930*w - 10850 , -70422*w + 109144 , -22054*w + 33950 , 432*w - 4242 , 1914*w + 8624 , 326*w + 574 , -970*w - 2716 , 454*w - 6874 , -1536*w + 1484 , -664*w - 980 , -2062*w - 3038 , 42854 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 125398 , 8761*w - 4725 , -16322*w + 9730 , -127142*w + 88760 , 90996*w - 62762 , -20628*w - 177380 , 7343*w - 159999 , 26727*w + 19971 , -6937*w - 21147 , 22466*w - 11466 , 3260*w - 52374 , -73177*w + 
    43659 ],
[ -8761*w - 4725 , 8848 , 472*w - 5572 , -16580*w - 71610 , -3754*w + 45206 , 14706*w - 2758 , 9926*w + 8652 , -2136*w + 11508 , 1734*w - 3108 , -120*w + 10122 , 3060*w + 3150 , -6846*w - 31892 ],
[ 16322*w + 9730 , -472*w - 5572 , 28672 , 1582*w + 130774 , -5790*w - 103362 , -29106*w - 2982 , -25602*w - 32172 , 5492*w - 26460 , -4620*w + 4900 , 420*w - 23030 , -7140*w - 7350 , -3058*w + 60088 ],
[ 127142*w + 88760 , 16580*w - 71610 , -1582*w + 130774 , 1870162 , 6580*w - 501368 , -197660*w - 110950 , -162116*w - 155652 , 37712*w - 173180 , -31020*w + 32900 , 2820*w - 154630 , -47940*w - 49350 , 
    67864*w + 785610 ],
[ -90996*w - 62762 , 3754*w + 45206 , 5790*w - 103362 , -6580*w - 501368 , 817376 , 176798*w - 63714 , 136432*w + 216244 , -42410*w + 182448 , 25320*w - 19600 , -520*w + 177380 , 56440*w + 58100 , -11932*w -
    325752 ],
[ 20628*w - 177380 , -14706*w - 2758 , 29106*w - 2982 , 197660*w - 110950 , -176798*w - 63714 , 382592 , -49786*w + 286888 , -42502*w - 73892 , 9708*w + 51296 , -40276*w - 17962 , -17156*w + 80990 , 100880*w
    - 15288 ],
[ -7343*w - 159999 , -9926*w + 8652 , 25602*w - 32172 , 162116*w - 155652 , -136432*w + 216244 , 49786*w + 286888 , 313936 , -46576*w + 756 , 16440*w + 38528 , -30064*w + 39620 , 4768*w + 77252 , 79484*w - 
    72926 ],
[ -26727*w + 19971 , 2136*w + 11508 , -5492*w - 26460 , -37712*w - 173180 , 42410*w + 182448 , 42502*w - 73892 , 46576*w + 756 , 62972 , 5840*w - 14784 , 10352*w + 43232 , 17236*w - 9660 , -26390*w - 89516 
],
[ 6937*w - 21147 , -1734*w - 3108 , 4620*w + 4900 , 31020*w + 32900 , -25320*w - 19600 , -9708*w + 51296 , -16440*w + 38528 , -5840*w - 14784 , 11382 , -5064*w - 4144 , -2496*w + 10584 , 12718*w + 14280 ],
[ -22466*w - 11466 , 120*w + 10122 , -420*w - 23030 , -2820*w - 154630 , 520*w + 177380 , 40276*w - 17962 , 30064*w + 39620 , -10352*w + 43232 , 5064*w - 4144 , 44968 , 14278*w + 15246 , -6218*w - 100016 ],
[ -3260*w - 52374 , -3060*w + 3150 , 7140*w - 7350 , 47940*w - 49350 , -56440*w + 58100 , 17156*w + 80990 , -4768*w + 77252 , -17236*w - 9660 , 2496*w + 10584 , -14278*w + 15246 , 37268 , 28980*w - 46242 ],
[ 73177*w + 43659 , 6846*w - 31892 , 3058*w + 60088 , -67864*w + 785610 , 11932*w - 325752 , -100880*w - 15288 , -79484*w - 72926 , 26390*w - 89516 , -12718*w + 14280 , 6218*w - 100016 , -28980*w - 46242 , 
    478548 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 16044 , -1260*w + 4508 , 640*w - 2408 , 156*w - 168 , 8*w , -4*w , -12*w , 34*w - 252 , -6*w + 56 , 4*w - 28 , 0 , -6615*w - 9891 ],
[ 1260*w + 4508 , 12404 , -50*w - 11564 , -2*w - 2814 , 360*w + 210 , 600*w , 90*w , -60*w , 0 , 0 , 0 , -469*w + 4403 ],
[ -640*w - 2408 , 50*w - 11564 , 26320 , -2*w + 15834 , -392*w - 2912 , -2820*w - 350 , -98*w , 282*w , 0 , 0 , 0 , -720*w + 14 ],
[ -156*w - 168 , 2*w - 2814 , 2*w + 15834 , 19922 , 216*w - 2534 , -2240*w - 700 , 54*w - 5040 , 2744*w + 1960 , -440*w , -320*w + 2800 , 360*w + 3360 , 2006*w + 1540 ],
[ -8*w , -360*w + 210 , 392*w - 2912 , -216*w - 2534 , 1204 , 476*w + 70 , -22*w - 392 , 206*w + 196 , -44*w , -32*w + 280 , 36*w + 336 , 254*w + 350 ],
[ 4*w , -600*w , 2820*w - 350 , 2240*w - 700 , -476*w + 70 , 2828 , -4*w + 252 , -132*w - 378 , 22*w , 16*w - 140 , -18*w - 168 , 206*w + 742 ],
[ 12*w , -90*w , 98*w , -54*w - 5040 , 22*w - 392 , 4*w + 252 , 5964 , -2268*w - 1624 , 356*w - 140 , 488*w - 3360 , -444*w - 4144 , -2148*w + 224 ],
[ -34*w - 252 , 60*w , -282*w , -2744*w + 1960 , -206*w + 196 , 132*w - 378 , 2268*w - 1624 , 8666 , -158*w - 1400 , -1352*w - 112 , -1398*w + 2198 , 688*w + 7112 ],
[ 6*w + 56 , 0 , 0 , 440*w , 44*w , -22*w , -356*w - 140 , 158*w - 1400 , 266 , 170*w + 210 , 236*w - 56 , 33*w - 1239 ],
[ -4*w - 28 , 0 , 0 , 320*w + 2800 , 32*w + 280 , -16*w - 140 , -488*w - 3360 , 1352*w - 112 , -170*w + 210 , 2408 , 662*w + 2226 , 1154*w - 1176 ],
[ 0 , 0 , 0 , -360*w + 3360 , -36*w + 336 , 18*w - 168 , 444*w - 4144 , 1398*w + 2198 , -236*w - 56 , -662*w + 2226 , 3388 , 1472*w + 868 ],
[ 6615*w - 9891 , 469*w + 4403 , 720*w + 14 , -2006*w + 1540 , -254*w + 350 , -206*w + 742 , 2148*w + 224 , -688*w + 7112 , -33*w - 1239 , -1154*w - 1176 , -1472*w + 868 , 37534 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 86296 , 9058*w + 129136 , 359*w + 23695 , -135*w - 2359 , -1174*w - 4088 , 334*w + 868 , 361*w + 2597 , -1452*w + 12726 , 457*w - 903 , 2902*w - 406 , 5374*w - 1484 , 33034*w + 67760 ],
[ -9058*w + 129136 , 221774 , -320*w + 41930 , -98*w - 2772 , -1376*w - 5824 , -664*w + 2016 , -148*w + 3696 , -16*w + 18368 , 700*w - 1680 , 3924*w - 3808 , 6880*w - 8064 , 42552*w + 128100 ],
[ -359*w + 23695 , 320*w + 41930 , 25844 , -212*w - 854 , -2022*w - 378 , 1462*w + 602 , 1524*w + 462 , -254*w + 2296 , 90*w - 210 , 492*w - 476 , 860*w - 1008 , 10524*w + 18354 ],
[ 135*w - 2359 , 98*w - 2772 , 212*w - 854 , 616 , -18*w + 798 , 22*w - 714 , -66*w - 112 , 14*w , 0 , 0 , 0 , -1088*w - 2898 ],
[ 1174*w - 4088 , 1376*w - 5824 , 2022*w - 378 , 18*w + 798 , 2394 , 64*w - 2016 , 30*w - 1204 , -4*w + 168 , 0 , 0 , 0 , -1122*w - 8246 ],
[ -334*w + 868 , 664*w + 2016 , -1462*w + 602 , -22*w - 714 , -64*w - 2016 , 4522 , 32*w + 1708 , 1194*w - 6720 , -200*w , -1600*w - 840 , -3100*w - 700 , 1906*w + 3136 ],
[ -361*w + 2597 , 148*w + 3696 , -1524*w + 462 , 66*w - 112 , -30*w - 1204 , -32*w + 1708 , 1386 , 240*w - 1428 , -40*w - 70 , -320*w - 210 , -620*w - 140 , 1094*w + 3962 ],
[ 1452*w + 12726 , 16*w + 18368 , 254*w + 2296 , -14*w , 4*w + 168 , -1194*w - 6720 , -240*w - 1428 , 21770 , 508*w - 826 , 4640*w - 3262 , 8582*w - 8554 , 1878*w + 9926 ],
[ -457*w - 903 , -700*w - 1680 , -90*w - 210 , 0 , 0 , 200*w , 40*w - 70 , -508*w - 826 , 140 , -96*w + 896 , -118*w + 1722 , -638*w - 238 ],
[ -2902*w - 406 , -3924*w - 3808 , -492*w - 476 , 0 , 0 , 1600*w - 840 , 320*w - 210 , -4640*w - 3262 , 96*w + 896 , 7434 , 544*w + 14112 , -2682*w + 770 ],
[ -5374*w - 1484 , -6880*w - 8064 , -860*w - 1008 , 0 , 0 , 3100*w - 700 , 620*w - 140 , -8582*w - 8554 , 118*w + 1722 , -544*w + 14112 , 27104 , -4786*w + 294 ],
[ -33034*w + 67760 , -42552*w + 128100 , -10524*w + 18354 , 1088*w - 2898 , 1122*w - 8246 , -1906*w + 3136 , -1094*w + 3962 , -1878*w + 9926 , 638*w - 238 , 2682*w + 770 , 4786*w + 294 , 151326 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 10710 , 239*w - 4515 , -218*w - 756 , -104*w - 84 , 206*w + 14 , -138*w - 42 , -77*w - 35 , -254*w - 378 , -27*w - 133 , 66*w - 252 , -16*w - 252 , 516*w + 1610 ],
[ -239*w - 4515 , 2170 , 72*w + 210 , 28*w - 56 , -40*w , 24*w , 16*w , 20*w , 4*w , -8*w + 56 , 0 , -342*w - 868 ],
[ 218*w - 756 , -72*w + 210 , 294 , 2*w + 140 , 42 , 18*w , 6*w , 12*w , 0 , 0 , 0 , 72*w - 42 ],
[ 104*w - 84 , -28*w - 56 , -2*w + 140 , 98 , 112 , 8*w - 14 , -6*w , 14*w , 0 , 0 , 0 , 54*w + 42 ],
[ -206*w + 14 , 40*w , 42 , 112 , 868 , -18*w - 294 , -58*w - 140 , 40*w - 700 , 30*w - 140 , 70*w + 70 , 60*w - 210 , 174*w - 252 ],
[ 138*w - 42 , -24*w , -18*w , -8*w - 14 , 18*w - 294 , 168 , 10*w + 112 , -6*w + 420 , -18*w + 84 , -42*w - 42 , -36*w + 126 , -144*w + 168 ],
[ 77*w - 35 , -16*w , -6*w , 6*w , 58*w - 140 , -10*w + 112 , 112 , 252 , -12*w + 56 , -28*w - 28 , -24*w + 84 , -112*w + 126 ],
[ 254*w - 378 , -20*w , -12*w , -14*w , -40*w - 700 , 6*w + 420 , 252 , 1778 , -80*w + 350 , -140*w - 140 , -160*w + 560 , -542*w + 252 ],
[ 27*w - 133 , -4*w , 0 , 0 , -30*w - 140 , 18*w + 84 , 12*w + 56 , 80*w + 350 , 98 , -34*w + 14 , -4*w + 168 , -98*w + 224 ],
[ -66*w - 252 , 8*w + 56 , 0 , 0 , -70*w + 70 , 42*w - 42 , 28*w - 28 , 140*w - 140 , 34*w + 14 , 112 , 54*w + 42 , 74*w + 294 ],
[ 16*w - 252 , 0 , 0 , 0 , -60*w - 210 , 36*w + 126 , 24*w + 84 , 160*w + 560 , 4*w + 168 , -54*w + 42 , 308 , -150*w + 420 ],
[ -516*w + 1610 , 342*w - 868 , -72*w - 42 , -54*w + 42 , -174*w - 252 , 144*w + 168 , 112*w + 126 , 542*w + 252 , 98*w + 224 , -74*w + 294 , 150*w + 420 , 2478 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 978110 , -29458*w - 332584 , 3712*w + 51450 , 17080*w - 112672 , 25031*w + 1480031 , -14138*w + 105812 , -13819*w + 418243 , -77676*w + 110908 , 14682*w - 9492 , 74214*w - 322686 , -65508*w - 259672 , 
    -595780*w - 730212 ],
[ 29458*w - 332584 , 122934 , 582*w - 18578 , -10570*w + 41188 , 36131*w - 501053 , 8532*w - 33124 , 17935*w - 138173 , 30288*w - 16128 , -5136*w - 672 , -37212*w + 87780 , 11904*w + 104328 , 180280*w + 
    371896 ],
[ -3712*w + 51450 , -582*w - 18578 , 3318 , 482*w - 5460 , -2761*w + 78715 , -1210*w + 5348 , -2129*w + 21777 , -5022*w + 2688 , 856*w + 112 , 6202*w - 14630 , -1984*w - 17388 , -29486*w - 49952 ],
[ -17080*w - 112672 , 10570*w + 41188 , -482*w - 5460 , 64134 , -18849*w - 82411 , 412*w - 30646 , -2929*w - 53431 , 18166*w - 45360 , -3540*w + 3360 , -11640*w + 100800 , 24360*w + 57960 , 55500*w - 15176 
],
[ -25031*w + 1480031 , -36131*w - 501053 , 2761*w + 78715 , 18849*w - 82411 , 2961602 , -27139*w + 114429 , -31229*w + 706293 , -102358*w + 69580 , 18470*w - 2520 , 121405*w - 315945 , -47330*w - 351400 , 
    -1101013*w - 1543829 ],
[ 14138*w + 105812 , -8532*w - 33124 , 1210*w + 5348 , -412*w - 30646 , 27139*w + 114429 , 25690 , 4909*w + 52185 , -17090*w + 44744 , 3390*w - 3864 , 10292*w - 98112 , -24100*w - 54404 , -63880*w + 13538 ],
[ 13819*w + 418243 , -17935*w - 138173 , 2129*w + 21777 , 2929*w - 53431 , 31229*w + 706293 , -4909*w + 52185 , 198632 , -38298*w + 65926 , 7358*w - 5474 , 33337*w - 173271 , -37382*w - 126420 , -288519*w - 
    283479 ],
[ 77676*w + 110908 , -30288*w - 16128 , 5022*w + 2688 , -18166*w - 45360 , 102358*w + 69580 , 17090*w + 44744 , 38298*w + 65926 , 172970 , 3956*w - 23758 , -51528*w - 240058 , -85524*w + 18284 , -86552*w + 
    263690 ],
[ -14682*w - 9492 , 5136*w - 672 , -856*w + 112 , 3540*w + 3360 , -18470*w - 2520 , -3390*w - 3864 , -7358*w - 5474 , -3956*w - 23758 , 4060 , 12608*w + 24850 , 11390*w - 16226 , 11008*w - 51842 ],
[ -74214*w - 322686 , 37212*w + 87780 , -6202*w - 14630 , 11640*w + 100800 , -121405*w - 315945 , -10292*w - 98112 , -33337*w - 173271 , 51528*w - 240058 , -12608*w + 24850 , 440846 , 124212*w + 153076 , 
    201128*w - 181356 ],
[ 65508*w - 259672 , -11904*w + 104328 , 1984*w - 17388 , -24360*w + 57960 , 47330*w - 351400 , 24100*w - 54404 , 37382*w - 126420 , 85524*w + 18284 , -11390*w - 16226 , -124212*w + 153076 , 298144 , 
    121490*w + 336238 ],
[ 595780*w - 730212 , -180280*w + 371896 , 29486*w - 49952 , -55500*w - 15176 , 1101013*w - 1543829 , 63880*w + 13538 , 288519*w - 283479 , 86552*w + 263690 , -11008*w - 51842 , -201128*w - 181356 , 
    -121490*w + 336238 , 3714018 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 280999852 , 15915900*w + 96942776 , -8179352*w + 11939480 , -3318080*w + 433874 , 461728*w - 399168 , 981752*w + 7587734 , -434780*w - 2354632 , -2735744*w + 3816904 , 440330*w - 930076 , -522622*w + 
    5297880 , 1298266*w + 4901428 , 38970552*w + 41280288 ],
[ -15915900*w + 96942776 , 44338294 , -4793062*w + 4404162 , -1526212*w + 2534 , 302668*w + 147980 , 197608*w + 3619490 , -79878*w - 1143506 , -1385878*w + 1757196 , 224292*w - 435876 , -279516*w + 2564982 ,
608634*w + 2434110 , 12593202*w + 34599768 ],
[ 8179352*w + 11939480 , 4793062*w + 4404162 , 18537708 , 35558*w + 5047476 , 104312*w - 909776 , -12916*w + 147784 , -4248*w + 70784 , 1340*w - 20160 , -44*w , -12*w , 0 , 6521304*w - 2286088 ],
[ 3318080*w + 433874 , 1526212*w + 2534 , -35558*w + 5047476 , 1890280 , 30090*w - 184100 , 63258*w - 610946 , -20500*w + 268380 , 184614*w + 76230 , -34244*w + 1260 , 102930*w - 189000 , 12996*w - 361494 , 
1535484*w - 2111340 ],
[ -461728*w - 399168 , -302668*w + 147980 , -104312*w - 909776 , -30090*w - 184100 , 113694 , -69316*w + 228928 , 19262*w - 40572 , -193624*w - 149044 , 36000*w + 8400 , -108360*w + 201600 , -13680*w + 
    380520 , -347828*w + 718718 ],
[ -981752*w + 7587734 , -197608*w + 3619490 , 12916*w + 147784 , -63258*w - 610946 , 69316*w + 228928 , 4060112 , 38324*w - 1041432 , -2083686*w + 1631322 , 346176*w - 479094 , -567600*w + 3467898 , 685920*w
    + 3705072 , 1005940*w + 5295570 ],
[ 434780*w - 2354632 , 79878*w - 1143506 , 4248*w + 70784 , 20500*w + 268380 , -19262*w - 40572 , -38324*w - 1041432 , 290780 , 478704*w - 546784 , -77412*w + 140028 , 99588*w - 863436 , -200496*w - 831180 ,
-322968*w - 1500926 ],
[ 2735744*w + 3816904 , 1385878*w + 1757196 , -1340*w - 20160 , -184614*w + 76230 , 193624*w - 149044 , 2083686*w + 1631322 , -478704*w - 546784 , 8728118 , -115236*w - 1537928 , 1676140*w + 3655274 , 
    2334400*w - 1089172 , 2775400*w - 694050 ],
[ -440330*w - 930076 , -224292*w - 435876 , 44*w , 34244*w + 1260 , -36000*w + 8400 , -346176*w - 479094 , 77412*w + 140028 , 115236*w - 1537928 , 281652 , -247078*w - 799162 , -425764*w - 23954 , -500182*w 
    - 126630 ],
[ 522622*w + 5297880 , 279516*w + 2564982 , 12*w , -102930*w - 189000 , 108360*w + 201600 , 567600*w + 3467898 , -99588*w - 863436 , -1676140*w + 3655274 , 247078*w - 799162 , 3786762 , 1187660*w + 2683716 ,
1308626*w + 3337698 ],
[ -1298266*w + 4901428 , -608634*w + 2434110 , 0 , -12996*w - 361494 , 13680*w + 380520 , -685920*w + 3705072 , 200496*w - 831180 , -2334400*w - 1089172 , 425764*w - 23954 , -1187660*w + 2683716 , 4509428 , 
-120008*w + 5245674 ],
[ -38970552*w + 41280288 , -12593202*w + 34599768 , -6521304*w - 2286088 , -1535484*w - 2111340 , 347828*w + 718718 , -1005940*w + 5295570 , 322968*w - 1500926 , -2775400*w - 694050 , 500182*w - 126630 , 
    -1308626*w + 3337698 , 120008*w + 5245674 , 55938806 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 2289182 , 76714*w - 1204420 , -13076*w + 158312 , -3561*w - 13181 , -14404*w + 8162 , -2245*w + 61719 , -14477*w + 251503 , 15837*w - 81893 , 56223*w - 33509 , -37352*w + 24570 , 30522*w - 202076 , 
    -620565*w - 994077 ],
[ -76714*w - 1204420 , 970718 , -2518*w - 163870 , 8518*w + 1148 , -11272*w - 10360 , -24556*w - 23296 , -1820*w - 115752 , -6332*w + 40152 , -24628*w + 25368 , 16212*w - 17808 , -8544*w + 96432 , 362998*w +
    369152 ],
[ 13076*w + 158312 , 2518*w - 163870 , 36512 , -1756*w - 70 , 3616*w + 8204 , 7214*w + 1246 , 538*w + 9982 , 746*w - 3346 , 2058*w - 2114 , -1352*w + 1484 , 712*w - 8036 , -48586*w - 39018 ],
[ 3561*w - 13181 , -8518*w + 1148 , 1756*w - 70 , 1414 , 186*w - 3612 , 438*w - 4158 , 24*w - 420 , 18*w - 168 , 0 , 0 , 0 , 1643*w + 13783 ],
[ 14404*w + 8162 , 11272*w - 10360 , -3616*w + 8204 , -186*w - 3612 , 58618 , 726*w + 12068 , 19246*w - 101220 , -8772*w + 26712 , -26400*w - 13440 , 18800*w + 6160 , -27600*w + 81200 , 10700*w + 43540 ],
[ 2245*w + 61719 , 24556*w - 23296 , -7214*w + 1246 , -438*w - 4158 , -726*w + 12068 , 22092 , -8*w + 3542 , -6*w - 1330 , -1190 , 210 , 0 , -18351*w - 29995 ],
[ 14477*w + 251503 , 1820*w - 115752 , -538*w + 9982 , -24*w - 420 , -19246*w - 101220 , 8*w + 3542 , 338282 , 9720*w - 102522 , 74952*w - 56406 , -51948*w + 47614 , 33060*w - 304668 , -130009*w - 82691 ],
[ -15837*w - 81893 , 6332*w + 40152 , -746*w - 3346 , -18*w - 168 , 8772*w + 26712 , 6*w - 1330 , -9720*w - 102522 , 33530 , -20988*w + 32494 , 14292*w - 24906 , -1180*w + 98532 , 45633*w - 5005 ],
[ -56223*w - 33509 , 24628*w + 25368 , -2058*w - 2114 , 0 , 26400*w - 13440 , -1190 , -74952*w - 56406 , 20988*w + 32494 , 126252 , -1962*w - 88802 , 62286*w + 101934 , 42483*w - 178479 ],
[ 37352*w + 24570 , -16212*w - 17808 , 1352*w + 1484 , 0 , -18800*w + 6160 , 210 , 51948*w + 47614 , -14292*w - 24906 , 1962*w - 88802 , 62762 , -42304*w - 78624 , -30634*w + 120414 ],
[ -30522*w - 202076 , 8544*w + 96432 , -712*w - 8036 , 0 , 27600*w + 81200 , 0 , -33060*w - 304668 , 1180*w + 98532 , -62286*w + 101934 , 42304*w - 78624 , 298144 , 118444*w - 9058 ],
[ 620565*w - 994077 , -362998*w + 369152 , 48586*w - 39018 , -1643*w + 13783 , -10700*w + 43540 , 18351*w - 29995 , 130009*w - 82691 , -45633*w - 5005 , -42483*w - 178479 , 30634*w + 120414 , -118444*w - 
    9058 , 1686258 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 4494 , 106*w + 350 , 170*w - 308 , 66*w - 42 , 86*w - 322 , 4*w - 84 , 134*w - 14 , 116*w + 140 , 300*w + 840 , 126*w - 350 , -624*w + 28 , -853*w - 3535 ],
[ -106*w + 350 , 518 , -14*w + 308 , -6*w + 56 , 16*w , 8*w + 28 , -16*w , -12*w , 0 , 0 , 0 , 295*w + 427 ],
[ -170*w - 308 , 14*w + 308 , 966 , 280 , 56*w , 28*w + 98 , -56*w , -42*w , 0 , 0 , 0 , 384*w + 182 ],
[ -66*w - 42 , 6*w + 56 , 280 , 140 , 40*w + 28 , 20*w + 28 , 12*w , -4*w , 0 , 0 , 0 , 111*w - 203 ],
[ -86*w - 322 , -16*w , -56*w , -40*w + 28 , 238 , -2*w + 56 , -10*w + 112 , -28*w , -132*w - 112 , -8*w + 112 , 168*w - 280 , 193*w + 259 ],
[ -4*w - 84 , -8*w + 28 , -28*w + 98 , -20*w + 28 , 2*w + 56 , 42 , -8*w + 28 , -6*w , 0 , 0 , 0 , 50*w + 140 ],
[ -134*w - 14 , 16*w , 56*w , -12*w , 10*w + 112 , 8*w + 28 , 224 , -16*w + 112 , -90*w + 140 , 20*w + 56 , 24*w - 392 , 229*w - 119 ],
[ -116*w + 140 , 12*w , 42*w , 4*w , 28*w , 6*w , 16*w + 112 , 98 , -32*w + 266 , 32*w + 14 , -80*w - 336 , 128*w - 336 ],
[ -300*w + 840 , 0 , 0 , 0 , 132*w - 112 , 0 , 90*w + 140 , 32*w + 266 , 1204 , 140*w - 42 , -498*w - 1106 , 168*w - 1386 ],
[ -126*w - 350 , 0 , 0 , 0 , 8*w + 112 , 0 , -20*w + 56 , -32*w + 14 , -140*w - 42 , 126 , 148*w - 364 , 199*w + 147 ],
[ 624*w + 28 , 0 , 0 , 0 , -168*w - 280 , 0 , -24*w - 392 , 80*w - 336 , 498*w - 1106 , -148*w - 364 , 2464 , -708*w + 826 ],
[ 853*w - 3535 , -295*w + 427 , -384*w + 182 , -111*w - 203 , -193*w + 259 , -50*w + 140 , -229*w - 119 , -128*w - 336 , -168*w - 1386 , -199*w + 147 , 708*w + 826 , 7224 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1974140 , 946*w - 378 , -34948*w + 20650 , 148*w - 171556 , -12503*w + 3843 , -149205*w + 60081 , -71533*w + 82229 , -41635*w - 367955 , -64901*w - 196315 , -213895*w + 52969 , -78970*w + 378420 , 
    -293124*w - 896280 ],
[ -946*w - 378 , 196 , 1558*w + 1092 , -292*w - 322 , 286*w + 98 , -208*w - 28 , -26*w , 0 , 0 , 0 , 0 , -738*w + 2324 ],
[ 34948*w + 20650 , -1558*w + 1092 , 148358 , -10656*w - 28994 , 876*w + 22638 , 162*w - 14238 , 1404*w - 1680 , 390*w , 0 , 0 , 0 , -67348*w - 49000 ],
[ -148*w - 171556 , 292*w - 322 , 10656*w - 28994 , 43596 , 1748*w - 4312 , 13038*w - 1134 , 6738*w - 8932 , -442*w + 40740 , 5220*w + 26040 , 24300*w + 8820 , 12420*w - 36540 , 24956*w + 95424 ],
[ 12503*w + 3843 , -286*w + 98 , -876*w + 22638 , -1748*w - 4312 , 4760 , -818*w + 9730 , 386*w + 6244 , -5906*w - 336 , -3492*w + 4872 , -1152*w + 22680 , 4872*w + 11592 , -12902*w - 8722 ],
[ 149205*w + 60081 , 208*w - 28 , -162*w - 14238 , -13038*w - 1134 , 818*w + 9730 , 173796 , 8730*w + 86464 , -72560*w + 37198 , -38368*w + 80192 , 5154*w + 282338 , 69074*w + 112210 , -69724*w + 79856 ],
[ 71533*w + 82229 , 26*w , -1404*w - 1680 , -6738*w - 8932 , -386*w + 6244 , -8730*w + 86464 , 47208 , -38522*w - 10136 , -23974*w + 25396 , -13428*w + 145124 , 28632*w + 84280 , -38470*w + 7350 ],
[ 41635*w - 367955 , 0 , -390*w , 442*w + 40740 , 5906*w - 336 , 72560*w + 37198 , 38522*w - 10136 , 247352 , 29874*w + 142520 , 134034*w + 39816 , 66686*w - 204834 , 1858*w + 193578 ],
[ 64901*w - 196315 , 0 , 0 , -5220*w + 26040 , 3492*w + 4872 , 38368*w + 80192 , 23974*w + 25396 , -29874*w + 142520 , 108234 , 73002*w + 137550 , 63706*w - 62118 , -17342*w + 115136 ],
[ 213895*w + 52969 , 0 , 0 , -24300*w + 8820 , 1152*w + 22680 , -5154*w + 282338 , 13428*w + 145124 , -134034*w + 39816 , -73002*w + 137550 , 519526 , 122868*w + 221844 , -98468*w + 64512 ],
[ 78970*w + 378420 , 0 , 0 , -12420*w - 36540 , -4872*w + 11592 , -69074*w + 112210 , -28632*w + 84280 , -66686*w - 204834 , -63706*w - 62118 , -122868*w + 221844 , 298144 , -57724*w - 135912 ],
[ 293124*w - 896280 , 738*w + 2324 , 67348*w - 49000 , -24956*w + 95424 , 12902*w - 8722 , 69724*w + 79856 , 38470*w + 7350 , -1858*w + 193578 , 17342*w + 115136 , 98468*w + 64512 , 57724*w - 135912 , 937636
]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1038744 , -29714*w + 174160 , -41*w + 7497 , 2345*w + 1043 , -586*w - 5040 , 491*w + 2863 , -126*w - 19810 , 1130*w + 10556 , 3640*w + 7602 , -5710*w + 5278 , 1631*w - 15449 , -77995*w + 156401 ],
[ 29714*w + 174160 , 39886 , 172*w + 2254 , 604*w - 924 , -385*w - 231 , 66*w + 308 , -490*w - 2912 , 449*w + 1421 , 670*w + 630 , -736*w + 1498 , -44*w - 2464 , -8832*w + 38066 ],
[ 41*w + 7497 , -172*w + 2254 , 616 , -10*w + 476 , -16*w - 294 , -38*w + 42 , -94*w - 280 , 54*w + 112 , 112*w - 112 , -32*w + 280 , -60*w - 252 , -280*w + 2450 ],
[ -2345*w + 1043 , -604*w - 924 , 10*w + 476 , 1442 , -14*w - 1008 , -14*w + 168 , -208*w - 812 , 94*w + 336 , 280*w - 280 , -80*w + 700 , -150*w - 630 , 743*w + 3857 ],
[ 586*w - 5040 , 385*w - 231 , 16*w - 294 , 14*w - 1008 , 966 , -48*w - 224 , 210*w + 1484 , -116*w - 630 , -406*w - 70 , 256*w - 812 , 74*w + 1050 , -285*w - 5635 ],
[ -491*w + 2863 , -66*w + 308 , 38*w + 42 , 14*w + 168 , 48*w - 224 , 266 , 148*w - 644 , -42*w + 266 , 70*w + 406 , -160*w - 28 , 106*w - 294 , -522*w + 1358 ],
[ 126*w - 19810 , 490*w - 2912 , 94*w - 280 , 208*w - 812 , -210*w + 1484 , -148*w - 644 , 4116 , -92*w - 1848 , -880*w - 1456 , 980*w - 1092 , -292*w + 2716 , 2189*w - 12635 ],
[ -1130*w + 10556 , -449*w + 1421 , -54*w + 112 , -94*w + 336 , 116*w - 630 , 42*w + 266 , 92*w - 1848 , 1008 , 352*w + 784 , -554*w + 238 , 260*w - 1372 , -1448*w + 5180 ],
[ -3640*w + 7602 , -670*w + 630 , -112*w - 112 , -280*w - 280 , 406*w - 70 , -70*w + 406 , 880*w - 1456 , -352*w + 784 , 1904 , -600*w - 1064 , 688*w - 560 , -3696*w + 1190 ],
[ 5710*w + 5278 , 736*w + 1498 , 32*w + 280 , 80*w + 700 , -256*w - 812 , 160*w - 28 , -980*w - 1092 , 554*w + 238 , 600*w - 1064 , 2408 , -744*w - 1400 , 2555*w + 8183 ],
[ -1631*w - 15449 , 44*w - 2464 , 60*w - 252 , 150*w - 630 , -74*w + 1050 , -106*w - 294 , 292*w + 2716 , -260*w - 1372 , -688*w - 560 , 744*w - 1400 , 2464 , 873*w - 10283 ],
[ 77995*w + 156401 , 8832*w + 38066 , 280*w + 2450 , -743*w + 3857 , 285*w - 5635 , 522*w + 1358 , -2189*w - 12635 , 1448*w + 5180 , 3696*w + 1190 , -2555*w + 8183 , -873*w - 10283 , 100030 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 16979018 , 642653*w - 1203153 , -141914*w + 1111096 , -177586*w + 55188 , 72796*w + 312396 , -69914*w + 111510 , 8740*w + 101304 , 19167*w + 235249 , 51925*w - 9023 , 191128*w - 264096 , -22198*w + 350196 
, -2033810*w - 4733120 ],
[ -642653*w - 1203153 , 316526 , -33551*w - 156653 , 20592*w - 85148 , 9148*w - 43932 , 10516*w - 52724 , -6080*w - 7924 , -15298*w - 17794 , -5202*w + 22834 , -4708*w + 109172 , -18744*w - 47124 , 336939*w 
    - 232351 ],
[ 141914*w + 1111096 , 33551*w - 156653 , 115822 , -14842*w + 40628 , -12664*w + 38290 , -10354*w + 28308 , 2768*w + 8372 , 6871*w + 18991 , 4493*w - 9065 , 11564*w - 54544 , 5882*w + 35700 , -180204*w - 
    178710 ],
[ 177586*w + 55188 , -20592*w - 85148 , 14842*w + 40628 , 82950 , -1384*w + 57666 , -190*w + 46340 , 4630*w + 1680 , 10644*w + 924 , 396*w - 14784 , -6468*w - 59136 , 13464*w + 13860 , -51354*w + 176680 ],
[ -72796*w + 312396 , -9148*w - 43932 , 12664*w + 38290 , 1384*w + 57666 , 142856 , 532*w + 57498 , 3096*w + 2940 , 7150*w + 2296 , 264*w - 9856 , -4312*w - 39424 , 8976*w + 9240 , -12590*w - 82404 ],
[ 69914*w + 111510 , -10516*w - 52724 , 10354*w + 28308 , 190*w + 46340 , -532*w + 57498 , 34370 , 2868*w + 924 , 6852*w + 490 , 534*w - 10318 , -4522*w - 42028 , 9588*w + 9870 , -32004*w + 58184 ],
[ -8740*w + 101304 , 6080*w - 7924 , -2768*w + 8372 , -4630*w + 1680 , -3096*w + 2940 , -2868*w + 924 , 2646 , 20*w + 5880 , 1030*w + 364 , 4550*w - 2562 , -1254*w + 6930 , -11216*w - 33810 ],
[ -19167*w + 235249 , 15298*w - 17794 , -6871*w + 18991 , -10644*w + 924 , -7150*w + 2296 , -6852*w + 490 , -20*w + 5880 , 13748 , 2746*w + 1246 , 11754*w - 7322 , -3070*w + 18214 , -26777*w - 82131 ],
[ -51925*w - 9023 , 5202*w + 22834 , -4493*w - 9065 , -396*w - 14784 , -264*w - 9856 , -534*w - 10318 , -1030*w + 364 , -2746*w + 1246 , 5726 , 4276*w + 19684 , -5318*w - 1638 , 16827*w - 47719 ],
[ -191128*w - 264096 , 4708*w + 109172 , -11564*w - 54544 , 6468*w - 59136 , 4312*w - 39424 , 4522*w - 42028 , -4550*w - 2562 , -11754*w - 7322 , -4276*w + 19684 , 94976 , -18026*w - 35546 , 92074*w - 102312
],
[ 22198*w + 350196 , 18744*w - 47124 , -5882*w + 35700 , -13464*w + 13860 , -8976*w + 9240 , -9588*w + 9870 , 1254*w + 6930 , 3070*w + 18214 , 5318*w - 1638 , 18026*w - 35546 , 37268 , -53636*w - 82628 ],
[ 2033810*w - 4733120 , -336939*w - 232351 , 180204*w - 178710 , 51354*w + 176680 , 12590*w - 82404 , 32004*w + 58184 , 11216*w - 33810 , 26777*w - 82131 , -16827*w - 47719 , -92074*w - 102312 , 53636*w - 
    82628 , 3079692 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 9464 , -48*w - 490 , 1344*w - 10472 , -246*w - 2128 , -212*w + 588 , -364*w - 420 , 48*w + 112 , -1170*w - 588 , -142*w - 700 , -306*w - 1456 , 640*w - 84 , 504*w - 6202 ],
[ 48*w - 490 , 126 , -256*w + 434 , -52*w + 98 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -104*w + 420 ],
[ -1344*w - 10472 , 256*w + 434 , 21084 , 26*w + 3780 , -288*w - 112 , 400*w , 48*w , 1548*w , 220*w , -60*w , 0 , 2118*w + 10318 ],
[ 246*w - 2128 , 52*w + 98 , -26*w + 3780 , 9716 , 708*w + 742 , 88*w + 350 , 532*w , 178*w , 44*w , -12*w , 0 , -1714*w + 4648 ],
[ 212*w + 588 , 0 , 288*w - 112 , -708*w + 742 , 1078 , -36*w - 308 , 38*w + 168 , -8*w , 0 , 0 , 0 , -50*w - 1442 ],
[ 364*w - 420 , 0 , -400*w , -88*w + 350 , 36*w - 308 , 742 , 22*w + 112 , -6*w + 112 , -144*w + 84 , -288*w + 756 , -108*w - 1008 , -582*w - 462 ],
[ -48*w + 112 , 0 , -48*w , -532*w , -38*w + 168 , -22*w + 112 , 280 , -84 , 0 , 0 , 0 , -288*w - 840 ],
[ 1170*w - 588 , 0 , -1548*w , -178*w , 8*w , 6*w + 112 , -84 , 8834 , 352*w + 1078 , 704*w - 2198 , 264*w + 2464 , -1074*w - 1050 ],
[ 142*w - 700 , 0 , -220*w , -44*w , 0 , 144*w + 84 , 0 , -352*w + 1078 , 588 , 400*w + 728 , -430*w + 504 , -336*w - 84 ],
[ 306*w - 1456 , 0 , 60*w , 12*w , 0 , 288*w + 756 , 0 , -704*w - 2198 , -400*w + 728 , 3738 , -1160*w - 1792 , -400*w - 504 ],
[ -640*w - 84 , 0 , 0 , 0 , 0 , 108*w - 1008 , 0 , -264*w + 2464 , 430*w + 504 , 1160*w - 1792 , 3388 , 34*w + 1260 ],
[ -504*w - 6202 , 104*w + 420 , -2118*w + 10318 , 1714*w + 4648 , 50*w - 1442 , 582*w - 462 , 288*w - 840 , 1074*w - 1050 , 336*w - 84 , 400*w - 504 , -34*w + 1260 , 15064 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 36923698 , -539289*w + 10363227 , -1376889*w + 4299001 , 145266*w - 3141208 , -340426*w + 1657446 , 44214*w - 656978 , -56517*w - 183295 , -407397*w + 168553 , 936607*w - 3363017 , -357712*w - 361676 , 
    728860*w + 670978 , -2632554*w - 3841950 ],
[ 539289*w + 10363227 , 3422902 , -366249*w + 1858241 , 378980*w - 1233120 , -215600*w + 694960 , 17628*w - 248780 , -25630*w - 52346 , -135478*w + 142618 , 227030*w - 1368486 , -135508*w - 52500 , 274468*w 
    + 83944 , -731333*w - 1359799 ],
[ 1376889*w + 4299001 , 366249*w + 1858241 , 2595852 , 112762*w - 2088478 , -53496*w + 1106644 , -40532*w - 293552 , -34173*w - 6839 , -85983*w + 308329 , -76631*w - 1483881 , -125628*w + 140224 , 251404*w -
    302414 , -804961*w - 743393 ],
[ -145266*w - 3141208 , -378980*w - 1233120 , -112762*w - 2088478 , 4231010 , -6026*w - 1773436 , 42690*w + 366590 , 26284*w - 3976 , 53258*w - 243852 , 110396*w + 1089088 , 88660*w - 136136 , -176748*w + 
    288288 , 1022778*w + 1873354 ],
[ 340426*w + 1657446 , 215600*w + 694960 , 53496*w + 1106644 , 6026*w - 1773436 , 797174 , -23932*w - 172032 , -16006*w + 1946 , -35170*w + 159474 , -69646*w - 702842 , -57602*w + 87808 , 114330*w - 186480 ,
-466242*w - 658210 ],
[ -44214*w - 656978 , -17628*w - 248780 , 40532*w - 293552 , -42690*w + 366590 , 23932*w - 172032 , 48650 , 4024*w + 6034 , 17268*w - 26110 , -20906*w + 198198 , 18738*w + 308 , -37890*w + 2100 , 104530*w + 
    237090 ],
[ 56517*w - 183295 , 25630*w - 52346 , 34173*w - 6839 , -26284*w - 3976 , 16006*w + 1946 , -4024*w + 6034 , 4634 , 6844*w + 11396 , -30532*w + 18158 , 3572*w + 17808 , -7652*w - 35280 , 489*w + 70735 ],
[ 407397*w + 168553 , 135478*w + 142618 , 85983*w + 308329 , -53258*w - 243852 , 35170*w + 159474 , -17268*w - 26110 , -6844*w + 11396 , 115332 , -118178*w - 309806 , -19826*w + 94738 , 37022*w - 193718 , 
    -81043*w + 180789 ],
[ -936607*w - 3363017 , -227030*w - 1368486 , 76631*w - 1483881 , -110396*w + 1089088 , 69646*w - 702842 , 20906*w + 198198 , 30532*w + 18158 , 118178*w - 309806 , 1682814 , 150568*w - 111944 , -298666*w + 
    254310 , 417913*w + 110201 ],
[ 357712*w - 361676 , 135508*w - 52500 , 125628*w + 140224 , -88660*w - 136136 , 57602*w + 87808 , -18738*w + 308 , -3572*w + 17808 , 19826*w + 94738 , -150568*w - 111944 , 101864 , -2938*w - 204162 , 
    -34428*w + 251524 ],
[ -728860*w + 670978 , -274468*w + 83944 , -251404*w - 302414 , 176748*w + 288288 , -114330*w - 186480 , 37890*w + 2100 , 7652*w - 35280 , -37022*w - 193718 , 298666*w + 254310 , 2938*w - 204162 , 409948 , 
    76142*w - 508116 ],
[ 2632554*w - 3841950 , 731333*w - 1359799 , 804961*w - 743393 , -1022778*w + 1873354 , 466242*w - 658210 , -104530*w + 237090 , -489*w + 70735 , 81043*w + 180789 , -417913*w + 110201 , 34428*w + 251524 , 
    -76142*w - 508116 , 3768478 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 3206910 , 322298*w + 132874 , 7579*w - 267925 , -13102*w + 153104 , -151062*w - 85498 , -13154*w + 39970 , -39759*w - 27517 , 34822*w - 90272 , -38385*w - 670061 , 137066*w + 76636 , -101252*w + 114758 , 
    2245718*w + 1774584 ],
[ -322298*w + 132874 , 419006 , 4707*w - 119875 , -23934*w + 36736 , 49390*w - 103138 , -27218*w - 19376 , -7539*w - 56371 , 30146*w + 26096 , 141643*w - 267939 , 24494*w + 245420 , -57780*w - 127638 , 
    61148*w + 2060100 ],
[ -7579*w - 267925 , -4707*w - 119875 , 182098 , 16226*w + 17038 , -23550*w - 133756 , 9902*w + 45486 , -607*w + 22127 , -12408*w - 19068 , -75151*w + 76391 , -406*w - 117180 , 20272*w + 74578 , -195292*w - 
    585648 ],
[ 13102*w + 153104 , 23934*w + 36736 , -16226*w + 17038 , 82950 , 1574*w - 104006 , -14080*w + 41300 , -15274*w - 2604 , 11832*w - 43428 , -32736*w - 280896 , 60852*w + 10164 , -40788*w + 66528 , 225650*w - 
    35826 ],
[ 151062*w - 85498 , -49390*w - 103138 , 23550*w - 133756 , -1574*w - 104006 , 292222 , 17360*w - 80276 , 19966*w + 6650 , -16396*w + 57736 , 44968*w + 387086 , -83986*w - 14098 , 56238*w - 91728 , -166496*w
    - 389564 ],
[ 13154*w + 39970 , 27218*w - 19376 , -9902*w + 45486 , 14080*w + 41300 , -17360*w - 80276 , 52640 , -9660*w + 24164 , -876*w - 51380 , -88304*w - 160300 , 48578*w - 88942 , -15780*w + 115290 , 95822*w - 
    305326 ],
[ 39759*w - 27517 , 7539*w - 56371 , 607*w + 22127 , 15274*w - 2604 , -19966*w + 6650 , 9660*w + 24164 , 28154 , -11348*w - 24458 , -77744*w + 51030 , 5316*w - 115836 , 16496*w + 80556 , -16994*w - 386288 ],
[ -34822*w - 90272 , -30146*w + 26096 , 12408*w - 19068 , -11832*w - 43428 , 16396*w + 57736 , 876*w - 51380 , 11348*w - 24458 , 72758 , 120164*w + 240226 , -70538*w + 118230 , 24748*w - 159768 , -137382*w +
    360010 ],
[ 38385*w - 670061 , -141643*w - 267939 , 75151*w + 76391 , 32736*w - 280896 , -44968*w + 387086 , 88304*w - 160300 , 77744*w + 51030 , -120164*w + 240226 , 2183286 , -428336*w - 425264 , 345716*w - 241500 ,
-1033252*w - 400526 ],
[ -137066*w + 76636 , -24494*w + 245420 , 406*w - 117180 , -60852*w + 10164 , 83986*w - 14098 , -48578*w - 88942 , -5316*w - 115836 , 70538*w + 118230 , 428336*w - 425264 , 671216 , -114742*w - 427770 , 
    124072*w + 1482404 ],
[ 101252*w + 114758 , 57780*w - 127638 , -20272*w + 74578 , 40788*w + 66528 , -56238*w - 91728 , 15780*w + 115290 , -16496*w + 80556 , -24748*w - 159768 , -345716*w - 241500 , 114742*w - 427770 , 409948 , 
    175000*w - 1099392 ],
[ -2245718*w + 1774584 , -61148*w + 2060100 , 195292*w - 585648 , -225650*w - 35826 , 166496*w - 389564 , -95822*w - 305326 , 16994*w - 386288 , 137382*w + 360010 , 1033252*w - 400526 , -124072*w + 1482404 ,
-175000*w - 1099392 , 14362530 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 44824668 , -1706894*w - 37069928 , 15948170*w + 159864670 , 7928372*w + 78081934 , -773582*w + 932554 , -17284*w - 35238 , -386594*w - 3545906 , 60842*w - 20034 , -315018*w + 1091734 , 49713*w + 1309945 , 
-286063*w - 300041 , -16158219*w - 16468543 ],
[ 1706894*w - 37069928 , 31160248 , -7089909*w - 136909801 , -3578074*w - 66896312 , 648284*w - 569674 , 13560*w + 30912 , 188650*w + 2930200 , -49362*w + 1260 , 289908*w - 798336 , 5294*w - 1061074 , 
    218764*w + 309400 , 12782312*w + 18071060 ],
[ -15948170*w + 159864670 , 7089909*w - 136909801 , 614447078 , 500914*w + 300391420 , -2816712*w + 1394442 , -46573*w - 145005 , -139065*w - 12550979 , 207786*w + 73906 , -1395430*w + 2879590 , -263381*w + 
    4433009 , -845221*w - 1644517 , -52264266*w - 100354870 ],
[ -7928372*w + 78081934 , 3578074*w - 66896312 , -500914*w + 300391420 , 146871116 , -1382568*w + 669550 , -21043*w - 72653 , -60788*w - 6155548 , 102085*w + 37303 , -686672*w + 1404102 , -132726*w + 2172324
, -413104*w - 811314 , -25463861*w - 49347963 ],
[ 773582*w + 932554 , -648284*w - 569674 , 2816712*w + 1394442 , 1382568*w + 669550 , 235004 , -2490*w - 1106 , -136368*w - 35168 , 1318*w - 15008 , 26992*w + 110320 , 46288*w + 30800 , -19376*w + 58576 , 
    -535834*w + 1401736 ],
[ 17284*w - 35238 , -13560*w + 30912 , 46573*w - 145005 , 21043*w - 72653 , 2490*w - 1106 , 4228 , 350*w + 6804 , -146*w + 308 , 854*w - 1834 , 138*w - 2758 , 530*w + 994 , 3452*w + 51282 ],
[ 386594*w - 3545906 , -188650*w + 2930200 , 139065*w - 12550979 , 60788*w - 6155548 , 136368*w - 35168 , -350*w + 6804 , 568008 , -9044*w - 3528 , 60760*w - 127288 , 11204*w - 194796 , 37244*w + 70924 , 
    1014360*w + 1967098 ],
[ -60842*w - 20034 , 49362*w + 1260 , -207786*w + 73906 , -102085*w + 37303 , -1318*w - 15008 , 146*w + 308 , 9044*w - 3528 , 1092 , -2380*w - 6244 , -3212*w - 252 , 960*w - 4592 , 25194*w - 131236 ],
[ 315018*w + 1091734 , -289908*w - 798336 , 1395430*w + 2879590 , 686672*w + 1404102 , -26992*w + 110320 , -854*w - 1834 , -60760*w - 127288 , 2380*w - 6244 , 76720 , 18956*w + 53900 , -16576*w + 12432 , 
    -448560*w + 374500 ],
[ -49713*w + 1309945 , -5294*w - 1061074 , 263381*w + 4433009 , 132726*w + 2172324 , -46288*w + 30800 , -138*w - 2758 , -11204*w - 194796 , 3212*w - 252 , -18956*w + 53900 , 70672 , -14720*w - 19936 , 
    -406456*w - 515228 ],
[ 286063*w - 300041 , -218764*w + 309400 , 845221*w - 1644517 , 413104*w - 811314 , 19376*w + 58576 , -530*w + 994 , -37244*w + 70924 , -960*w - 4592 , 16576*w + 12432 , 14720*w - 19936 , 27104 , 8788*w + 
    737520 ],
[ 16158219*w - 16468543 , -12782312*w + 18071060 , 52264266*w - 100354870 , 25463861*w - 49347963 , 535834*w + 1401736 , -3452*w + 51282 , -1014360*w + 1967098 , -25194*w - 131236 , 448560*w + 374500 , 
    406456*w - 515228 , -8788*w + 737520 , 47624178 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 5208 , 360*w + 280 , -2332*w - 6496 , 1174*w + 4186 , 0 , 0 , 84*w , 154*w , 154*w , -42*w , 0 , -1268*w + 1274 ],
[ -360*w + 280 , 784 , 68*w - 6090 , -256*w + 3066 , 34*w + 98 , 102*w + 378 , 34*w , -40*w + 14 , -6*w + 350 , 112*w + 532 , -320*w + 42 , -374*w - 434 ],
[ 2332*w - 6496 , -68*w - 6090 , 55916 , 1650*w - 28462 , -128*w - 952 , -1032*w - 3024 , -224*w , 140*w - 112 , -84*w - 2800 , -860*w - 4256 , 2560*w - 336 , 4152*w + 3822 ],
[ -1174*w + 4186 , 256*w + 3066 , -1650*w - 28462 , 17934 , 220*w - 826 , 2232*w + 1302 , -266*w , 30*w + 56 , 64*w + 1400 , 424*w + 2128 , -1280*w + 168 , -1462*w - 854 ],
[ 0 , -34*w + 98 , 128*w - 952 , -220*w - 826 , 630 , -682*w + 476 , 158*w - 56 , -32*w , 0 , 0 , 0 , -462*w + 112 ],
[ 0 , -102*w + 378 , 1032*w - 3024 , -2232*w + 1302 , 682*w + 476 , 7686 , 28*w - 1876 , -6*w + 420 , 0 , 0 , 0 , -38*w + 2520 ],
[ -84*w , -34*w , 224*w , 266*w , -158*w - 56 , -28*w - 1876 , 602 , -196 , -72*w + 42 , -108*w + 252 , -54*w - 504 , -70*w - 602 ],
[ -154*w , 40*w + 14 , -140*w - 112 , -30*w + 56 , 32*w , 6*w + 420 , -196 , 434 , 128*w + 182 , 192*w - 518 , 96*w + 896 , -120*w - 910 ],
[ -154*w , 6*w + 350 , 84*w - 2800 , -64*w + 1400 , 0 , 0 , 72*w + 42 , -128*w + 182 , 588 , 276*w + 546 , -430*w + 504 , 98*w - 868 ],
[ 42*w , -112*w + 532 , 860*w - 4256 , -424*w + 2128 , 0 , 0 , 108*w + 252 , -192*w - 518 , -276*w + 546 , 1918 , -852*w - 1176 , 424*w + 588 ],
[ 0 , 320*w + 42 , -2560*w - 336 , 1280*w + 168 , 0 , 0 , 54*w - 504 , -96*w + 896 , 430*w + 504 , 852*w - 1176 , 3388 , -56*w - 1512 ],
[ 1268*w + 1274 , 374*w - 434 , -4152*w + 3822 , 1462*w - 854 , 462*w + 112 , 38*w + 2520 , 70*w - 602 , 120*w - 910 , -98*w - 868 , -424*w + 588 , 56*w - 1512 , 8176 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 13678 , 4154*w - 27006 , 940*w - 373996 , -1828*w - 71610 , -50*w + 1442 , -570*w + 2898 , -5658*w + 6090 , -270*w - 714 , 464*w - 924 , 502*w - 4284 , -1192*w - 2758 , 15986*w + 13832 ],
[ -4154*w - 27006 , 187278 , 123746*w + 1220898 , 28298*w + 231616 , -864*w - 336 , -624*w , 23364*w , -2004*w , 1020*w , 180*w , 0 , -61586*w - 21350 ],
[ -940*w - 373996 , -123746*w + 1220898 , 12807634 , 51902*w + 2450490 , 312*w - 23422 , 22092*w - 55370 , 176928*w - 135940 , 1052*w + 3220 , -2850*w + 29540 , 1810*w + 91700 , 29820*w + 31920 , -539380*w -
    545678 ],
[ 1828*w - 71610 , -28298*w + 231616 , -51902*w + 2450490 , 475412 , 228*w - 5586 , 4724*w - 11956 , 33804*w - 25172 , -1366*w + 1316 , 658*w + 1624 , 242*w + 7000 , 2292*w + 2604 , -98696*w - 120134 ],
[ 50*w + 1442 , 864*w - 336 , -312*w - 23422 , -228*w - 5586 , 1078 , 188*w + 980 , -2*w + 168 , 8*w , 0 , 0 , 0 , 898*w + 672 ],
[ 570*w + 2898 , 624*w , -22092*w - 55370 , -4724*w - 11956 , -188*w + 980 , 4326 , 8*w - 1232 , 570*w + 112 , -432*w + 1428 , 36*w + 3780 , 1224*w + 1260 , 3600*w - 2730 ],
[ 5658*w + 6090 , -23364*w , -176928*w - 135940 , -33804*w - 25172 , 2*w + 168 , -8*w - 1232 , 220290 , 7040*w - 22526 , -5280*w + 27370 , 440*w + 47950 , 14960*w + 15400 , -32976*w - 112546 ],
[ 270*w - 714 , 2004*w , -1052*w + 3220 , 1366*w + 1316 , -8*w , -570*w + 112 , -7040*w - 22526 , 9618 , -2144*w - 8946 , -6848*w - 6454 , -4416*w + 12992 , 6920*w - 9772 ],
[ -464*w - 924 , -1020*w , 2850*w + 29540 , -658*w + 1624 , 0 , 432*w + 1428 , 5280*w + 27370 , 2144*w - 8946 , 12628 , 5270*w + 19012 , 7868*w - 5054 , -10634*w + 3934 ],
[ -502*w - 4284 , -180*w , -1810*w + 91700 , -242*w + 7000 , 0 , -36*w + 3780 , -440*w + 47950 , 6848*w - 6454 , -5270*w + 19012 , 44982 , 14276*w + 15792 , -19118*w - 18550 ],
[ 1192*w - 2758 , 0 , -29820*w + 31920 , -2292*w + 2604 , 0 , -1224*w + 1260 , -14960*w + 15400 , 4416*w + 12992 , -7868*w - 5054 , -14276*w + 15792 , 37268 , -1026*w - 48524 ],
[ -15986*w + 13832 , 61586*w - 21350 , 539380*w - 545678 , 98696*w - 120134 , -898*w + 672 , -3600*w - 2730 , 32976*w - 112546 , -6920*w - 9772 , 10634*w + 3934 , 19118*w - 18550 , 1026*w - 48524 , 285124 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 248430 , -50089*w - 14889 , 44021*w + 123585 , 4018*w + 38360 , -1032*w + 19698 , 572*w + 18382 , -1418*w + 19040 , 11792*w - 18032 , -4868*w + 74858 , 5838*w - 5670 , 27190*w + 6860 , -48476*w + 419664 ],
[ 50089*w - 14889 , 84420 , 19405*w - 64645 , 8170*w - 4018 , 3987*w + 1337 , 3775*w - 1043 , 3629*w + 2191 , -3396*w - 16982 , 14947*w + 4711 , -1306*w - 7784 , 696*w - 37548 , 103835*w + 46921 ],
[ -44021*w + 123585 , -19405*w - 64645 , 153244 , -4682*w + 22344 , -5695*w + 6377 , -4341*w + 6489 , -5031*w + 3241 , 7788*w + 12530 , -16455*w + 14651 , 2768*w + 6510 , 6324*w + 40390 , -94813*w + 125629 
],
[ -4018*w + 38360 , -8170*w - 4018 , 4682*w + 22344 , 13286 , 350*w + 7924 , 208*w + 6832 , -1050*w + 4382 , 3798*w - 1512 , -2484*w + 15120 , 1242*w - 378 , 5508*w + 5670 , -5012*w + 72758 ],
[ 1032*w + 19698 , -3987*w + 1337 , 5695*w + 6377 , -350*w + 7924 , 7672 , -126*w + 5726 , -658*w + 3192 , 2250*w - 1148 , -1472*w + 8960 , 736*w - 224 , 3264*w + 3360 , 2460*w + 45360 ],
[ -572*w + 18382 , -3775*w - 1043 , 4341*w + 6489 , -208*w + 6832 , 126*w + 5726 , 4620 , -544*w + 2926 , 2094*w - 1176 , -1540*w + 9100 , 770*w - 210 , 3332*w + 3430 , -944*w + 38178 ],
[ 1418*w + 19040 , -3629*w + 2191 , 5031*w + 3241 , 1050*w + 4382 , 658*w + 3192 , 544*w + 2926 , 3570 , 1520*w - 4158 , -592*w + 9450 , 746*w - 574 , 3546*w + 910 , 2130*w + 31024 ],
[ -11792*w - 18032 , 3396*w - 16982 , -7788*w + 12530 , -3798*w - 1512 , -2250*w - 1148 , -2094*w - 1176 , -1520*w - 4158 , 10738 , -4672*w - 11130 , -324*w + 3276 , -3868*w + 12460 , -20360*w - 31360 ],
[ 4868*w + 74858 , -14947*w + 4711 , 16455*w + 14651 , 2484*w + 15120 , 1472*w + 8960 , 1540*w + 9100 , 592*w + 9450 , 4672*w - 11130 , 41398 , 2988*w - 4676 , 14756*w - 3444 , -1952*w + 130914 ],
[ -5838*w - 5670 , 1306*w - 7784 , -2768*w + 6510 , -1242*w - 378 , -736*w - 224 , -770*w - 210 , -746*w - 574 , 324*w + 3276 , -2988*w - 4676 , 2072 , -1394*w + 7882 , -8674*w - 15750 ],
[ -27190*w + 6860 , -696*w - 37548 , -6324*w + 40390 , -5508*w + 5670 , -3264*w + 3360 , -3332*w + 3430 , -3546*w + 910 , 3868*w + 12460 , -14756*w - 3444 , 1394*w + 7882 , 37268 , -45878*w - 12908 ],
[ 48476*w + 419664 , -103835*w + 46921 , 94813*w + 125629 , 5012*w + 72758 , -2460*w + 45360 , 944*w + 38178 , -2130*w + 31024 , 20360*w - 31360 , 1952*w + 130914 , 8674*w - 15750 , 45878*w - 12908 , 961282 
]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 40810 , -614*w - 14770 , 6636*w - 17402 , -3610*w + 10500 , 1510*w - 3780 , 6376*w - 3122 , 1852*w - 4368 , -5680*w + 9744 , 11926*w + 4284 , -8040*w + 18410 , -1356*w - 22512 , -7708*w + 173544 ],
[ 614*w - 14770 , 38836 , -130*w - 47096 , 93*w + 21357 , -177*w - 5943 , 2546*w - 2520 , 354*w - 560 , -180*w + 84 , 8*w , -24*w + 84 , 0 , 21719*w + 35875 ],
[ -6636*w - 17402 , 130*w - 47096 , 203322 , -732*w - 99694 , 784*w + 31290 , -6662*w + 14028 , 802*w + 2072 , 320*w - 7056 , 318*w + 10458 , -2532*w - 7308 , 2580*w - 3024 , -124158*w - 175938 ],
[ 3610*w + 10500 , -93*w + 21357 , 732*w - 99694 , 49602 , -274*w - 15302 , 3638*w - 8834 , -354*w - 1316 , -174*w + 3640 , -159*w - 5229 , 1266*w + 3654 , -1290*w + 1512 , 61116*w + 89880 ],
[ -1510*w - 3780 , 177*w - 5943 , -784*w + 31290 , 274*w - 15302 , 5096 , -928*w + 2338 , 258*w + 784 , -128*w - 2324 , -331*w + 4291 , -812*w - 3318 , 1174*w - 336 , -22286*w - 35532 ],
[ -6376*w - 3122 , -2546*w - 2520 , 6662*w + 14028 , -3638*w - 8834 , 928*w + 2338 , 19572 , 622*w + 4536 , -1356*w - 9982 , -2400*w + 16100 , -2700*w - 13650 , 4650*w + 1050 , -39238*w - 22960 ],
[ -1852*w - 4368 , -354*w - 560 , -802*w + 2072 , 354*w - 1316 , -258*w + 784 , -622*w + 4536 , 2520 , 280*w - 5124 , -2984*w + 6720 , 96*w - 8960 , 2368*w + 4032 , -8972*w - 40544 ],
[ 5680*w + 9744 , 180*w + 84 , -320*w - 7056 , 174*w + 3640 , 128*w - 2324 , 1356*w - 9982 , -280*w - 5124 , 14896 , 6966*w - 20104 , 988*w + 23800 , -6658*w - 8498 , 31616*w + 89068 ],
[ -11926*w + 4284 , -8*w , -318*w + 10458 , 159*w - 5229 , 331*w + 4291 , 2400*w + 16100 , 2984*w + 6720 , -6966*w - 20104 , 52542 , -12944*w - 30310 , 13654*w - 10906 , -84623*w - 37555 ],
[ 8040*w + 18410 , 24*w + 84 , 2532*w - 7308 , -1266*w + 3654 , 812*w - 3318 , 2700*w - 13650 , -96*w - 8960 , -988*w + 23800 , 12944*w - 30310 , 39886 , -10560*w - 17248 , 40936*w + 168700 ],
[ 1356*w - 22512 , 0 , -2580*w - 3024 , 1290*w + 1512 , -1174*w - 336 , -4650*w + 1050 , -2368*w + 4032 , 6658*w - 8498 , -13654*w - 10906 , 10560*w - 17248 , 27104 , 27406*w - 145516 ],
[ 7708*w + 173544 , -21719*w + 35875 , 124158*w - 175938 , -61116*w + 89880 , 22286*w - 35532 , 39238*w - 22960 , 8972*w - 40544 , -31616*w + 89068 , 84623*w - 37555 , -40936*w + 168700 , -27406*w - 145516 ,
1549590 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 3864 , 267*w + 1561 , 282*w + 196 , -106*w - 448 , -512*w + 2730 , -98*w + 728 , 2824*w + 294 , 578*w + 154 , -114*w - 3822 , -836*w - 1386 , 194*w + 686 , 226*w - 2016 ],
[ -267*w + 1561 , 2632 , -55*w - 567 , 986*w + 462 , -5*w - 651 , -164*w , -1092*w + 4676 , -235*w + 889 , 1067*w + 2037 , 851*w - 707 , -312*w + 14 , 171*w + 1687 ],
[ -282*w + 196 , 55*w - 567 , 1610 , -900*w - 3514 , -1404*w - 1134 , -234*w - 126 , 306*w , 54*w , 0 , 0 , 0 , -194*w + 70 ],
[ 106*w - 448 , -986*w + 462 , 900*w - 3514 , 28084 , 3592*w + 9772 , 732*w - 322 , -988*w - 700 , -182*w , 0 , 0 , 0 , 614*w - 2828 ],
[ 512*w + 2730 , 5*w - 651 , 1404*w - 1134 , -3592*w + 9772 , 20216 , 344*w + 4074 , 5800*w - 4452 , 1142*w - 560 , 600*w - 12320 , -2280*w - 5880 , 600*w + 2520 , 1584*w - 5712 ],
[ 98*w + 728 , 164*w , 234*w - 126 , -732*w - 322 , -344*w + 4074 , 1204 , 1356*w + 1834 , 246*w + 420 , 1010*w - 2800 , -162*w - 2590 , -18*w + 910 , 856*w - 238 ],
[ -2824*w + 294 , 1092*w + 4676 , -306*w , 988*w - 700 , -5800*w - 4452 , -1356*w + 1834 , 82656 , -524*w + 16520 , 22280*w - 1680 , 8724*w - 32690 , -3934*w + 8610 , 13826*w + 15918 ],
[ -578*w + 154 , 235*w + 889 , -54*w , 182*w , -1142*w - 560 , -246*w + 420 , 524*w + 16520 , 3332 , 4420*w - 1456 , 1500*w - 6944 , -720*w + 1904 , 2862*w + 2478 ],
[ 114*w - 3822 , -1067*w + 2037 , 0 , 0 , -600*w - 12320 , -1010*w - 2800 , -22280*w - 1680 , -4420*w - 1456 , 47138 , 9666*w + 19222 , -2570*w - 8330 , -4938*w + 28322 ],
[ 836*w - 1386 , -851*w - 707 , 0 , 0 , 2280*w - 5880 , 162*w - 2590 , -8724*w - 32690 , -1500*w - 6944 , -9666*w + 19222 , 21714 , 660*w - 7084 , -7818*w + 4452 ],
[ -194*w + 686 , 312*w + 14 , 0 , 0 , -600*w + 2520 , 18*w + 910 , 3934*w + 8610 , 720*w + 1904 , 2570*w - 8330 , -660*w - 7084 , 2464 , 2424*w - 3164 ],
[ -226*w - 2016 , -171*w + 1687 , 194*w + 70 , -614*w - 2828 , -1584*w - 5712 , -856*w - 238 , -13826*w + 15918 , -2862*w + 2478 , 4938*w + 28322 , 7818*w + 4452 , -2424*w - 3164 , 22554 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 29218 , -1433*w - 33285 , -574*w - 18172 , -181*w - 8547 , 502*w + 1036 , -504*w - 1092 , -1158*w + 714 , -1200*w + 1036 , 829*w - 861 , -680*w + 3262 , 1090*w + 4424 , 10299*w + 26019 ],
[ 1433*w - 33285 , 46900 , -196*w + 25032 , 304*w + 12278 , 174*w + 42 , 54*w , 966*w , 1548*w , -780*w , 180*w , 0 , -12507*w - 35959 ],
[ 574*w - 18172 , 196*w + 25032 , 13426 , 130*w + 6482 , -48*w + 84 , 156*w - 14 , 522*w , 838*w , -416*w , 96*w , 0 , -6874*w - 19306 ],
[ 181*w - 8547 , -304*w + 12278 , -130*w + 6482 , 11410 , -96*w + 294 , 2*w - 1946 , 140*w + 420 , 362*w , -208*w , 48*w , 0 , -2033*w - 6615 ],
[ -502*w + 1036 , -174*w + 42 , 48*w + 84 , 96*w + 294 , 3570 , 58*w - 2744 , 62*w - 196 , 32*w - 280 , 0 , 0 , 0 , -1326*w - 2086 ],
[ 504*w - 1092 , -54*w , -156*w - 14 , -2*w - 1946 , -58*w - 2744 , 2562 , -10*w - 196 , -78*w + 84 , 24*w + 196 , -120*w - 588 , -372*w - 84 , 918*w + 56 ],
[ 1158*w + 714 , -966*w , -522*w , -140*w + 420 , -62*w - 196 , 10*w - 196 , 3472 , 648*w + 2744 , -216*w - 2492 , 1080*w + 5460 , 3348*w + 756 , 1624*w - 1148 ],
[ 1200*w + 1036 , -1548*w , -838*w , -362*w , -32*w - 280 , 78*w + 84 , -648*w + 2744 , 3402 , 336*w - 2338 , -420*w + 5670 , 2250*w + 5754 , 1630*w - 1302 ],
[ -829*w - 861 , 780*w , 416*w , 208*w , 0 , -24*w + 196 , 216*w - 2492 , -336*w - 2338 , 1988 , -420*w - 4704 , -2486*w - 2310 , -1037*w + 623 ],
[ 680*w + 3262 , -180*w , -96*w , -48*w , 0 , 120*w - 588 , -1080*w + 5460 , 420*w + 5670 , 420*w - 4704 , 12810 , 5920*w + 10080 , 1220*w + 2548 ],
[ -1090*w + 4424 , 0 , 0 , 0 , 0 , 372*w - 84 , -3348*w + 756 , -2250*w + 5754 , 2486*w - 2310 , -5920*w + 10080 , 27104 , -468*w + 5810 ],
[ -10299*w + 26019 , 12507*w - 35959 , 6874*w - 19306 , 2033*w - 6615 , 1326*w - 2086 , -918*w + 56 , -1624*w - 1148 , -1630*w - 1302 , 1037*w + 623 , -1220*w + 2548 , 468*w + 5810 , 61922 ]
]);

Grammatrix:=Matrix(S,[
[ 9982 , 5260*w - 14350 , 4500*w - 11746 , 3021*w - 4459 , 988*w - 938 , 1104*w - 2128 , -657*w + 665 , -504*w + 1036 , -83*w - 63 , 4*w - 1232 , 1090*w + 4424 , 938*w + 20762 ],
[ -5260*w - 14350 , 75586 , 82*w + 63308 , -256*w + 15918 , -222*w + 42 , 618*w , 854*w , 1964*w , -304*w , 228*w , 0 , -20860*w - 44310 ],
[ -4500*w - 11746 , -82*w + 63308 , 53242 , -170*w + 13930 , -18*w + 126 , 936*w - 42 , 716*w , 1682*w , -256*w , 192*w , 0 , -17558*w - 37604 ],
[ -3021*w - 4459 , 256*w + 15918 , 170*w + 13930 , 18760 , -38*w + 5810 , 672*w + 3682 , 268*w - 560 , 502*w , -64*w , 48*w , 0 , -7219*w - 12579 ],
[ -988*w - 938 , 222*w + 42 , 18*w + 126 , 38*w + 5810 , 3108 , 64*w + 3682 , 18*w - 252 , 14*w + 140 , 0 , 0 , 0 , -920*w - 938 ],
[ -1104*w - 2128 , -618*w , -936*w - 42 , -672*w + 3682 , -64*w + 3682 , 7378 , -4*w - 868 , -222*w - 28 , 72*w - 168 , 180*w + 504 , -1116*w - 252 , -96*w - 2156 ],
[ 657*w + 665 , -854*w , -716*w , -268*w - 560 , -18*w - 252 , 4*w - 868 , 2058 , 504*w + 2072 , -168*w + 224 , -420*w - 1050 , 2604*w + 588 , 1487*w - 3157 ],
[ 504*w + 1036 , -1964*w , -1682*w , -502*w , -14*w + 140 , 222*w - 28 , -504*w + 2072 , 3402 , -240*w - 196 , -78*w - 1764 , 2250*w + 5754 , 2298*w - 3416 ],
[ 83*w - 63 , 304*w , 256*w , 64*w , 0 , -72*w - 168 , 168*w + 224 , 240*w - 196 , 182 , -174*w + 84 , 490*w - 1638 , -121*w - 301 ],
[ -4*w - 1232 , -228*w , -192*w , -48*w , 0 , -180*w + 504 , 420*w - 1050 , 78*w - 1764 , 174*w + 84 , 1386 , -1472*w - 4704 , -852*w - 1148 ],
[ -1090*w + 4424 , 0 , 0 , 0 , 0 , 1116*w - 252 , -2604*w + 588 , -2250*w + 5754 , -490*w - 1638 , 1472*w - 4704 , 27104 , 2524*w + 9562 ],
[ -938*w + 20762 , 20860*w - 44310 , 17558*w - 37604 , 7219*w - 12579 , 920*w - 938 , 96*w - 2156 , -1487*w - 3157 , -2298*w - 3416 , 121*w - 301 , 852*w - 1148 , -2524*w + 9562 , 79730 ]
]);

Grammatrix:=Matrix(S,[
[ 37881060 , 127036*w + 8497076 , 36560*w - 403858 , 24332*w - 1115786 , 21780*w + 313264 , -291912*w - 236698 , 34520*w - 24402 , -115868*w - 9114 , -15382*w + 14742 , -1280*w - 47614 , 19108*w + 35378 , 
    -2225710*w - 4302214 ],
[ -127036*w + 8497076 , 2005976 , 25496*w - 114226 , 126224*w - 348726 , -32698*w + 84406 , -38522*w - 61768 , 9618*w - 5418 , -23468*w - 4438 , -2668*w + 938 , 620*w - 6034 , 1926*w + 5810 , -483242*w - 
    1249192 ],
[ -36560*w - 403858 , -25496*w - 114226 , 53508 , -17430*w + 140756 , 8268*w - 24948 , -3604*w + 9800 , -1092*w + 1120 , 1032*w , 64*w , -24*w , 0 , 72748*w + 105000 ],
[ -24332*w - 1115786 , -126224*w - 348726 , 17430*w + 140756 , 1293376 , 22420*w - 410844 , -19488*w + 268240 , -2832*w + 38304 , 804*w - 5040 , 32*w , -12*w , 0 , 360530*w + 361802 ],
[ -21780*w + 313264 , 32698*w + 84406 , -8268*w - 24948 , -22420*w - 410844 , 145334 , 1974*w - 109214 , 3088*w - 25886 , -4166*w + 18494 , 900*w + 12390 , -8460*w - 4410 , 9270*w - 15120 , -112488*w - 64400
],
[ 291912*w - 236698 , 38522*w - 61768 , 3604*w + 9800 , 19488*w + 268240 , -1974*w - 109214 , 195944 , -1874*w + 8190 , 2754*w + 27846 , -600*w - 5460 , 5640*w + 1890 , -6180*w + 10080 , 45568*w + 133994 ],
[ -34520*w - 24402 , -9618*w - 5418 , 1092*w + 1120 , 2832*w + 38304 , -3088*w - 25886 , 1874*w + 8190 , 110068 , -2756*w - 170604 , -23604*w - 70238 , 59228*w - 56028 , -36382*w + 186704 , 50020*w - 135688 
],
[ 115868*w - 9114 , 23468*w - 4438 , -1032*w , -804*w - 5040 , 4166*w + 18494 , -2754*w + 27846 , 2756*w - 170604 , 273560 , 34792*w + 113722 , -93236*w + 75992 , 61170*w - 282856 , -73144*w + 233520 ],
[ 15382*w + 14742 , 2668*w + 938 , -64*w , -32*w , -900*w + 12390 , 600*w - 5460 , 23604*w - 70238 , -34792*w + 113722 , 81830 , -50828*w - 54446 , 64606*w - 65576 , -54380*w + 29568 ],
[ 1280*w - 47614 , -620*w - 6034 , 24*w , 12*w , 8460*w - 4410 , -5640*w + 1890 , -59228*w - 56028 , 93236*w + 75992 , 50828*w - 54446 , 257418 , -83768*w - 237496 , 52802*w + 214928 ],
[ -19108*w + 35378 , -1926*w + 5810 , 0 , 0 , -9270*w - 15120 , 6180*w + 10080 , 36382*w + 186704 , -61170*w - 282856 , -64606*w - 65576 , 83768*w - 237496 , 409948 , 21768*w - 318906 ],
[ 2225710*w - 4302214 , 483242*w - 1249192 , -72748*w + 105000 , -360530*w + 361802 , 112488*w - 64400 , -45568*w + 133994 , -50020*w - 135688 , 73144*w + 233520 , 54380*w + 29568 , -52802*w + 214928 , 
    -21768*w - 318906 , 2253776 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 23409470 , 1528422*w - 2658684 , 2115586*w - 3738056 , 783326*w + 1788444 , 55770*w - 404964 , -1669520*w - 2134454 , 108853232*w - 45358138 , 14274872*w - 5870452 , 7667244*w - 2230956 , -1068672*w - 
    3614226 , 1639804*w - 136640 , 28572690*w - 116956742 ],
[ -1528422*w - 2658684 , 11262846 , 4323486*w + 3162488 , -43690*w - 2353218 , 104632*w + 109144 , -234116*w + 85960 , 2988878*w + 46459350 , 393964*w + 6196372 , 195154*w + 3098186 , -60*w , 0 , 8298460*w +
    19142312 ],
[ -2115586*w - 3738056 , -4323486*w + 3162488 , 37275378 , 1003574*w - 897526 , -7030*w + 965230 , -134140*w - 2018100 , -689860*w + 105597870 , -94760*w + 14039872 , -48390*w + 7004186 , 0 , 0 , 9339324*w +
    34319796 ],
[ -783326*w + 1788444 , 43690*w - 2353218 , -1003574*w - 897526 , 4562390 , -25950*w - 308658 , 666908*w - 3788344 , 11686058*w + 3897348 , 1527816*w + 2044 , 500248*w + 1003492 , 1164788*w - 1843800 , 
    -121600*w + 3382400 , 4059528*w - 13253842 ],
[ -55770*w - 404964 , -104632*w + 109144 , 7030*w + 965230 , 25950*w - 308658 , 68824 , -13340*w + 100884 , -1858432*w + 3483788 , -247378*w + 473144 , -119592*w + 222866 , -18200*w + 29400 , 1900*w - 52850 
, -269164*w + 2880122 ],
[ 1669520*w - 2134454 , 234116*w + 85960 , 134140*w - 2018100 , -666908*w - 3788344 , 13340*w + 100884 , 5278112 , -12318616*w - 24480876 , -1482482*w - 2688336 , -661402*w - 3029376 , -988192*w + 4217094 , 
-662512*w - 4356184 , -6265822*w + 6027070 ],
[ -108853232*w - 45358138 , -2988878*w + 46459350 , 689860*w + 105597870 , -11686058*w + 3897348 , 1858432*w + 3483788 , 12318616*w - 24480876 , 4024927382 , 309760*w + 532261744 , -2869942*w + 272605732 , 
    11277894*w - 7001988 , -4277406*w + 26644968 , 538162010*w + 1302260372 ],
[ -14274872*w - 5870452 , -393964*w + 6196372 , 94760*w + 14039872 , -1527816*w + 2044 , 247378*w + 473144 , 1482482*w - 2688336 , -309760*w + 532261744 , 70485128 , -338638*w + 35927416 , 1250840*w - 669592
, -504840*w + 2894220 , 71090074*w + 172946984 ],
[ -7667244*w - 2230956 , -195154*w + 3098186 , 48390*w + 7004186 , -500248*w + 1003492 , 119592*w + 222866 , 661402*w - 3029376 , 2869942*w + 272605732 , 338638*w + 35927416 , 18901372 , 898678*w - 1906996 ,
48054*w + 2879394 , 37079866*w + 85056006 ],
[ 1068672*w - 3614226 , 60*w , 0 , -1164788*w - 1843800 , 18200*w + 29400 , 988192*w + 4217094 , -11277894*w - 7001988 , -1250840*w - 669592 , -898678*w - 1906996 , 5032398 , -1451592*w - 2818396 , 
    -3453578*w + 9095324 ],
[ -1639804*w - 136640 , 0 , 0 , 121600*w + 3382400 , -1900*w - 52850 , 662512*w - 4356184 , 4277406*w + 26644968 , 504840*w + 2894220 , -48054*w + 2879394 , 1451592*w - 2818396 , 4509428 , 4544972*w + 
    1880732 ],
[ -28572690*w - 116956742 , -8298460*w + 19142312 , -9339324*w + 34319796 , -4059528*w - 13253842 , 269164*w + 2880122 , 6265822*w + 6027070 , -538162010*w + 1302260372 , -71090074*w + 172946984 , 
    -37079866*w + 85056006 , 3453578*w + 9095324 , -4544972*w + 1880732 , 934721060 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1295742 , 3748*w + 56756 , -416546*w + 4831638 , -140928*w + 1170806 , -31610*w + 77952 , -3634*w + 19712 , 19258*w - 4942 , -15196*w + 18536 , -8958*w - 26460 , -21554*w - 12572 , -5680*w - 1638 , 
    -176534*w - 663390 ],
[ -3748*w + 56756 , 4550 , -19002*w + 207256 , -7200*w + 50400 , -7360*w - 1820 , -2788*w - 140 , -992*w , -208*w , -44*w , 24*w - 84 , 0 , -3646*w - 35630 ],
[ 416546*w + 4831638 , 19002*w + 207256 , 20598984 , -120578*w + 5016732 , -57760*w - 11494 , 28978*w - 44534 , 95092*w + 7224 , -74918*w - 1064 , 19120*w - 72296 , 712*w - 203616 , -1488*w - 47152 , 
    -888006*w - 2087358 ],
[ 140928*w + 1170806 , 7200*w + 50400 , 120578*w + 5016732 , 1344364 , -15658*w + 34748 , 6978*w + 43540 , -3664*w + 45906 , -66*w - 44870 , 19944*w + 89026 , 71434*w + 32340 , 17988*w + 7112 , -224256*w - 
    528808 ],
[ 31610*w + 77952 , 7360*w - 1820 , 57760*w - 11494 , 15658*w + 34748 , 161630 , 2250*w + 66080 , 1262*w + 31696 , -80*w - 2100 , 0 , 0 , 0 , -38878*w - 53830 ],
[ 3634*w + 19712 , 2788*w - 140 , -28978*w - 44534 , -6978*w + 43540 , -2250*w + 66080 , 63224 , -17206*w + 59318 , 11758*w - 43498 , 9688*w + 66570 , 46232*w + 54404 , 11764*w + 12110 , 1940*w - 55496 ],
[ -19258*w - 4942 , 992*w , -95092*w + 7224 , 3664*w + 45906 , -1262*w + 31696 , 17206*w + 59318 , 138502 , -7424*w - 103390 , 50492*w + 39830 , 86688*w - 120764 , 21076*w - 33110 , 4576*w - 104426 ],
[ 15196*w + 18536 , 208*w , 74918*w - 1064 , 66*w - 44870 , 80*w - 2100 , -11758*w - 43498 , 7424*w - 103390 , 85176 , -38492*w - 56056 , -78662*w + 59024 , -19380*w + 17318 , -12326*w + 71736 ],
[ 8958*w - 26460 , 44*w , -19120*w - 72296 , -19944*w + 89026 , 0 , -9688*w + 66570 , -50492*w + 39830 , 38492*w - 56056 , 173404 , 85966*w + 225568 , 22532*w + 53886 , 32542*w - 20468 ],
[ 21554*w - 12572 , -24*w - 84 , -712*w - 203616 , -71434*w + 32340 , 0 , -46232*w + 54404 , -86688*w - 120764 , 78662*w + 59024 , -85966*w + 225568 , 592746 , 2596*w + 148456 , 55588*w + 88578 ],
[ 5680*w - 1638 , 0 , 1488*w - 47152 , -17988*w + 7112 , 0 , -11764*w + 12110 , -21076*w - 33110 , 19380*w + 17318 , -22532*w + 53886 , -2596*w + 148456 , 37268 , 13296*w + 23632 ],
[ 176534*w - 663390 , 3646*w - 35630 , 888006*w - 2087358 , 224256*w - 528808 , 38878*w - 53830 , -1940*w - 55496 , -4576*w - 104426 , 12326*w + 71736 , -32542*w - 20468 , -55588*w + 88578 , -13296*w + 23632
, 600684 ]
]);

Grammatrix:=Matrix(S,[
[ 15750196 , 129536*w - 2056922 , 142998*w - 289184 , -651794*w + 951622 , -152260*w - 45976 , -56588*w + 117936 , 244230*w - 304780 , -81060*w + 756490 , -7320*w + 195776 , -87172*w - 245140 , -204688*w + 
    41580 , -835610*w - 571256 ],
[ -129536*w - 2056922 , 299698 , -17316*w - 2702 , 108880*w - 178402 , 10920*w + 6692 , 6320*w - 21896 , -42250*w + 58618 , 15550*w - 144256 , 1696*w - 37338 , 16402*w + 47110 , 39108*w - 7210 , 128640*w + 
    36918 ],
[ -142998*w - 289184 , 17316*w - 2702 , 243012 , -72790*w - 112364 , 16512*w + 13972 , 9788*w - 3108 , 2988*w - 2016 , -172*w , -120*w , 72*w , 0 , 9646*w - 30940 ],
[ 651794*w + 951622 , -108880*w - 178402 , 72790*w - 112364 , 988736 , 14032*w - 16212 , -6812*w - 85540 , -5792*w - 75040 , 364*w + 5040 , 20*w , -12*w , 0 , -30812*w + 223426 ],
[ 152260*w - 45976 , -10920*w + 6692 , -16512*w + 13972 , -14032*w - 16212 , 712838 , 1810*w - 15456 , -84856*w + 185878 , -50048*w - 595350 , -20250*w - 154350 , 94500*w + 94500 , 139050*w - 226800 , 
    249564*w + 163100 ],
[ 56588*w + 117936 , -6320*w - 21896 , -9788*w - 3108 , 6812*w - 85540 , -1810*w - 15456 , 43568 , 14814*w - 45234 , 8504*w + 102354 , 3450*w + 25130 , -16100*w - 15400 , -23690*w + 38640 , -34016*w + 23744 
],
[ -244230*w - 304780 , 42250*w + 58618 , -2988*w - 2016 , 5792*w - 75040 , 84856*w + 185878 , -14814*w - 45234 , 250740 , -139214*w - 242550 , -39210*w - 50708 , 66244*w - 77826 , 28474*w - 301168 , 120282*w
    - 349020 ],
[ 81060*w + 756490 , -15550*w - 144256 , 172*w , -364*w + 5040 , 50048*w - 595350 , -8504*w + 102354 , 139214*w - 242550 , 825174 , 9960*w + 215082 , -113968*w - 194908 , -207586*w + 191324 , -303370*w - 
    186172 ],
[ 7320*w + 195776 , -1696*w - 37338 , 120*w , -20*w , 20250*w - 154350 , -3450*w + 25130 , 39210*w - 50708 , -9960*w + 215082 , 56952 , -27360*w - 60466 , -56430*w + 32340 , -76962*w - 76636 ],
[ 87172*w - 245140 , -16402*w + 47110 , -72*w , 12*w , -94500*w + 94500 , 16100*w - 15400 , -66244*w - 77826 , 113968*w - 194908 , 27360*w - 60466 , 156254 , 75468*w + 155512 , 45580*w + 339038 ],
[ 204688*w + 41580 , -39108*w - 7210 , 0 , 0 , -139050*w - 226800 , 23690*w + 38640 , -28474*w - 301168 , 207586*w + 191324 , 56430*w + 32340 , -75468*w + 155512 , 409948 , -118002*w + 490476 ],
[ 835610*w - 571256 , -128640*w + 36918 , -9646*w - 30940 , 30812*w + 223426 , -249564*w + 163100 , 34016*w + 23744 , -120282*w - 349020 , 303370*w - 186172 , 76962*w - 76636 , -45580*w + 339038 , 118002*w +
    490476 , 1112272 ]
]);

Grammatrix:=Matrix(S,[
[ 1000188 , -30644*w + 139552 , -42782*w - 67382 , 86916*w - 294294 , 147832*w - 135856 , 690*w - 25032 , 25820*w - 34454 , -48762*w - 119014 , 1252*w - 10878 , 43356*w - 2674 , -13464*w + 93940 , -217784*w 
    + 242858 ],
[ 30644*w + 139552 , 39942 , -2508*w - 6286 , 3386*w + 5838 , 16104*w - 112 , -1816*w , 3976*w , 1116*w , 476*w , -84*w , 0 , -12880*w + 116984 ],
[ 42782*w - 67382 , 2508*w - 6286 , 92652 , -47446*w + 30156 , -36728*w + 3864 , -3152*w + 2072 , -2048*w + 1344 , 100*w , -68*w , 12*w , 0 , 22964*w + 95914 ],
[ -86916*w - 294294 , -3386*w + 5838 , 47446*w + 30156 , 659204 , 4698*w + 511756 , -174*w + 48090 , 1076*w + 21840 , 70*w - 4200 , 68*w , -12*w , 0 , 82812*w - 165340 ],
[ -147832*w - 135856 , -16104*w - 112 , 36728*w + 3864 , -4698*w + 511756 , 1114470 , -114*w + 15428 , 67792*w + 45346 , -54050*w - 765660 , 10800*w - 34650 , 151200*w + 292950 , -139050*w + 226800 , 
    226562*w - 337106 ],
[ -690*w - 25032 , 1816*w , 3152*w + 2072 , 174*w + 48090 , 114*w + 15428 , 9800 , 1934*w - 10486 , -1526*w - 25592 , 304*w - 2562 , 4256*w + 8526 , -3914*w + 6384 , 13836*w - 20734 ],
[ -25820*w - 34454 , -3976*w , 2048*w + 1344 , -1076*w + 21840 , -67792*w + 45346 , -1934*w - 10486 , 94262 , 119840*w + 11368 , 5452*w + 17094 , -55472*w + 133238 , -22682*w - 162008 , 9398*w + 200620 ],
[ 48762*w - 119014 , -1116*w , -100*w , -70*w - 4200 , 54050*w - 765660 , 1526*w - 25592 , -119840*w + 11368 , 1383074 , -23536*w + 64638 , -224064*w - 629594 , 265016*w - 273056 , -332630*w + 148162 ],
[ -1252*w - 10878 , -476*w , 68*w , -68*w , -10800*w - 34650 , -304*w - 2562 , -5452*w + 17094 , 23536*w + 64638 , 6076 , -21088*w - 2436 , 7602*w - 44240 , -13412*w + 46746 ],
[ -43356*w - 2674 , 84*w , -12*w , 12*w , -151200*w + 292950 , -4256*w + 8526 , 55472*w + 133238 , 224064*w - 629594 , 21088*w - 2436 , 541338 , -165080*w - 176512 , 174370*w + 309372 ],
[ 13464*w + 93940 , 0 , 0 , 0 , 139050*w + 226800 , 3914*w + 6384 , 22682*w - 162008 , -265016*w - 273056 , -7602*w - 44240 , 165080*w - 176512 , 409948 , 37556*w - 472920 ],
[ 217784*w + 242858 , 12880*w + 116984 , -22964*w + 95914 , -82812*w - 165340 , -226562*w - 337106 , -13836*w - 20734 , -9398*w + 200620 , 332630*w + 148162 , 13412*w + 46746 , -174370*w + 309372 , -37556*w 
    - 472920 , 1227142 ]
]);

Grammatrix:=Matrix(S,[
[ 1736 , -4*w - 84 , -81*w - 217 , 10*w - 42 , 764*w + 140 , -118*w - 154 , -60*w - 238 , -216*w + 406 , -888*w + 1386 , -84*w + 1988 , -30*w - 686 , -257*w - 1477 ],
[ 4*w - 84 , 98532 , 1180*w - 23394 , -90*w + 1316 , -6112*w + 280 , -2796*w + 756 , -844*w + 28 , -410*w - 560 , -2956*w + 6300 , 340*w + 7896 , -506*w - 3234 , -9866*w - 8932 ],
[ 81*w - 217 , -1180*w - 23394 , 6118 , -55*w - 245 , 1110*w - 1568 , 581*w - 973 , 185*w - 119 , 122*w + 140 , 767*w - 1659 , -94*w - 2058 , 134*w + 840 , 2415*w + 2009 ],
[ -10*w - 42 , 90*w + 1316 , 55*w - 245 , 140 , -212*w + 84 , -144*w + 28 , -16*w , -4*w , 0 , 0 , 0 , -31*w - 7 ],
[ -764*w + 140 , 6112*w + 280 , -1110*w - 1568 , 212*w + 84 , 9002 , -118*w + 2268 , 18*w + 700 , -28*w - 336 , 0 , 0 , 0 , 380*w + 3850 ],
[ 118*w - 154 , 2796*w + 756 , -581*w - 973 , 144*w + 28 , 118*w + 2268 , 2310 , 2*w + 616 , 122*w + 364 , 1088*w + 2016 , 960*w - 896 , -336*w + 560 , -213*w + 2737 ],
[ 60*w - 238 , 844*w + 28 , -185*w - 119 , 16*w , -18*w + 700 , -2*w + 616 , 336 , 112*w + 56 , 616*w + 980 , 504*w - 532 , -168*w + 280 , -37*w + 1603 ],
[ 216*w + 406 , 410*w - 560 , -122*w + 140 , 4*w , 28*w - 336 , -122*w + 364 , -112*w + 56 , 728 , 36*w + 2366 , 532*w + 910 , -206*w - 126 , -398*w + 742 ],
[ 888*w + 1386 , 2956*w + 6300 , -767*w - 1659 , 0 , 0 , -1088*w + 2016 , -616*w + 980 , -36*w + 2366 , 14518 , 3356*w + 6426 , -1436*w - 1596 , -3399*w + 5201 ],
[ 84*w + 1988 , -340*w + 7896 , 94*w - 2058 , 0 , 0 , -960*w - 896 , -504*w - 532 , -532*w + 910 , -3356*w + 6426 , 8316 , -264*w - 3080 , -2740*w - 3346 ],
[ 30*w - 686 , 506*w - 3234 , -134*w + 840 , 0 , 0 , 336*w + 560 , 168*w + 280 , 206*w - 126 , 1436*w - 1596 , 264*w - 3080 , 1232 , 940*w + 1946 ],
[ 257*w - 1477 , 9866*w - 8932 , -2415*w + 2009 , 31*w - 7 , -380*w + 3850 , 213*w + 2737 , 37*w + 1603 , 398*w + 742 , 3399*w + 5201 , 2740*w - 3346 , -940*w + 1946 , 13776 ]
]);

Grammatrix:=Matrix(S,[
[ 44642094 , 523770*w + 19007170 , 18070*w + 1407812 , 11104*w + 245854 , -65440*w + 27020 , -264186*w - 106582 , 83786*w - 126126 , -60602*w - 105084 , -75618*w + 241696 , -236228*w + 802676 , 145762*w + 
    831558 , -2520880*w + 2831052 ],
[ -523770*w + 19007170 , 8166564 , -7566*w + 608328 , -1586*w + 111440 , -32958*w + 11858 , -115194*w - 60508 , 36656*w - 46424 , -23882*w - 50316 , -33616*w + 97188 , -105806*w + 324772 , 54782*w + 358274 ,
-1097342*w + 998550 ],
[ -18070*w + 1407812 , 7566*w + 608328 , 110404 , -6226*w + 35868 , -10580*w + 23604 , -18764*w + 6468 , 5056*w - 3556 , -1984*w - 2212 , -1804*w + 4480 , -5468*w + 14868 , 2256*w + 17668 , -95584*w + 90258 
],
[ -11104*w + 245854 , 1586*w + 111440 , 6226*w + 35868 , 22568 , -1876*w + 23408 , -4764*w + 22400 , 1252*w - 4536 , -400*w + 504 , -40*w , -12*w , 0 , -16444*w + 27538 ],
[ 65440*w + 27020 , 32958*w + 11858 , 10580*w + 23604 , 1876*w + 23408 , 35574 , -2164*w + 50764 , -2674*w - 9296 , -1496*w + 3416 , 5040*w + 7728 , 16560*w + 26208 , 14832*w - 24192 , 8180*w + 105812 ],
[ 264186*w - 106582 , 115194*w - 60508 , 18764*w + 6468 , 4764*w + 22400 , 2164*w + 50764 , 114310 , -4612*w - 32340 , -2126*w + 19152 , 7420*w + 13244 , 24380*w + 39144 , 21836*w - 35616 , 59558*w + 200340 
],
[ -83786*w - 126126 , -36656*w - 46424 , -5056*w - 3556 , -1252*w - 4536 , 2674*w - 9296 , 4612*w - 32340 , 28406 , -1384*w - 3192 , 6824*w - 19250 , 23748*w - 58870 , -7780*w - 74872 , 23986*w - 17220 ],
[ 60602*w - 105084 , 23882*w - 50316 , 1984*w - 2212 , 400*w + 504 , 1496*w + 3416 , 2126*w + 19152 , 1384*w - 3192 , 9324 , 900*w - 10584 , 3560*w - 37744 , -10016*w - 23464 , 35600*w - 560 ],
[ 75618*w + 241696 , 33616*w + 97188 , 1804*w + 4480 , 40*w , -5040*w + 7728 , -7420*w + 13244 , -6824*w - 19250 , -900*w - 10584 , 44618 , -2110*w + 149296 , 44326*w + 67004 , -64120*w + 133252 ],
[ 236228*w + 802676 , 105806*w + 324772 , 5468*w + 14868 , 12*w , -16560*w + 26208 , -24380*w + 39144 , -23748*w - 58870 , -3560*w - 37744 , 2110*w + 149296 , 501354 , 151852*w + 210028 , -215250*w + 460320 
],
[ -145762*w + 831558 , -54782*w + 358274 , -2256*w + 17668 , 0 , -14832*w - 24192 , -21836*w - 35616 , 7780*w - 74872 , 10016*w - 23464 , -44326*w + 67004 , -151852*w + 210028 , 409948 , -229594*w - 265230 
],
[ 2520880*w + 2831052 , 1097342*w + 998550 , 95584*w + 90258 , 16444*w + 27538 , -8180*w + 105812 , -59558*w + 200340 , -23986*w - 17220 , -35600*w - 560 , 64120*w + 133252 , 215250*w + 460320 , 229594*w - 
    265230 , 2127762 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 29218 , -29464*w - 44772 , 755*w + 26719 , -2189*w - 12691 , -1006*w - 2128 , 654*w - 1806 , -3642*w + 3430 , 2116*w - 2408 , -4229*w + 17171 , 4770*w + 25382 , -6604*w - 1218 , 12989*w - 41517 ],
[ 29464*w - 44772 , 388444 , 26829*w - 40453 , 10205*w - 17297 , 6852*w - 6384 , -1206*w - 3612 , 9462*w + 12180 , -5982*w - 3570 , 19731*w - 36351 , -3540*w - 94794 , 20238*w + 25032 , -104521*w - 76167 ],
[ -755*w + 26719 , -26829*w - 40453 , 37800 , -706*w - 16380 , -302*w + 2338 , 504*w + 2380 , -4138*w + 420 , 1296*w , -1344*w , -144*w , 0 , 2456*w - 56532 ],
[ 2189*w - 12691 , -10205*w - 17297 , 706*w - 16380 , 66178 , -134*w + 23016 , -122*w + 7826 , 1044*w + 3276 , -598*w + 1120 , 448*w , 48*w , 0 , 18166*w + 13692 ],
[ 1006*w - 2128 , -6852*w - 6384 , 302*w + 2338 , 134*w + 23016 , 11620 , 14*w + 5306 , -368*w + 1456 , -14*w + 1148 , -624*w - 3136 , -1980*w - 1008 , 828*w - 2436 , 3964*w - 3654 ],
[ -654*w - 1806 , 1206*w - 3612 , -504*w + 2380 , 122*w + 7826 , -14*w + 5306 , 6426 , -2894*w - 6972 , 234*w + 8092 , -6240*w - 32928 , -19800*w - 10248 , 8280*w - 24360 , -11382*w + 16324 ],
[ 3642*w + 3430 , -9462*w + 12180 , 4138*w + 420 , -1044*w + 3276 , 368*w + 1456 , 2894*w - 6972 , 35952 , 5592*w - 16576 , -15360*w + 92960 , 25500*w + 128520 , -33564*w - 4956 , 32108*w + 37688 ],
[ -2116*w - 2408 , 5982*w - 3570 , -1296*w , 598*w + 1120 , 14*w + 1148 , -234*w + 8092 , -5592*w - 16576 , 16506 , -10836*w - 71344 , -40570*w - 30576 , 18874*w - 46886 , -26444*w + 33320 ],
[ 4229*w + 17171 , -19731*w - 36351 , 1344*w , -448*w , 624*w - 3136 , 6240*w - 32928 , 15360*w + 92960 , 10836*w - 71344 , 369278 , 160850*w + 332304 , -116882*w + 119182 , 149558*w - 11382 ],
[ -4770*w + 25382 , 3540*w - 94794 , 144*w , -48*w , 1980*w - 1008 , 19800*w - 10248 , -25500*w + 128520 , 40570*w - 30576 , -160850*w + 332304 , 791210 , -157440*w - 249760 , 141118*w + 453642 ],
[ 6604*w - 1218 , -20238*w + 25032 , 0 , 0 , -828*w - 2436 , -8280*w - 24360 , 33564*w - 4956 , -18874*w - 46886 , 116882*w + 119182 , 157440*w - 249760 , 298144 , 45670*w - 340102 ],
[ -12989*w - 41517 , 104521*w - 76167 , -2456*w - 56532 , -18166*w + 13692 , -3964*w - 3654 , 11382*w + 16324 , -32108*w + 37688 , 26444*w + 33320 , -149558*w - 11382 , -141118*w + 453642 , -45670*w - 340102
, 625548 ]
]);

Grammatrix:=Matrix(S,[
[ 105322 , 507*w + 10213 , 3284*w + 77028 , -1881*w - 51695 , -1533*w - 43869 , 152768*w + 125552 , 45566*w + 18270 , 32535*w + 127617 , -19807*w - 162659 , -26838*w + 44408 , 44212*w - 96684 , 27901*w - 
    3633 ],
[ -507*w + 10213 , 43610 , -8558*w - 26586 , 4688*w + 7196 , -2384*w + 3276 , -9048*w + 26614 , -2976*w + 9492 , -5304*w - 3458 , 6312*w + 11018 , 1312*w - 9660 , -1432*w + 18256 , 13524*w + 714 ],
[ -3284*w + 77028 , 8558*w - 26586 , 134624 , -1478*w - 80472 , 366*w - 47516 , 172254*w + 210714 , 52318*w + 40656 , 33514*w + 150528 , -13440*w - 179928 , -30576*w + 36456 , 51912*w - 84672 , 26438*w - 
    51968 ],
[ 1881*w - 51695 , -4688*w + 7196 , 1478*w - 80472 , 50526 , 702*w + 31360 , -110052*w - 135996 , -33214*w - 26040 , -21210*w - 95060 , 8480*w + 113526 , 19292*w - 23002 , -32754*w + 53424 , -20936*w + 33712
],
[ 1533*w - 43869 , 2384*w + 3276 , -366*w - 47516 , -702*w + 31360 , 34552 , -87800*w - 115738 , -26486*w - 20216 , -13106*w - 88340 , 6480*w + 112280 , 19600*w - 22960 , -32960*w + 53760 , -25612*w - 12810 
],
[ -152768*w + 125552 , 9048*w + 26614 , -172254*w + 210714 , 110052*w - 135996 , 87800*w - 115738 , 2614360 , 40532*w + 740432 , -219510*w + 707896 , 323664*w - 561806 , -139500*w - 342454 , 281810*w + 
    527408 , 117470*w + 458584 ],
[ -45566*w + 18270 , 2976*w + 9492 , -52318*w + 40656 , 33214*w - 26040 , 26486*w - 20216 , -40532*w + 740432 , 215404 , -71904*w + 177016 , 99560*w - 120288 , -33216*w - 111972 , 69916*w + 180488 , 25548*w 
    + 135786 ],
[ -32535*w + 127617 , 5304*w - 3458 , -33514*w + 150528 , 21210*w - 95060 , 13106*w - 88340 , 219510*w + 707896 , 71904*w + 177016 , 383796 , 23288*w - 404460 , -74040*w + 26152 , 129752*w - 92232 , 87972*w 
    + 72184 ],
[ 19807*w - 162659 , -6312*w + 11018 , 13440*w - 179928 , -8480*w + 113526 , -6480*w + 112280 , -323664*w - 561806 , -99560*w - 120288 , -23288*w - 404460 , 499142 , 90740*w - 69972 , -155342*w + 183722 , 
    -94178*w - 57498 ],
[ 26838*w + 44408 , -1312*w - 9660 , 30576*w + 36456 , -19292*w - 23002 , -19600*w - 22960 , 139500*w - 342454 , 33216*w - 111972 , 74040*w + 26152 , -90740*w - 69972 , 126392 , -11870*w - 225414 , 23726*w -
    106022 ],
[ -44212*w - 96684 , 1432*w + 18256 , -51912*w - 84672 , 32754*w + 53424 , 32960*w + 53760 , -281810*w + 527408 , -69916*w + 180488 , -129752*w - 92232 , 155342*w + 183722 , 11870*w - 225414 , 409948 , 
    -51400*w + 173656 ],
[ -27901*w - 3633 , -13524*w + 714 , -26438*w - 51968 , 20936*w + 33712 , 25612*w - 12810 , -117470*w + 458584 , -25548*w + 135786 , -87972*w + 72184 , 94178*w - 57498 , -23726*w - 106022 , 51400*w + 173656 
, 266686 ]
]);

Grammatrix:=Matrix(S,[
[ 7132034 , -135426*w - 1614060 , 198240*w + 466620 , -322954*w - 823774 , 15264*w - 187068 , -6966*w + 129598 , -131970*w - 414092 , 772256*w - 474250 , 366444*w + 256522 , -9844*w - 555030 , 681994*w + 
    86492 , -1714864*w + 3364956 ],
[ 135426*w - 1614060 , 831166 , -286792*w + 192234 , -198488*w + 119630 , -19620*w + 30744 , -16476*w + 7140 , -13820*w - 2240 , 5636*w , 560*w , -240*w , 0 , 605646*w - 819112 ],
[ -198240*w + 466620 , 286792*w + 192234 , 4815594 , 59730*w + 1654996 , 24652*w + 3934 , -2794*w + 316120 , 846*w - 47852 , -264*w - 11340 , -28*w , 12*w , 0 , -1337746*w - 2777684 ],
[ 322954*w - 823774 , 198488*w + 119630 , -59730*w + 1654996 , 6920200 , 6696*w + 659568 , 67722*w + 168070 , -256292*w + 1352064 , -371634*w - 5043920 , 264028*w - 2269750 , -492012*w + 8750 , 152000*w - 
    4228000 , -1160524*w - 1307124 ],
[ -15264*w - 187068 , 19620*w + 30744 , -24652*w + 3934 , -6696*w + 659568 , 80934 , 3864*w + 1890 , -18958*w + 130144 , -27850*w - 386372 , 19800*w - 171150 , -36900*w + 1050 , 11400*w - 317100 , -82366*w -
    239918 ],
[ 6966*w + 129598 , 16476*w + 7140 , 2794*w + 316120 , -67722*w + 168070 , -3864*w + 1890 , 32242 , -23464*w - 20104 , 82146*w - 135660 , 45396*w - 7308 , -8928*w - 61964 , 78840*w - 56952 , -120354*w - 
    162624 ],
[ 131970*w - 414092 , 13820*w - 2240 , -846*w - 47852 , 256292*w + 1352064 , 18958*w + 130144 , 23464*w - 20104 , 436618 , -413182*w - 1138816 , -75476*w - 710374 , -128402*w + 222152 , -230844*w - 1173718 ,
-22926*w + 323162 ],
[ -772256*w - 474250 , -5636*w , 264*w - 11340 , 371634*w - 5043920 , 27850*w - 386372 , -82146*w - 135660 , 413182*w - 1138816 , 6337912 , -535770*w + 2615032 , 607500*w + 315140 , -580772*w + 5118400 , 
    557268*w - 1812468 ],
[ -366444*w + 256522 , -560*w , 28*w , -264028*w - 2269750 , -19800*w - 171150 , -45396*w - 7308 , 75476*w - 710374 , 535770*w + 2615032 , 1396668 , 277470*w - 229586 , 193244*w + 2456930 , 61110*w - 1093638
],
[ 9844*w - 555030 , 240*w , -12*w , 492012*w + 8750 , 36900*w + 1050 , 8928*w - 61964 , 128402*w + 222152 , -607500*w + 315140 , -277470*w - 229586 , 423626 , -519892*w - 135100 , 208618*w + 258986 ],
[ -681994*w + 86492 , 0 , 0 , -152000*w - 4228000 , -11400*w - 317100 , -78840*w - 56952 , 230844*w - 1173718 , 580772*w + 5118400 , -193244*w + 2456930 , 519892*w - 135100 , 4509428 , 256092*w - 1884386 ],
[ 1714864*w + 3364956 , -605646*w - 819112 , 1337746*w - 2777684 , 1160524*w - 1307124 , 82366*w - 239918 , 120354*w - 162624 , 22926*w + 323162 , -557268*w - 1812468 , -61110*w - 1093638 , -208618*w + 
    258986 , -256092*w - 1884386 , 10765412 ]
]);

Grammatrix:=Matrix(S,[
[ 19381124 , 106838*w + 2360540 , -21354*w - 4274970 , 51548*w + 76622 , -66072*w - 304416 , -15580*w + 99960 , 158262*w + 7602 , 55724*w - 5194 , 28286*w - 72702 , 1400*w - 55510 , -41916*w - 59654 , 
    1506432*w + 3791508 ],
[ -106838*w + 2360540 , 332822 , 1870*w - 572796 , -12798*w + 18942 , -24512*w - 560 , 5000*w , 15128*w , 4324*w , 152*w , -228*w , 0 , 166248*w + 373716 ],
[ 21354*w - 4274970 , -1870*w - 572796 , 1537494 , 23440*w + 116858 , 68390*w - 7924 , -13920*w - 13174 , -44328*w + 4312 , -14536*w + 2296 , -8618*w + 23380 , -404*w + 17472 , 13330*w + 17948 , -358210*w - 
    467824 ],
[ -51548*w + 76622 , 12798*w + 18942 , -23440*w + 116858 , 88886 , 15188*w + 65450 , -4598*w - 26880 , 258*w - 1876 , 420*w + 1260 , 8*w , -12*w , 0 , -78712*w + 15918 ],
[ 66072*w - 304416 , 24512*w - 560 , -68390*w - 7924 , -15188*w + 65450 , 199710 , 1330*w - 51688 , 1246*w - 63196 , 496*w - 16660 , -624*w - 6552 , -1008*w - 1344 , -2472*w + 4032 , -112322*w - 299754 ],
[ 15580*w + 99960 , -5000*w , 13920*w - 13174 , 4598*w - 26880 , -1330*w - 51688 , 18424 , 4336*w - 11830 , 1974*w - 7994 , -2340*w - 22470 , -3780*w - 8190 , -9270*w + 15120 , 42058*w + 63924 ],
[ -158262*w + 7602 , -15128*w , 44328*w + 4312 , -258*w - 1876 , -1246*w - 63196 , -4336*w - 11830 , 291578 , 612*w + 129430 , 70404*w + 180390 , 53316*w + 20118 , 56118*w - 282576 , 29168*w + 128142 ],
[ -55724*w - 5194 , -4324*w , 14536*w + 2296 , -420*w + 1260 , -496*w - 16660 , -1974*w - 7994 , -612*w + 129430 , 58632 , 32600*w + 85806 , 24972*w + 10472 , 27034*w - 131656 , 12666*w + 43876 ],
[ -28286*w - 72702 , -152*w , 8618*w + 23380 , -8*w , 624*w - 6552 , 2340*w - 22470 , -70404*w + 180390 , -32600*w + 85806 , 269934 , 32724*w + 120750 , 120678*w - 93352 , 15160*w + 126686 ],
[ -1400*w - 55510 , 228*w , 404*w + 17472 , 12*w , 1008*w - 1344 , 3780*w - 8190 , -53316*w + 20118 , -24972*w + 10472 , -32724*w + 120750 , 81802 , 65304*w + 60648 , -8142*w + 68376 ],
[ 41916*w - 59654 , 0 , -13330*w + 17948 , 0 , 2472*w + 4032 , 9270*w + 15120 , -56118*w - 282576 , -27034*w - 131656 , -120678*w - 93352 , -65304*w + 60648 , 409948 , -61640*w + 4354 ],
[ -1506432*w + 3791508 , -166248*w + 373716 , 358210*w - 467824 , 78712*w + 15918 , 112322*w - 299754 , -42058*w + 63924 , -29168*w + 128142 , -12666*w + 43876 , -15160*w + 126686 , 8142*w + 68376 , 61640*w 
    + 4354 , 2457014 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 53523498 , -34744*w - 5740952 , 1301672*w - 2355822 , -953498*w + 4652802 , -717880*w - 2439696 , 426446*w + 2449216 , -1675130*w - 2696750 , 3083230*w - 5220782 , 2109474*w + 5948138 , -2961224*w - 
    10900260 , -2753128*w + 710416 , -14716956*w - 17132976 ],
[ 34744*w - 5740952 , 840854 , -125187*w + 361067 , 324540*w + 172788 , 75540*w + 228830 , -57916*w - 300356 , 219702*w + 304318 , -391034*w + 733824 , -291494*w - 743470 , 415160*w + 1373680 , 358320*w - 
    141932 , 1409083*w + 1338631 ],
[ -1301672*w - 2355822 , 125187*w + 361067 , 826420 , 125134*w - 659498 , 180296*w - 135394 , -187787*w - 11403 , 284735*w - 526141 , 94018*w + 1726942 , -525829*w + 476063 , 896142*w - 477358 , 160266*w - 
    1248464 , 722754*w - 2378152 ],
[ 953498*w + 4652802 , -324540*w + 172788 , -125134*w - 659498 , 6348440 , -292454*w + 83216 , 326388*w - 268142 , -435296*w + 1195614 , -454356*w - 3063816 , 885130*w - 1473556 , -1561088*w + 1900234 , 
    -88692*w + 2467038 , -822122*w - 1250760 ],
[ 717880*w - 2439696 , -75540*w + 228830 , -180296*w - 135394 , 292454*w + 83216 , 492254 , 38662*w - 440202 , 80826*w + 842226 , -596596*w - 360444 , 22730*w - 1363712 , -144736*w + 2217026 , 355668*w + 
    787038 , 784360*w + 1784412 ],
[ -426446*w + 2449216 , 57916*w - 300356 , 187787*w - 11403 , -326388*w - 268142 , -38662*w - 440202 , 451010 , -164940*w - 732396 , 608152*w - 110334 , 127958*w + 1316560 , -104014*w - 2221240 , -424374*w -
    477960 , -792817*w - 739823 ],
[ 1675130*w - 2696750 , -219702*w + 304318 , -284735*w - 526141 , 435296*w + 1195614 , -80826*w + 842226 , 164940*w - 732396 , 2091684 , -1345780*w - 1911952 , 395454*w - 3271058 , -894226*w + 5103966 , 
    664908*w + 2509500 , 1382037*w + 3284491 ],
[ -3083230*w - 5220782 , 391034*w + 733824 , -94018*w + 1726942 , 454356*w - 3063816 , 596596*w - 360444 , -608152*w - 110334 , 1345780*w - 1911952 , 7844998 , -2478566*w + 1220072 , 4119554*w - 647402 , 
    1010136*w - 5313252 , 750756*w - 8843730 ],
[ -2109474*w + 5948138 , 291494*w - 743470 , 525829*w + 476063 , -885130*w - 1473556 , -22730*w - 1363712 , -127958*w + 1316560 , -395454*w - 3271058 , 2478566*w + 1220072 , 5672646 , 435786*w - 9212434 , 
    -1521830*w - 3060050 , -2678127*w - 2972557 ],
[ 2961224*w - 10900260 , -415160*w + 1373680 , -896142*w - 477358 , 1561088*w + 1900234 , 144736*w + 2217026 , 104014*w - 2221240 , 894226*w + 5103966 , -4119554*w - 647402 , -435786*w - 9212434 , 15197616 ,
2706994*w + 4151826 , 4604184*w + 3434984 ],
[ 2753128*w + 710416 , -358320*w - 141932 , -160266*w - 1248464 , 88692*w + 2467038 , -355668*w + 787038 , 424374*w - 477960 , -664908*w + 2509500 , -1010136*w - 5313252 , 1521830*w - 3060050 , -2706994*w + 
    4151826 , 4509428 , 645316*w + 6684986 ],
[ 14716956*w - 17132976 , -1409083*w + 1338631 , -722754*w - 2378152 , 822122*w - 1250760 , -784360*w + 1784412 , 792817*w - 739823 , -1382037*w + 3284491 , -750756*w - 8843730 , 2678127*w - 2972557 , 
    -4604184*w + 3434984 , -645316*w + 6684986 , 41871536 ]
]);

Grammatrix:=Matrix(S,[
[ 3348702 , -7955*w - 610463 , -11166*w - 215544 , 33864*w - 12362 , -16608*w - 11018 , 970*w + 8890 , 1622*w - 2912 , -6086*w - 28966 , -1425*w - 875 , 84*w + 1260 , 4274*w + 4676 , 163541*w + 30485 ],
[ 7955*w - 610463 , 114128 , 1082*w + 41972 , -7892*w - 2786 , 3425*w + 5187 , -112*w - 1946 , -343*w + 35 , 220*w + 5348 , 168*w + 462 , -178*w - 406 , -196*w - 1932 , -28207*w - 3647 ],
[ 11166*w - 215544 , -1082*w + 41972 , 18270 , -5450*w - 1596 , 1760*w + 490 , 108*w + 364 , -62*w + 238 , 272*w + 1512 , 64*w + 84 , -28*w - 84 , -152*w - 392 , -9604*w - 2198 ],
[ -33864*w - 12362 , 7892*w - 2786 , 5450*w - 1596 , 29246 , -1700*w - 10262 , 1178*w + 560 , 212*w + 112 , 24*w - 574 , 14*w - 42 , 20*w + 28 , -84*w + 140 , 3050*w + 8736 ],
[ 16608*w - 11018 , -3425*w + 5187 , -1760*w + 490 , 1700*w - 10262 , 15036 , -234*w - 5796 , -226*w - 2324 , -2816*w + 182 , -294*w + 882 , -420*w - 588 , 1764*w - 2940 , 3110*w - 1568 ],
[ -970*w + 8890 , 112*w - 1946 , -108*w + 364 , -1178*w + 560 , 234*w - 5796 , 2982 , 50*w + 1008 , 1010*w + 308 , 112*w - 280 , 128*w + 84 , -588*w + 980 , -1372*w + 154 ],
[ -1622*w - 2912 , 343*w + 35 , 62*w + 238 , -212*w + 112 , 226*w - 2324 , -50*w + 1008 , 672 , 980*w + 840 , 132*w - 196 , 40*w + 336 , -644*w + 252 , -1338*w - 1974 ],
[ 6086*w - 28966 , -220*w + 5348 , -272*w + 1512 , -24*w - 574 , 2816*w + 182 , -1010*w + 308 , -980*w + 840 , 12600 , 494*w + 1274 , -636*w + 686 , -1078*w - 7238 , 1504*w - 18284 ],
[ 1425*w - 875 , -168*w + 462 , -64*w + 84 , -14*w - 42 , 294*w + 882 , -112*w - 280 , -132*w - 196 , -494*w + 1274 , 280 , -120*w - 84 , 196*w - 1148 , 963*w - 1001 ],
[ -84*w + 1260 , 178*w - 406 , 28*w - 84 , -20*w + 28 , 420*w - 588 , -128*w + 84 , -40*w + 336 , 636*w + 686 , 120*w - 84 , 756 , -658*w - 546 , 246*w - 2520 ],
[ -4274*w + 4676 , 196*w - 1932 , 152*w - 392 , 84*w + 140 , -1764*w - 2940 , 588*w + 980 , 644*w + 252 , 1078*w - 7238 , -196*w - 1148 , 658*w - 546 , 6160 , -4046*w + 6832 ],
[ -163541*w + 30485 , 28207*w - 3647 , 9604*w - 2198 , -3050*w + 8736 , -3110*w - 1568 , 1372*w + 154 , 1338*w - 1974 , -1504*w - 18284 , -963*w - 1001 , -246*w - 2520 , 4046*w + 6832 , 100100 ]
]);

Grammatrix:=Matrix(S,[
[ 73709776 , -98207*w + 6204303 , -37892*w - 4620210 , 162221026*w + 360164252 , 80814959*w + 179787825 , 80944153*w + 184240637 , 14982277*w + 36458877 , 432438*w - 389718 , -376682*w - 921578 , -295870*w +
    66262 , -163108*w + 497728 , -43472210*w + 87994928 ],
[ 98207*w + 6204303 , 929642 , 26457*w - 562975 , 10745162*w + 24949946 , 5325132*w + 12414752 , 5500105*w + 13255795 , 905006*w + 2722510 , 54231*w - 134463 , -109512*w - 110740 , -61037*w + 102249 , 
    -14546*w + 151088 , -2556712*w + 5700982 ],
[ 37892*w - 4620210 , -26457*w - 562975 , 411488 , -8312358*w - 25658178 , -4119520*w - 12845658 , -4174386*w - 12954648 , -804134*w - 2641674 , -3648*w + 34356 , 25186*w - 9142 , 7216*w - 37520 , -3566*w - 
    32718 , 2760978*w - 3642324 ],
[ -162221026*w + 360164252 , -10745162*w + 24949946 , 8312358*w - 25658178 , 4842464158 , -1846117*w + 2418801441 , -5275129*w + 2414564117 , 218295*w + 471797039 , -193692*w + 4396728 , 719318*w - 414442 , 
436898*w - 568078 , 77540*w - 1067416 , -471462896*w - 337664040 ],
[ -80814959*w + 179787825 , -5325132*w + 12414752 , 4119520*w - 12845658 , 1846117*w + 2418801441 , 1208293576 , -1909963*w + 1205480955 , 417404*w + 235448612 , -138772*w + 2323188 , 458863*w - 130515 , 
    269517*w - 387947 , 47052*w - 670418 , -235724291*w - 167608805 ],
[ -80944153*w + 184240637 , -5500105*w + 13255795 , 4174386*w - 12954648 , 5275129*w + 2414564117 , 1909963*w + 1205480955 , 1213375646 , -721897*w + 235029795 , 496674*w + 1815576 , -316499*w - 2827965 , 
    -555887*w - 294119 , -415968*w + 588098 , -234400143*w - 165389511 ],
[ -14982277*w + 36458877 , -905006*w + 2722510 , 804134*w - 2641674 , -218295*w + 471797039 , -417404*w + 235448612 , 721897*w + 235029795 , 48045998 , -93062*w - 423122 , -296411*w + 684565 , 33019*w + 
    689059 , 161594*w + 350644 , -45552387*w - 34512555 ],
[ -432438*w - 389718 , -54231*w - 134463 , 3648*w + 34356 , 193692*w + 4396728 , 138772*w + 2323188 , -496674*w + 1815576 , 93062*w - 423122 , 379932 , 196182*w - 182798 , 42976*w - 328160 , -44928*w - 
    256704 , -628156*w + 402374 ],
[ 376682*w - 921578 , 109512*w - 110740 , -25186*w - 9142 , -719318*w - 414442 , -458863*w - 130515 , 316499*w - 2827965 , 296411*w + 684565 , -196182*w - 182798 , 1091986 , 220416*w + 401632 , 212184*w - 
    86296 , -230378*w - 924644 ],
[ 295870*w + 66262 , 61037*w + 102249 , -7216*w - 37520 , -436898*w - 568078 , -269517*w - 387947 , 555887*w - 294119 , -33019*w + 689059 , -42976*w - 328160 , -220416*w + 401632 , 465808 , 96752*w + 270592 
, 28214*w - 948346 ],
[ 163108*w + 497728 , 14546*w + 151088 , 3566*w - 32718 , -77540*w - 1067416 , -47052*w - 670418 , 415968*w + 588098 , -161594*w + 350644 , 44928*w - 256704 , -212184*w - 86296 , -96752*w + 270592 , 298144 ,
225146*w - 448518 ],
[ 43472210*w + 87994928 , 2556712*w + 5700982 , -2760978*w - 3642324 , 471462896*w - 337664040 , 235724291*w - 167608805 , 234400143*w - 165389511 , 45552387*w - 34512555 , 628156*w + 402374 , 230378*w - 
    924644 , -28214*w - 948346 , -225146*w - 448518 , 353191664 ]
]);

Grammatrix:=Matrix(S,[
[ 1965782 , 426600*w - 294420 , -389174*w + 445046 , 53578*w + 491918 , 1016*w - 576212 , -79928*w + 978054 , -58042*w - 630420 , -351186*w - 256186 , -426664*w - 92134 , 89500*w + 2038246 , -470230*w - 
    1338638 , 633446*w - 214200 ],
[ -426600*w - 294420 , 4952402 , 117384*w - 4446540 , -60962*w - 636566 , 8950*w + 1255170 , -26754*w - 411614 , 8918*w + 83398 , -21446*w - 54152 , -30690*w - 63378 , -31660*w + 166852 , -10488*w - 163954 ,
635686*w - 1989358 ],
[ 389174*w + 445046 , -117384*w - 4446540 , 4064130 , 71026*w + 603806 , -43920*w - 1181530 , 13492*w + 433328 , -4570*w - 126532 , -1228*w - 10500 , -60*w , -36*w , 0 , -479320*w + 2051952 ],
[ -53578*w + 491918 , 60962*w - 636566 , -71026*w + 603806 , 517692 , 11932*w - 600362 , -237404*w + 317702 , 98838*w - 353052 , -113442*w - 595000 , -173420*w - 608664 , -346812*w + 1028244 , 43928*w - 
    1221892 , 495132*w + 1558830 ],
[ -1016*w - 576212 , -8950*w + 1255170 , 43920*w - 1181530 , -11932*w - 600362 , 801374 , 214260*w - 259196 , -90002*w + 317212 , 105896*w + 567588 , 162000*w + 569520 , 324000*w - 960120 , -41040*w + 
    1141560 , -391348*w - 1854230 ],
[ 79928*w + 978054 , 26754*w - 411614 , -13492*w + 433328 , 237404*w + 317702 , -214260*w - 259196 , 1945790 , -149788*w - 996548 , -522342*w - 34020 , -605200*w + 195692 , 342400*w + 2778468 , -798784*w - 
    1515024 , 1284832*w - 1565116 ],
[ 58042*w - 630420 , -8918*w + 83398 , 4570*w - 126532 , -98838*w - 353052 , 90002*w + 317212 , 149788*w - 996548 , 639842 , 292740*w + 394072 , 366468*w + 311528 , 80760*w - 1832950 , 307044*w + 1427538 , 
    -911978*w - 68236 ],
[ 351186*w - 256186 , 21446*w - 54152 , 1228*w - 10500 , 113442*w - 595000 , -105896*w + 567588 , 522342*w - 34020 , -292740*w + 394072 , 1280580 , 95204*w + 1467116 , 951280*w - 963732 , -490648*w + 2018184
, -593998*w - 3305064 ],
[ 426664*w - 92134 , 30690*w - 63378 , 60*w , 173420*w - 608664 , -162000*w + 569520 , 605200*w + 195692 , -366468*w + 311528 , -95204*w + 1467116 , 1734628 , 1164600*w - 610764 , -714076*w + 2062214 , 
    -436872*w - 4067868 ],
[ -89500*w + 2038246 , 31660*w + 166852 , 36*w , 346812*w + 1028244 , -324000*w - 960120 , -342400*w + 2778468 , -80760*w - 1832950 , -951280*w - 963732 , -1164600*w - 610764 , 5688410 , -1133120*w - 4082120
, 2882900*w - 621740 ],
[ 470230*w - 1338638 , 10488*w - 163954 , 0 , -43928*w - 1221892 , 41040*w + 1141560 , 798784*w - 1515024 , -307044*w + 1427538 , 490648*w + 2018184 , 714076*w + 2062214 , 1133120*w - 4082120 , 4509428 , 
    -2192500*w - 3574914 ],
[ -633446*w - 214200 , -635686*w - 1989358 , 479320*w + 2051952 , -495132*w + 1558830 , 391348*w - 1854230 , -1284832*w - 1565116 , 911978*w - 68236 , 593998*w - 3305064 , 436872*w - 4067868 , -2882900*w - 
    621740 , 2192500*w - 3574914 , 12469310 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 864472 , 1165*w - 16765 , -4219*w - 529319 , 15099*w + 7329 , 7119*w + 21987 , 759*w + 11921 , 12494*w - 40124 , 16275*w - 19691 , 5629*w - 175651 , 36252*w + 144550 , -43818*w + 12684 , -128529*w - 249431
],
[ -1165*w - 16765 , 6650 , 994*w + 11424 , -414*w + 504 , -256*w - 238 , -34*w - 224 , -137*w + 1197 , -262*w + 924 , 631*w + 3815 , -1368*w - 1946 , 862*w - 1554 , 2961*w + 4403 ],
[ 4219*w - 529319 , -994*w + 11424 , 325122 , -9415*w - 5369 , -4151*w - 13909 , -419*w - 7343 , -7893*w + 24353 , -10203*w + 11711 , -4552*w + 109228 , -21778*w - 91546 , 27398*w - 6188 , 77113*w + 156317 
],
[ -15099*w + 7329 , 414*w + 504 , 9415*w - 5369 , 6090 , -510*w + 1358 , 258*w + 112 , 646*w + 1456 , 1068*w + 3136 , 5348*w - 2156 , -3660*w + 10388 , -1208*w - 9016 , 2763*w - 15617 ],
[ -7119*w + 21987 , 256*w - 238 , 4151*w - 13909 , 510*w + 1358 , 2128 , 14*w + 1106 , 522*w - 1820 , 930*w - 280 , 660*w - 7420 , 1100*w + 6860 , -1860*w - 420 , -375*w - 14679 ],
[ -759*w + 11921 , 34*w - 224 , 419*w - 7343 , -258*w + 112 , -14*w + 1106 , 1652 , 260*w - 2548 , 430*w - 308 , -152*w - 4088 , 1004*w + 2940 , -958*w + 658 , -889*w - 4795 ],
[ -12494*w - 40124 , 137*w + 1197 , 7893*w + 24353 , -646*w + 1456 , -522*w - 1820 , -260*w - 2548 , 6986 , -984*w + 3682 , 3668*w + 14994 , -6180*w - 5572 , 3132*w - 8036 , 7843*w - 287 ],
[ -16275*w - 19691 , 262*w + 924 , 10203*w + 11711 , -1068*w + 3136 , -930*w - 280 , -430*w - 308 , 984*w + 3682 , 4802 , 5512*w + 6986 , -5880*w + 3304 , 1080*w - 10248 , 6765*w - 9009 ],
[ -5629*w - 175651 , -631*w + 3815 , 4552*w + 109228 , -5348*w - 2156 , -660*w - 7420 , 152*w - 4088 , -3668*w + 14994 , -5512*w + 6986 , 63574 , -14568*w - 48216 , 15320*w - 8344 , 22392*w + 39480 ],
[ -36252*w + 144550 , 1368*w - 1946 , 21778*w - 91546 , 3660*w + 10388 , -1100*w + 6860 , -1004*w + 2940 , 6180*w - 5572 , 5880*w + 3304 , 14568*w - 48216 , 60144 , -13584*w - 18368 , -8338*w - 66822 ],
[ 43818*w + 12684 , -862*w - 1554 , -27398*w - 6188 , 1208*w - 9016 , 1860*w - 420 , 958*w + 658 , -3132*w - 8036 , -1080*w - 10248 , -15320*w - 8344 , 13584*w - 18368 , 27104 , -12462*w + 33880 ],
[ 128529*w - 249431 , -2961*w + 4403 , -77113*w + 156317 , -2763*w - 15617 , 375*w - 14679 , 889*w - 4795 , -7843*w - 287 , -6765*w - 9009 , -22392*w + 39480 , 8338*w - 66822 , 12462*w + 33880 , 215306 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1736 , 409*w + 1169 , -51*w - 343 , -3830*w - 658 , 174*w - 630 , -2*w - 322 , -924*w + 1386 , 1104*w - 1792 , -1056*w + 5362 , 144*w - 616 , -746*w - 1162 , 36*w - 8316 ],
[ -409*w + 1169 , 17542 , -85*w - 7469 , -3175*w - 37709 , 17*w + 28105 , -53*w - 2975 , -881*w + 7 , 1079*w - 1855 , -619*w + 6783 , 198*w - 462 , -1294*w - 784 , -10180*w - 17822 ],
[ 51*w - 343 , 85*w - 7469 , 5908 , -2315*w + 6405 , 1219*w - 5761 , 125*w + 651 , 577*w + 441 , -877*w + 1519 , 579*w - 5775 , -174*w + 378 , 1108*w + 742 , 3162*w + 20286 ],
[ 3830*w - 658 , 3175*w - 37709 , 2315*w + 6405 , 226030 , 3882*w - 101934 , -882*w + 4368 , 502*w + 3220 , -144*w - 1680 , 0 , 0 , 0 , 39756*w + 12824 ],
[ -174*w - 630 , -17*w + 28105 , -1219*w - 5761 , -3882*w - 101934 , 89432 , 174*w - 6258 , 2356*w + 9716 , -6022*w - 11564 , 15040*w + 1120 , -1440*w - 1120 , -560*w + 17360 , -48864*w + 9198 ],
[ 2*w - 322 , 53*w - 2975 , -125*w + 651 , 882*w + 4368 , -174*w - 6258 , 1190 , 406*w - 952 , -246*w + 308 , 240*w - 392 , -48*w + 168 , 0 , 1226*w + 1036 ],
[ 924*w + 1386 , 881*w + 7 , -577*w + 441 , -502*w + 3220 , -2356*w + 9716 , -406*w - 952 , 12432 , -872*w - 13412 , 6024*w + 16660 , -648*w - 2660 , -2208*w + 6496 , -14406*w - 22708 ],
[ -1104*w - 1792 , -1079*w - 1855 , 877*w + 1519 , 144*w - 1680 , 6022*w - 11564 , 246*w + 308 , 872*w - 13412 , 19978 , -7812*w - 31556 , 604*w + 3892 , 5006*w - 8050 , 19156*w + 49154 ],
[ 1056*w + 5362 , 619*w + 6783 , -579*w - 5775 , 0 , -15040*w + 1120 , -240*w - 392 , -6024*w + 16660 , 7812*w - 31556 , 73486 , 572*w - 7546 , -11684*w - 1764 , -10888*w - 134344 ],
[ -144*w - 616 , -198*w - 462 , 174*w + 378 , 0 , 1440*w - 1120 , 48*w + 168 , 648*w - 2660 , -604*w + 3892 , -572*w - 7546 , 924 , 1144*w - 616 , 2336*w + 13342 ],
[ 746*w - 1162 , 1294*w - 784 , -1108*w + 742 , 0 , 560*w + 17360 , 0 , 2208*w + 6496 , -5006*w - 8050 , 11684*w - 1764 , -1144*w - 616 , 13552 , -21254*w + 14434 ],
[ -36*w - 8316 , 10180*w - 17822 , -3162*w + 20286 , -39756*w + 12824 , 48864*w + 9198 , -1226*w + 1036 , 14406*w - 22708 , -19156*w + 49154 , 10888*w - 134344 , -2336*w + 13342 , 21254*w + 14434 , 337400 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 70056 , -812*w - 20818 , -12617*w + 61327 , -4617*w + 20069 , 1737*w - 6937 , -7554*w + 3822 , 2596*w - 14728 , -46732*w - 25004 , -20448*w + 70756 , 944*w - 5796 , -1026*w - 22358 , -5640*w + 121142 ],
[ 812*w - 20818 , 38836 , 415*w + 54089 , 93*w + 21357 , -177*w - 5943 , -2554*w + 3080 , -114*w - 560 , -188*w , -112*w + 420 , -24*w + 84 , 0 , 9148*w + 13454 ],
[ 12617*w + 61327 , -415*w + 54089 , 403312 , 628*w + 140196 , -946*w - 44380 , -8312*w + 21098 , -10744*w + 952 , -1204*w + 64008 , 12933*w + 30933 , -1782*w + 2772 , -3870*w + 4536 , 83042*w + 105098 ],
[ 4617*w + 20069 , -93*w + 21357 , -628*w + 140196 , 49602 , -274*w - 15302 , -3502*w + 9646 , -3558*w + 280 , -432*w + 21448 , 4311*w + 10311 , -594*w + 924 , -1290*w + 1512 , 28690*w + 37492 ],
[ -1737*w - 6937 , 177*w - 5943 , 946*w - 44380 , 274*w - 15302 , 5096 , 892*w - 2422 , 1578*w + 1708 , 1764*w - 16856 , -3171*w - 8869 , 408*w + 112 , 1174*w - 336 , -11240*w - 16786 ],
[ 7554*w + 3822 , 2554*w + 3080 , 8312*w + 21098 , 3502*w + 9646 , -892*w - 2422 , 21812 , -2396*w - 6090 , -10206*w + 63938 , 12150*w + 36400 , -1050*w - 2100 , -4650*w - 1050 , 23262*w + 23184 ],
[ -2596*w - 14728 , 114*w - 560 , 10744*w + 952 , 3558*w + 280 , -1578*w + 1708 , 2396*w - 6090 , 25578 , 42104*w - 62790 , -1446*w - 85680 , 1034*w + 7700 , 6682*w + 15498 , -8146*w - 98546 ],
[ 46732*w - 25004 , 188*w , 1204*w + 64008 , 432*w + 21448 , -1764*w - 16856 , 10206*w + 63938 , -42104*w - 62790 , 814170 , 189646*w + 242312 , -17498*w - 11060 , -53178*w + 47446 , 229666*w + 108318 ],
[ 20448*w + 70756 , 112*w + 420 , -12933*w + 30933 , -4311*w + 10311 , 3171*w - 8869 , -12150*w + 36400 , 1446*w - 85680 , -189646*w + 242312 , 382452 , -2614*w - 31430 , -26826*w - 72506 , 45470*w + 408058 
],
[ -944*w - 5796 , 24*w + 84 , 1782*w + 2772 , 594*w + 924 , -408*w + 112 , 1050*w - 2100 , -1034*w + 7700 , 17498*w - 11060 , 2614*w - 31430 , 2926 , 1760*w + 7392 , 46*w - 35196 ],
[ 1026*w - 22358 , 0 , 3870*w + 4536 , 1290*w + 1512 , -1174*w - 336 , 4650*w - 1050 , -6682*w + 15498 , 53178*w + 47446 , 26826*w - 72506 , -1760*w + 7392 , 27104 , 20562*w - 97706 ],
[ 5640*w + 121142 , -9148*w + 13454 , -83042*w + 105098 , -28690*w + 37492 , 11240*w - 16786 , -23262*w + 23184 , 8146*w - 98546 , -229666*w + 108318 , -45470*w + 408058 , -46*w - 35196 , -20562*w - 97706 , 
574364 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 10206 , 119*w + 1267 , -w + 133 , -167*w - 35 , 56*w + 14 , 660*w - 1162 , -1161*w + 1071 , -121*w + 91 , 567*w - 427 , -18*w + 182 , -100*w + 658 , 4508*w + 10850 ],
[ -119*w + 1267 , 322 , 14*w - 84 , -2*w - 56 , 0 , 160*w , -196*w , -20*w , 52*w , -12*w , 0 , 321*w + 2177 ],
[ w + 133 , -14*w - 84 , 238 , -32*w + 70 , 28*w - 126 , -256*w + 196 , 66*w - 56 , 16*w , 0 , 0 , 0 , 77*w - 357 ],
[ 167*w - 35 , 2*w - 56 , 32*w + 70 , 616 , 134*w - 238 , -490*w - 266 , 134*w + 56 , 38*w , 0 , 0 , 0 , -129*w - 791 ],
[ -56*w + 14 , 0 , -28*w - 126 , -134*w - 238 , 490 , 478*w - 1204 , -122*w + 336 , -28*w + 84 , 0 , 0 , 0 , 18*w - 168 ],
[ -660*w - 1162 , -160*w , 256*w + 196 , 490*w - 266 , -478*w - 1204 , 12362 , 1412*w - 2352 , -6*w + 140 , -2280*w - 7840 , 480*w - 2520 , 3720*w + 840 , -2028*w - 4620 ],
[ 1161*w + 1071 , 196*w , -66*w - 56 , -134*w + 56 , 122*w + 336 , -1412*w - 2352 , 7714 , -288*w + 686 , 2424*w - 10430 , 1152*w + 546 , 1152*w + 10752 , 3413*w - 6209 ],
[ 121*w + 91 , 20*w , -16*w , -38*w , 28*w + 84 , 6*w + 140 , 288*w + 686 , 210 , -456*w - 1750 , 96*w - 462 , 744*w + 168 , -23*w - 1295 ],
[ -567*w - 427 , -52*w , 0 , 0 , 0 , 2280*w - 7840 , -2424*w - 10430 , 456*w - 1750 , 29624 , -2632*w + 3388 , -8086*w - 18438 , -1947*w + 17717 ],
[ 18*w + 182 , 12*w , 0 , 0 , 0 , -480*w - 2520 , -1152*w + 546 , -96*w - 462 , 2632*w + 3388 , 2058 , -2592*w + 2912 , 1464*w + 2912 ],
[ 100*w + 658 , 0 , 0 , 0 , 0 , -3720*w + 840 , -1152*w + 10752 , -744*w + 168 , 8086*w - 18438 , 2592*w + 2912 , 27104 , 5742*w - 7896 ],
[ -4508*w + 10850 , -321*w + 2177 , -77*w - 357 , 129*w - 791 , -18*w - 168 , 2028*w - 4620 , -3413*w - 6209 , 23*w - 1295 , 1947*w + 17717 , -1464*w + 2912 , -5742*w - 7896 , 39200 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 18662 , 423*w + 6223 , 116*w + 2842 , 264*w + 1386 , 1080*w - 1428 , -269*w + 1701 , -765*w + 301 , 267*w + 133 , -97*w - 1939 , -498*w - 658 , 500*w - 1442 , 3856*w - 1862 ],
[ -423*w + 6223 , 2604 , -66*w + 1218 , -16*w + 1162 , -108*w - 98 , 606*w - 42 , -284*w , 34*w , 0 , 0 , 0 , 2243*w + 595 ],
[ -116*w + 2842 , 66*w + 1218 , 980 , -2*w + 532 , -216*w - 56 , 432*w , -152*w , 16*w , 0 , 0 , 0 , 880*w - 1036 ],
[ -264*w + 1386 , 16*w + 1162 , 2*w + 532 , 4998 , 162*w + 1960 , 1626*w - 2352 , -926*w - 1008 , -8*w + 378 , 594*w + 630 , 396*w - 630 , 162*w + 1512 , 2236*w - 2884 ],
[ -1080*w - 1428 , 108*w - 98 , 216*w - 56 , -162*w + 1960 , 6832 , -130*w - 6286 , 82*w - 1764 , -262*w + 756 , 1188*w + 1260 , 792*w - 1260 , 324*w + 3024 , 1806*w - 4326 ],
[ 269*w + 1701 , -606*w - 42 , -432*w , -1626*w - 2352 , 130*w - 6286 , 12152 , 44*w - 1680 , 232*w - 294 , -1122*w - 1190 , -748*w + 1190 , -306*w - 2856 , -1369*w + 8155 ],
[ 765*w + 301 , 284*w , 152*w , 926*w - 1008 , -82*w - 1764 , -44*w - 1680 , 3066 , 112*w - 700 , -608*w - 630 , -452*w + 840 , -204*w - 1904 , -1261*w - 189 ],
[ -267*w + 133 , -34*w , -16*w , 8*w + 378 , 262*w + 756 , -232*w - 294 , -112*w - 700 , 308 , 300*w - 224 , 102*w - 630 , 246*w + 602 , 187*w - 1281 ],
[ 97*w - 1939 , 0 , 0 , -594*w + 630 , -1188*w + 1260 , 1122*w - 1190 , 608*w - 630 , -300*w - 224 , 2702 , 650*w + 1246 , -850*w + 1666 , 1667*w + 2737 ],
[ 498*w - 658 , 0 , 0 , -396*w - 630 , -792*w - 1260 , 748*w + 1190 , 452*w + 840 , -102*w - 630 , -650*w + 1246 , 1848 , -878*w - 854 , 122*w + 3976 ],
[ -500*w - 1442 , 0 , 0 , -162*w + 1512 , -324*w + 3024 , 306*w - 2856 , 204*w - 1904 , -246*w + 602 , 850*w + 1666 , 878*w - 854 , 3388 , 1830*w - 1918 ],
[ -3856*w - 1862 , -2243*w + 595 , -880*w - 1036 , -2236*w - 2884 , -1806*w - 4326 , 1369*w + 8155 , 1261*w - 189 , -187*w - 1281 , -1667*w + 2737 , -122*w + 3976 , -1830*w - 1918 , 27692 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 25176676 , -3533774*w + 115415986 , 1473916*w + 33661278 , -946*w - 1605226 , -381784*w + 425824 , -1574422*w + 1948352 , 777370*w - 4602024 , 90736*w - 504098 , 589168*w + 1967252 , -728736*w + 507360 , 
    -509808*w + 2092328 , -7372628*w - 25096190 ],
[ 3533774*w + 115415986 , 575617378 , 13523386*w + 169072204 , -6876398*w - 2108414 , -2434236*w + 3353812 , -4010490*w + 19153806 , -4454218*w - 18264218 , -486610*w - 2061808 , 4476406*w - 1829212 , 
    -865406*w + 9082360 , 2081098*w + 10313660 , -45064484*w - 114244298 ],
[ -1473916*w + 33661278 , -13523386*w + 169072204 , 58046044 , -2520706*w + 2577204 , -782240*w + 1916768 , -1375836*w + 4911984 , -1497812*w - 5590592 , -165284*w - 648956 , 1465124*w - 700700 , -254864*w +
    3004540 , 717368*w + 3341828 , -10823036*w - 40141682 ],
[ 946*w - 1605226 , 6876398*w - 2108414 , 2520706*w + 2577204 , 18971806 , 33554*w + 3605182 , 2076578*w - 5030410 , 583928*w + 12931590 , 48064*w + 1438290 , -2463830*w - 3134250 , 1613238*w - 3874500 , 
    256500*w - 7134750 , -1103492*w + 12028310 ],
[ 381784*w + 425824 , 2434236*w + 3353812 , 782240*w + 1916768 , -33554*w + 3605182 , 1012214 , 200260*w - 366128 , 57730*w + 1203328 , 4736*w + 130368 , -240900*w - 320460 , 157740*w - 380940 , 25080*w - 
    697620 , -759980*w + 1360352 ],
[ 1574422*w + 1948352 , 4010490*w + 19153806 , 1375836*w + 4911984 , -2076578*w - 5030410 , -200260*w - 366128 , 5859728 , -2765078*w - 5650050 , -302366*w - 653576 , 1768200*w - 1794240 , -40920*w + 3997070
, 1229840*w + 3765160 , -3840372*w - 5240466 ],
[ -777370*w - 4602024 , 4454218*w - 18264218 , 1497812*w - 5590592 , -583928*w + 12931590 , -57730*w + 1203328 , 2765078*w - 5650050 , 15393924 , -18886*w + 1721174 , -2689630*w - 4420066 , 2054338*w - 
    3901198 , 651172*w - 8144654 , 373784*w + 15233456 ],
[ -90736*w - 504098 , 486610*w - 2061808 , 165284*w - 648956 , -48064*w + 1438290 , -4736*w + 130368 , 302366*w - 653576 , 18886*w + 1721174 , 192654 , -306200*w - 471058 , 224930*w - 453908 , 62808*w - 
    916370 , 57374*w + 1702050 ],
[ -589168*w + 1967252 , -4476406*w - 1829212 , -1465124*w - 700700 , 2463830*w - 3134250 , 240900*w - 320460 , -1768200*w - 1794240 , 2689630*w - 4420066 , 306200*w - 471058 , 4567962 , -1273950*w - 1393924 
, -1612760*w + 1545950 , 2677642*w - 4513306 ],
[ 728736*w + 507360 , 865406*w + 9082360 , 254864*w + 3004540 , -1613238*w - 3874500 , -157740*w - 380940 , 40920*w + 3997070 , -2054338*w - 3901198 , -224930*w - 453908 , 1273950*w - 1393924 , 2912714 , 
    923396*w + 2676940 , -2061782*w - 3800566 ],
[ 509808*w + 2092328 , -2081098*w + 10313660 , -717368*w + 3341828 , -256500*w - 7134750 , -25080*w - 697620 , -1229840*w + 3765160 , -651172*w - 8144654 , -62808*w - 916370 , 1612760*w + 1545950 , -923396*w
    + 2676940 , 4509428 , -694078*w - 8076432 ],
[ 7372628*w - 25096190 , 45064484*w - 114244298 , 10823036*w - 40141682 , 1103492*w + 12028310 , 759980*w + 1360352 , 3840372*w - 5240466 , -373784*w + 15233456 , -57374*w + 1702050 , -2677642*w - 4513306 , 
2061782*w - 3800566 , 694078*w - 8076432 , 53521748 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 336280 , 3516*w + 27958 , 95544*w + 119840 , -241698*w - 324226 , -52894*w - 80150 , 61888*w - 118384 , 25956*w - 460418 , -16998*w + 45444 , -1890*w + 71106 , 54058*w + 51016 , -50198*w + 104930 , 
    -37104*w + 243278 ],
[ -3516*w + 27958 , 11298 , 15695*w + 45451 , -17625*w - 91231 , -1864*w - 21602 , 1562*w + 2772 , 1883*w - 19957 , -675*w + 1183 , 61*w + 3591 , 2616*w + 2394 , -2544*w + 5054 , -25006*w + 21322 ],
[ -95544*w + 119840 , -15695*w + 45451 , 935648 , 38247*w - 1296981 , 13900*w - 237790 , -6266*w - 43792 , -735*w + 29981 , 1165*w + 1841 , -117*w - 4263 , -3150*w - 2604 , 2958*w - 6272 , -378045*w - 520401
],
[ 241698*w - 324226 , 17625*w - 91231 , -38247*w - 1296981 , 2472414 , -8616*w + 547862 , -46188*w - 148820 , -231718*w + 17724 , 23944*w + 44576 , 37120*w - 13440 , 12480*w - 203840 , 64960*w + 154560 , 
    523047*w + 371511 ],
[ 52894*w - 80150 , 1864*w - 21602 , -13900*w - 237790 , 8616*w + 547862 , 137690 , -5864*w - 53032 , -56142*w + 3388 , 5284*w + 12488 , 9136*w - 4200 , 2976*w - 50456 , 16240*w + 38640 , 96200*w + 26852 ],
[ -61888*w - 118384 , -1562*w + 2772 , 6266*w - 43792 , 46188*w - 148820 , 5864*w - 53032 , 302470 , 121034*w + 270424 , -4606*w - 66752 , -17208*w - 30380 , -36408*w + 84308 , -10400*w - 142240 , -25258*w +
    122626 ],
[ -25956*w - 460418 , -1883*w - 19957 , 735*w + 29981 , 231718*w + 17724 , 56142*w + 3388 , -121034*w + 270424 , 1054928 , 32120*w - 112812 , -5720*w - 167188 , -130648*w - 68180 , 102608*w - 284592 , 
    -135205*w - 14469 ],
[ 16998*w + 45444 , 675*w + 1183 , -1165*w + 1841 , -23944*w + 44576 , -5284*w + 12488 , 4606*w - 66752 , -32120*w - 112812 , 19978 , 5396*w + 15988 , 15622*w - 20258 , -1962*w + 51142 , 13695*w - 29043 ],
[ 1890*w + 71106 , -61*w + 3591 , 117*w - 4263 , -37120*w - 13440 , -9136*w - 4200 , 17208*w - 30380 , 5720*w - 167188 , -5396*w + 15988 , 27902 , 20752*w + 16534 , -18444*w + 41300 , 21123*w + 3829 ],
[ -54058*w + 51016 , -2616*w + 2394 , 3150*w - 2604 , -12480*w - 203840 , -2976*w - 50456 , 36408*w + 84308 , 130648*w - 68180 , -15622*w - 20258 , -20752*w + 16534 , 119196 , -42328*w - 72072 , 8604*w + 
    114366 ],
[ 50198*w + 104930 , 2544*w + 5054 , -2958*w - 6272 , -64960*w + 154560 , -16240*w + 38640 , 10400*w - 142240 , -102608*w - 284592 , 1962*w + 51142 , 18444*w + 41300 , 42328*w - 72072 , 149072 , 35276*w - 
    89138 ],
[ 37104*w + 243278 , 25006*w + 21322 , 378045*w - 520401 , -523047*w + 371511 , -96200*w + 26852 , 25258*w + 122626 , 135205*w - 14469 , -13695*w - 29043 , -21123*w + 3829 , -8604*w + 114366 , -35276*w - 
    89138 , 1491560 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 8139292 , -5002*w - 1746402 , 42996*w + 181146 , 101766*w - 94654 , 30474*w - 16240 , 76360*w - 1162 , -108336*w + 34664 , -16640*w + 602 , -488*w + 47124 , 13792*w + 1218 , 8020*w - 14364 , -1513850*w - 
    2922724 ],
[ 5002*w - 1746402 , 378126 , -12948*w - 31612 , -13784*w + 19110 , -9076*w - 3024 , -15172*w - 140 , 20456*w , 2996*w , 1120*w , -240*w , 0 , 321972*w + 609812 ],
[ -42996*w + 181146 , 12948*w - 31612 , 70980 , 64326*w - 46592 , -39088*w + 8428 , 4364*w - 1680 , -2932*w + 1120 , -64*w , -112*w , 24*w , 0 , -32136*w - 223202 ],
[ -101766*w - 94654 , 13784*w + 19110 , -64326*w - 46592 , 1476454 , 15424*w - 936054 , 1548*w + 76720 , 806*w - 20160 , 212*w + 6300 , 56*w , -12*w , 0 , 242200*w + 155834 ],
[ -30474*w - 16240 , 9076*w - 3024 , 39088*w + 8428 , -15424*w - 936054 , 853678 , -2184*w - 40180 , 64368*w - 332122 , 17502*w - 10010 , -43200*w - 476700 , -125600*w - 26250 , -82400*w + 134400 , 81432*w -
    131460 ],
[ -76360*w - 1162 , 15172*w - 140 , -4364*w - 1680 , -1548*w + 76720 , 2184*w - 40180 , 47824 , -15978*w + 18214 , -4406*w - 8414 , 10800*w + 115500 , 31400*w + 7350 , 20600*w - 33600 , 2042*w - 71260 ],
[ 108336*w + 34664 , -20456*w , 2932*w + 1120 , -806*w - 20160 , -64368*w - 332122 , 15978*w + 18214 , 692580 , -31980*w + 48916 , 260780*w + 668290 , 219690*w - 307300 , 83230*w - 454160 , -346502*w + 
    556808 ],
[ 16640*w + 602 , -2996*w , 64*w , -212*w + 6300 , -17502*w - 10010 , 4406*w - 8414 , 31980*w + 48916 , 15624 , 50128*w - 52738 , -2346*w - 98000 , -18286*w - 57736 , -1402*w + 149730 ],
[ 488*w + 47124 , -1120*w , 112*w , -56*w , 43200*w - 476700 , -10800*w + 115500 , -260780*w + 668290 , -50128*w - 52738 , 1476622 , 363490*w + 317646 , 279574*w - 241080 , -506432*w - 370762 ],
[ -13792*w + 1218 , 240*w , -24*w , 12*w , 125600*w - 26250 , -31400*w + 7350 , -219690*w - 307300 , 2346*w - 98000 , -363490*w + 317646 , 694806 , 119512*w + 429940 , -15070*w - 950320 ],
[ -8020*w - 14364 , 0 , 0 , 0 , 82400*w + 134400 , -20600*w - 33600 , -83230*w - 454160 , 18286*w - 57736 , -279574*w - 241080 , -119512*w + 429940 , 409948 , 153558*w - 606144 ],
[ 1513850*w - 2922724 , -321972*w + 609812 , 32136*w - 223202 , -242200*w + 155834 , -81432*w - 131460 , -2042*w - 71260 , 346502*w + 556808 , 1402*w + 149730 , 506432*w - 370762 , 15070*w - 950320 , 
    -153558*w - 606144 , 4598356 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 653632 , -73672*w - 313614 , 9486*w + 38864 , -2126*w + 141708 , -101210*w - 723198 , -32182*w - 229782 , 35894*w + 318654 , -41736*w + 84280 , -78688*w + 306936 , 8524*w - 403984 , -87368*w - 136808 , 
    -481102*w + 66080 ],
[ 73672*w - 313614 , 229502 , -42*w - 29134 , 24018*w - 83216 , -42721*w + 438627 , -12619*w + 137417 , 23187*w - 181489 , 27064*w + 3808 , 74496*w - 44352 , -59376*w + 152432 , 15872*w + 139104 , 242008*w +
    382396 ],
[ -9486*w + 38864 , 42*w - 29134 , 3822 , -2702*w + 10878 , 4793*w - 52535 , 1481*w - 16359 , -2717*w + 21931 , -3366*w - 476 , -9312*w + 5544 , 7422*w - 19054 , -1984*w - 17388 , -29164*w - 44324 ],
[ 2126*w + 141708 , -24018*w - 83216 , 2702*w + 10878 , 136794 , -19611*w - 148631 , -6091*w - 34195 , 6071*w + 79779 , -21124*w + 20160 , -49410*w + 131040 , 18720*w - 190260 , -36540*w - 86940 , -76544*w +
    104286 ],
[ 101210*w - 723198 , 42721*w + 438627 , -4793*w - 52535 , 19611*w - 148631 , 1185506 , 1106*w + 375452 , 14503*w - 471653 , 55348*w - 17850 , 138594*w - 149772 , -96831*w + 347445 , 47886*w + 257208 , 
    697999*w + 684313 ],
[ 32182*w - 229782 , 12619*w + 137417 , -1481*w - 16359 , 6091*w - 34195 , -1106*w + 375452 , 120680 , 4859*w - 147623 , 15910*w - 5432 , 39460*w - 38430 , -28385*w + 95893 , 12730*w + 73640 , 222601*w + 
    233191 ],
[ -35894*w + 318654 , -23187*w - 181489 , 2717*w + 21931 , -6071*w + 79779 , -14503*w - 471653 , -4859*w - 147623 , 199962 , -29552*w + 19054 , -71718*w + 121212 , 41053*w - 218015 , -36002*w - 130480 , 
    -286041*w - 184219 ],
[ 41736*w + 84280 , -27064*w + 3808 , 3366*w - 476 , 21124*w + 20160 , -55348*w - 17850 , -15910*w - 5432 , 29552*w + 19054 , 63770 , 31104*w + 174034 , -64012*w - 116186 , -45284*w + 64092 , -20370*w + 
    230818 ],
[ 78688*w + 306936 , -74496*w - 44352 , 9312*w + 5544 , 49410*w + 131040 , -138594*w - 149772 , -39460*w - 38430 , 71718*w + 121212 , -31104*w + 174034 , 604828 , -122534*w - 553980 , -160210*w + 21966 , 
    -111370*w + 624512 ],
[ -8524*w - 403984 , 59376*w + 152432 , -7422*w - 19054 , -18720*w - 190260 , 96831*w + 347445 , 28385*w + 95893 , -41053*w - 218015 , 64012*w - 116186 , 122534*w - 553980 , 681702 , 151316*w + 207284 , 
    236608*w - 403774 ],
[ 87368*w - 136808 , -15872*w + 139104 , 1984*w - 17388 , 36540*w - 86940 , -47886*w + 257208 , -12730*w + 73640 , 36002*w - 130480 , 45284*w + 64092 , 160210*w + 21966 , -151316*w + 207284 , 298144 , 
    162036*w + 246624 ],
[ 481102*w + 66080 , -242008*w + 382396 , 29164*w - 44324 , 76544*w + 104286 , -697999*w + 684313 , -222601*w + 233191 , 286041*w - 184219 , 20370*w + 230818 , 111370*w + 624512 , -236608*w - 403774 , 
    -162036*w + 246624 , 3441690 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 241584 , 22276*w - 161392 , 8186*w - 10248 , -24198*w - 1064 , 203560*w - 246876 , -287888*w + 223608 , 78290*w - 56182 , 15752*w + 115136 , 88660*w + 278600 , 50548*w - 31304 , -55624*w + 141400 , 
    -17658*w + 955080 ],
[ -22276*w - 161392 , 149828 , -5176*w + 15260 , 19872*w - 28560 , -119100*w + 287784 , 179222*w - 343476 , -48718*w + 90300 , -20402*w - 59332 , -79944*w - 118594 , -28622*w + 51394 , 21860*w - 122864 , 
    -76232*w - 674296 ],
[ -8186*w - 10248 , 5176*w + 15260 , 3318 , 482*w - 5460 , -2152*w + 62426 , 6066*w - 81200 , -1695*w + 21581 , -4218*w - 588 , -11854*w + 6902 , -1118*w + 11914 , -1984*w - 17388 , -32164*w - 49588 ],
[ 24198*w - 1064 , -19872*w - 28560 , -482*w - 5460 , 64134 , -15138*w - 59626 , 13608*w + 183078 , -3447*w - 53431 , 17626*w - 16800 , 42060*w - 110040 , -6600*w - 55440 , 24360*w + 57960 , 78424*w + 17794 
],
[ -203560*w - 246876 , 119100*w + 287784 , 2152*w + 62426 , 15138*w - 59626 , 1882776 , 73160*w - 2178330 , -23066*w + 569506 , -71788*w + 9800 , -186558*w + 122640 , -15568*w + 192948 , -35428*w - 275324 , 
-922426*w - 1208396 ],
[ 287888*w + 223608 , -179222*w - 343476 , -6066*w - 81200 , -13608*w + 183078 , -73160*w - 2178330 , 2812082 , 4079*w - 750351 , 131120*w - 75824 , 326418*w - 502488 , -8456*w - 380436 , 119908*w + 467516 ,
1201608*w + 1205974 ],
[ -78290*w - 56182 , 48718*w + 90300 , 1695*w + 21581 , 3447*w - 53431 , 23066*w + 569506 , -4079*w - 750351 , 201082 , -37150*w + 22302 , -92555*w + 150059 , 3313*w + 108843 , -35450*w - 132104 , -321394*w 
    - 305844 ],
[ -15752*w + 115136 , 20402*w - 59332 , 4218*w - 588 , -17626*w - 16800 , 71788*w + 9800 , -131120*w - 75824 , 37150*w + 22302 , 100002 , 48726*w + 277284 , 43076*w + 4900 , -56674*w + 80318 , -72672*w + 
    333942 ],
[ -88660*w + 278600 , 79944*w - 118594 , 11854*w + 6902 , -42060*w - 110040 , 186558*w + 122640 , -326418*w - 502488 , 92555*w + 150059 , -48726*w + 277284 , 972650 , 121352*w + 164892 , -203110*w + 31514 , 
-296228*w + 752304 ],
[ -50548*w - 31304 , 28622*w + 51394 , 1118*w + 11914 , 6600*w - 55440 , 15568*w + 192948 , 8456*w - 380436 , -3313*w + 108843 , -43076*w + 4900 , -121352*w + 164892 , 134078 , -38412*w - 172172 , -147822*w 
    - 139132 ],
[ 55624*w + 141400 , -21860*w - 122864 , 1984*w - 17388 , -24360*w + 57960 , 35428*w - 275324 , -119908*w + 467516 , 35450*w - 132104 , 56674*w + 80318 , 203110*w + 31514 , 38412*w - 172172 , 298144 , 
    148232*w + 473368 ],
[ 17658*w + 955080 , 76232*w - 674296 , 32164*w - 49588 , -78424*w + 17794 , 922426*w - 1208396 , -1201608*w + 1205974 , 321394*w - 305844 , 72672*w + 333942 , 296228*w + 752304 , 147822*w - 139132 , 
    -148232*w + 473368 , 4171174 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 140322 , -933*w - 38633 , 1093*w - 3703 , 1492*w - 4074 , -5208*w + 5278 , -4724*w - 18228 , -1751*w + 3647 , -1535*w + 539 , 1767*w - 7973 , -2485*w - 1183 , 1452*w - 7238 , -26547*w + 118307 ],
[ 933*w - 38633 , 12096 , -31*w - 2919 , 6*w - 910 , 1328*w - 1064 , 1342*w + 4088 , 441*w - 329 , 205*w + 189 , -479*w + 889 , 385*w + 483 , -380*w + 1022 , 9214*w - 34314 ],
[ -1093*w - 3703 , 31*w - 2919 , 21826 , -1308*w + 11606 , -2478*w + 2100 , -3198*w - 1484 , -774*w - 1680 , 142*w - 1050 , 990*w + 1050 , 540*w - 1680 , 450*w + 1890 , 3455*w + 7063 ],
[ -1492*w - 4074 , -6*w - 910 , 1308*w + 11606 , 7154 , -1132*w + 1820 , -1232*w + 1652 , -462*w - 952 , 42*w - 910 , 726*w + 770 , 396*w - 1232 , 330*w + 1386 , 1765*w - 1547 ],
[ 5208*w + 5278 , -1328*w - 1064 , 2478*w + 2100 , 1132*w + 1820 , 10752 , -3188*w + 6286 , 46*w + 2408 , 182*w + 728 , -924*w - 980 , -504*w + 1568 , -420*w - 1764 , 3625*w - 3339 ],
[ 4724*w - 18228 , -1342*w + 4088 , 3198*w - 1484 , 1232*w + 1652 , 3188*w + 6286 , 21784 , 1216*w + 1120 , 554*w + 2338 , -2450*w - 1190 , 980*w + 2520 , -1830*w + 2170 , 3717*w - 22351 ],
[ 1751*w + 3647 , -441*w - 329 , 774*w - 1680 , 462*w - 952 , -46*w + 2408 , -1216*w + 1120 , 1260 , -144*w + 840 , -408*w - 1988 , -388*w + 644 , -196*w - 1316 , 1505*w + 637 ],
[ 1535*w + 539 , -205*w + 189 , -142*w - 1050 , -42*w - 910 , -182*w + 728 , -554*w + 2338 , 144*w + 840 , 2674 , -1526*w - 4004 , -98*w + 238 , -508*w + 84 , 1573*w + 651 ],
[ -1767*w - 7973 , 479*w + 889 , -990*w + 1050 , -726*w + 770 , 924*w - 980 , 2450*w - 1190 , 408*w - 1988 , 1526*w - 4004 , 12334 , 392*w + 336 , 656*w + 2016 , -2396*w - 7672 ],
[ 2485*w - 1183 , -385*w + 483 , -540*w - 1680 , -396*w - 1232 , 504*w + 1568 , -980*w + 2520 , 388*w + 644 , 98*w + 238 , -392*w + 336 , 1624 , -584*w - 728 , 1323*w - 2135 ],
[ -1452*w - 7238 , 380*w + 1022 , -450*w + 1890 , -330*w + 1386 , 420*w - 1764 , 1830*w + 2170 , 196*w - 1316 , 508*w + 84 , -656*w + 2016 , 584*w - 728 , 2464 , -1168*w - 4130 ],
[ 26547*w + 118307 , -9214*w - 34314 , -3455*w + 7063 , -1765*w - 1547 , -3625*w - 3339 , -3717*w - 22351 , -1505*w + 637 , -1573*w + 651 , 2396*w - 7672 , -1323*w - 2135 , 1168*w - 4130 , 197848 ]
]);

Grammatrix:=Matrix(S,[
[ 387044 , 64173*w + 7609 , -211396*w + 1933092 , -16280*w - 12334 , 125826*w + 247002 , -341184*w - 216076 , 158372*w - 274526 , -19592*w - 16156 , -20892*w + 375550 , -65390*w - 194558 , -21840*w - 38892 ,
-63749*w + 624365 ],
[ -64173*w + 7609 , 124796 , -415316*w + 47292 , 118004*w - 35518 , -75398*w + 377832 , 80423*w - 936873 , 105686*w + 308742 , -1424*w - 89796 , -106527*w + 30975 , 43348*w - 159110 , 6320*w - 49224 , 
    -151553*w - 477169 ],
[ 211396*w + 1933092 , 415316*w + 47292 , 16075486 , 75008*w + 1277486 , 1102218*w + 2060478 , -2867604*w - 2503788 , 998966*w - 2030616 , -334556*w - 24080 , 48240*w + 2110500 , -424780*w - 938000 , 
    -136680*w - 140700 , -68576*w + 5579966 ],
[ 16280*w - 12334 , -118004*w - 35518 , -75008*w + 1277486 , 6218338 , -672048*w - 1346576 , 1568634*w + 2163308 , -694770*w + 1377740 , 135182*w + 244664 , -51240*w - 1861650 , 380030*w + 746200 , 121380*w 
    + 124950 , 2955304*w + 1673266 ],
[ -125826*w + 247002 , 75398*w + 377832 , -1102218*w + 2060478 , 672048*w - 1346576 , 2092888 , -361098*w - 4651570 , 673930*w + 616700 , -96266*w - 449624 , -360624*w + 790272 , 20688*w - 850416 , -22128*w 
    - 220080 , -1211610*w - 2416596 ],
[ 341184*w - 216076 , -80423*w - 936873 , 2867604*w - 2503788 , -1568634*w + 2163308 , 361098*w - 4651570 , 11099872 , -1327124*w - 2207128 , 184158*w + 1149568 , 861072*w - 1144626 , -201054*w + 1694448 , 
    6684*w + 467250 , 2538573*w + 6589695 ],
[ -158372*w - 274526 , -105686*w + 308742 , -998966*w - 2030616 , 694770*w + 1377740 , -673930*w + 616700 , 1327124*w - 2207128 , 1880676 , 110376*w - 248136 , -421880*w - 770252 , 340188*w - 219688 , 
    81412*w - 125552 , 531802*w - 3267166 ],
[ 19592*w - 16156 , 1424*w - 89796 , 334556*w - 24080 , -135182*w + 244664 , 96266*w - 449624 , -184158*w + 1149568 , -110376*w - 248136 , 199682 , 69000*w - 154686 , -7424*w + 149800 , 4756*w + 43260 , 
    257980*w + 1010072 ],
[ 20892*w + 375550 , 106527*w + 30975 , -48240*w + 2110500 , 51240*w - 1861650 , 360624*w + 790272 , -861072*w - 1144626 , 421880*w - 770252 , -69000*w - 154686 , 1094142 , -210568*w - 476840 , -68894*w - 
    86814 , -956969*w - 60613 ],
[ 65390*w - 194558 , -43348*w - 159110 , 424780*w - 938000 , -380030*w + 746200 , -20688*w - 850416 , 201054*w + 1694448 , -340188*w - 219688 , 7424*w + 149800 , 210568*w - 476840 , 494648 , 13310*w + 130438
, 424324*w + 1232840 ],
[ 21840*w - 38892 , -6320*w - 49224 , 136680*w - 140700 , -121380*w + 124950 , 22128*w - 220080 , -6684*w + 467250 , -81412*w - 125552 , -4756*w + 43260 , 68894*w - 86814 , -13310*w + 130438 , 37268 , 
    70670*w + 431816 ],
[ 63749*w + 624365 , 151553*w - 477169 , 68576*w + 5579966 , -2955304*w + 1673266 , 1211610*w - 2416596 , -2538573*w + 6589695 , -531802*w - 3267166 , -257980*w + 1010072 , 956969*w - 60613 , -424324*w + 
    1232840 , -70670*w + 431816 , 14281386 ]
]);

Grammatrix:=Matrix(S,[
[ 1187928 , 107080*w - 357420 , 67958*w + 36974 , 22264*w + 23758 , -3102*w + 65058 , -4776*w + 69762 , -4932*w + 39606 , 6614*w + 25536 , -7168*w + 30954 , -6330*w - 5922 , 22182*w + 20076 , 33224*w + 
    318808 ],
[ -107080*w - 357420 , 339192 , -24784*w + 159992 , -10074*w + 52304 , 4906*w - 11494 , 1276*w - 17206 , 1854*w - 13874 , -3530*w - 36288 , 5582*w + 1106 , -1304*w + 11158 , 2174*w - 43876 , -54984*w - 77238
],
[ -67958*w + 36974 , 24784*w + 159992 , 130774 , -1302*w + 46522 , 6180*w + 8526 , 3474*w + 4326 , 372*w - 504 , -850*w - 20832 , 2420*w + 8568 , -2556*w + 6888 , 7176*w - 27888 , -29128*w + 20062 ],
[ -22264*w + 23758 , 10074*w + 52304 , 1302*w + 46522 , 16912 , 2880*w + 3752 , 2090*w + 2058 , 114*w - 112 , -322*w - 6944 , 784*w + 2856 , -856*w + 2296 , 2392*w - 9296 , -9316*w + 10038 ],
[ 3102*w + 65058 , -4906*w - 11494 , -6180*w + 8526 , -2880*w + 3752 , 29470 , 1192*w + 33376 , 42*w + 1176 , 20*w + 840 , 0 , 0 , 0 , 5262*w + 13650 ],
[ 4776*w + 69762 , -1276*w - 17206 , -3474*w + 4326 , -2090*w + 2058 , -1192*w + 33376 , 41496 , -10*w + 686 , -1806*w + 2450 , 720*w - 2310 , 810*w + 1260 , -3060*w - 3150 , 6588*w + 17346 ],
[ 4932*w + 39606 , -1854*w - 13874 , -372*w - 504 , -114*w - 112 , -42*w + 1176 , 10*w + 686 , 3332 , 1560*w + 1834 , -624*w + 3192 , -702*w - 882 , 2652*w + 2730 , 1340*w + 5292 ],
[ -6614*w + 25536 , 3530*w - 36288 , 850*w - 20832 , 322*w - 6944 , -20*w + 840 , 1806*w + 2450 , -1560*w + 1834 , 13314 , -2504*w - 3738 , 1058*w - 4872 , -2868*w + 18970 , 1884*w + 2156 ],
[ 7168*w + 30954 , -5582*w + 1106 , -2420*w + 8568 , -784*w + 2856 , 0 , -720*w - 2310 , 624*w + 3192 , 2504*w - 3738 , 6076 , -1550*w + 434 , 5404*w - 3206 , 124*w + 3010 ],
[ 6330*w - 5922 , 1304*w + 11158 , 2556*w + 6888 , 856*w + 2296 , 0 , -810*w + 1260 , 702*w - 882 , -1058*w - 4872 , 1550*w + 434 , 2954 , -508*w - 10388 , 406*w + 1470 ],
[ -22182*w + 20076 , -2174*w - 43876 , -7176*w - 27888 , -2392*w - 9296 , 0 , 3060*w - 3150 , -2652*w + 2730 , 2868*w + 18970 , -5404*w - 3206 , 508*w - 10388 , 37268 , -794*w - 4410 ],
[ -33224*w + 318808 , 54984*w - 77238 , 29128*w + 20062 , 9316*w + 10038 , -5262*w + 13650 , -6588*w + 17346 , -1340*w + 5292 , -1884*w + 2156 , -124*w + 3010 , -406*w + 1470 , 794*w - 4410 , 113190 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 305886 , -31694*w - 208922 , 6433*w + 57603 , 6940*w - 12894 , -18838*w - 21294 , 8752*w - 2268 , 1810*w - 36148 , 286*w - 11242 , -34594*w - 43750 , 640*w - 12376 , 11452*w - 59024 , 29728*w + 142534 ],
[ 31694*w - 208922 , 267050 , 1237*w - 79695 , 3660*w + 27524 , 22984*w + 11396 , -1536*w + 1064 , 13624*w - 28532 , 4988*w - 6524 , 7708*w - 128828 , 6416*w - 1960 , 32712*w + 13944 , -7652*w - 77112 ],
[ -6433*w + 57603 , -1237*w - 79695 , 24836 , -1610*w - 10934 , -7686*w + 378 , 360*w - 2464 , -5713*w + 8141 , -2019*w + 1743 , -4895*w + 48391 , -2476*w + 98 , -12254*w - 8778 , 2549*w + 18753 ],
[ -6940*w - 12894 , -3660*w + 27524 , 1610*w - 10934 , 19866 , 5472*w - 5614 , 432*w + 13048 , 14734*w + 12432 , 4364*w + 4928 , 31328*w - 65184 , 4112*w + 7952 , 16176*w + 56112 , -9185*w - 8449 ],
[ 18838*w - 21294 , -22984*w + 11396 , 7686*w + 378 , -5472*w - 5614 , 39396 , -2400*w - 11914 , -5116*w + 10752 , -1942*w + 3248 , 3528*w + 54712 , -2528*w + 3136 , -13948*w + 6468 , 2227*w - 10633 ],
[ -8752*w - 2268 , 1536*w + 1064 , -360*w - 2464 , -432*w + 13048 , 2400*w - 11914 , 13384 , 10090*w + 18340 , 2914*w + 6272 , 28348*w - 32004 , 2502*w + 8134 , 7870*w + 50302 , -6467*w - 14455 ],
[ -1810*w - 36148 , -13624*w - 28532 , 5713*w + 8141 , -14734*w + 12432 , 5116*w + 10752 , -10090*w + 18340 , 103264 , -1136*w + 31276 , 81000*w + 147056 , -4016*w + 31472 , -37924*w + 141820 , 2420*w - 
    72380 ],
[ -286*w - 11242 , -4988*w - 6524 , 2019*w + 1743 , -4364*w + 4928 , 1942*w + 3248 , -2914*w + 6272 , 1136*w + 31276 , 9716 , 26624*w + 38892 , -864*w + 10080 , -10000*w + 46704 , 84*w - 22442 ],
[ 34594*w - 43750 , -7708*w - 128828 , 4895*w + 48391 , -31328*w - 65184 , -3528*w + 54712 , -28348*w - 32004 , -81000*w + 147056 , -26624*w + 38892 , 669046 , -31216*w + 23856 , -168712*w - 4872 , 62816*w -
    91364 ],
[ -640*w - 12376 , -6416*w - 1960 , 2476*w + 98 , -4112*w + 7952 , 2528*w + 3136 , -2502*w + 8134 , 4016*w + 31472 , 864*w + 10080 , 31216*w + 23856 , 11088 , -6208*w + 54992 , -1937*w - 23639 ],
[ -11452*w - 59024 , -32712*w + 13944 , 12254*w - 8778 , -16176*w + 56112 , 13948*w + 6468 , -7870*w + 50302 , 37924*w + 141820 , 10000*w + 46704 , 168712*w - 4872 , 6208*w + 54992 , 298144 , -23486*w - 
    109424 ],
[ -29728*w + 142534 , 7652*w - 77112 , -2549*w + 18753 , 9185*w - 8449 , -2227*w - 10633 , 6467*w - 14455 , -2420*w - 72380 , -84*w - 22442 , -62816*w - 91364 , 1937*w - 23639 , 23486*w - 109424 , 156128 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 846930 , -30*w - 437948 , 35260*w + 57722 , -20600*w + 102984 , -52580*w + 121156 , 7628*w - 19782 , -57868*w + 82166 , 27266*w - 87710 , -5962*w - 47796 , -26016*w - 98070 , 50772*w + 2170 , 166056*w - 
    121926 ],
[ 30*w - 437948 , 228410 , -17556*w - 31136 , 9984*w - 53116 , 25844*w - 59920 , -4998*w + 11508 , 32674*w - 46928 , -15416*w + 52542 , 4032*w + 28252 , 16148*w + 56280 , -29960*w + 1680 , -87278*w + 52528 
],
[ -35260*w + 57722 , 17556*w - 31136 , 26852 , -6842*w + 17948 , -9976*w - 2660 , 168*w + 364 , -2996*w + 672 , 468*w , -256*w , 24*w , 0 , 20400*w + 37268 ],
[ 20600*w + 102984 , -9984*w - 53116 , 6842*w + 17948 , 76566 , -6330*w + 67158 , -1080*w + 5600 , -422*w + 19600 , -112*w - 1260 , 128*w , -12*w , 0 , 9294*w - 83734 ],
[ 52580*w + 121156 , -25844*w - 59920 , 9976*w - 2660 , 6330*w + 67158 , 111734 , -30*w - 6370 , 18260*w - 14462 , -2492*w + 55818 , 8910*w + 30870 , 27000*w + 28350 , -27810*w + 45360 , -22128*w - 112574 ],
[ -7628*w - 19782 , 4998*w + 11508 , -168*w + 364 , 1080*w + 5600 , 30*w - 6370 , 14840 , -1186*w - 5922 , 174*w + 308 , -660*w - 6020 , -2000*w - 1750 , 2060*w - 3360 , -4834*w - 2996 ],
[ 57868*w + 82166 , -32674*w - 46928 , 2996*w + 672 , 422*w + 19600 , -18260*w - 14462 , 1186*w - 5922 , 250740 , -51738*w - 177534 , -49398*w - 9758 , -96536*w + 105364 , 28474*w - 301168 , 43130*w - 229502
],
[ -27266*w - 87710 , 15416*w + 52542 , -468*w , 112*w - 1260 , 2492*w + 55818 , -174*w + 308 , 51738*w - 177534 , 209230 , 33624*w + 84070 , 94416*w + 70966 , -87270*w + 178164 , -72750*w + 85120 ],
[ 5962*w - 47796 , -4032*w + 28252 , 256*w , -128*w , -8910*w + 30870 , 660*w - 6020 , 49398*w - 9758 , -33624*w + 84070 , 74466 , 27408*w + 136178 , -64818*w - 25620 , -40224*w - 48440 ],
[ 26016*w - 98070 , -16148*w + 56280 , -24*w , 12*w , -27000*w + 28350 , 2000*w - 1750 , 96536*w + 105364 , -94416*w + 70966 , -27408*w + 136178 , 324954 , -110872*w - 217168 , -60946*w - 196952 ],
[ -50772*w + 2170 , 29960*w + 1680 , 0 , 0 , 27810*w + 45360 , -2060*w - 3360 , -28474*w - 301168 , 87270*w + 178164 , 64818*w - 25620 , 110872*w - 217168 , 409948 , -26640*w + 276864 ],
[ -166056*w - 121926 , 87278*w + 52528 , -20400*w + 37268 , -9294*w - 83734 , 22128*w - 112574 , 4834*w - 2996 , -43130*w - 229502 , 72750*w + 85120 , 40224*w - 48440 , 60946*w - 196952 , 26640*w + 276864 , 
500794 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 2464196 , -5815*w - 375389 , 6699*w - 130263 , 149420*w - 14238 , -100286*w + 19670 , 18378*w - 3528 , -15610*w - 12068 , -76074*w + 166824 , -10820*w + 157290 , -44700*w - 71624 , 2560*w + 16856 , 63816*w
    - 254646 ],
[ 5815*w - 375389 , 57862 , -1470*w + 19418 , -25155*w - 5369 , 16077*w + 2373 , -2874*w - 308 , 2099*w + 2191 , 10657*w - 23625 , 1451*w - 22155 , 6330*w + 9954 , -372*w - 2394 , -10884*w + 36792 ],
[ -6699*w - 130263 , 1470*w + 19418 , 7658 , -7615*w + 9205 , 5879*w - 6881 , -1086*w + 1148 , 867*w + 581 , 3705*w - 8435 , 485*w - 7833 , 2246*w + 3458 , -134*w - 840 , -2342*w + 14854 ],
[ -149420*w - 14238 , 25155*w - 5369 , 7615*w + 9205 , 226030 , 3882*w - 101934 , -660*w + 14868 , 646*w + 4900 , -144*w - 1680 , 0 , 0 , 0 , 22926*w + 56238 ],
[ 100286*w + 19670 , -16077*w + 2373 , -5879*w - 6881 , -3882*w - 101934 , 89432 , 90*w - 17598 , 2938*w + 11200 , 26618*w + 48916 , 19840*w - 3360 , -5120*w + 42560 , 1680*w - 2800 , -29738*w - 14434 ],
[ -18378*w - 3528 , 2874*w - 308 , 1086*w + 1148 , 660*w + 14868 , -90*w - 17598 , 3878 , -1172*w - 3052 , -8286*w - 14560 , -6096*w + 1288 , 1500*w - 13104 , -504*w + 840 , 7300*w + 14 ],
[ 15610*w - 12068 , -2099*w + 2191 , -867*w + 581 , -646*w + 4900 , -2938*w + 11200 , 1172*w - 3052 , 19096 , 3868*w + 60354 , 10288*w + 24864 , -10346*w + 14112 , 1198*w + 350 , -13234*w - 22274 ],
[ 76074*w + 166824 , -10657*w - 23625 , -3705*w - 8435 , 144*w - 1680 , -26618*w + 48916 , 8286*w - 14560 , -3868*w + 60354 , 340018 , 48708*w + 163884 , -63716*w + 51296 , 6974*w + 7854 , -54294*w - 145474 
],
[ 10820*w + 157290 , -1451*w - 22155 , -485*w - 7833 , 0 , -19840*w - 3360 , 6096*w + 1288 , -10288*w + 24864 , -48708*w + 163884 , 127918 , -38086*w - 39256 , 2228*w + 10836 , -5302*w - 123508 ],
[ 44700*w - 71624 , -6330*w + 9954 , -2246*w + 3458 , 0 , 5120*w + 42560 , -1500*w - 13104 , 10346*w + 14112 , 63716*w + 51296 , 38086*w - 39256 , 91476 , 2552*w - 8008 , -35162*w + 48342 ],
[ -2560*w + 16856 , 372*w - 2394 , 134*w - 840 , 0 , -1680*w - 2800 , 504*w + 840 , -1198*w + 350 , -6974*w + 7854 , -2228*w + 10836 , -2552*w - 8008 , 1232 , 1828*w - 10668 ],
[ -63816*w - 254646 , 10884*w + 36792 , 2342*w + 14854 , -22926*w + 56238 , 29738*w - 14434 , -7300*w + 14 , 13234*w - 22274 , 54294*w - 145474 , 5302*w - 123508 , 35162*w + 48342 , -1828*w - 10668 , 159152 
]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 633374 , -71476*w - 179186 , 13544*w - 72534 , 11463*w + 43281 , 58296*w + 31206 , 18446*w - 65828 , -79318*w + 6860 , 666731*w + 42021 , -678757*w + 1625057 , 19198*w - 1362130 , -394786*w - 364532 , 
    79994*w - 2527588 ],
[ 71476*w - 179186 , 345338 , -36328*w + 36330 , 16049*w - 37723 , -3040*w + 10206 , 4622*w + 11368 , -14696*w - 19740 , 87249*w - 185325 , -3651*w + 415527 , -64398*w - 169890 , -65508*w + 91602 , -40990*w 
    - 225554 ],
[ -13544*w - 72534 , 36328*w + 36330 , 71218 , 1142*w - 75152 , 1474*w + 76384 , 2712*w - 13902 , -4490*w + 1456 , 3782*w - 1120 , -1280*w , 96*w , 0 , -15902*w - 90482 ],
[ -11463*w + 43281 , -16049*w - 37723 , -1142*w - 75152 , 123830 , 674*w - 100296 , 568*w + 17864 , -1900*w - 196 , -1492*w - 13412 , 7904*w + 7168 , -4416*w + 6300 , 780*w + 10668 , 43950*w + 75362 ],
[ -58296*w + 31206 , 3040*w + 10206 , -1474*w + 76384 , -674*w - 100296 , 225330 , 14824*w - 4032 , -17150*w - 116620 , 157964*w + 797272 , -435744*w - 376768 , 227664*w - 320460 , -39780*w - 544068 , 
    392386*w - 559454 ],
[ -18446*w - 65828 , -4622*w + 11368 , -2712*w - 13902 , -568*w + 17864 , -14824*w - 4032 , 28434 , 14546*w - 45948 , -102174*w + 291676 , -1200*w - 533120 , 81552*w + 206220 , 79884*w - 118356 , 150256*w + 
    456974 ],
[ 79318*w + 6860 , 14696*w - 19740 , 4490*w + 1456 , 1900*w - 196 , 17150*w - 116620 , -14546*w - 45948 , 168280 , -37152*w - 1128652 , 432872*w + 994336 , -320576*w + 76776 , -53808*w + 676816 , -603422*w -
    62734 ],
[ -666731*w + 42021 , -87249*w - 185325 , -3782*w - 1120 , 1492*w - 13412 , -157964*w + 797272 , 102174*w + 291676 , 37152*w - 1128652 , 8535016 , -3043884*w - 8298822 , 2460288*w - 16128 , 582048*w - 
    5056800 , 4493080*w + 1239728 ],
[ 678757*w + 1625057 , 3651*w + 415527 , 1280*w , -7904*w + 7168 , 435744*w - 376768 , 1200*w - 533120 , -432872*w + 994336 , 3043884*w - 8298822 , 15687070 , -2400776*w - 6136718 , -2373142*w + 3466778 , 
    -3935502*w - 12393668 ],
[ -19198*w - 1362130 , 64398*w - 169890 , -96*w , 4416*w + 6300 , -227664*w - 320460 , -81552*w + 206220 , 320576*w + 76776 , -2460288*w - 16128 , 2400776*w - 6136718 , 4973066 , 1459072*w + 1186304 , 
    -356676*w + 9057776 ],
[ 394786*w - 364532 , 65508*w + 91602 , 0 , -780*w + 10668 , 39780*w - 544068 , -79884*w - 118356 , 53808*w + 676816 , -582048*w - 5056800 , 2373142*w + 3466778 , -1459072*w + 1186304 , 3279584 , -2742406*w 
    + 1427398 ],
[ -79994*w - 2527588 , 40990*w - 225554 , 15902*w - 90482 , -43950*w + 75362 , -392386*w - 559454 , -150256*w + 456974 , 603422*w - 62734 , -4493080*w + 1239728 , 3935502*w - 12393668 , 356676*w + 9057776 , 
2742406*w + 1427398 , 17135440 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 16422 , 1678*w - 1638 , 504*w + 854 , 84*w + 70 , -40*w + 280 , 208*w - 322 , -252*w - 112 , 344*w + 84 , 26*w + 896 , -238*w - 434 , 372*w - 70 , 1792*w + 490 ],
[ -1678*w - 1638 , 12460 , -132*w + 4032 , -14*w + 560 , 0 , 0 , 48*w , -56*w , -32*w , -24*w , 0 , -692*w - 2352 ],
[ -504*w + 854 , 132*w + 4032 , 2534 , 322 , -270*w - 126 , 774*w , -198*w , -36*w , 0 , 0 , 0 , 782*w - 1750 ],
[ -84*w + 70 , 14*w + 560 , 322 , 98 , -70*w + 42 , 62*w - 28 , 18*w , 8*w , 0 , 0 , 0 , 38*w - 378 ],
[ 40*w + 280 , 0 , 270*w - 126 , 70*w + 42 , 770 , -130*w - 1288 , 62*w + 140 , 16*w , 0 , 0 , 0 , -492*w - 1456 ],
[ -208*w - 322 , 0 , -774*w , -62*w - 28 , 130*w - 1288 , 4074 , -20*w - 1148 , -6*w - 224 , 0 , 0 , 0 , 636*w + 4802 ],
[ 252*w - 112 , -48*w , 198*w , -18*w , -62*w + 140 , 20*w - 1148 , 532 , 140 , -80*w - 56 , 24*w - 252 , 24*w + 224 , -112*w - 1428 ],
[ -344*w + 84 , 56*w , 36*w , -8*w , -16*w , 6*w - 224 , 140 , 392 , -340*w - 98 , 102*w - 966 , 102*w + 952 , -168*w + 630 ],
[ -26*w + 896 , 32*w , 0 , 0 , 0 , 0 , 80*w - 56 , 340*w - 98 , 2870 , -1202*w - 420 , 1078*w - 1232 , 836*w + 1260 ],
[ 238*w - 434 , 24*w , 0 , 0 , 0 , 0 , -24*w - 252 , -102*w - 966 , 1202*w - 420 , 3626 , -684*w - 2996 , 354*w - 2520 ],
[ -372*w - 70 , 0 , 0 , 0 , 0 , 0 , -24*w + 224 , -102*w + 952 , -1078*w - 1232 , 684*w - 2996 , 3388 , -786*w + 1708 ],
[ -1792*w + 490 , 692*w - 2352 , -782*w - 1750 , -38*w - 378 , 492*w - 1456 , -636*w + 4802 , 112*w - 1428 , 168*w + 630 , -836*w + 1260 , -354*w - 2520 , 786*w + 1708 , 11242 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 25606 , 14072*w + 314468 , -3080*w - 64428 , -190*w + 210 , 584*w - 686 , -616*w + 98 , 660*w + 140 , -306*w + 2604 , -792*w - 406 , 2122*w + 84 , 674*w - 2744 , -15030*w - 19040 ],
[ -14072*w + 314468 , 4252220 , -3726*w - 875476 , 1676*w - 23590 , 9020*w + 57260 , -7326*w - 37310 , 7670*w + 3710 , -16420*w + 41790 , -17826*w - 35560 , 42736*w + 56140 , 23140*w - 37870 , -200246*w - 
    343714 ],
[ 3080*w - 64428 , 3726*w - 875476 , 180474 , -548*w + 4858 , -1688*w - 11494 , 1420*w + 7490 , -1468*w - 742 , 3284*w - 8358 , 3586*w + 7112 , -8552*w - 11228 , -4628*w + 7574 , 40748*w + 71960 ],
[ 190*w + 210 , -1676*w - 23590 , 548*w + 4858 , 6776 , -1286*w - 9240 , 788*w + 4676 , 288*w + 420 , -40*w , 0 , 0 , 0 , 1584*w + 3906 ],
[ -584*w - 686 , -9020*w + 57260 , 1688*w - 11494 , 1286*w - 9240 , 29708 , 134*w - 17542 , -4*w - 5320 , 2*w + 672 , 0 , 0 , 0 , -3046*w - 11396 ],
[ 616*w + 98 , 7326*w - 37310 , -1420*w + 7490 , -788*w + 4676 , -134*w - 17542 , 10794 , 38*w + 3724 , -486*w - 840 , -16*w - 1624 , 192*w + 2744 , 544*w + 560 , 1684*w + 6146 ],
[ -660*w + 140 , -7670*w + 3710 , 1468*w - 742 , -288*w + 420 , 4*w - 5320 , -38*w + 3724 , 4900 , -3300*w - 2366 , -110*w - 9800 , 1320*w + 18550 , 3740*w + 3850 , -586*w - 8792 ],
[ 306*w + 2604 , 16420*w + 41790 , -3284*w - 8358 , 40*w , -2*w + 672 , 486*w - 840 , 3300*w - 2366 , 26810 , -10784*w + 7826 , 19368*w - 22946 , 1616*w - 31220 , -9246*w + 15120 ],
[ 792*w - 406 , 17826*w - 35560 , -3586*w + 7112 , 0 , 0 , 16*w - 1624 , 110*w - 9800 , 10784*w + 7826 , 32984 , -3668*w - 61558 , -12168*w - 13622 , 3718*w + 29526 ],
[ -2122*w + 84 , -42736*w + 56140 , 8552*w - 11228 , 0 , 0 , -192*w + 2744 , -1320*w + 18550 , -19368*w - 22946 , 3668*w - 61558 , 118286 , 21304*w + 35084 , -3482*w - 60032 ],
[ -674*w - 2744 , -23140*w - 37870 , 4628*w + 7574 , 0 , 0 , -544*w + 560 , -3740*w + 3850 , -1616*w - 31220 , 12168*w - 13622 , -21304*w + 35084 , 37268 , 9828*w - 22260 ],
[ 15030*w - 19040 , 200246*w - 343714 , -40748*w + 71960 , -1584*w + 3906 , 3046*w - 11396 , -1684*w + 6146 , 586*w - 8792 , 9246*w + 15120 , -3718*w + 29526 , 3482*w - 60032 , -9828*w - 22260 , 112196 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 47112469740 , -539944688*w - 14569353190 , -405123536*w - 1146820948 , -115481094*w + 248957044 , 71561434*w - 438793866 , -75772038*w - 6283074 , 38581024*w + 92026816 , 54885284*w - 96766810 , 
    -10734766*w + 209877038 , 18427204*w + 82071122 , -69557620*w + 39832562 , 5601601768*w + 8720085318 ],
[ 539944688*w - 14569353190 , 4580593444 , 119474840*w + 394222878 , 40823438*w - 78335866 , -29503866*w + 145026448 , 28454210*w + 18601856 , -13758502*w - 41637946 , -23739512*w + 28083762 , 9508016*w - 
    80563672 , -5152480*w - 35529844 , 28346424*w - 3319456 , -1653356308*w - 3201953076 ],
[ 405123536*w - 1146820948 , -119474840*w + 394222878 , 340977308 , 6186530*w + 123325860 , -29962900*w + 62596912 , 17349196*w + 89600280 , -4906144*w - 76523300 , -33603792*w - 29106784 , 38151708*w - 
    62173860 , 7016448*w - 50383368 , 31263564*w + 65922080 , -44422738*w - 668136924 ],
[ 115481094*w + 248957044 , -40823438*w - 78335866 , -6186530*w + 123325860 , 64008686 , -8666408*w + 11830728 , 4507314*w + 28994882 , -1015872*w - 23624188 , -10215282*w - 11288508 , 12404222*w - 17176950 
, 2601018*w - 15323490 , 9211590*w + 22348200 , 66710626*w - 67007262 ],
[ -71561434*w - 438793866 , 29503866*w + 145026448 , 29962900*w + 62596912 , 8666408*w + 11830728 , 51552998 , 16274748*w + 14280588 , -10944590*w - 21237902 , -14288738*w + 18939900 , 4923780*w - 52144260 ,
-3749580*w - 22208130 , 18027060*w - 4806480 , -90828872*w - 70052388 ],
[ 75772038*w - 6283074 , -28454210*w + 18601856 , -17349196*w + 89600280 , -4507314*w + 28994882 , -16274748*w + 14280588 , 44835224 , 3785492*w - 33504114 , -11173318*w - 29114344 , 19882084*w - 4586932 , 
    6599940*w - 16329474 , 7459780*w + 42773584 , 21848030*w - 138709270 ],
[ -38581024*w + 92026816 , 13758502*w - 41637946 , 4906144*w - 76523300 , 1015872*w - 23624188 , 10944590*w - 21237902 , -3785492*w - 33504114 , 27454854 , 10843576*w + 15200584 , -14524742*w + 15218448 , 
    -3568724*w + 16156686 , -9214572*w - 27664700 , 3449486*w + 109440618 ],
[ -54885284*w - 96766810 , 23739512*w + 28083762 , 33603792*w - 29106784 , 10215282*w - 11288508 , 14288738*w + 18939900 , 11173318*w - 29114344 , -10843576*w + 15200584 , 38477964 , -14081480*w - 31775548 ,
-8372392*w - 914200 , 5829464*w - 40871264 , -45878214*w + 59566402 ],
[ 10734766*w + 209877038 , -9508016*w - 80563672 , -38151708*w - 62173860 , -12404222*w - 17176950 , -4923780*w - 52144260 , -19882084*w - 4586932 , 14524742*w + 15218448 , 14081480*w - 31775548 , 62322778 ,
6580294*w + 22206590 , -19774498*w + 18820788 , 58596630*w + 65124710 ],
[ -18427204*w + 82071122 , 5152480*w - 35529844 , -7016448*w - 50383368 , -2601018*w - 15323490 , 3749580*w - 22208130 , -6599940*w - 16329474 , 3568724*w + 16156686 , 8372392*w - 914200 , -6580294*w + 
    22206590 , 12776022 , -9033160*w - 7908964 , 13901824*w + 66433234 ],
[ 69557620*w + 39832562 , -28346424*w - 3319456 , -31263564*w + 65922080 , -9211590*w + 22348200 , -18027060*w - 4806480 , -7459780*w + 42773584 , 9214572*w - 27664700 , -5829464*w - 40871264 , 19774498*w + 
    18820788 , 9033160*w - 7908964 , 49603708 , 38326818*w - 110171026 ],
[ -5601601768*w + 8720085318 , 1653356308*w - 3201953076 , 44422738*w - 668136924 , -66710626*w - 67007262 , 90828872*w - 70052388 , -21848030*w - 138709270 , -3449486*w + 109440618 , 45878214*w + 59566402 ,
-58596630*w + 65124710 , -13901824*w + 66433234 , -38326818*w - 110171026 , 6530144278 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 6478430 , -3244102*w + 11416986 , 863128*w - 3716412 , 403810*w - 2349508 , -348942*w + 2690618 , -79344*w - 584262 , -95932*w + 165354 , -293200*w + 256354 , -31020*w + 545664 , 165858*w + 1159270 , 
    432362*w - 18774 , 1209490*w + 7826812 ],
[ 3244102*w + 11416986 , 39039714 , -334786*w - 12673374 , -268202*w - 7263214 , 316766*w + 8240358 , -25104*w - 839692 , 21078*w + 544446 , 21750*w + 136696 , 30754*w - 630 , 59422*w - 88536 , -10488*w - 
    163954 , 6878632*w + 6970908 ],
[ -863128*w - 3716412 , 334786*w - 12673374 , 4278050 , 48310*w + 2423442 , -67800*w - 2736510 , -12880*w + 289366 , -2844*w - 170772 , -1034*w - 10500 , -448*w , -96*w , 0 , -2068866*w - 2547258 ],
[ -403810*w - 2349508 , 268202*w - 7263214 , -48310*w + 2423442 , 3221092 , -9158*w - 4604852 , -347726*w + 295610 , -9350*w + 186984 , 116490*w + 1546104 , 401704*w + 267120 , 909348*w - 619920 , 82080*w - 
    2283120 , -440660*w + 211372 ],
[ 348942*w + 2690618 , -316766*w + 8240358 , 67800*w - 2736510 , 9158*w - 4604852 , 6939814 , 636050*w - 654808 , 16322*w - 407246 , -214354*w - 2858072 , -738420*w - 497490 , -1671370*w + 1137990 , 
    -150860*w + 4196290 , -92282*w - 1470896 ],
[ 79344*w - 584262 , 25104*w - 839692 , 12880*w + 289366 , 347726*w + 295610 , -636050*w - 654808 , 1199688 , 83140*w + 111398 , 512894*w + 404404 , 244060*w - 713930 , 183230*w - 2133250 , -643420*w - 
    1089830 , 814854*w - 1327998 ],
[ 95932*w + 165354 , -21078*w + 544446 , 2844*w - 170772 , 9350*w + 186984 , -16322*w - 407246 , -83140*w + 111398 , 83650 , 40916*w + 388640 , 102868*w + 48566 , 223606*w - 202230 , 3684*w - 577150 , 
    329498*w + 512064 ],
[ 293200*w + 256354 , -21750*w + 136696 , 1034*w - 10500 , -116490*w + 1546104 , 214354*w - 2858072 , -512894*w + 404404 , -40916*w + 388640 , 2202340 , 513876*w + 655816 , 1287728*w - 196196 , 338968*w - 
    3020528 , 1056474*w + 3049144 ],
[ 31020*w + 545664 , -30754*w - 630 , 448*w , -401704*w + 267120 , 738420*w - 497490 , -244060*w - 713930 , -102868*w + 48566 , -513876*w + 655816 , 1034950 , 429178*w + 2045610 , 805940*w - 345394 , 
    -396066*w + 2616502 ],
[ -165858*w + 1159270 , -59422*w - 88536 , 96*w , -909348*w - 619920 , 1671370*w + 1137990 , -183230*w - 2133250 , -223606*w - 202230 , -1287728*w - 196196 , -429178*w + 2045610 , 5289942 , 1736516*w + 
    1657152 , -1871686*w + 4015452 ],
[ -432362*w - 18774 , 10488*w - 163954 , 0 , -82080*w - 2283120 , 150860*w + 4196290 , 643420*w - 1089830 , -3684*w - 577150 , -338968*w - 3020528 , -805940*w - 345394 , -1736516*w + 1657152 , 4509428 , 
    -1904572*w - 3044062 ],
[ -1209490*w + 7826812 , -6878632*w + 6970908 , 2068866*w - 2547258 , 440660*w + 211372 , 92282*w - 1470896 , -814854*w - 1327998 , -329498*w + 512064 , -1056474*w + 3049144 , 396066*w + 2616502 , 1871686*w 
    + 4015452 , 1904572*w - 3044062 , 17753750 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 141260 , 10585*w + 50379 , 6039*w - 38017 , 5886*w - 4424 , -3133*w + 1645 , 97*w + 399 , 391*w - 3731 , -1198*w + 3346 , -3244*w - 6202 , 3098*w - 1526 , -524*w - 980 , 17275*w - 1043 ],
[ -10585*w + 50379 , 88172 , 9313*w - 4823 , 15348*w + 8582 , -4251*w + 4613 , -227*w - 2597 , 251*w - 693 , -392*w , -56*w - 882 , 222*w + 378 , 4*w - 84 , 12292*w + 12670 ],
[ -6039*w - 38017 , -9313*w - 4823 , 18480 , -1130*w + 13356 , 1376*w - 12264 , -192*w + 1722 , -52*w + 2842 , 508*w - 2520 , 2008*w + 2604 , -1644*w + 1596 , 328*w + 504 , -3864*w + 8232 ],
[ -5886*w - 4424 , -15348*w + 8582 , 1130*w + 13356 , 29246 , -3688*w - 13678 , 1086*w + 1134 , 332*w + 798 , -92*w - 770 , 158*w + 70 , -100*w + 196 , 28*w + 28 , 894*w + 14630 ],
[ 3133*w + 1645 , 4251*w + 4613 , -1376*w - 12264 , 3688*w - 13678 , 51380 , -224*w - 11690 , -786*w - 9394 , -768*w + 8274 , -6478*w - 2870 , 4100*w - 8036 , -1148*w - 1148 , -1144*w + 1050 ],
[ -97*w + 399 , 227*w - 2597 , 192*w + 1722 , -1086*w + 1134 , 224*w - 11690 , 2870 , 136*w + 2100 , 186*w - 1736 , 1374*w + 826 , -918*w + 1596 , 238*w + 238 , 244*w - 1134 ],
[ -391*w - 3731 , -251*w - 693 , 52*w + 2842 , -332*w + 798 , 786*w - 9394 , -136*w + 2100 , 2968 , 576*w - 2492 , 2390*w + 2618 , -1826*w + 2156 , 322*w + 770 , 216*w - 2856 ],
[ 1198*w + 3346 , 392*w , -508*w - 2520 , 92*w - 770 , 768*w + 8274 , -186*w - 1736 , -576*w - 2492 , 3024 , -2578*w + 1330 , 1090*w - 4508 , -462*w - 238 , 542*w + 2996 ],
[ 3244*w - 6202 , 56*w - 882 , -2008*w + 2604 , -158*w + 70 , 6478*w - 2870 , -1374*w + 826 , -2390*w + 2618 , 2578*w + 1330 , 17080 , -3628*w - 9016 , -420*w + 2492 , 2825*w - 1883 ],
[ -3098*w - 1526 , -222*w + 378 , 1644*w + 1596 , 100*w + 196 , -4100*w - 8036 , 918*w + 1596 , 1826*w + 2156 , -1090*w - 4508 , 3628*w - 9016 , 10164 , 742*w - 714 , -1922*w - 3066 ],
[ 524*w - 980 , -4*w - 84 , -328*w + 504 , -28*w + 28 , 1148*w - 1148 , -238*w + 238 , -322*w + 770 , 462*w - 238 , 420*w + 2492 , -742*w - 714 , 560 , 590*w - 896 ],
[ -17275*w - 1043 , -12292*w + 12670 , 3864*w + 8232 , -894*w + 14630 , 1144*w + 1050 , -244*w - 1134 , -216*w - 2856 , -542*w + 2996 , -2825*w - 1883 , 1922*w - 3066 , -590*w - 896 , 29666 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 21573734 , 454138*w + 10477950 , -85312*w + 260092 , -44954*w + 104328 , 4998*w - 94038 , -61538*w + 572096 , -9420*w + 48244 , -4330*w - 129598 , 121426*w - 11802 , -240536*w + 50848 , 118714*w - 505974 ,
-2340384*w - 5047994 ],
[ -454138*w + 10477950 , 5462436 , -46526*w + 37814 , -37471*w + 48517 , 11148*w - 49630 , -23660*w + 270004 , -11353*w + 24255 , -2119*w - 62741 , 58791*w + 1687 , -116500*w + 10598 , 61442*w - 237300 , 
    -1016061*w - 2751483 ],
[ 85312*w + 260092 , 46526*w + 37814 , 24752 , 3180*w + 14 , -2040*w + 420 , -2444*w + 9296 , 1458*w + 350 , -30*w - 1666 , 1566*w - 1638 , -3072*w + 3500 , 712*w - 8036 , -52580*w - 8064 ],
[ 44954*w + 104328 , 37471*w + 48517 , -3180*w + 14 , 21560 , -110*w - 4830 , 9518*w - 63518 , 130*w + 3528 , -1174*w + 13440 , -10000*w - 5040 , 21800*w + 5880 , -13800*w + 40600 , -10008*w + 26572 ],
[ -4998*w - 94038 , -11148*w - 49630 , 2040*w + 420 , 110*w - 4830 , 2394 , -80*w + 2688 , 30*w - 1204 , 4*w - 168 , 0 , 0 , 0 , 9084*w + 18172 ],
[ 61538*w + 572096 , 23660*w + 270004 , 2444*w + 9296 , -9518*w - 63518 , 80*w + 2688 , 406602 , -992*w - 7420 , -5502*w - 83888 , 62712*w - 39928 , -132444*w + 112756 , 41340*w - 329028 , -139406*w - 134470
],
[ 9420*w + 48244 , 11353*w + 24255 , -1458*w + 350 , -130*w + 3528 , -30*w - 1204 , 992*w - 7420 , 1386 , -120*w + 1638 , -1000*w - 700 , 2180*w + 630 , -1380*w + 4060 , -6178*w - 4242 ],
[ 4330*w - 129598 , 2119*w - 62741 , 30*w - 1666 , 1174*w + 13440 , -4*w - 168 , 5502*w - 83888 , 120*w + 1638 , 18074 , -13564*w + 2128 , 29036*w - 10738 , -13068*w + 64372 , 25002*w + 48860 ],
[ -121426*w - 11802 , -58791*w + 1687 , -1566*w - 1638 , 10000*w - 5040 , 0 , -62712*w - 39928 , 1000*w - 700 , 13564*w + 2128 , 72422 , -4446*w - 155372 , 47086*w + 77518 , 43376*w - 150290 ],
[ 240536*w + 50848 , 116500*w + 10598 , 3072*w + 3500 , -21800*w + 5880 , 0 , 132444*w + 112756 , -2180*w + 630 , -29036*w - 10738 , 4446*w - 155372 , 336042 , -96512*w - 187040 , -94700*w + 296912 ],
[ -118714*w - 505974 , -61442*w - 237300 , -712*w - 8036 , 13800*w + 40600 , 0 , -41340*w - 329028 , 1380*w + 4060 , 13068*w + 64372 , -47086*w + 77518 , 96512*w - 187040 , 298144 , 137228*w + 24024 ],
[ 2340384*w - 5047994 , 1016061*w - 2751483 , 52580*w - 8064 , 10008*w + 26572 , -9084*w + 18172 , 139406*w - 134470 , 6178*w - 4242 , -25002*w + 48860 , -43376*w - 150290 , 94700*w + 296912 , -137228*w + 
    24024 , 3059140 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 17239390 , 90303*w - 3264611 , -138338*w + 471114 , 204383*w + 100051 , 27467*w - 28637 , -1433*w + 31969 , 26207*w + 248045 , 12631*w - 92057 , -56739*w - 90125 , -392*w - 4634 , -73544*w + 82614 , 
    4082632*w + 7242844 ],
[ -90303*w - 3264611 , 742224 , 58302*w - 96712 , -61087*w - 30611 , -11425*w - 5677 , 911*w - 1477 , -2025*w - 23779 , -812*w + 7406 , 1988*w + 9702 , -290*w - 742 , 5108*w + 1372 , -814468*w - 1099868 ],
[ 138338*w + 471114 , -58302*w - 96712 , 128870 , 530*w - 116998 , 5752*w - 15582 , -2102*w - 1022 , 1002*w + 1190 , 140*w - 364 , -868*w - 336 , -12*w + 28 , -752*w + 2016 , 130852*w - 64176 ],
[ -204383*w + 100051 , 61087*w - 30611 , -530*w - 116998 , 226142 , -3940*w + 1526 , 990*w + 10864 , -17834*w - 4844 , 3992*w + 12320 , 15232*w - 24192 , 1280*w + 1792 , 1792*w - 55552 , -47564*w + 400638 ],
[ -27467*w - 28637 , 11425*w - 5677 , -5752*w - 15582 , 3940*w + 1526 , 7098 , 158*w - 2450 , 352*w + 2912 , -4*w - 896 , 42*w + 42 , 36*w + 336 , 0 , -9458*w + 21882 ],
[ 1433*w + 31969 , -911*w - 1477 , 2102*w - 1022 , -990*w + 10864 , -158*w - 2450 , 1638 , -110*w + 728 , 130*w - 112 , -148*w - 2100 , 88*w - 252 , -840*w - 1064 , 5950*w + 18550 ],
[ -26207*w + 248045 , 2025*w - 23779 , -1002*w + 1190 , 17834*w - 4844 , -352*w + 2912 , 110*w + 728 , 54432 , 4620*w - 14280 , -7280*w - 40320 , 1232*w - 1708 , -19824*w - 8848 , 40948*w + 177422 ],
[ -12631*w - 92057 , 812*w + 7406 , -140*w - 364 , -3992*w + 12320 , 4*w - 896 , -130*w - 112 , -4620*w - 14280 , 6860 , 5680*w + 4620 , -36*w + 1106 , 5614*w - 11410 , -28563*w - 30849 ],
[ 56739*w - 90125 , -1988*w + 9702 , 868*w - 336 , -15232*w - 24192 , -42*w + 42 , 148*w - 2100 , 7280*w - 40320 , -5680*w + 4620 , 48832 , -1854*w + 1722 , 17724*w + 33292 , 16505*w - 149737 ],
[ 392*w - 4634 , 290*w - 742 , 12*w + 28 , -1280*w + 1792 , -36*w + 336 , -88*w - 252 , -1232*w - 1708 , 36*w + 1106 , 1854*w + 1722 , 756 , 1862*w - 3514 , -944*w - 6916 ],
[ 73544*w + 82614 , -5108*w + 1372 , 752*w + 2016 , -1792*w - 55552 , 0 , 840*w - 1064 , 19824*w - 8848 , -5614*w - 11410 , -17724*w + 33292 , -1862*w - 3514 , 67760 , 66528*w - 63938 ],
[ -4082632*w + 7242844 , 814468*w - 1099868 , -130852*w - 64176 , 47564*w + 400638 , 9458*w + 21882 , -5950*w + 18550 , -40948*w + 177422 , 28563*w - 30849 , -16505*w - 149737 , 944*w - 6916 , -66528*w - 
    63938 , 9974986 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 26104540 , 164011*w - 8249857 , 1007942*w - 5130622 , 3212396*w - 17320310 , 1162340*w - 1522920 , -1219400*w - 3635912 , -1902782*w + 1387610 , -63418*w + 494816 , 155982*w - 1408036 , -488070*w - 335692 
, -875750*w + 201880 , -272008*w - 5758816 ],
[ -164011*w - 8249857 , 2698080 , -266552*w + 1668240 , -773916*w + 6228838 , -365420*w + 659106 , 505718*w + 1229494 , 634678*w - 640822 , 8597*w - 172263 , -31365*w + 480767 , 167462*w + 65380 , 288248*w -
    148624 , -21640*w + 1970052 ],
[ -1007942*w - 5130622 , 266552*w + 1668240 , 1637286 , -63432*w + 3729418 , -180924*w + 290038 , 377502*w + 385952 , 297614*w - 610120 , -20580*w - 90720 , 21600*w + 235200 , 84000*w - 47600 , 123600*w - 
    201600 , 540628*w + 1450666 ],
[ -3212396*w - 17320310 , 773916*w + 6228838 , 63432*w + 3729418 , 27318242 , -1088230*w + 4795868 , 2295454*w + 5155108 , 2093086*w - 4190228 , -65478*w - 823620 , 146780*w + 1952160 , 665700*w - 361830 , 
    1000130*w - 1631280 , -2712014*w + 1356992 ],
[ -1162340*w - 1522920 , 365420*w + 659106 , 180924*w + 290038 , 1088230*w + 4795868 , 1327396 , 568074*w + 163730 , 185758*w - 1352344 , -31316*w - 114548 , 95124*w + 319788 , 107436*w - 241122 , 124302*w -
    560952 , -600532*w + 472598 ],
[ 1219400*w - 3635912 , -505718*w + 1229494 , -377502*w + 385952 , -2295454*w + 5155108 , -568074*w + 163730 , 3110464 , 768796*w + 584276 , 31698*w - 282548 , -103908*w + 455700 , 152436*w + 279594 , 
    300474*w + 202440 , -1251286*w - 1499512 ],
[ 1902782*w + 1387610 , -634678*w - 640822 , -297614*w - 610120 , -2093086*w - 4190228 , -185758*w - 1352344 , -768796*w + 584276 , 1880676 , 72096*w + 89208 , -176408*w - 240632 , -81000*w + 427644 , 
    -37272*w + 820988 , 211224*w - 1774472 ],
[ 63418*w + 494816 , -8597*w - 172263 , 20580*w - 90720 , 65478*w - 823620 , 31316*w - 114548 , -31698*w - 282548 , -72096*w + 89208 , 49364 , -6288*w - 77868 , -24264*w + 11928 , -35996*w + 62692 , 140304*w
    + 56546 ],
[ -155982*w - 1408036 , 31365*w + 480767 , -21600*w + 235200 , -146780*w + 1952160 , -95124*w + 319788 , 103908*w + 455700 , 176408*w - 240632 , 6288*w - 77868 , 174678 , 57184*w - 3640 , 93196*w - 100268 , 
-217994*w - 104146 ],
[ 488070*w - 335692 , -167462*w + 65380 , -84000*w - 47600 , -665700*w - 361830 , -107436*w - 241122 , -152436*w + 279594 , 81000*w + 427644 , 24264*w + 11928 , -57184*w - 3640 , 133056 , 30734*w + 218526 , 
22646*w - 495866 ],
[ 875750*w + 201880 , -288248*w - 148624 , -123600*w - 201600 , -1000130*w - 1631280 , -124302*w - 560952 , -300474*w + 202440 , 37272*w + 820988 , 35996*w + 62692 , -93196*w - 100268 , -30734*w + 218526 , 
    409948 , 157226*w - 743190 ],
[ 272008*w - 5758816 , 21640*w + 1970052 , -540628*w + 1450666 , 2712014*w + 1356992 , 600532*w + 472598 , 1251286*w - 1499512 , -211224*w - 1774472 , -140304*w + 56546 , 217994*w - 104146 , -22646*w - 
    495866 , -157226*w - 743190 , 9805684 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 335818 , -4957*w + 4487 , 36026*w + 73514 , 3991*w + 7987 , 1543*w - 28595 , 50484*w - 42098 , -28128*w + 13734 , -11401*w - 65667 , -11413*w + 3997 , -2426*w - 54180 , -40180*w + 64708 , 167909*w - 11179 
],
[ 4957*w + 4487 , 7658 , 2882*w - 42504 , -312*w - 1708 , -3112*w + 10808 , -12176*w - 20454 , 5848*w + 17108 , 736*w + 25214 , 1448*w + 154 , -1824*w + 8820 , 8456*w + 2128 , -16903*w + 12439 ],
[ -36026*w + 73514 , -2882*w - 42504 , 678230 , -4772*w + 1694 , -5940*w - 202314 , 197414*w + 11368 , -123074*w - 94976 , -78500*w - 351232 , -25872*w + 43904 , -8624*w - 167384 , -121128*w + 197568 , 
    130306*w - 397530 ],
[ -3991*w + 7987 , 312*w - 1708 , 4772*w + 1694 , 3262 , -138*w + 5264 , 1124*w + 3556 , -582*w + 616 , -378*w - 1540 , -132*w + 224 , -44*w - 854 , -618*w + 1008 , 6809*w + 18879 ],
[ -1543*w - 28595 , 3112*w + 10808 , 5940*w - 202314 , 138*w + 5264 , 82992 , -70536*w + 7854 , 42802*w + 33544 , 23522*w + 135100 , 12152*w - 16184 , 3304*w + 67564 , 49028*w - 79968 , -44705*w + 244447 ],
[ -50484*w - 42098 , 12176*w - 20454 , -197414*w + 11368 , -1124*w + 3556 , 70536*w + 7854 , 551320 , 31700*w - 329896 , 137226*w - 186368 , -14908*w - 84616 , 70556*w - 19306 , -79414*w - 364000 , 216800*w 
    + 460614 ],
[ 28128*w + 13734 , -5848*w + 17108 , 123074*w - 94976 , 582*w + 616 , -42802*w + 33544 , -31700*w - 329896 , 215404 , -71904*w + 177016 , 14648*w + 42308 , -40608*w + 42644 , 69916*w + 180488 , -149490*w - 
    158242 ],
[ 11401*w - 65667 , -736*w + 25214 , 78500*w - 351232 , 378*w - 1540 , -23522*w + 135100 , -137226*w - 186368 , 71904*w + 177016 , 383796 , 35088*w - 23156 , -10088*w + 157752 , 129752*w - 92232 , -164289*w 
    + 349111 ],
[ 11413*w + 3997 , -1448*w + 154 , 25872*w + 43904 , 132*w + 224 , -12152*w - 16184 , 14908*w - 84616 , -14648*w + 42308 , -35088*w - 23156 , 31262 , -17486*w - 12250 , 7258*w + 105574 , -40273*w - 135275 ],
[ 2426*w - 54180 , 1824*w + 8820 , 8624*w - 167384 , 44*w - 854 , -3304*w + 67564 , -70556*w - 19306 , 40608*w + 42644 , 10088*w + 157752 , 17486*w - 12250 , 81312 , 62666*w - 76342 , -72276*w + 232470 ],
[ 40180*w + 64708 , -8456*w + 2128 , 121128*w + 197568 , 618*w + 1008 , -49028*w - 79968 , 79414*w - 364000 , -69916*w + 180488 , -129752*w - 92232 , -7258*w + 105574 , -62666*w - 76342 , 409948 , -111966*w 
    - 609658 ],
[ -167909*w - 11179 , 16903*w + 12439 , -130306*w - 397530 , -6809*w + 18879 , 44705*w + 244447 , -216800*w + 460614 , 149490*w - 158242 , 164289*w + 349111 , 40273*w - 135275 , 72276*w + 232470 , 111966*w -
    609658 , 1753332 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 4039910 , -869008*w - 544544 , -309829*w - 667835 , 22488*w - 33418 , -13088*w - 160286 , 21098*w + 440286 , 183468*w - 580426 , 19414*w - 58730 , -22110*w - 290052 , -185562*w + 105910 , -129016*w + 
    860118 , 1901312*w + 1010506 ],
[ 869008*w - 544544 , 1851486 , -86053*w + 737527 , -19928*w - 35462 , -37870*w + 38304 , 110408*w - 58170 , -152522*w - 265328 , -17150*w - 27258 , -64312*w + 39242 , 26942*w + 290122 , 195270*w + 189504 , 
-135310*w - 3244374 ],
[ 309829*w - 667835 , 86053*w + 737527 , 406882 , -4608*w - 1904 , -8362*w + 57134 , 44622*w - 108920 , -104091*w - 23583 , -12688*w - 2618 , -23907*w + 60011 , 39202*w + 109424 , 103096*w - 45136 , 
    -303303*w - 1321593 ],
[ -22488*w - 33418 , 19928*w - 35462 , 4608*w - 1904 , 12278 , -810*w + 12040 , 1790*w - 14630 , -3776*w + 5922 , -472*w + 714 , -460*w + 2800 , 1810*w + 2170 , 3090*w - 5040 , -28676*w + 60886 ],
[ 13088*w - 160286 , 37870*w + 38304 , 8362*w + 57134 , 810*w + 12040 , 23744 , 6136*w - 40936 , -22922*w + 17738 , -2838*w + 1890 , -3012*w + 18060 , 11686*w + 14014 , 19982*w - 32592 , -89670*w - 94038 ],
[ -21098*w + 440286 , -110408*w - 58170 , -44622*w - 108920 , -1790*w - 14630 , -6136*w - 40936 , 123130 , 49014*w - 130606 , 5194*w - 18886 , 4500*w - 56350 , -37624*w - 19040 , -50104*w + 131474 , 240504*w
    + 108094 ],
[ -183468*w - 580426 , 152522*w - 265328 , 104091*w - 23583 , 3776*w + 5922 , 22922*w + 17738 , -49014*w - 130606 , 313600 , 846*w + 40894 , 22768*w + 65100 , 43406*w - 105826 , -15618*w - 282982 , -321946*w
    + 653520 ],
[ -19414*w - 58730 , 17150*w - 27258 , 12688*w - 2618 , 472*w + 714 , 2838*w + 1890 , -5194*w - 18886 , -846*w + 40894 , 6258 , 1684*w + 6454 , 4624*w - 7952 , 370*w - 26474 , -34772*w + 73108 ],
[ 22110*w - 290052 , 64312*w + 39242 , 23907*w + 60011 , 460*w + 2800 , 3012*w + 18060 , -4500*w - 56350 , -22768*w + 65100 , -1684*w + 6454 , 41398 , 26524*w - 2212 , 26068*w - 110180 , -143730*w - 88788 ],
[ 185562*w + 105910 , -26942*w + 290122 , -39202*w + 109424 , -1810*w + 2170 , -11686*w + 14014 , 37624*w - 19040 , -43406*w - 105826 , -4624*w - 7952 , -26524*w - 2212 , 119616 , 69442*w + 123550 , 59374*w 
    - 647178 ],
[ 129016*w + 860118 , -195270*w + 189504 , -103096*w - 45136 , -3090*w - 5040 , -19982*w - 32592 , 50104*w + 131474 , 15618*w - 282982 , -370*w - 26474 , -26068*w - 110180 , -69442*w + 123550 , 409948 , 
    434496*w - 423682 ],
[ -1901312*w + 1010506 , 135310*w - 3244374 , 303303*w - 1321593 , 28676*w + 60886 , 89670*w - 94038 , -240504*w + 108094 , 321946*w + 653520 , 34772*w + 73108 , 143730*w - 88788 , -59374*w - 647178 , 
    -434496*w - 423682 , 7013608 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 33295542 , -1069668*w + 1777300 , 40752*w + 610820 , 1079714*w + 6539960 , -293278*w - 852306 , -965686*w - 1993208 , -522030*w - 989492 , 594332*w - 214732 , 630008*w + 2970716 , 968304*w + 2465792 , 
    1404682*w + 40642 , 9454682*w + 18324418 ],
[ 1069668*w + 1777300 , 618142 , 25004*w + 17724 , 137692*w - 7658 , -30740*w + 6580 , -44360*w - 700 , -23608*w , 4820*w , 1536*w , -288*w , 0 , 1352592*w - 1156946 ],
[ -40752*w + 610820 , -25004*w + 17724 , 70980 , -73846*w + 116452 , 4656*w - 15652 , 1856*w - 1680 , -2916*w + 1120 , 152*w , 128*w , -24*w , 0 , 186138*w + 179410 ],
[ -1079714*w + 6539960 , -137692*w - 7658 , 73846*w + 116452 , 5024264 , -10552*w - 832076 , 311768*w - 1998220 , 195042*w - 941570 , 45606*w + 1115100 , -796736*w + 974400 , -693612*w + 1607550 , -91200*w +
    2536800 , 774516*w + 5427170 ],
[ 293278*w - 852306 , 30740*w + 6580 , -4656*w - 15652 , 10552*w - 832076 , 172872 , -71558*w + 463218 , -44930*w + 236152 , -10406*w - 257656 , 182600*w - 224350 , 158950*w - 368200 , 20900*w - 581350 , 
    -106648*w - 1233344 ],
[ 965686*w - 1993208 , 44360*w - 700 , -1856*w - 1680 , -311768*w - 1998220 , 71558*w + 463218 , 2060394 , -35394*w + 1132334 , -270296*w - 990136 , 573000*w - 2133502 , 333286*w - 2605778 , -452188*w - 
    2611686 , -217380*w - 3700718 ],
[ 522030*w - 989492 , 23608*w , 2916*w + 1120 , -195042*w - 941570 , 44930*w + 236152 , 35394*w + 1132334 , 632926 , -167904*w - 510048 , 275332*w - 1255744 , 133648*w - 1484014 , -300184*w - 1381016 , 
    -141692*w - 2016364 ],
[ -594332*w - 214732 , -4820*w , -152*w , -45606*w + 1115100 , 10406*w - 257656 , 270296*w - 990136 , 167904*w - 510048 , 790888 , -616010*w + 529004 , -560792*w + 1029728 , -147364*w + 1844332 , -377190*w +
    1338778 ],
[ -630008*w + 2970716 , -1536*w , -128*w , 796736*w + 974400 , -182600*w - 224350 , -573000*w - 2133502 , -275332*w - 1255744 , 616010*w + 529004 , 3724966 , 429266*w + 3758748 , 1342972*w + 2042334 , 
    675768*w + 3086104 ],
[ -968304*w + 2465792 , 288*w , 24*w , 693612*w + 1607550 , -158950*w - 368200 , -333286*w - 2605778 , -133648*w - 1484014 , 560792*w + 1029728 , -429266*w + 3758748 , 4139562 , 1119900*w + 3144484 , 
    319616*w + 3601122 ],
[ -1404682*w + 40642 , 0 , 0 , 91200*w + 2536800 , -20900*w - 581350 , 452188*w - 2611686 , 300184*w - 1381016 , 147364*w + 1844332 , -1342972*w + 2042334 , -1119900*w + 3144484 , 4509428 , -732218*w + 
    3350158 ],
[ -9454682*w + 18324418 , -1352592*w - 1156946 , -186138*w + 179410 , -774516*w + 5427170 , 106648*w - 1233344 , 217380*w - 3700718 , 141692*w - 2016364 , 377190*w + 1338778 , -675768*w + 3086104 , -319616*w
    + 3601122 , 732218*w + 3350158 , 34042652 ]
]);

Grammatrix:=Matrix(S,[
[ 80901520 , -17282*w - 16942660 , -18027*w - 194131 , 4344*w - 122864 , -231259*w - 80353 , 10284*w + 13888 , 19309*w + 252707 , -453618*w - 603330 , 149177*w - 436961 , -61883*w - 89131 , 199158*w + 428764
, 3257910*w + 6479914 ],
[ 17282*w - 16942660 , 3565590 , 4876*w + 13300 , -1319*w + 27489 , 47383*w + 23443 , -2595*w - 3087 , -3501*w - 52689 , 91299*w + 136255 , -32387*w + 88711 , 12706*w + 19516 , -40379*w - 92253 , -677553*w -
    1350237 ],
[ 18027*w - 194131 , -4876*w + 13300 , 128576 , 462*w - 5012 , 9442*w - 24934 , 320*w - 266 , -2030*w - 7840 , 24038*w - 22064 , 576*w + 18816 , 2208*w - 672 , -8928*w - 2016 , -8374*w - 40572 ],
[ -4344*w - 122864 , 1319*w + 27489 , -462*w - 5012 , 1162 , 1284*w + 1680 , -178*w - 56 , -40*w - 1484 , 2406*w + 5712 , -872*w + 1876 , 246*w + 602 , -722*w - 2786 , -3948*w - 7126 ],
[ 231259*w - 80353 , -47383*w + 23443 , -9442*w - 24934 , -1284*w + 1680 , 28322 , 52*w - 1890 , 3798*w - 2156 , -8438*w + 56980 , -6296*w - 11228 , -1072*w + 5460 , 5714*w - 18382 , 16098*w - 55160 ],
[ -10284*w + 13888 , 2595*w - 3087 , -320*w - 266 , 178*w - 56 , -52*w - 1890 , 462 , -284*w + 392 , 484*w - 4396 , 478*w + 434 , 38*w - 350 , -290*w + 1246 , -2*w + 2030 ],
[ -19309*w + 252707 , 3501*w - 52689 , 2030*w - 7840 , 40*w - 1484 , -3798*w - 2156 , 284*w + 392 , 4116 , -7188*w - 12600 , 2220*w - 5068 , -688*w - 1624 , 2132*w + 7476 , 6418*w + 24136 ],
[ 453618*w - 603330 , -91299*w + 136255 , -24038*w - 22064 , -2406*w + 5712 , 8438*w + 56980 , -484*w - 4396 , 7188*w - 12600 , 136864 , -14958*w - 8246 , -702*w + 12138 , 6596*w - 45724 , 17687*w - 144431 
],
[ -149177*w - 436961 , 32387*w + 88711 , -576*w + 18816 , 872*w + 1876 , 6296*w - 11228 , -478*w + 434 , -2220*w - 5068 , 14958*w - 8246 , 19880 , 2240*w - 1736 , -8248*w + 2072 , -25848*w - 1694 ],
[ 61883*w - 89131 , -12706*w + 19516 , -2208*w - 672 , -246*w + 602 , 1072*w + 5460 , -38*w - 350 , 688*w - 1624 , 702*w + 12138 , -2240*w - 1736 , 2072 , 424*w - 7336 , 2196*w - 21042 ],
[ -199158*w + 428764 , 40379*w - 92253 , 8928*w - 2016 , 722*w - 2786 , -5714*w - 18382 , 290*w + 1246 , -2132*w + 7476 , -6596*w - 45724 , 8248*w + 2072 , -424*w - 7336 , 27104 , -2694*w + 78974 ],
[ -3257910*w + 6479914 , 677553*w - 1350237 , 8374*w - 40572 , 3948*w - 7126 , -16098*w - 55160 , 2*w + 2030 , -6418*w + 24136 , -17687*w - 144431 , 25848*w - 1694 , -2196*w - 21042 , 2694*w + 78974 , 
    1460508 ]
]);

Grammatrix:=Matrix(S,[
[ 4871230 , -66135*w - 2301747 , 29777*w + 736743 , -154190*w + 226478 , 22032*w - 204554 , -54602*w + 163786 , -2290*w + 147840 , 24766*w + 26082 , -6170*w + 74284 , -37178*w + 131418 , 21306*w + 195930 , 
    -2342408*w - 2911874 ],
[ 66135*w - 2301747 , 1100792 , -4165*w - 352387 , 75398*w - 114408 , -18093*w + 106841 , 30086*w - 80024 , 1994*w - 73458 , -12069*w - 14259 , 3489*w - 36603 , 19464*w - 63168 , -9078*w - 98280 , 1067221*w 
    + 1574349 ],
[ -29777*w + 736743 , 4165*w - 352387 , 113260 , -26458*w + 31248 , 7359*w - 31283 , -10530*w + 23464 , -1246*w + 23366 , 3735*w + 5145 , -1411*w + 11529 , -6672*w + 19264 , 2210*w + 31920 , -337985*w - 
    530397 ],
[ 154190*w + 226478 , -75398*w - 114408 , 26458*w + 31248 , 246750 , 4464*w - 164626 , -954*w + 107688 , 15834*w + 33180 , 7840*w - 11172 , 7068*w + 19152 , 5244*w + 51072 , 23256*w + 23940 , -154684*w + 
    513352 ],
[ -22032*w - 204554 , 18093*w + 106841 , -7359*w - 31283 , -4464*w - 164626 , 167356 , 380*w - 90902 , -10384*w - 21924 , -5186*w + 6090 , -4650*w - 12600 , -3450*w - 33600 , -15300*w - 15750 , 48468*w - 
    52654 ],
[ 54602*w + 163786 , -30086*w - 80024 , 10530*w + 23464 , 954*w + 107688 , -380*w - 90902 , 59682 , 8410*w + 17584 , 3984*w - 6426 , 3594*w + 10626 , 3222*w + 30156 , 13668*w + 14070 , -83990*w + 145474 ],
[ 2290*w + 147840 , -1994*w - 73458 , 1246*w + 23366 , -15834*w + 33180 , 10384*w - 21924 , -8410*w + 17584 , 16464 , 2582*w + 2366 , -608*w + 8148 , -4246*w + 14882 , 2376*w + 22176 , -76564*w - 50498 ],
[ -24766*w + 26082 , 12069*w - 14259 , -3735*w + 5145 , -7840*w - 11172 , 5186*w + 6090 , -3984*w - 6426 , -2582*w + 2366 , 3668 , -1298*w + 574 , -2802*w - 3374 , -3294*w + 4830 , -2196*w - 96908 ],
[ 6170*w + 74284 , -3489*w - 36603 , 1411*w + 11529 , -7068*w + 19152 , 4650*w - 12600 , -3594*w + 10626 , 608*w + 8148 , 1298*w + 574 , 4354 , -1302*w + 8750 , 2284*w + 10024 , -41128*w - 7140 ],
[ 37178*w + 131418 , -19464*w - 63168 , 6672*w + 19264 , -5244*w + 51072 , 3450*w - 33600 , -3222*w + 30156 , 4246*w + 14882 , 2802*w - 3374 , 1302*w + 8750 , 24864 , 9078*w + 18662 , -83700*w + 75754 ],
[ -21306*w + 195930 , 9078*w - 98280 , -2210*w + 31920 , -23256*w + 23940 , 15300*w - 15750 , -13668*w + 14070 , -2376*w + 22176 , 3294*w + 4830 , -2284*w + 10024 , -9078*w + 18662 , 37268 , -91436*w - 
    162106 ],
[ 2342408*w - 2911874 , -1067221*w + 1574349 , 337985*w - 530397 , 154684*w + 513352 , -48468*w - 52654 , 83990*w + 145474 , 76564*w - 50498 , 2196*w - 96908 , 41128*w - 7140 , 83700*w + 75754 , 91436*w - 
    162106 , 9909774 ]
]);

Grammatrix:=Matrix(S,[
[ 1075368 , -8996*w + 594608 , -11202*w + 12684 , -4880*w + 15498 , -1292*w + 32900 , 3660*w + 15484 , 3338*w - 5208 , 1266*w - 10430 , 118*w + 8022 , 110*w + 18046 , 3360*w + 12572 , -103460*w - 236250 ],
[ 8996*w + 594608 , 329868 , -6341*w + 11599 , -3765*w + 12103 , -977*w + 19187 , 2004*w + 8960 , 1791*w - 2905 , 803*w - 5957 , 37*w + 4599 , -w + 10423 , 1904*w + 7350 , -58738*w - 124376 ],
[ 11202*w + 12684 , 6341*w + 11599 , 59122 , -10748*w + 49266 , -214*w + 11676 , 624*w + 3136 , -1138*w - 700 , 230*w - 1750 , 300*w + 700 , 3500 , 750*w + 3150 , 4433*w + 9877 ],
[ 4880*w + 15498 , 3765*w + 12103 , 10748*w + 49266 , 64722 , 1604*w + 15484 , 1278*w + 5460 , -530*w + 1820 , 34*w - 3150 , 420*w + 980 , 4900 , 1050*w + 4410 , 3826*w - 8526 ],
[ 1292*w + 32900 , 977*w + 19187 , 214*w + 11676 , -1604*w + 15484 , 13664 , 1078*w + 4998 , 530*w - 952 , -186*w - 1848 , 312*w + 728 , 3640 , 780*w + 3276 , -2858*w - 6174 ],
[ -3660*w + 15484 , -2004*w + 8960 , -624*w + 3136 , -1278*w + 5460 , -1078*w + 4998 , 2884 , 404*w + 280 , 218*w - 630 , -76*w + 392 , -556*w + 1680 , -50*w + 2254 , -871*w - 6069 ],
[ -3338*w - 5208 , -1791*w - 2905 , 1138*w - 700 , 530*w + 1820 , -530*w - 952 , -404*w + 280 , 980 , 120*w + 532 , -136*w - 392 , -440*w - 560 , -396*w + 308 , 1227*w - 3171 ],
[ -1266*w - 10430 , -803*w - 5957 , -230*w - 1750 , -34*w - 3150 , 186*w - 1848 , -218*w - 630 , -120*w + 532 , 2674 , -332*w - 1946 , -698*w - 1610 , -508*w + 84 , 1131*w + 1519 ],
[ -118*w + 8022 , -37*w + 4599 , -300*w + 700 , -420*w + 980 , -312*w + 728 , 76*w + 392 , 136*w - 392 , 332*w - 1946 , 1750 , 368*w + 1680 , 392*w + 168 , -694*w - 1470 ],
[ -110*w + 18046 , w + 10423 , 3500 , 4900 , 3640 , 556*w + 1680 , 440*w - 560 , 698*w - 1610 , -368*w + 1680 , 3640 , 760*w + 1960 , -1723*w - 3199 ],
[ -3360*w + 12572 , -1904*w + 7350 , -750*w + 3150 , -1050*w + 4410 , -780*w + 3276 , 50*w + 2254 , 396*w + 308 , 508*w + 84 , -392*w + 168 , -760*w + 1960 , 2464 , -650*w - 4536 ],
[ 103460*w - 236250 , 58738*w - 124376 , -4433*w + 9877 , -3826*w - 8526 , 2858*w - 6174 , 871*w - 6069 , -1227*w - 3171 , -1131*w + 1519 , 694*w - 1470 , 1723*w - 3199 , 650*w - 4536 , 132244 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 244549410 , 101471032*w - 1042131860 , -254196446*w + 2278020906 , 108079667*w - 951810111 , -1832402*w - 262388 , -100250*w - 15610 , 637060*w - 7827498 , 1932834*w - 2573060 , -2279508*w + 9134300 , 
    -1803288*w - 8194060 , 428740*w + 1356320 , -159563023*w - 590655275 ],
[ -101471032*w - 1042131860 , 4739725144 , 139071765*w - 10452532769 , -66117087*w + 4372646565 , 7801852*w - 3613652 , 447837*w - 181125 , 228545*w + 34722737 , -7218768*w + 15903846 , 6250929*w - 44554293 
, 10668255*w + 29969849 , -2316899*w - 4624151 , 925100554*w + 2054794756 ],
[ 254196446*w + 2278020906 , -139071765*w - 10452532769 , 23083175486 , 17505455*w - 9658281255 , -17349888*w + 9762830 , -999173*w + 518595 , -1608677*w - 77528815 , 15612848*w - 37128532 , -12537921*w + 
    100895277 , -24780519*w - 64546657 , 5321509*w + 9807777 , -2100841221*w - 4343270351 ],
[ -108079667*w - 951810111 , 66117087*w + 4372646565 , -17505455*w - 9658281255 , 4041248386 , 7264098*w - 4183088 , 418834*w - 219212 , 734456*w + 32482114 , -6513325*w + 15644363 , 5174906*w - 42348222 , 
    10434654*w + 26912004 , -2237614*w - 4080636 , 882317493*w + 1806187117 ],
[ 1832402*w - 262388 , -7801852*w - 3613652 , 17349888*w + 9762830 , -7264098*w - 4183088 , 235004 , 1172*w + 16114 , -136368*w - 35168 , -55302*w - 205632 , 165856*w + 202720 , -123376*w + 262416 , 19376*w 
    - 58576 , -4240438*w + 9205602 ],
[ 100250*w - 15610 , -447837*w - 181125 , 999173*w + 518595 , -418834*w - 219212 , -1172*w + 16114 , 5936 , -9394*w - 3276 , -3198*w - 14756 , 10748*w + 17108 , -9158*w + 15498 , 1490*w - 3598 , -238279*w + 
    540645 ],
[ -637060*w - 7827498 , -228545*w + 34722737 , 1608677*w - 77528815 , -734456*w + 32482114 , 136368*w - 35168 , 9394*w - 3276 , 568008 , -112476*w + 258104 , 94372*w - 711676 , 172388*w + 468020 , -37244*w -
    70924 , 6756801*w + 15957851 ],
[ -1932834*w - 2573060 , 7218768*w + 15903846 , -15612848*w - 37128532 , 6513325*w + 15644363 , 55302*w - 205632 , 3198*w - 14756 , 112476*w + 258104 , 282996 , -101720*w - 469840 , 176948*w - 27804 , 
    -32192*w + 20272 , 6387130*w - 2798852 ],
[ 2279508*w + 9134300 , -6250929*w - 44554293 , 12537921*w + 100895277 , -5174906*w - 42348222 , -165856*w + 202720 , -10748*w + 17108 , -94372*w - 711676 , 101720*w - 469840 , 1036168 , -303828*w - 399140 ,
60736*w + 47376 , -11600228*w - 11441150 ],
[ 1803288*w - 8194060 , -10668255*w + 29969849 , 24780519*w - 64546657 , -10434654*w + 26912004 , 123376*w + 262416 , 9158*w + 15498 , -172388*w + 468020 , -176948*w - 27804 , 303828*w - 399140 , 777392 , 
    -9504*w - 142912 , 1104090*w + 28223664 ],
[ -428740*w + 1356320 , 2316899*w - 4624151 , -5321509*w + 9807777 , 2237614*w - 4080636 , -19376*w - 58576 , -1490*w - 3598 , 37244*w - 70924 , 32192*w + 20272 , -60736*w + 47376 , 9504*w - 142912 , 27104 ,
132086*w - 5279792 ],
[ 159563023*w - 590655275 , -925100554*w + 2054794756 , 2100841221*w - 4343270351 , -882317493*w + 1806187117 , 4240438*w + 9205602 , 238279*w + 540645 , -6756801*w + 15957851 , -6387130*w - 2798852 , 
    11600228*w - 11441150 , -1104090*w + 28223664 , -132086*w - 5279792 , 2156060802 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 164724 , -2634*w + 47334 , 118*w - 12992 , 816*w - 364 , -404*w + 7784 , 1280*w + 140 , -964*w - 2254 , 880*w + 8148 , -714*w + 2156 , -1796*w - 322 , 3954*w - 4830 , -9966*w + 61684 ],
[ 2634*w + 47334 , 16702 , 132*w - 4998 , 406*w + 602 , -162*w + 42 , 492*w - 84 , -134*w , -104*w , 32*w , -24*w , 0 , 5112*w + 32872 ],
[ -118*w - 12992 , -132*w - 4998 , 2534 , -540*w - 574 , 1278*w - 126 , -180*w , -162*w , 36*w , 0 , 0 , 0 , -4124*w - 6916 ],
[ -816*w - 364 , -406*w + 602 , 540*w - 574 , 3010 , -574*w - 3598 , 4*w + 1708 , 82*w + 280 , -24*w , 0 , 0 , 0 , 1652*w + 2968 ],
[ 404*w + 7784 , 162*w + 42 , -1278*w - 126 , 574*w - 3598 , 11914 , 64*w - 392 , 18*w - 1708 , -4*w + 448 , 0 , 0 , 0 , -3194*w - 13440 ],
[ -1280*w + 140 , -492*w - 84 , 180*w , -4*w + 1708 , -64*w - 392 , 1974 , 14*w - 252 , 210*w - 2072 , 240*w + 168 , 216*w + 588 , -816*w - 840 , 338*w - 1680 ],
[ 964*w - 2254 , 134*w , 162*w , -82*w + 280 , -18*w - 1708 , -14*w - 252 , 644 , 234*w - 1890 , 260*w + 42 , 234*w + 742 , -884*w - 910 , 792*w + 7756 ],
[ -880*w + 8148 , 104*w , -36*w , 24*w , 4*w + 448 , -210*w - 2072 , -234*w - 1890 , 27230 , -3266*w + 1358 , -3798*w - 6160 , 11936*w + 2422 , -8996*w - 29386 ],
[ 714*w + 2156 , -32*w , 0 , 0 , 0 , -240*w + 168 , -260*w + 42 , 3266*w + 1358 , 2870 , -954*w + 2884 , 924*w - 10010 , -4326*w + 4886 ],
[ 1796*w - 322 , 24*w , 0 , 0 , 0 , -216*w + 588 , -234*w + 742 , 3798*w - 6160 , 954*w + 2884 , 5194 , -2412*w - 12348 , -2560*w + 16604 ],
[ -3954*w - 4830 , 0 , 0 , 0 , 0 , 816*w - 840 , 884*w - 910 , -11936*w + 2422 , -924*w - 10010 , 2412*w - 12348 , 37268 , 13476*w - 29848 ],
[ 9966*w + 61684 , -5112*w + 32872 , 4124*w - 6916 , -1652*w + 2968 , 3194*w - 13440 , -338*w - 1680 , -792*w + 7756 , 8996*w - 29386 , 4326*w + 4886 , 2560*w + 16604 , -13476*w - 29848 , 258314 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 22988 , 480*w - 13076 , 353*w + 105 , 168*w - 910 , 249*w - 441 , -708*w - 70 , 1355*w + 2485 , -1144*w - 4928 , -507*w + 3717 , -153*w + 3269 , 1332*w + 798 , -5722*w - 1036 ],
[ -480*w - 13076 , 10990 , -80*w + 196 , -30*w + 168 , -78*w + 224 , 284*w - 126 , -752*w - 686 , 722*w + 1820 , 78*w - 1890 , -98*w - 1582 , -624*w + 28 , 2868*w + 1820 ],
[ -353*w + 105 , 80*w + 196 , 546 , 16*w - 168 , 8*w - 98 , 128*w - 70 , -258*w , 38*w , 0 , 0 , 0 , -548*w - 1764 ],
[ -168*w - 910 , 30*w + 168 , -16*w - 168 , 322 , -18*w + 182 , 66*w - 252 , -142*w + 112 , 288*w + 224 , -108*w - 448 , -96*w - 280 , -168*w + 280 , 460*w - 476 ],
[ -249*w - 441 , 78*w + 224 , -8*w - 98 , 18*w + 182 , 168 , 6*w - 182 , -112*w + 84 , 286*w + 224 , -108*w - 448 , -96*w - 280 , -168*w + 280 , 164*w - 518 ],
[ 708*w - 70 , -284*w - 126 , -128*w - 70 , -66*w - 252 , -6*w - 182 , 1050 , 198*w - 1596 , -398*w + 784 , 300*w + 56 , 192*w - 56 , 48*w - 784 , 490*w + 1176 ],
[ -1355*w + 2485 , 752*w - 686 , 258*w , 142*w + 112 , 112*w + 84 , -198*w - 1596 , 3794 , 516*w - 3542 , -790*w + 1092 , -486*w + 1008 , 376*w + 2072 , -1316*w - 322 ],
[ 1144*w - 4928 , -722*w + 1820 , -38*w , -288*w + 224 , -286*w + 224 , 398*w + 784 , -516*w - 3542 , 5978 , 968*w - 2884 , 554*w - 2324 , -1076*w - 2548 , 1266*w + 462 ],
[ 507*w + 3717 , -78*w - 1890 , 0 , 108*w - 448 , 108*w - 448 , -300*w + 56 , 790*w + 1092 , -968*w - 2884 , 2590 , 140*w + 1820 , 942*w + 14 , -774*w + 1148 ],
[ 153*w + 3269 , 98*w - 1582 , 0 , 96*w - 280 , 96*w - 280 , -192*w - 56 , 486*w + 1008 , -554*w - 2324 , -140*w + 1820 , 1386 , 660*w + 308 , -626*w + 336 ],
[ -1332*w + 798 , 624*w + 28 , 0 , 168*w + 280 , 168*w + 280 , -48*w - 784 , -376*w + 2072 , 1076*w - 2548 , -942*w + 14 , -660*w + 308 , 2464 , -406*w - 1750 ],
[ 5722*w - 1036 , -2868*w + 1820 , 548*w - 1764 , -460*w - 476 , -164*w - 518 , -490*w + 1176 , 1316*w - 322 , -1266*w + 462 , 774*w + 1148 , 626*w + 336 , 406*w - 1750 , 20524 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 11335870 , 1125245*w - 29417171 , 1143301*w - 23252075 , 356827*w - 301 , 79114*w - 8484 , 46529*w + 477827 , 710078*w + 683620 , -23673*w - 707049 , -123311*w + 79079 , -413870*w - 790608 , -308047*w + 
    242137 , -4331413*w - 9265599 ],
[ -1125245*w - 29417171 , 79362528 , -659647*w + 63052157 , -1035139*w + 260995 , -211813*w + 95557 , -171908*w - 1367814 , -2107797*w - 1523683 , 133611*w + 1999963 , 344281*w - 295575 , 1244731*w + 2025625
, 860181*w - 863681 , 12664429*w + 21601055 ],
[ -1143301*w - 23252075 , 659647*w + 63052157 , 50202068 , -854560*w + 316162 , -175954*w + 103740 , -152564*w - 1116234 , -1765270*w - 1074080 , 139053*w + 1620255 , 276996*w - 265552 , 1037842*w + 1573908 
, 695630*w - 764498 , 10295537*w + 16343355 ],
[ -356827*w - 301 , 1035139*w + 260995 , 854560*w + 316162 , 440874 , 260*w + 81592 , -76546*w + 43204 , -129400*w + 881692 , 109094*w - 81844 , -10710*w - 110502 , 122424*w - 374948 , -23586*w - 306530 , 
    264242*w - 1604946 ],
[ -79114*w - 8484 , 211813*w + 95557 , 175954*w + 103740 , -260*w + 81592 , 20594 , -13362*w + 2982 , -23346*w + 156996 , 19654*w - 10920 , -1624*w - 21672 , 23690*w - 71050 , -4290*w - 58674 , 65560*w - 
    301588 ],
[ -46529*w + 477827 , 171908*w - 1367814 , 152564*w - 1116234 , 76546*w + 43204 , 13362*w + 2982 , 107282 , 142108*w + 248612 , -722*w - 142114 , -21784*w - 504 , -55252*w - 201600 , -59366*w - 4662 , 
    -270350*w - 531398 ],
[ -710078*w + 683620 , 2107797*w - 1523683 , 1765270*w - 1074080 , 129400*w + 881692 , 23346*w + 156996 , -142108*w + 248612 , 2093140 , 180024*w - 420700 , -47124*w - 178836 , 146076*w - 924028 , -118388*w 
    - 550452 , 35632*w - 3704638 ],
[ 23673*w - 707049 , -133611*w + 1999963 , -139053*w + 1620255 , -109094*w - 81844 , -19654*w - 10920 , 722*w - 142114 , -180024*w - 420700 , 266308 , 33012*w - 30604 , 96758*w + 204470 , 75804*w - 48020 , 
    424910*w + 733068 ],
[ 123311*w + 79079 , -344281*w - 295575 , -276996*w - 265552 , 10710*w - 110502 , 1624*w - 21672 , 21784*w - 504 , 47124*w - 178836 , -33012*w - 30604 , 48944 , -49840*w + 128352 , 5040*w + 114800 , 
    -141280*w + 416920 ],
[ 413870*w - 790608 , -1244731*w + 2025625 , -1037842*w + 1573908 , -122424*w - 374948 , -23690*w - 71050 , 55252*w - 201600 , -146076*w - 924028 , -96758*w + 204470 , 49840*w + 128352 , 753032 , 142008*w + 
    288680 , 158518*w + 2192022 ],
[ 308047*w + 242137 , -860181*w - 863681 , -695630*w - 764498 , 23586*w - 306530 , 4290*w - 58674 , 59366*w - 4662 , 118388*w - 550452 , -75804*w - 48020 , -5040*w + 114800 , -142008*w + 288680 , 298144 , 
    -351900*w + 1053388 ],
[ 4331413*w - 9265599 , -12664429*w + 21601055 , -10295537*w + 16343355 , -264242*w - 1604946 , -65560*w - 301588 , 270350*w - 531398 , -35632*w - 3704638 , -424910*w + 733068 , 141280*w + 416920 , -158518*w
    + 2192022 , 351900*w + 1053388 , 20956908 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 663404 , -55669*w - 120491 , 91082*w + 31374 , 17616*w - 1316 , 15892*w - 22834 , 167820*w - 224490 , -22541*w - 612297 , 28424*w - 17388 , -98863*w - 175805 , 3994*w - 26460 , -78796*w + 158592 , 113462*w
    + 576436 ],
[ 55669*w - 120491 , 61446 , -13871*w - 45395 , -3180*w - 5404 , -5124*w - 5180 , -40712*w - 23576 , -22990*w + 104846 , -5608*w - 6160 , 8810*w + 58114 , -1756*w + 3248 , 19668*w - 2772 , 32485*w - 125685 
],
[ -91082*w + 31374 , 13871*w - 45395 , 140084 , 1692*w + 33250 , 5062*w + 10290 , 71024*w + 256816 , 162747*w - 120127 , 6704*w + 48832 , 37347*w - 209097 , 7798*w + 5488 , -51930*w - 134022 , -66358*w + 
    270858 ],
[ -17616*w - 1316 , 3180*w - 5404 , -1692*w + 33250 , 8778 , 1134*w + 2114 , 14984*w + 70098 , 43246*w - 17486 , 1044*w + 13048 , 12148*w - 50652 , 1956*w + 2100 , -11734*w - 38934 , -14783*w + 64239 ],
[ -15892*w - 22834 , 5124*w - 5180 , -5062*w + 10290 , -1134*w + 2114 , 9828 , -5078*w + 51282 , 11936*w + 38038 , -1620*w + 4592 , 9044*w - 1148 , 244*w + 2212 , 2118*w - 19194 , -20382*w - 13272 ],
[ -167820*w - 224490 , 40712*w - 23576 , -71024*w + 256816 , -14984*w + 70098 , 5078*w + 51282 , 833476 , 388630*w + 415030 , -15234*w + 125524 , 191136*w - 265440 , 12552*w + 41720 , -27086*w - 469070 , 
    -262491*w + 331891 ],
[ 22541*w - 612297 , 22990*w + 104846 , -162747*w - 120127 , -43246*w - 17486 , -11936*w + 38038 , -388630*w + 415030 , 1626170 , -70556*w + 16786 , 237980*w + 552986 , -14860*w + 65940 , 228148*w - 344988 ,
-329154*w - 661416 ],
[ -28424*w - 17388 , 5608*w - 6160 , -6704*w + 48832 , -1044*w + 13048 , 1620*w + 4592 , 15234*w + 125524 , 70556*w + 16786 , 22610 , 26144*w - 66906 , 2760*w + 4984 , -12840*w - 72408 , -33755*w + 90139 ],
[ 98863*w - 175805 , -8810*w + 58114 , -37347*w - 209097 , -12148*w - 50652 , -9044*w - 1148 , -191136*w - 265440 , -237980*w + 552986 , -26144*w - 66906 , 433174 , -14792*w + 7112 , 128440*w + 116872 , 
    -14438*w - 552720 ],
[ -3994*w - 26460 , 1756*w + 3248 , -7798*w + 5488 , -1956*w + 2100 , -244*w + 2212 , -12552*w + 41720 , 14860*w + 65940 , -2760*w + 4984 , 14792*w + 7112 , 3696 , 6112*w - 28784 , -18843*w - 6041 ],
[ 78796*w + 158592 , -19668*w - 2772 , 51930*w - 134022 , 11734*w - 38934 , -2118*w - 19194 , 27086*w - 469070 , -228148*w - 344988 , 12840*w - 72408 , -128440*w + 116872 , -6112*w - 28784 , 298144 , 
    160110*w - 178416 ],
[ -113462*w + 576436 , -32485*w - 125685 , 66358*w + 270858 , 14783*w + 64239 , 20382*w - 13272 , 262491*w + 331891 , 329154*w - 661416 , 33755*w + 90139 , 14438*w - 552720 , 18843*w - 6041 , -160110*w - 
    178416 , 1072302 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 135478 , -623*w - 58877 , 30298*w - 16548 , -14314*w - 1078 , -5078*w + 1050 , 13787*w - 138985 , 16789*w - 79905 , 15390*w - 121898 , 162915*w + 28861 , -18918*w - 56924 , 20524*w + 180418 , 116682*w + 
    560280 ],
[ 623*w - 58877 , 225610 , -4154*w + 97664 , 13520*w - 18970 , -6928*w + 6636 , -9508*w - 11900 , -3444*w - 10710 , -6828*w - 12068 , 7816*w - 47306 , -3168*w + 3052 , 8456*w + 2128 , -134992*w - 315014 ],
[ -30298*w - 16548 , 4154*w + 97664 , 109382 , 7570*w - 38472 , -4860*w - 15918 , 36396*w - 560 , 24006*w + 14392 , 30692*w + 6272 , 19488*w + 243040 , 8960*w - 36064 , -34608*w + 56448 , -191234*w + 68740 
],
[ 14314*w - 1078 , -13520*w - 18970 , -7570*w - 38472 , 26138 , 2596*w + 5124 , -12674*w - 4522 , -8894*w - 5488 , -8934*w - 5040 , -5040*w - 42224 , -1344*w + 6160 , 5768*w - 9408 , 67704*w - 134190 ],
[ 5078*w + 1050 , 6928*w + 6636 , 4860*w - 15918 , -2596*w + 5124 , 11508 , -10016*w + 1050 , -6398*w - 4214 , -7844*w - 1960 , -4740*w - 53956 , -1936*w + 7980 , 7622*w - 12432 , 25280*w - 17710 ],
[ -13787*w - 138985 , 9508*w - 11900 , -36396*w - 560 , 12674*w - 4522 , 10016*w + 1050 , 232120 , -11786*w + 142534 , -7386*w + 190092 , -210372*w + 65548 , 28752*w + 61516 , -40762*w - 220080 , -129080*w -
    520254 ],
[ -16789*w - 79905 , 3444*w - 10710 , -24006*w + 14392 , 8894*w - 5488 , 6398*w - 4214 , 11786*w + 142534 , 94248 , 6584*w + 117012 , -116856*w + 147896 , 21078*w + 20174 , -39478*w - 104762 , -113046*w - 
    273658 ],
[ -15390*w - 121898 , 6828*w - 12068 , -30692*w + 6272 , 8934*w - 5040 , 7844*w - 1960 , 7386*w + 190092 , -6584*w + 117012 , 167650 , -203008*w + 104818 , 30148*w + 54068 , -47300*w - 205436 , -122684*w - 
    443758 ],
[ -162915*w + 28861 , -7816*w - 47306 , -19488*w + 243040 , 5040*w - 42224 , 4740*w - 53956 , 210372*w + 65548 , 116856*w + 147896 , 203008*w + 104818 , 2109366 , 98992*w - 267680 , -326424*w + 341376 , 
    -664234*w + 601538 ],
[ 18918*w - 56924 , 3168*w + 3052 , -8960*w - 36064 , 1344*w + 6160 , 1936*w + 7980 , -28752*w + 61516 , -21078*w + 20174 , -30148*w + 54068 , -98992*w - 267680 , 66584 , 25398*w - 150878 , 54608*w - 290836 
],
[ -20524*w + 180418 , -8456*w + 2128 , 34608*w + 56448 , -5768*w - 9408 , -7622*w - 12432 , 40762*w - 220080 , 39478*w - 104762 , 47300*w - 205436 , 326424*w + 341376 , -25398*w - 150878 , 409948 , -9292*w +
    804818 ],
[ -116682*w + 560280 , 134992*w - 315014 , 191234*w + 68740 , -67704*w - 134190 , -25280*w - 17710 , 129080*w - 520254 , 113046*w - 273658 , 122684*w - 443758 , 664234*w + 601538 , -54608*w - 290836 , 9292*w
    + 804818 , 3682882 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 164724 , 1780*w + 23590 , 54530*w + 179676 , -27776*w - 82166 , -24*w - 3304 , -1280*w - 140 , -1858*w + 8008 , 680*w + 714 , -326*w - 8064 , 4112*w + 3598 , -3954*w + 4830 , 30630*w + 2254 ],
[ -1780*w + 23590 , 35490 , -22412*w - 39214 , 9922*w + 23296 , 2520*w - 630 , -756*w , -1134*w , 124*w , -16*w , -24*w , 0 , -11822*w + 19446 ],
[ -54530*w + 179676 , 22412*w - 39214 , 1455398 , -1480*w - 725760 , -936*w - 19698 , -5020*w - 2324 , -13278*w + 53648 , 3660*w + 4452 , -3280*w - 51912 , 26692*w + 20160 , -25072*w + 34468 , 169054*w + 
    308728 ],
[ 27776*w - 82166 , -9922*w + 23296 , 1480*w - 725760 , 363188 , 590*w + 9268 , 2364*w + 2030 , 6602*w - 26684 , -1828*w - 2226 , 1640*w + 25956 , -13346*w - 10080 , 12536*w - 17234 , -83966*w - 153272 ],
[ 24*w - 3304 , -2520*w - 630 , 936*w - 19698 , -590*w + 9268 , 2268 , 4*w + 238 , 42*w - 1008 , -10*w + 224 , 0 , 0 , 0 , -3036*w - 7448 ],
[ 1280*w - 140 , 756*w , 5020*w - 2324 , -2364*w + 2030 , -4*w + 238 , 1974 , -700*w - 952 , -6*w + 196 , 384*w - 1344 , 360*w + 1932 , -816*w - 840 , 654*w - 2044 ],
[ 1858*w + 8008 , 1134*w , 13278*w + 53648 , -6602*w - 26684 , -42*w - 1008 , 700*w - 952 , 26698 , 1020*w - 434 , -7340*w - 10682 , 9210*w - 16688 , -2500*w + 30310 , 15754*w - 4256 ],
[ -680*w + 714 , -124*w , -3660*w + 4452 , 1828*w - 2226 , 10*w + 224 , 6*w + 196 , -1020*w - 434 , 392 , 544*w - 1834 , 510*w + 2842 , -1156*w - 1190 , -204*w + 5236 ],
[ 326*w - 8064 , 16*w , 3280*w - 51912 , -1640*w + 25956 , 0 , -384*w - 1344 , 7340*w - 10682 , -544*w - 1834 , 19054 , -8582*w - 11368 , 9652*w - 7602 , -9282*w - 23870 ],
[ -4112*w + 3598 , 24*w , -26692*w + 20160 , 13346*w - 10080 , 0 , -360*w + 1932 , -9210*w - 16688 , -510*w + 2842 , 8582*w - 11368 , 33866 , -9188*w - 25900 , -5486*w + 44394 ],
[ 3954*w + 4830 , 0 , 25072*w + 34468 , -12536*w - 17234 , 0 , 816*w - 840 , 2500*w + 30310 , 1156*w - 1190 , -9652*w - 7602 , 9188*w - 25900 , 37268 , 16026*w - 23100 ],
[ -30630*w + 2254 , 11822*w + 19446 , -169054*w + 308728 , 83966*w - 153272 , 3036*w - 7448 , -654*w - 2044 , -15754*w - 4256 , 204*w + 5236 , 9282*w - 23870 , 5486*w + 44394 , -16026*w - 23100 , 224840 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 369488 , 4036*w + 105826 , -73171*w - 52759 , 73442*w + 56112 , -383*w - 1337 , 479*w + 3059 , 8254*w + 5684 , 992*w + 5922 , 4068*w - 42 , -3339*w + 8953 , -629*w - 9541 , -56495*w + 125573 ],
[ -4036*w + 105826 , 32326 , -20130*w - 21504 , 20264*w + 22512 , -227*w - 91 , 142*w + 756 , 2038*w + 2100 , 237*w + 1561 , 1022*w + 350 , -952*w + 1974 , -44*w - 2464 , -17697*w + 29379 ],
[ 73171*w - 52759 , 20130*w - 21504 , 112112 , 508*w - 111972 , -134*w - 56 , 402*w - 630 , 299*w - 10283 , 833*w - 1617 , -444*w - 5054 , 1912*w + 2954 , -1531*w + 1855 , 33316*w + 63714 ],
[ -73442*w + 56112 , -20264*w + 22512 , -508*w - 111972 , 112616 , 64*w - 532 , -360*w + 980 , 399*w + 9723 , -723*w + 2009 , 636*w + 4606 , -2000*w - 2226 , 1411*w - 2359 , -33264*w - 60592 ],
[ 383*w - 1337 , 227*w - 91 , 134*w - 56 , -64*w - 532 , 784 , -60*w - 406 , -1014*w + 784 , -182*w - 532 , -288*w + 672 , 132*w - 1092 , 180*w + 756 , -284*w - 3192 ],
[ -479*w + 3059 , -142*w + 756 , -402*w - 630 , 360*w + 980 , 60*w - 406 , 378 , 858*w + 658 , 50*w + 630 , 350*w - 98 , -294*w + 686 , -14*w - 798 , -600*w + 2702 ],
[ -8254*w + 5684 , -2038*w + 2100 , -299*w - 10283 , -399*w + 9723 , 1014*w + 784 , -858*w + 658 , 16548 , -1420*w + 2184 , 960*w + 6160 , -2372*w - 3836 , 2004*w - 1932 , -9137*w - 5411 ],
[ -992*w + 5922 , -237*w + 1561 , -833*w - 1617 , 723*w + 2009 , 182*w - 532 , -50*w + 630 , 1420*w + 2184 , 1176 , 648*w + 280 , -662*w + 882 , 116*w - 1484 , -1693*w + 4347 ],
[ -4068*w - 42 , -1022*w + 350 , 444*w - 5054 , -636*w + 4606 , 288*w + 672 , -350*w - 98 , -960*w + 6160 , -648*w + 280 , 3248 , -904*w - 2520 , 976*w - 336 , -3434*w - 6188 ],
[ 3339*w + 8953 , 952*w + 1974 , -1912*w + 2954 , 2000*w - 2226 , -132*w - 1092 , 294*w + 686 , 2372*w - 3836 , 662*w + 882 , 904*w - 2520 , 4088 , -968*w - 1848 , 1178*w + 11592 ],
[ 629*w - 9541 , 44*w - 2464 , 1531*w + 1855 , -1411*w - 2359 , -180*w + 756 , 14*w - 798 , -2004*w - 1932 , -116*w - 1484 , -976*w - 336 , 968*w - 1848 , 2464 , 2107*w - 7189 ],
[ 56495*w + 125573 , 17697*w + 29379 , -33316*w + 63714 , 33264*w - 60592 , 284*w - 3192 , 600*w + 2702 , 9137*w - 5411 , 1693*w + 4347 , 3434*w - 6188 , -1178*w + 11592 , -2107*w - 7189 , 121870 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 64400 , -878*w + 26040 , 438*w - 9884 , -4364*w + 266 , 5122*w + 2520 , -3152*w - 1540 , -674*w + 7686 , -252*w - 168 , 1364*w + 7420 , 928*w + 840 , -394*w + 4536 , 10608*w + 8904 ],
[ 878*w + 26040 , 23674 , -94*w - 9268 , -1152*w + 2464 , 1610*w + 2786 , -662*w - 1092 , -2290*w + 11760 , -8*w + 56 , 1060*w + 13692 , 1152*w + 2576 , -1348*w + 5488 , 12110*w + 5754 ],
[ -438*w - 9884 , 94*w - 9268 , 4158 , 794*w - 1358 , 530*w - 1624 , -278*w + 630 , 1158*w - 5880 , -50*w - 28 , -622*w - 6846 , -588*w - 1288 , 674*w - 2744 , -5702*w + 938 ],
[ 4364*w + 266 , 1152*w + 2464 , -794*w - 1358 , 6608 , 230*w + 2240 , -156*w + 392 , 56*w - 420 , -4*w , 0 , 0 , 0 , -646*w - 4732 ],
[ -5122*w + 2520 , -1610*w + 2786 , -530*w - 1624 , -230*w + 2240 , 26040 , 6*w - 13342 , -66*w + 4900 , 14*w - 840 , 0 , 0 , 0 , -6866*w - 11004 ],
[ 3152*w - 1540 , 662*w - 1092 , 278*w + 630 , 156*w + 392 , -6*w - 13342 , 7434 , -928*w - 3612 , -6*w + 504 , -1072*w + 1400 , -160*w + 840 , -544*w - 560 , 3820*w + 8442 ],
[ 674*w + 7686 , 2290*w + 11760 , -1158*w - 5880 , -56*w - 420 , 66*w + 4900 , 928*w - 3612 , 105644 , 1320*w - 224 , 28240*w + 109704 , 13600*w + 14784 , -7040*w + 58520 , 38008*w - 63714 ],
[ 252*w - 168 , 8*w + 56 , 50*w - 28 , 4*w , -14*w - 840 , 6*w + 504 , -1320*w - 224 , 168 , -1474*w + 2408 , -220*w + 1218 , -748*w - 770 , 948*w + 3696 ],
[ -1364*w + 7420 , -1060*w + 13692 , 622*w - 6846 , 0 , 0 , 1072*w + 1400 , -28240*w + 109704 , 1474*w + 2408 , 171640 , 10480*w + 42266 , -23864*w + 48874 , 57494*w + 11788 ],
[ -928*w + 840 , -1152*w + 2576 , 588*w - 1288 , 0 , 0 , 160*w + 840 , -13600*w + 14784 , 220*w + 1218 , -10480*w + 42266 , 14910 , -8880*w + 1820 , 13290*w + 27650 ],
[ 394*w + 4536 , 1348*w + 5488 , -674*w - 2744 , 0 , 0 , 544*w - 560 , 7040*w + 58520 , 748*w - 770 , 23864*w + 48874 , 8880*w + 1820 , 37268 , 18258*w - 51842 ],
[ -10608*w + 8904 , -12110*w + 5754 , 5702*w + 938 , 646*w - 4732 , 6866*w - 11004 , -3820*w + 8442 , -38008*w - 63714 , -948*w + 3696 , -57494*w + 11788 , -13290*w + 27650 , -18258*w - 51842 , 183358 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1493590 , -5597*w - 388171 , -4436*w + 27314 , -1716*w - 7322 , 24674*w - 21210 , 4984*w - 13860 , -4017*w + 7245 , -4005*w - 1883 , -5097*w - 35875 , 4156*w + 8918 , -7500*w + 21630 , 83077*w + 70721 ],
[ 5597*w - 388171 , 101864 , 1192*w - 7756 , 458*w + 2380 , -6300*w + 5600 , -1116*w + 3696 , 1032*w - 1932 , 1084*w + 504 , 1358*w + 9576 , -1108*w - 2380 , 2000*w - 5768 , -21378*w - 21126 ],
[ 4436*w + 27314 , -1192*w - 7756 , 4116 , -2*w - 1988 , -288*w + 1512 , -840*w + 168 , 144*w , -120*w , 0 , 0 , 0 , 942*w + 1624 ],
[ 1716*w - 7322 , -458*w + 2380 , 2*w - 1988 , 1190 , 24*w - 2156 , 382*w - 560 , -64*w + 252 , 20*w + 126 , -282*w - 126 , 96*w - 84 , 54*w + 504 , 12*w - 2450 ],
[ -24674*w - 21210 , 6300*w + 5600 , 288*w + 1512 , -24*w - 2156 , 18396 , -230*w + 6566 , 26*w - 2940 , 382*w - 1302 , 2914*w + 1302 , -992*w + 868 , -558*w - 5208 , -1522*w + 15526 ],
[ -4984*w - 13860 , 1116*w + 3696 , 840*w + 168 , -382*w - 560 , 230*w + 6566 , 3416 , 2*w - 1232 , 148*w - 294 , 1034*w + 462 , -352*w + 308 , -198*w - 1848 , -308*w + 4718 ],
[ 4017*w + 7245 , -1032*w - 1932 , -144*w , 64*w + 252 , -26*w - 2940 , -2*w - 1232 , 616 , -84*w + 280 , -596*w - 224 , 216*w - 224 , 132*w + 1232 , 412*w - 2870 ],
[ 4005*w - 1883 , -1084*w + 504 , 120*w , -20*w + 126 , -382*w - 1302 , -148*w - 294 , 84*w + 280 , 308 , -356*w + 560 , 92*w - 364 , 246*w + 602 , -126*w - 2240 ],
[ 5097*w - 35875 , -1358*w + 9576 , 0 , 282*w - 126 , -2914*w + 1302 , -1034*w + 462 , 596*w - 224 , 356*w + 560 , 4718 , -312*w - 1568 , 1246*w - 1358 , -3324*w - 2646 ],
[ -4156*w + 8918 , 1108*w - 2380 , 0 , -96*w - 84 , 992*w + 868 , 352*w + 308 , -216*w - 224 , -92*w - 364 , 312*w - 1568 , 728 , -570*w - 238 , 920*w + 2492 ],
[ 7500*w + 21630 , -2000*w - 5768 , 0 , -54*w + 504 , 558*w - 5208 , 198*w - 1848 , -132*w + 1232 , -246*w + 602 , -1246*w - 1358 , 570*w - 238 , 3388 , 1756*w - 5446 ],
[ -83077*w + 70721 , 21378*w - 21126 , -942*w + 1624 , -12*w - 2450 , 1522*w + 15526 , 308*w + 4718 , -412*w - 2870 , 126*w - 2240 , 3324*w - 2646 , -920*w + 2492 , -1756*w - 5446 , 44660 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 478954 , 28718*w + 626822 , -4641*w - 36827 , -2234*w + 11424 , -4269*w + 36239 , -2688*w + 9002 , -19770*w + 35280 , 17042*w - 5208 , 43774*w - 68348 , 14748*w + 94402 , -25224*w - 35532 , 52602*w - 12936
],
[ -28718*w + 626822 , 3668756 , -8933*w - 400015 , -6918*w + 26824 , -142657*w + 424263 , 14924*w - 102872 , 8694*w - 104384 , -196*w + 70140 , 41680*w + 159096 , -41496*w + 89796 , 8544*w - 96432 , 226434*w
    - 247170 ],
[ 4641*w - 36827 , 8933*w - 400015 , 51576 , 846*w - 5264 , 21222*w - 76986 , -2952*w + 21854 , -1068*w + 13580 , 43*w - 9093 , -5223*w - 19845 , 5184*w - 11214 , -1068*w + 12054 , -24132*w + 43414 ],
[ 2234*w + 11424 , 6918*w + 26824 , -846*w - 5264 , 3654 , -3996*w + 9114 , 2954*w + 3360 , 1812*w + 12292 , 594*w - 10976 , -3528*w - 32844 , 9990*w - 3780 , -4968*w + 14616 , -4732*w - 532 ],
[ 4269*w + 36239 , 142657*w + 424263 , -21222*w - 76986 , 3996*w + 9114 , 517776 , -15912*w - 217518 , -24264*w - 185472 , -5423*w + 137025 , 44917*w + 371063 , -107808*w + 46998 , 53762*w - 161140 , 
    102396*w - 238322 ],
[ 2688*w + 9002 , -14924*w - 102872 , 2952*w + 21854 , -2954*w + 3360 , 15912*w - 217518 , 127932 , -798*w + 125272 , 17364*w - 85302 , 8440*w - 283500 , 80230*w + 47600 , -54190*w + 73010 , -73226*w + 34944
],
[ 19770*w + 35280 , -8694*w - 104384 , 1068*w + 13580 , -1812*w + 12292 , 24264*w - 185472 , 798*w + 125272 , 199864 , 24600*w - 128156 , 8688*w - 418656 , 117272*w + 63560 , -78488*w + 109928 , -101872*w + 
    3976 ],
[ -17042*w - 5208 , 196*w + 70140 , -43*w - 9093 , -594*w - 10976 , 5423*w + 137025 , -17364*w - 85302 , -24600*w - 128156 , 107646 , 48762*w + 289086 , -87628*w + 66150 , 38216*w - 147000 , 69798*w - 91392 
],
[ -43774*w - 68348 , -41680*w + 159096 , 5223*w - 19845 , 3528*w - 32844 , -44917*w + 371063 , -8440*w - 283500 , -8688*w - 418656 , -48762*w + 289086 , 933198 , -266526*w - 100576 , 169874*w - 275086 , 
    228302*w - 17010 ],
[ -14748*w + 94402 , 41496*w + 89796 , -5184*w - 11214 , -9990*w - 3780 , 107808*w + 46998 , -80230*w + 47600 , -117272*w + 63560 , 87628*w + 66150 , 266526*w - 100576 , 545006 , -97152*w - 310464 , -27842*w
    - 454272 ],
[ 25224*w - 35532 , -8544*w - 96432 , 1068*w + 12054 , 4968*w + 14616 , -53762*w - 161140 , 54190*w + 73010 , 78488*w + 109928 , -38216*w - 147000 , -169874*w - 275086 , 97152*w - 310464 , 298144 , -64742*w 
    + 293426 ],
[ -52602*w - 12936 , -226434*w - 247170 , 24132*w + 43414 , 4732*w - 532 , -102396*w - 238322 , 73226*w + 34944 , 101872*w + 3976 , -69798*w - 91392 , -228302*w - 17010 , 27842*w - 454272 , 64742*w + 293426 
, 557788 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1071488866 , 6352838*w - 203729932 , 3507602*w - 34977488 , 1108954*w + 7758660 , 44834*w + 7390936 , 2023334*w + 11574514 , 292580*w - 927892 , 4314818*w - 128702 , -9651544*w + 23949492 , -4531624*w - 
    11888142 , 7361260*w + 5002480 , 38127570*w + 66999548 ],
[ -6352838*w - 203729932 , 41000176 , 263832*w + 6482224 , -319528*w - 1566614 , -163730*w - 1383788 , -323914*w - 2201850 , -62222*w + 180586 , -806690*w + 31570 , 1795722*w - 4490374 , 849450*w + 2211580 ,
-1376048*w - 920332 , -7742816*w - 13247976 ],
[ -3507602*w - 34977488 , -263832*w + 6482224 , 10398668 , -63594*w - 1479660 , -53064*w - 1852872 , 34216*w + 620368 , -5332*w - 86016 , 180*w - 16800 , -640*w , -60*w , 0 , 892146*w + 1197252 ],
[ -1108954*w + 7758660 , 319528*w - 1566614 , 63594*w - 1479660 , 3070060 , -4644*w + 1734418 , -672486*w - 327026 , 69912*w + 276752 , 108170*w + 1527120 , -1490528*w - 2998800 , 531888*w - 1946700 , 
    -102600*w + 2853900 , -300566*w + 2899750 ],
[ -44834*w + 7390936 , 163730*w - 1383788 , 53064*w - 1852872 , 4644*w + 1734418 , 1093414 , -329176*w - 284788 , 34370*w + 152096 , 52524*w + 740068 , -724224*w - 1454208 , 258464*w - 945672 , -49856*w + 
    1386784 , -254832*w + 1167740 ],
[ -2023334*w + 11574514 , 323914*w - 2201850 , -34216*w + 620368 , 672486*w - 327026 , 329176*w - 284788 , 2261490 , 80758*w - 212100 , 597674*w + 31248 , -1393084*w + 3290672 , -625076*w - 1736252 , 
    1038304*w + 786044 , 1516116*w + 2394112 ],
[ -292580*w - 927892 , 62222*w + 180586 , 5332*w - 86016 , -69912*w + 276752 , -34370*w + 152096 , -80758*w - 212100 , 46382 , -49232*w + 182546 , -33508*w - 703864 , 128672*w - 52682 , -120264*w + 259840 , 
-199644*w + 215544 ],
[ -4314818*w - 128702 , 806690*w + 31570 , -180*w - 16800 , -108170*w + 1527120 , -52524*w + 740068 , -597674*w + 31248 , 49232*w + 182546 , 1383074 , -1096784*w - 3212608 , 570984*w - 1448762 , -256976*w + 
    2401224 , -532780*w + 3435600 ],
[ 9651544*w + 23949492 , -1795722*w - 4490374 , 640*w , 1490528*w - 2998800 , 724224*w - 1454208 , 1393084*w + 3290672 , 33508*w - 703864 , 1096784*w - 3212608 , 13563886 , -2477918*w + 194166 , 2504324*w - 
    4154374 , 3931424*w - 4965212 ],
[ 4531624*w - 11888142 , -849450*w + 2211580 , 60*w , -531888*w - 1946700 , -258464*w - 945672 , 625076*w - 1736252 , -128672*w - 52682 , -570984*w - 1448762 , 2477918*w + 194166 , 3171798 , -723172*w - 
    3262224 , -844364*w - 5101796 ],
[ -7361260*w + 5002480 , 1376048*w - 920332 , 0 , 102600*w + 2853900 , 49856*w + 1386784 , -1038304*w + 786044 , 120264*w + 259840 , 256976*w + 2401224 , -2504324*w - 4154374 , 723172*w - 3262224 , 4509428 ,
-294020*w + 6591424 ],
[ -38127570*w + 66999548 , 7742816*w - 13247976 , -892146*w + 1197252 , 300566*w + 2899750 , 254832*w + 1167740 , -1516116*w + 2394112 , 199644*w + 215544 , 532780*w + 3435600 , -3931424*w - 4965212 , 
    844364*w - 5101796 , 294020*w + 6591424 , 23239482 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 11998 , 366*w - 6958 , -494*w + 2352 , -242*w , 36*w , 0 , 288*w , 162*w , -72*w , -54*w , 0 , -784*w - 770 ],
[ -366*w - 6958 , 4648 , 108*w - 1078 , 126*w - 112 , -24*w + 56 , -120*w , -88*w , -92*w , 48*w , 36*w , 0 , 569*w + 805 ],
[ 494*w + 2352 , -108*w - 1078 , 1624 , -44*w - 84 , 8*w + 98 , -210*w , 246*w , 64*w , -16*w , -12*w , 0 , -19*w + 455 ],
[ 242*w , -126*w - 112 , 44*w - 84 , 308 , -84 , 60*w , -52*w - 448 , -8*w + 168 , -24*w - 56 , -168 , 120*w + 504 , -131*w - 147 ],
[ -36*w , 24*w + 56 , -8*w + 98 , -84 , 154 , -48*w - 42 , 104*w + 112 , 22*w - 42 , 6*w + 14 , 42 , -30*w - 126 , 45*w + 21 ],
[ 0 , 120*w , 210*w , -60*w , 48*w - 42 , 518 , -26*w - 504 , -6*w - 84 , 0 , 0 , 0 , 142*w - 112 ],
[ -288*w , 88*w , -246*w , 52*w - 448 , -104*w + 112 , 26*w - 504 , 1624 , -196 , 48*w + 112 , 336 , -240*w - 1008 , 175*w + 217 ],
[ -162*w , 92*w , -64*w , 8*w + 168 , -22*w - 42 , 6*w - 84 , -196 , 504 , -38*w - 182 , -336 , 190*w + 798 , -198*w - 294 ],
[ 72*w , -48*w , 16*w , 24*w - 56 , -6*w + 14 , 0 , -48*w + 112 , 38*w - 182 , 98 , -32*w + 126 , 14*w - 434 , 46*w + 266 ],
[ 54*w , -36*w , 12*w , -168 , 42 , 0 , 336 , -336 , 32*w + 126 , 266 , -160*w - 672 , 160*w + 210 ],
[ 0 , 0 , 0 , -120*w + 504 , 30*w - 126 , 0 , 240*w - 1008 , -190*w + 798 , -14*w - 434 , 160*w - 672 , 2464 , -318*w - 1176 ],
[ 784*w - 770 , -569*w + 805 , 19*w + 455 , 131*w - 147 , -45*w + 21 , -142*w - 112 , -175*w + 217 , 198*w - 294 , -46*w + 266 , -160*w + 210 , 318*w - 1176 , 1974 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 16506 , -361*w - 4921 , 253*w - 2247 , 143*w - 679 , -270*w - 756 , -369*w + 847 , -139*w + 679 , 297*w + 343 , -201*w - 2121 , -563*w + 343 , -426*w + 1260 , 3472*w + 3948 ],
[ 361*w - 4921 , 2114 , -68*w + 910 , -16*w - 448 , -60*w + 140 , 36*w + 112 , -28*w + 56 , 60*w - 112 , -136*w - 56 , -8*w + 280 , 60*w + 252 , -173*w - 2135 ],
[ -253*w - 2247 , 68*w + 910 , 1008 , -2*w - 308 , -30*w + 14 , -54*w + 56 , -86*w + 28 , 46*w - 56 , -68*w - 28 , -4*w + 140 , 30*w + 126 , -152*w - 350 ],
[ -143*w - 679 , 16*w - 448 , 2*w - 308 , 3066 , 240*w - 630 , -138*w - 392 , 222*w - 224 , -276*w + 448 , 544*w + 224 , 32*w - 1120 , -240*w - 1008 , -568*w + 1848 ],
[ 270*w - 756 , 60*w + 140 , 30*w + 14 , -240*w - 630 , 896 , 210*w + 42 , 50*w + 84 , -80*w - 728 , -244*w + 1036 , 438*w + 630 , 510*w - 322 , -916*w - 1890 ],
[ 369*w + 847 , -36*w + 112 , 54*w + 56 , 138*w - 392 , -210*w + 42 , 644 , 2*w + 224 , 146*w - 168 , -332*w - 364 , -110*w + 658 , 66*w + 770 , 678*w - 1946 ],
[ 139*w + 679 , 28*w + 56 , 86*w + 28 , -222*w - 224 , -50*w + 84 , -2*w + 224 , 336 , 48*w - 196 , -136*w - 56 , -8*w + 280 , 60*w + 252 , 365*w - 917 ],
[ -297*w + 343 , -60*w - 112 , -46*w - 56 , 276*w + 448 , 80*w - 728 , -146*w - 168 , -48*w - 196 , 756 , 320*w - 812 , -320*w - 896 , -496*w - 112 , 595*w + 2401 ],
[ 201*w - 2121 , 136*w - 56 , 68*w - 28 , -544*w + 224 , 244*w + 1036 , 332*w - 364 , 136*w - 56 , -320*w - 812 , 2422 , 736*w , 632*w - 1288 , -2029*w - 1365 ],
[ 563*w + 343 , 8*w + 280 , 4*w + 140 , -32*w - 1120 , -438*w + 630 , 110*w + 658 , 8*w + 280 , 320*w - 896 , -736*w , 2128 , 576*w + 1680 , 222*w - 4872 ],
[ 426*w + 1260 , -60*w + 252 , -30*w + 126 , 240*w - 1008 , -510*w - 322 , -66*w + 770 , -60*w + 252 , 496*w - 112 , -632*w - 1288 , -576*w + 1680 , 2464 , 1504*w - 3752 ],
[ -3472*w + 3948 , 173*w - 2135 , 152*w - 350 , 568*w + 1848 , 916*w - 1890 , -678*w - 1946 , -365*w - 917 , -595*w + 2401 , 2029*w - 1365 , -222*w - 4872 , -1504*w - 3752 , 17640 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 32521804 , -899234*w + 11422684 , -104712*w + 496986 , -1556988*w - 1387162 , 2128944*w + 3924508 , 55562*w - 216944 , -8570770*w + 3350438 , -11098*w + 450394 , -635772*w + 4712358 , 71354*w - 2848524 , 
    2736428*w + 581882 , 1362512*w - 5862724 ],
[ 899234*w + 11422684 , 28276808 , 208068*w + 291648 , -197658*w - 9586640 , 572018*w + 4919628 , 50166*w + 234178 , -2824342*w + 1107358 , -8398*w + 175532 , -217332*w + 1564654 , 28334*w - 949102 , 
    911584*w + 222250 , 168566*w - 3246768 ],
[ 104712*w + 496986 , -208068*w + 291648 , 70980 , 92026*w + 12880 , -33224*w + 6188 , -4364*w + 1680 , -3492*w + 1120 , 64*w , -112*w , -24*w , 0 , 79844*w - 133672 ],
[ 1556988*w - 1387162 , 197658*w - 9586640 , -92026*w + 12880 , 7646870 , 501132*w - 5175954 , -7188*w - 84000 , 605442*w + 10882648 , 70220*w - 33740 , 831944*w + 831600 , -502412*w - 105000 , 121600*w - 
    3382400 , -650124*w + 3470320 ],
[ -2128944*w + 3924508 , -572018*w + 4919628 , 33224*w + 6188 , -501132*w - 5175954 , 4952486 , 34140*w + 76608 , -2759432*w - 10783682 , -81462*w + 107842 , -1062480*w + 272160 , 564980*w - 588350 , 
    545000*w + 3827460 , 423366*w - 4153072 ],
[ -55562*w - 216944 , -50166*w + 234178 , 4364*w + 1680 , 7188*w - 84000 , -34140*w + 76608 , 47824 , -38022*w - 595714 , -4406*w - 8414 , -52000*w - 48300 , 31400*w + 7350 , -7600*w + 211400 , 45608*w - 
    132762 ],
[ 8570770*w + 3350438 , 2824342*w + 1107358 , 3492*w + 1120 , -605442*w + 10882648 , 2759432*w - 10783682 , 38022*w - 595714 , 44291030 , 282620*w + 214774 , 3222980*w + 4732280 , -2037140*w - 1280930 , 
    1302640*w - 13686820 , -4010934*w + 7579264 ],
[ 11098*w + 450394 , 8398*w + 175532 , -64*w , -70220*w - 33740 , 81462*w + 107842 , 4406*w - 8414 , -282620*w + 214774 , 15624 , -13556*w + 168210 , -2346*w - 98000 , 94308*w - 12530 , -69472*w - 153496 ],
[ 635772*w + 4712358 , 217332*w + 1564654 , 112*w , -831944*w + 831600 , 1062480*w + 272160 , 52000*w - 48300 , -3222980*w + 4732280 , 13556*w + 168210 , 2152094 , -124466*w - 1177526 , 1137964*w - 799386 , 
-977042*w - 1240330 ],
[ -71354*w - 2848524 , -28334*w - 949102 , 24*w , 502412*w - 105000 , -564980*w - 588350 , -31400*w + 7350 , 2037140*w - 1280930 , 2346*w - 98000 , 124466*w - 1177526 , 694806 , -668964*w - 23296 , 462682*w 
    + 1076880 ],
[ -2736428*w + 581882 , -911584*w + 222250 , 0 , -121600*w - 3382400 , -545000*w + 3827460 , 7600*w + 211400 , -1302640*w - 13686820 , -94308*w - 12530 , -1137964*w - 799386 , 668964*w - 23296 , 4509428 , 
    1020612*w - 3154452 ],
[ -1362512*w - 5862724 , -168566*w - 3246768 , -79844*w - 133672 , 650124*w + 3470320 , -423366*w - 4153072 , -45608*w - 132762 , 4010934*w + 7579264 , 69472*w - 153496 , 977042*w - 1240330 , -462682*w + 
    1076880 , -1020612*w - 3154452 , 7818944 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 16044 , 300*w - 4900 , 224*w - 1568 , 76*w - 168 , -1411*w - 18459 , 20*w , -4*w , 14*w - 84 , -10*w + 84 , 4*w - 28 , 0 , -3878*w - 5124 ],
[ -300*w - 4900 , 2156 , 68*w + 1036 , -14*w + 420 , 859*w + 4683 , 6*w , 6*w , 12*w , 0 , 0 , 0 , 1136*w + 728 ],
[ -224*w - 1568 , -68*w + 1036 , 2898 , -98*w + 574 , 488*w + 1316 , 108*w - 1176 , 54*w + 1092 , -348*w - 630 , 270*w + 504 , -180*w - 126 , -162*w - 1512 , -984*w - 574 ],
[ -76*w - 168 , 14*w + 420 , 98*w + 574 , 882 , 48*w + 1036 , 222*w - 70 , 92*w , 54*w , 0 , 0 , 0 , 212*w + 266 ],
[ 1411*w - 18459 , -859*w + 4683 , -488*w + 1316 , -48*w + 1036 , 26362 , 379*w - 287 , 292*w - 770 , 180*w + 378 , -53*w - 315 , 70*w + 140 , -62*w + 910 , 5280*w + 9674 ],
[ -20*w , -6*w , -108*w - 1176 , -222*w - 70 , -379*w - 287 , 1316 , -16*w - 336 , 204*w + 490 , -150*w - 280 , 100*w + 70 , 90*w + 840 , 640*w + 728 ],
[ 4*w , -6*w , -54*w + 1092 , -92*w , -292*w - 770 , 16*w - 336 , 2044 , -420*w - 728 , 252*w + 644 , -224*w - 140 , -252*w - 2352 , -1628*w + 14 ],
[ -14*w - 84 , -12*w , 348*w - 630 , -54*w , -180*w + 378 , -204*w + 490 , 420*w - 728 , 1274 , 26*w - 924 , 62*w + 490 , -402*w + 1330 , 690*w + 3220 ],
[ 10*w + 84 , 0 , -270*w + 504 , 0 , 53*w - 315 , 150*w - 280 , -252*w + 644 , -26*w - 924 , 742 , -56*w - 336 , 190*w - 1050 , -592*w - 2128 ],
[ -4*w - 28 , 0 , 180*w - 126 , 0 , -70*w + 140 , -100*w + 70 , 224*w - 140 , -62*w + 490 , 56*w - 336 , 224 , -262*w + 378 , 122*w + 1512 ],
[ 0 , 0 , 162*w - 1512 , 0 , 62*w + 910 , -90*w + 840 , 252*w - 2352 , 402*w + 1330 , -190*w - 1050 , 262*w + 378 , 3388 , 1918*w + 1764 ],
[ 3878*w - 5124 , -1136*w + 728 , 984*w - 574 , -212*w + 266 , -5280*w + 9674 , -640*w + 728 , 1628*w + 14 , -690*w + 3220 , 592*w - 2128 , -122*w + 1512 , -1918*w + 1764 , 20454 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 166601428 , 1266072*w + 36822744 , 1746168*w - 20975598 , 356432*w - 9056642 , -1928568*w + 477596 , -936476*w - 576954 , 452376*w + 181510 , 52836*w + 452942 , 12690*w + 118048 , 21198*w + 102144 , 
    -138970*w - 22036 , -90586802*w - 171382302 ],
[ -1266072*w + 36822744 , 13835668 , 2099266*w - 9886954 , 887520*w - 2742110 , -520906*w + 8722 , -177902*w - 119980 , 93462*w + 39298 , 13376*w + 93534 , 3708*w + 25032 , 5424*w + 19866 , -28986*w + 5586 ,
-18803214*w - 44878288 ],
[ -1746168*w - 20975598 , -2099266*w - 9886954 , 29579620 , -608822*w + 11840304 , 200692*w - 1494332 , -15412*w + 186200 , -2092*w + 12320 , 968*w - 25200 , -136*w , -24*w , 0 , 14468568*w + 19917828 ],
[ -356432*w - 9056642 , -887520*w - 2742110 , 608822*w + 11840304 , 6383286 , 50330*w - 525546 , 344084*w - 1106224 , -108974*w + 298536 , -781348*w - 545020 , -208868*w - 243600 , -199812*w + 201600 , 
    68400*w - 1902600 , 6143814*w + 7610568 ],
[ 1928568*w + 477596 , 520906*w + 8722 , -200692*w - 1494332 , -50330*w - 525546 , 1399174 , -178906*w + 1311198 , 55780*w - 500094 , 403706*w + 203126 , 107880*w + 102060 , 103230*w - 108360 , -35340*w + 
    983010 , -2246970*w + 7947786 ],
[ 936476*w - 576954 , 177902*w - 119980 , 15412*w + 186200 , -344084*w - 1106224 , 178906*w + 1311198 , 4060112 , 10946*w - 1271886 , 1650522*w - 1443330 , 483648*w - 204162 , 280848*w - 972678 , 685920*w + 
    3705072 , -5058*w + 8598058 ],
[ -452376*w + 181510 , -93462*w + 39298 , 2092*w + 12320 , 108974*w + 298536 , -55780*w - 500094 , -10946*w - 1271886 , 408548 , -491052*w + 471968 , -144528*w + 72870 , -81438*w + 297822 , -216516*w - 
    1097586 , 146676*w - 3239544 ],
[ -52836*w + 452942 , -13376*w + 93534 , -968*w - 25200 , 781348*w - 545020 , -403706*w + 203126 , -1650522*w - 1443330 , 491052*w + 471968 , 5585048 , -96052*w + 1554350 , 319378*w + 1223614 , -1877132*w + 
    711494 , -2296890*w - 641676 ],
[ -12690*w + 118048 , -3708*w + 25032 , 136*w , 208868*w - 243600 , -107880*w + 102060 , -483648*w - 204162 , 144528*w + 72870 , 96052*w + 1554350 , 444164 , 109930*w + 302050 , -510132*w + 424102 , 
    -636400*w + 90006 ],
[ -21198*w + 102144 , -5424*w + 19866 , 24*w , 199812*w + 201600 , -103230*w - 108360 , -280848*w - 972678 , 81438*w + 297822 , -319378*w + 1223614 , -109930*w + 302050 , 396074 , -452132*w - 595868 , 
    -495494*w - 1016988 ],
[ 138970*w - 22036 , 28986*w + 5586 , 0 , -68400*w - 1902600 , 35340*w + 983010 , -685920*w + 3705072 , 216516*w - 1097586 , 1877132*w + 711494 , 510132*w + 424102 , 452132*w - 595868 , 4509428 , -385382*w +
    5486950 ],
[ 90586802*w - 171382302 , 18803214*w - 44878288 , -14468568*w + 19917828 , -6143814*w + 7610568 , 2246970*w + 7947786 , 5058*w + 8598058 , -146676*w - 3239544 , 2296890*w - 641676 , 636400*w + 90006 , 
    495494*w - 1016988 , 385382*w + 5486950 , 528333442 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 24318322 , 1120122*w + 8027768 , 176006*w + 716170 , 22351*w - 283157 , 274646*w + 326508 , -1143965*w - 2291429 , 52417*w - 460915 , 6449971*w - 18198509 , 6236142*w - 17104500 , 729692*w + 2087050 , 
    -950300*w - 6510 , -177881*w - 14889497 ],
[ -1120122*w + 8027768 , 3522218 , 37114*w + 349426 , -41406*w - 101262 , 150604*w + 110432 , -78666*w - 692174 , 44758*w - 61866 , 2548018*w - 2661148 , 2466192*w - 2617118 , -25444*w + 521220 , -112404*w -
    357952 , 538894*w - 3928358 ],
[ -176006*w + 716170 , -37114*w + 349426 , 42448 , -4732*w - 27958 , 15920*w + 34552 , -8298*w - 52850 , 3330*w - 1218 , 238030*w - 230384 , 233332*w - 227458 , -1496*w + 30660 , -6612*w - 21056 , 50430*w - 
    370146 ],
[ -22351*w - 283157 , 41406*w - 101262 , 4732*w - 27958 , 221438 , -3966*w - 153580 , 155954*w - 791462 , 31588*w - 10164 , 207767*w + 729071 , 74893*w + 626535 , -183200*w + 661920 , -52000*w - 711200 , 
    255942*w + 590898 ],
[ -274646*w + 326508 , -150604*w + 110432 , -15920*w + 34552 , 3966*w - 153580 , 195258 , -77646*w + 320292 , -15906*w + 2072 , 131606*w - 448210 , 198022*w - 397838 , 91600*w - 331380 , 26000*w + 355600 , 
    -57888*w - 626220 ],
[ 1143965*w - 2291429 , 78666*w - 692174 , 8298*w - 52850 , -155954*w - 791462 , 77646*w + 320292 , 5462940 , -155488*w + 289002 , -2833337*w + 804867 , -2041043*w + 453621 , 321168*w - 4684022 , 954192*w + 
    3363024 , -1697748*w + 1142302 ],
[ -52417*w - 460915 , -44758*w - 61866 , -3330*w - 1218 , -31588*w - 10164 , 15906*w + 2072 , 155488*w + 289002 , 54586 , -159291*w + 736673 , -128691*w + 560231 , -118580*w - 305830 , 146140*w - 19460 , 
    -45052*w + 493878 ],
[ -6449971*w - 18198509 , -2548018*w - 2661148 , -238030*w - 230384 , -207767*w + 729071 , -131606*w - 448210 , 2833337*w + 804867 , 159291*w + 736673 , 34782384 , -87303*w + 32110155 , -2228422*w - 1518160 
, 1712382*w - 2907716 , 4931005*w + 15141903 ],
[ -6236142*w - 17104500 , -2466192*w - 2617118 , -233332*w - 227458 , -74893*w + 626535 , -198022*w - 397838 , 2041043*w + 453621 , 128691*w + 560231 , 87303*w + 32110155 , 30276400 , -1561130*w - 880446 , 
    1155626*w - 2146872 , 4935641*w + 13402389 ],
[ -729692*w + 2087050 , 25444*w + 521220 , 1496*w + 30660 , 183200*w + 661920 , -91600*w - 331380 , -321168*w - 4684022 , 118580*w - 305830 , 2228422*w - 1518160 , 1561130*w - 880446 , 4204074 , -1029344*w -
    2524032 , 1406238*w - 1331722 ],
[ 950300*w - 6510 , 112404*w - 357952 , 6612*w - 21056 , 52000*w - 711200 , -26000*w + 355600 , -954192*w + 3363024 , -146140*w - 19460 , -1712382*w - 2907716 , -1155626*w - 2146872 , 1029344*w - 2524032 , 
    3279584 , -1171322*w - 1607018 ],
[ 177881*w - 14889497 , -538894*w - 3928358 , -50430*w - 370146 , -255942*w + 590898 , 57888*w - 626220 , 1697748*w + 1142302 , 45052*w + 493878 , -4931005*w + 15141903 , -4935641*w + 13402389 , -1406238*w -
    1331722 , 1171322*w - 1607018 , 13187832 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1187984 , 17713*w - 649733 , 62943*w - 112525 , -24056*w + 59920 , 22232*w + 59108 , -15780*w - 107212 , -4192*w - 33586 , 2488*w + 27132 , 1302*w + 16548 , -5762*w - 15666 , 9862*w - 17654 , 321810*w - 
    353192 ],
[ -17713*w - 649733 , 3351096 , 18192*w + 437766 , 112633*w - 115717 , -88835*w + 52017 , 138473*w + 251265 , -70454*w + 192066 , -29458*w - 70112 , -104211*w + 255843 , 29338*w - 435232 , 240512*w + 274092 
, -149931*w + 825055 ],
[ -62943*w - 112525 , -18192*w + 437766 , 130732 , 20749*w + 60109 , -23641*w - 30527 , 4115*w + 81109 , -18882*w - 378 , 1190*w - 17836 , -21995*w - 5565 , 21926*w - 35952 , 12868*w + 102032 , -1573*w + 
    180299 ],
[ 24056*w + 59920 , -112633*w - 115717 , -20749*w + 60109 , 170590 , -3170*w - 95494 , -51248*w + 69328 , -14394*w - 69440 , 14596*w - 8316 , -5076*w - 97384 , 30268*w + 81592 , -58092*w + 94752 , 36882*w - 
    143332 ],
[ -22232*w + 59108 , 88835*w + 52017 , 23641*w - 30527 , 3170*w - 95494 , 70448 , 32986*w - 54726 , 6730*w + 48664 , -8910*w + 8036 , 3852*w + 73808 , -23156*w - 62104 , 44084*w - 71904 , 8734*w + 79408 ],
[ 15780*w - 107212 , -138473*w + 251265 , -4115*w + 81109 , 51248*w + 69328 , -32986*w - 54726 , 204988 , -32124*w + 588 , 3070*w - 51940 , -44986*w - 52752 , 56182*w - 32844 , -262*w + 239232 , -68022*w - 
    113134 ],
[ 4192*w - 33586 , 70454*w + 192066 , 18882*w - 378 , 14394*w - 69440 , -6730*w + 48664 , 32124*w + 588 , 66556 , -7848*w - 5236 , -1016*w + 76104 , -19500*w - 72688 , 49200*w - 52388 , -23090*w + 52542 ],
[ -2488*w + 27132 , 29458*w - 70112 , -1190*w - 17836 , -14596*w - 8316 , 8910*w + 8036 , -3070*w - 51940 , 7848*w - 5236 , 13874 , 11704*w + 8358 , -13200*w + 13496 , -3336*w - 58240 , 19034*w + 24962 ],
[ -1302*w + 16548 , 104211*w + 255843 , 21995*w - 5565 , 5076*w - 97384 , -3852*w + 73808 , 44986*w - 52752 , 1016*w + 76104 , -11704*w + 8358 , 120610 , -32254*w - 113834 , 76912*w - 89628 , -9558*w + 
    111916 ],
[ 5762*w - 15666 , -29338*w - 435232 , -21926*w - 35952 , -30268*w + 81592 , 23156*w - 62104 , -56182*w - 32844 , 19500*w - 72688 , 13200*w + 13496 , 32254*w - 113834 , 167888 , -96570*w - 59402 , 38028*w - 
    88228 ],
[ -9862*w - 17654 , -240512*w + 274092 , -12868*w + 102032 , 58092*w + 94752 , -44084*w - 71904 , 262*w + 239232 , -49200*w - 52388 , 3336*w - 58240 , -76912*w - 89628 , 96570*w - 59402 , 409948 , -64096*w -
    125104 ],
[ -321810*w - 353192 , 149931*w + 825055 , 1573*w + 180299 , -36882*w - 143332 , -8734*w + 79408 , 68022*w - 113134 , 23090*w + 52542 , -19034*w + 24962 , 9558*w + 111916 , -38028*w - 88228 , 64096*w - 
    125104 , 1057728 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 2604 , 277*w + 2891 , 257*w - 1057 , -27*w + 133 , -14*w + 70 , 249*w - 147 , 114*w + 210 , 87*w + 49 , -16*w + 364 , -36*w + 126 , -56*w + 350 , -102*w + 2198 ],
[ -277*w + 2891 , 31234 , 976*w - 1190 , -432*w - 560 , 28*w + 350 , -1936*w - 1190 , 907*w + 35 , 110*w - 4172 , 1237*w - 553 , 562*w + 1008 , 1966*w + 1358 , -10832*w - 10094 ],
[ -257*w - 1057 , -976*w - 1190 , 812 , 30*w - 84 , -14 , 40*w - 196 , -38*w + 28 , 90*w + 84 , 4*w + 196 , -26*w + 70 , -54*w + 266 , 184*w - 2814 ],
[ 27*w + 133 , 432*w - 560 , -30*w - 84 , 154 , 14 , 82*w + 336 , 26*w - 56 , -80*w + 168 , -88*w - 168 , -16*w - 112 , -60*w - 252 , 150*w + 1540 ],
[ 14*w + 70 , -28*w + 350 , -14 , 14 , 28 , -10*w + 14 , 52*w , -10*w , 0 , 0 , 0 , -58*w - 154 ],
[ -249*w - 147 , 1936*w - 1190 , -40*w - 196 , -82*w + 336 , 10*w + 14 , 2436 , 38*w - 448 , -450*w + 756 , -444*w - 1036 , -54*w - 630 , -246*w - 1526 , -392*w + 7322 ],
[ -114*w + 210 , -907*w + 35 , 38*w + 28 , -26*w - 56 , -52*w , -38*w - 448 , 784 , 72*w - 308 , 88*w + 168 , 16*w + 112 , 60*w + 252 , 242*w - 1876 ],
[ -87*w + 49 , -110*w - 4172 , -90*w + 84 , 80*w + 168 , 10*w , 450*w + 756 , -72*w - 308 , 1666 , -480*w + 126 , -240*w - 336 , -744*w - 168 , 2050*w + 2702 ],
[ 16*w + 364 , -1237*w - 553 , -4*w + 196 , 88*w - 168 , 0 , 444*w - 1036 , -88*w + 168 , 480*w + 126 , 1526 , -112*w + 560 , -136*w + 1400 , 1256*w - 4060 ],
[ 36*w + 126 , -562*w + 1008 , 26*w + 70 , 16*w - 112 , 0 , 54*w - 630 , -16*w + 112 , 240*w - 336 , 112*w + 560 , 336 , 128*w + 784 , -2660 ],
[ 56*w + 350 , -1966*w + 1358 , 54*w + 266 , 60*w - 252 , 0 , 246*w - 1526 , -60*w + 252 , 744*w - 168 , 136*w + 1400 , -128*w + 784 , 2464 , 884*w - 7140 ],
[ 102*w + 2198 , 10832*w - 10094 , -184*w - 2814 , -150*w + 1540 , 58*w - 154 , 392*w + 7322 , -242*w - 1876 , -2050*w + 2702 , -1256*w - 4060 , -2660 , -884*w - 7140 , 38500 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 16422 , 338*w + 5054 , 84*w + 504 , -124*w + 210 , 584*w - 686 , -460*w + 210 , 1124*w + 224 , -370*w - 980 , -450*w + 28 , -134*w + 504 , 674*w - 2744 , -17032*w - 15050 ],
[ -338*w + 5054 , 20748 , 62*w + 2464 , -1094*w - 1232 , 8208*w - 504 , -3936*w , -1192*w , 56*w , 80*w , -24*w , 0 , -8630*w - 14798 ],
[ -84*w + 504 , -62*w + 2464 , 1764 , 80*w - 168 , 1472*w + 84 , -752*w - 140 , -592*w , 76*w , 0 , 0 , 0 , -1064*w - 2156 ],
[ 124*w + 210 , 1094*w - 1232 , -80*w - 168 , 784 , -506*w - 3052 , 236*w + 1400 , 76*w + 140 , -8*w , 0 , 0 , 0 , -132*w + 2156 ],
[ -584*w - 686 , -8208*w - 504 , -1472*w + 84 , 506*w - 3052 , 29708 , 132*w - 14238 , -6*w - 5992 , 2*w + 672 , 0 , 0 , 0 , 2164*w - 6020 ],
[ 460*w + 210 , 3936*w , 752*w - 140 , -236*w + 1400 , -132*w - 14238 , 6902 , 44*w + 3136 , 74*w - 308 , -32*w - 560 , -48*w + 28 , 272*w + 280 , -1154*w + 3290 ],
[ -1124*w + 224 , 1192*w , 592*w , -76*w + 140 , 6*w - 5992 , -44*w + 3136 , 7924 , 1440*w - 1260 , -576*w - 8680 , -864*w + 84 , 4896*w + 5040 , 92*w - 17626 ],
[ 370*w - 980 , -56*w , -76*w , 8*w , -2*w + 672 , -74*w - 308 , -1440*w - 1260 , 3066 , 2540*w , 80*w - 1666 , -2080*w + 8820 , 3634*w + 2772 ],
[ 450*w + 28 , -80*w , 0 , 0 , 0 , 32*w - 560 , 576*w - 8680 , -2540*w , 15694 , 1492*w + 392 , -7804*w - 12418 , -74*w + 22568 ],
[ 134*w + 504 , 24*w , 0 , 0 , 0 , 48*w + 28 , 864*w + 84 , -80*w - 1666 , -1492*w + 392 , 1022 , 976*w - 5572 , -2460*w + 1022 ],
[ -674*w - 2744 , 0 , 0 , 0 , 0 , -272*w + 280 , -4896*w + 5040 , 2080*w + 8820 , 7804*w - 12418 , -976*w - 5572 , 37268 , 12628*w - 18242 ],
[ 17032*w - 15050 , 8630*w - 14798 , 1064*w - 2156 , 132*w + 2156 , -2164*w - 6020 , 1154*w + 3290 , -92*w - 17626 , -3634*w + 2772 , 74*w + 22568 , 2460*w + 1022 , -12628*w - 18242 , 217238 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 3612 , 13059*w - 39851 , 2435*w - 8085 , 33*w + 357 , -263*w - 63 , -190*w - 532 , -75*w + 63 , 648*w - 2534 , -87*w - 1155 , 493*w + 4473 , 1022*w + 1120 , -275*w - 7371 ],
[ -13059*w - 39851 , 1190938 , 2318*w + 234612 , -1041*w - 1729 , 2703*w - 4501 , 9362*w + 9618 , 1429*w - 1715 , -3442*w + 58310 , 4695*w + 16275 , -23625*w - 64645 , -21430*w + 5320 , 45135*w + 106575 ],
[ -2435*w - 8085 , -2318*w + 234612 , 46466 , -167*w - 385 , 543*w - 539 , 1820*w + 2310 , 303*w - 231 , -1318*w + 11102 , 783*w + 3479 , -3877*w - 14441 , -4230*w - 672 , 8503*w + 21693 ],
[ -33*w + 357 , 1041*w - 1729 , 167*w - 385 , 140 , -80*w - 84 , -28*w + 28 , -16*w , -4*w , 0 , 0 , 0 , 234*w - 574 ],
[ 263*w - 63 , -2703*w - 4501 , -543*w - 539 , 80*w - 84 , 630 , -102*w + 532 , 14*w + 168 , -620*w - 560 , -156*w + 224 , 848*w - 1512 , 56*w - 1736 , -758*w - 224 ],
[ 190*w - 532 , -9362*w + 9618 , -1820*w + 2310 , 28*w + 28 , 102*w + 532 , 3402 , 66*w + 420 , -1742*w + 2352 , -120*w + 1232 , 400*w - 8064 , -1376*w - 3808 , -642*w + 2968 ],
[ 75*w + 63 , -1429*w - 1715 , -303*w - 231 , 16*w , -14*w + 168 , -66*w + 420 , 98 , -274*w - 644 , -94*w , 532*w - 322 , 152*w - 840 , -342*w + 126 ],
[ -648*w - 2534 , 3442*w + 58310 , 1318*w + 11102 , 4*w , 620*w - 560 , 1742*w + 2352 , 274*w - 644 , 27538 , 2036*w + 5082 , -12718*w - 25746 , -10014*w + 6482 , 5372*w + 2114 ],
[ 87*w - 1155 , -4695*w + 16275 , -783*w + 3479 , 0 , 156*w + 224 , 120*w + 1232 , 94*w , -2036*w + 5082 , 2086 , -410*w - 11326 , -2306*w - 4018 , 906*w + 3710 ],
[ -493*w + 4473 , 23625*w - 64645 , 3877*w - 14441 , 0 , -848*w - 1512 , -400*w - 8064 , -532*w - 322 , 12718*w - 25746 , 410*w - 11326 , 65366 , 12388*w + 26404 , -3996*w - 19012 ],
[ -1022*w + 1120 , 21430*w + 5320 , 4230*w - 672 , 0 , -56*w - 1736 , 1376*w - 3808 , -152*w - 840 , 10014*w + 6482 , 2306*w - 4018 , -12388*w + 26404 , 27104 , 1966*w - 12866 ],
[ 275*w - 7371 , -45135*w + 106575 , -8503*w + 21693 , -234*w - 574 , 758*w - 224 , 642*w + 2968 , 342*w + 126 , -5372*w + 2114 , -906*w + 3710 , 3996*w - 19012 , -1966*w - 12866 , 28448 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 144004 , 13944*w - 30870 , 1195*w + 1757 , -916*w - 1876 , -1503*w + 4963 , 579*w - 1337 , -196*w - 4046 , 798*w - 2604 , -1020*w - 5334 , -420*w - 56 , -1583*w + 3269 , 37967*w - 100779 ],
[ -13944*w - 30870 , 20006 , -548*w - 266 , 305*w + 1785 , -19*w - 3815 , -86*w + 1078 , 586*w + 840 , 93*w + 1561 , 1022*w + 350 , 128*w - 406 , -44*w - 2464 , 1450*w + 49938 ],
[ -1195*w + 1757 , 548*w - 266 , 616 , 212*w - 1736 , -98*w + 1036 , 12*w - 238 , -114*w + 56 , -26*w - 168 , -96*w + 224 , -16*w + 56 , 60*w + 252 , 1240*w - 532 ],
[ 916*w - 1876 , -305*w + 1785 , -212*w - 1736 , 6818 , -236*w - 5208 , 100*w + 1302 , 654*w - 308 , 252*w + 1064 , 528*w - 1232 , 88*w - 308 , -330*w - 1386 , -122*w + 7084 ],
[ 1503*w + 4963 , 19*w - 3815 , 98*w + 1036 , 236*w - 5208 , 7728 , 78*w - 2198 , -1198*w - 1120 , -246*w - 2716 , -1496*w + 616 , -240*w + 392 , 116*w + 3444 , -561*w - 17913 ],
[ -579*w - 1337 , 86*w + 1078 , -12*w - 238 , -100*w + 1302 , -78*w - 2198 , 686 , 382*w + 266 , 118*w + 798 , 446*w - 322 , 72*w - 140 , -74*w - 1050 , 387*w + 5341 ],
[ 196*w - 4046 , -586*w + 840 , 114*w + 56 , -654*w - 308 , 1198*w - 1120 , -382*w + 266 , 1764 , -428*w + 840 , 384*w + 1904 , 120*w + 224 , 628*w - 812 , -2939*w + 5047 ],
[ -798*w - 2604 , -93*w + 1561 , 26*w - 168 , -252*w + 1064 , 246*w - 2716 , -118*w + 798 , 428*w + 840 , 1176 , 648*w + 280 , 118*w - 98 , 116*w - 1484 , -254*w + 7602 ],
[ 1020*w - 5334 , -1022*w + 350 , 96*w + 224 , -528*w - 1232 , 1496*w + 616 , -446*w - 322 , -384*w + 1904 , -648*w + 280 , 3248 , 136*w + 280 , 976*w - 336 , -4600*w + 2030 ],
[ 420*w - 56 , -128*w - 406 , 16*w + 56 , -88*w - 308 , 240*w + 392 , -72*w - 140 , -120*w + 224 , -118*w - 98 , -136*w + 280 , 168 , 152*w + 392 , -695*w - 1295 ],
[ 1583*w + 3269 , 44*w - 2464 , -60*w + 252 , 330*w - 1386 , -116*w + 3444 , 74*w - 1050 , -628*w - 812 , -116*w - 1484 , -976*w - 336 , -152*w + 392 , 2464 , -335*w - 10843 ],
[ -37967*w - 100779 , -1450*w + 49938 , -1240*w - 532 , 122*w + 7084 , 561*w - 17913 , -387*w + 5341 , 2939*w + 5047 , 254*w + 7602 , 4600*w + 2030 , 695*w - 1295 , 335*w - 10843 , 160356 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 1862677348 , -5041674*w - 18169242 , -5572855728*w + 1435211904 , -3895374481*w + 1002426285 , -551454589*w + 124583347 , -874592380*w + 223357414 , 110275981*w - 29163211 , -1574622*w - 5904122 , 777916*w
    + 824096 , -2689656*w - 40040 , -1586258*w + 3535658 , -2328185803*w + 6298972715 ],
[ 5041674*w - 18169242 , 929642 , 53699353*w + 125312705 , 37370822*w + 87023706 , 5675078*w + 14096838 , 8215123*w + 21423325 , -1013468*w - 2453584 , 273255*w + 87017 , -12562*w + 315238 , 11693*w - 653191
, -121996*w - 403998 , 45294228*w + 1794408 ],
[ 5572855728*w + 1435211904 , -53699353*w + 125312705 , 121318597218 , -17242967*w + 84772243283 , -39291453*w + 12064697603 , -16514432*w + 19170655840 , 34015*w - 2405525437 , -8107620*w + 26075420 , 
    783144*w - 3542672 , 220944*w + 23718940 , 4521830*w + 13347586 , 17724048240*w + 54941690328 ],
[ 3895374481*w + 1002426285 , -37370822*w + 87023706 , 17242967*w + 84772243283 , 59237817968 , -27803771*w + 8423668463 , -7908999*w + 13389089189 , -530211*w - 1681065435 , -6914818*w + 18146702 , 555333*w
    - 3948609 , 220483*w + 19589717 , 3793906*w + 11028612 , 12385988549*w + 38368749629 ],
[ 551454589*w + 124583347 , -5675078*w + 14096838 , 39291453*w + 12064697603 , 27803771*w + 8423668463 , 1239872340 , -3673631*w + 1925103271 , -403042*w - 237226906 , 3315842*w + 12358794 , -1670721*w + 
    5124833 , 3013649*w - 9433361 , -88638*w - 9846144 , 1796630876*w + 5466747776 ],
[ 874592380*w + 223357414 , -8215123*w + 21423325 , 16514432*w + 19170655840 , 7908999*w + 13389089189 , 3673631*w + 1925103271 , 3055968398 , 286921*w - 380260209 , 2628952*w + 2094750 , 292072*w + 4320386 
, -800900*w - 6427092 , -1777658*w - 2798362 , 2827038352*w + 8654754906 ],
[ -110275981*w - 29163211 , 1013468*w - 2453584 , -34015*w - 2405525437 , 530211*w - 1681065435 , 403042*w - 237226906 , -286921*w - 380260209 , 47873238 , 284968*w + 301196 , -141989*w + 253491 , 239719*w -
    846559 , -19288*w - 827694 , -351195570*w - 1085313418 ],
[ 1574622*w - 5904122 , -273255*w + 87017 , 8107620*w + 26075420 , 6914818*w + 18146702 , -3315842*w + 12358794 , -2628952*w + 2094750 , -284968*w + 301196 , 5479068 , -991894*w + 103922 , 1948624*w - 710864
, 1022704*w - 3116848 , 6624241*w + 26696159 ],
[ -777916*w + 824096 , 12562*w + 315238 , -783144*w - 3542672 , -555333*w - 3948609 , 1670721*w + 5124833 , -292072*w + 4320386 , 141989*w + 253491 , 991894*w + 103922 , 1348690 , -127016*w - 2607416 , 
    -590120*w - 1385720 , 3090069*w + 116851 ],
[ 2689656*w - 40040 , -11693*w - 653191 , -220944*w + 23718940 , -220483*w + 19589717 , -3013649*w - 9433361 , 800900*w - 6427092 , -239719*w - 846559 , -1948624*w - 710864 , 127016*w - 2607416 , 5213488 , 
    1026624*w + 3117520 , -4707646*w + 7270956 ],
[ 1586258*w + 3535658 , 121996*w - 403998 , -4521830*w + 13347586 , -3793906*w + 11028612 , 88638*w - 9846144 , 1777658*w - 2798362 , 19288*w - 827694 , -1022704*w - 3116848 , 590120*w - 1385720 , -1026624*w
    + 3117520 , 3279584 , -4171148*w - 2664424 ],
[ 2328185803*w + 6298972715 , -45294228*w + 1794408 , -17724048240*w + 54941690328 , -12385988549*w + 38368749629 , -1796630876*w + 5466747776 , -2827038352*w + 8654754906 , 351195570*w - 1085313418 , 
    -6624241*w + 26696159 , -3090069*w + 116851 , 4707646*w + 7270956 , 4171148*w - 2664424 , 43156994146 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 98336 , 94835*w + 230797 , 23313*w + 62531 , -3998*w + 31248 , -542*w - 6496 , -579*w + 5481 , -30476*w + 21910 , 8371*w - 7511 , 9431*w - 49133 , 5888*w + 23786 , 14414*w + 16156 , 70519*w + 134729 ],
[ -94835*w + 230797 , 1321320 , -5897*w + 334355 , -42292*w + 25760 , 7064*w - 10836 , -8034*w + 3486 , -71172*w - 207256 , 20742*w + 55230 , 70900*w - 12614 , -15856*w + 85428 , 6816*w + 138152 , 23654*w + 
    823732 ],
[ -23313*w + 62531 , 5897*w + 334355 , 85596 , -11152*w + 9492 , 1746*w - 3178 , -2083*w + 1393 , -20466*w - 53424 , 5967*w + 14259 , 18495*w - 5075 , -3916*w + 22806 , 2244*w + 36190 , 12343*w + 212093 ],
[ 3998*w + 31248 , 42292*w + 25760 , 11152*w + 9492 , 24122 , 146*w - 5516 , -118*w + 5740 , -19998*w + 16800 , 5694*w - 5110 , 4800*w - 29330 , 3510*w + 13510 , 8500*w + 8750 , 35976*w + 12670 ],
[ 542*w - 6496 , -7064*w - 10836 , -1746*w - 3178 , -146*w - 5516 , 2380 , -108*w - 1890 , 5982*w - 3500 , -1776*w + 1078 , -1144*w + 7854 , -902*w - 3542 , -2244*w - 2310 , -6148*w - 9100 ],
[ 579*w + 5481 , 8034*w + 3486 , 2083*w + 1393 , 118*w + 5740 , 108*w - 1890 , 1848 , -5000*w + 3388 , 1470*w - 966 , 936*w - 6426 , 738*w + 2898 , 1836*w + 1890 , 7128*w + 3318 ],
[ 30476*w + 21910 , 71172*w - 207256 , 20466*w - 53424 , 19998*w + 16800 , -5982*w - 3500 , 5000*w + 3388 , 177212 , -672*w - 52444 , -22792*w - 57848 , 16604*w - 9156 , 16968*w - 48300 , 43826*w - 190484 ],
[ -8371*w - 7511 , -20742*w + 55230 , -5967*w + 14259 , -5694*w - 5110 , 1776*w + 1078 , -1470*w - 966 , 672*w - 52444 , 15652 , 6008*w + 16996 , -4746*w + 1750 , -5098*w + 12838 , -12868*w + 53396 ],
[ -9431*w - 49133 , -70900*w - 12614 , -18495*w - 5075 , -4800*w - 29330 , 1144*w + 7854 , -936*w - 6426 , 22792*w - 57848 , -6008*w + 16996 , 67270 , -11390*w - 16254 , -18718*w + 4298 , -45536*w + 3864 ],
[ -5888*w + 23786 , 15856*w + 85428 , 3916*w + 22806 , -3510*w + 13510 , 902*w - 3542 , -738*w + 2898 , -16604*w - 9156 , 4746*w + 1750 , 11390*w - 16254 , 17808 , 5382*w + 21434 , 13152*w + 49868 ],
[ -14414*w + 16156 , -6816*w + 138152 , -2244*w + 36190 , -8500*w + 8750 , 2244*w - 2310 , -1836*w + 1890 , -16968*w - 48300 , 5098*w + 12838 , 18718*w + 4298 , -5382*w + 21434 , 37268 , 386*w + 90160 ],
[ -70519*w + 134729 , -23654*w + 823732 , -12343*w + 212093 , -35976*w + 12670 , 6148*w - 9100 , -7128*w + 3318 , -43826*w - 190484 , 12868*w + 53396 , 45536*w + 3864 , -13152*w + 49868 , -386*w + 90160 , 
    623686 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 26173532 , 114742*w + 8148910 , -1147989*w - 192437 , -946088*w - 645946 , 473754*w + 276654 , -364526*w + 625352 , -709878*w + 1959524 , 87114*w + 38640 , 95334*w - 1173760 , 388516*w + 134806 , 494900*w 
    - 1037148 , -2255072*w - 408114 ],
[ -114742*w + 8148910 , 2620072 , -358730*w - 165410 , -308892*w - 257978 , 154602*w + 123186 , -113160*w + 215068 , -219862*w + 618506 , 28138*w + 12684 , 29110*w - 366366 , 119400*w + 39942 , 152250*w - 
    319662 , -695200*w - 170618 ],
[ 1147989*w - 192437 , 358730*w - 165410 , 2078608 , -36280*w + 250194 , 20428*w - 352828 , -3728*w - 44058 , -4462*w - 7504 , 613*w + 5033 , 579*w - 5775 , 2390*w + 1106 , 2958*w - 6272 , -9832*w + 1039010 
],
[ 946088*w - 645946 , 308892*w - 257978 , 36280*w + 250194 , 419314 , -4962*w - 209580 , 22350*w + 82698 , 83480*w + 149492 , -930*w - 22932 , -45120*w - 3360 , -960*w - 107520 , -48720*w - 115920 , 82172*w 
    + 632688 ],
[ -473754*w + 276654 , -154602*w + 123186 , -20428*w - 352828 , 4962*w - 209580 , 137690 , -3588*w - 27888 , -25282*w - 49868 , 100*w + 5992 , 14320*w + 2296 , 176*w + 36344 , 16240*w + 38640 , -36458*w - 
    373632 ],
[ 364526*w + 625352 , 113160*w + 215068 , 3728*w - 44058 , -22350*w + 82698 , 3588*w - 27888 , 107366 , 13904*w + 163296 , 5106*w - 8680 , -18312*w - 49588 , 11256*w - 46788 , -6240*w - 85344 , -38382*w + 
    192500 ],
[ 709878*w + 1959524 , 219862*w + 618506 , 4462*w - 7504 , -83480*w + 149492 , 25282*w - 49868 , -13904*w + 163296 , 377762 , 10360*w - 19278 , -33036*w - 141120 , 43272*w - 84308 , 11890*w - 227262 , 
    -143384*w + 373604 ],
[ -87114*w + 38640 , -28138*w + 12684 , -613*w + 5033 , 930*w - 22932 , -100*w + 5992 , -5106*w - 8680 , -10360*w - 19278 , 3626 , 5524*w + 1372 , -256*w + 11368 , 4726*w + 14182 , -3290*w - 43022 ],
[ -95334*w - 1173760 , -29110*w - 366366 , -579*w - 5775 , 45120*w - 3360 , -14320*w + 2296 , 18312*w - 49588 , 33036*w - 141120 , -5524*w + 1372 , 73486 , -23940*w + 4018 , -25132*w + 78260 , 87354*w - 
    51310 ],
[ -388516*w + 134806 , -119400*w + 39942 , -2390*w + 1106 , 960*w - 107520 , -176*w + 36344 , -11256*w - 46788 , -43272*w - 84308 , 256*w + 11368 , 23940*w + 4018 , 57596 , 25432*w + 63448 , -10254*w - 
    207032 ],
[ -494900*w - 1037148 , -152250*w - 319662 , -2958*w - 6272 , 48720*w - 115920 , -16240*w + 38640 , 6240*w - 85344 , -11890*w - 227262 , -4726*w + 14182 , 25132*w + 78260 , -25432*w + 63448 , 149072 , 
    78978*w - 261562 ],
[ 2255072*w - 408114 , 695200*w - 170618 , 9832*w + 1039010 , -82172*w + 632688 , 36458*w - 373632 , 38382*w + 192500 , 143384*w + 373604 , 3290*w - 43022 , -87354*w - 51310 , 10254*w - 207032 , -78978*w - 
    261562 , 1587516 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 199584238 , -5387842*w - 67387208 , -1654967*w - 2646259 , -625141*w + 1400245 , 6729680*w + 477918 , -4799035*w + 43089865 , -517093*w + 12124161 , -3917295*w - 27678357 , 543882*w + 6240864 , -5554349*w 
    + 704137 , 3480452*w - 14035126 , 18430825*w - 15375045 ],
[ 5387842*w - 67387208 , 24505124 , 495144*w + 1453704 , 236882*w - 419188 , -2516388*w - 2089038 , 3654154*w - 15578500 , 702879*w - 4610557 , 412027*w + 12022773 , 43395*w - 2608263 , 2212124*w + 1320942 ,
-1945800*w + 4516008 , -7208365*w + 3610005 ],
[ 1654967*w - 2646259 , -495144*w + 1453704 , 215362 , 16896*w - 4816 , -165820*w - 641424 , 737964*w - 877366 , 182749*w - 323253 , -255223*w + 1236865 , 69003*w - 244573 , 181238*w + 511280 , -300284*w + 
    99736 , -588797*w - 266189 ],
[ 625141*w + 1400245 , -236882*w - 419188 , -16896*w - 4816 , 84546 , 59302*w - 140126 , 466*w + 442652 , 10274*w + 129416 , -69016*w - 236768 , 12536*w + 56280 , -53040*w + 51408 , 17528*w - 163912 , 
    131548*w - 663124 ],
[ -6729680*w + 477918 , 2516388*w - 2089038 , 165820*w - 641424 , -59302*w - 140126 , 3138604 , -3056218*w - 1552418 , -851868*w - 52654 , 1837292*w - 2402204 , -422948*w + 367276 , -144010*w - 2675610 , 
    1031526*w + 1443862 , 1946348*w + 4155648 ],
[ 4799035*w + 43089865 , -3654154*w - 15578500 , -737964*w - 877366 , -466*w + 442652 , 3056218*w - 1552418 , 23531956 , 412340*w + 6264790 , -3536930*w - 12328540 , 616800*w + 2921464 , -2747042*w + 2510606
, 968474*w - 8399510 , 2701032*w - 17099404 ],
[ 517093*w + 12124161 , -702879*w - 4610557 , -182749*w - 323253 , -10274*w + 129416 , 851868*w - 52654 , -412340*w + 6264790 , 1728944 , -727184*w - 3717476 , 113268*w + 855680 , -776864*w + 332304 , 
    405572*w - 2122204 , 1029022*w - 4256224 ],
[ 3917295*w - 27678357 , -412027*w + 12022773 , 255223*w + 1236865 , 69016*w - 236768 , -1837292*w - 2402204 , 3536930*w - 12328540 , 727184*w - 3717476 , 10182900 , 116256*w - 2180052 , 1816880*w + 1576400 
, -1770672*w + 3381616 , -3999334*w + 6141968 ],
[ -543882*w + 6240864 , -43395*w - 2608263 , -69003*w - 244573 , -12536*w + 56280 , 422948*w + 367276 , -616800*w + 2921464 , -113268*w + 855680 , -116256*w - 2180052 , 476406 , -407200*w - 192416 , 340632*w
    - 866040 , 785764*w - 1628942 ],
[ 5554349*w + 704137 , -2212124*w + 1320942 , -181238*w + 511280 , 53040*w + 51408 , 144010*w - 2675610 , 2747042*w + 2510606 , 776864*w + 332304 , -1816880*w + 1576400 , 407200*w - 192416 , 2514288 , 
    -877872*w - 1688512 , -1710174*w - 4045622 ],
[ -3480452*w - 14035126 , 1945800*w + 4516008 , 300284*w + 99736 , -17528*w - 163912 , -1031526*w + 1443862 , -968474*w - 8399510 , -405572*w - 2122204 , 1770672*w + 3381616 , -340632*w - 866040 , 877872*w -
    1688512 , 3279584 , -263520*w + 6896484 ],
[ -18430825*w - 15375045 , 7208365*w + 3610005 , 588797*w - 266189 , -131548*w - 663124 , -1946348*w + 4155648 , -2701032*w - 17099404 , -1029022*w - 4256224 , 3999334*w + 6141968 , -785764*w - 1628942 , 
    1710174*w - 4045622 , 263520*w + 6896484 , 22445668 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 61250 , 2734*w + 11746 , 252*w + 2170 , 654*w + 1526 , -363*w + 2639 , -147*w - 119 , 621*w - 847 , 79*w + 413 , -27*w - 1715 , -2399*w + 2443 , 206*w - 4340 , -6294*w - 18242 ],
[ -2734*w + 11746 , 5894 , -26*w + 994 , -22*w - 1554 , -60*w - 770 , 30*w - 140 , -40*w + 280 , 30*w , 80*w + 280 , 220*w - 980 , 150*w + 630 , 1429*w - 6013 ],
[ -252*w + 2170 , 26*w + 994 , 210 , -2*w - 350 , 6*w - 168 , 6*w - 28 , -14*w + 56 , 10*w , 16*w + 56 , 44*w - 196 , 30*w + 126 , 142*w - 994 ],
[ -654*w + 1526 , 22*w - 1554 , 2*w - 350 , 4802 , 108*w + 1806 , -60*w + 350 , 84*w - 560 , -106*w , -160*w - 560 , -440*w + 1960 , -300*w - 1260 , -48*w + 700 ],
[ 363*w + 2639 , 60*w - 770 , -6*w - 168 , -108*w + 1806 , 1288 , -60*w + 154 , 90*w - 532 , -22*w , -128*w - 448 , -352*w + 1568 , -240*w - 1008 , -784*w + 1820 ],
[ 147*w - 119 , -30*w - 140 , -6*w - 28 , 60*w + 350 , 60*w + 154 , 56 , -20*w - 112 , -6*w , -44*w - 28 , 90*w + 378 , -114*w + 14 , 122*w + 532 ],
[ -621*w - 847 , 40*w + 280 , 14*w + 56 , -84*w - 560 , -90*w - 532 , 20*w - 112 , 378 , 0 , 112*w + 182 , -72*w - 1288 , 308*w + 308 , 139*w - 1925 ],
[ -79*w + 413 , -30*w , -10*w , 106*w , 22*w , 6*w , 0 , 28 , 0 , 0 , 0 , -71*w - 259 ],
[ 27*w - 1715 , -80*w + 280 , -16*w + 56 , 160*w - 560 , 128*w - 448 , 44*w - 28 , -112*w + 182 , 0 , 406 , 320*w - 672 , 56*w + 728 , 619*w - 385 ],
[ 2399*w + 2443 , -220*w - 980 , -44*w - 196 , 440*w + 1960 , 352*w + 1568 , -90*w + 378 , 72*w - 1288 , 0 , -320*w - 672 , 5712 , -1216*w - 1904 , -484*w + 8106 ],
[ -206*w - 4340 , -150*w + 630 , -30*w + 126 , 300*w - 1260 , 240*w - 1008 , 114*w + 14 , -308*w + 308 , 0 , -56*w + 728 , 1216*w - 1904 , 2464 , 1864*w - 1848 ],
[ 6294*w - 18242 , -1429*w - 6013 , -142*w - 994 , 48*w + 700 , 784*w + 1820 , -122*w + 532 , -139*w - 1925 , 71*w - 259 , -619*w - 385 , 484*w + 8106 , -1864*w - 1848 , 25144 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 686196 , -160284*w - 1988602 , 18505*w + 13503 , -3537*w - 2317 , 1542*w - 4116 , 2355*w - 4473 , 1568*w + 2898 , 8658*w - 30800 , -9491*w - 231 , -2253*w + 10689 , -210*w - 19824 , -708476*w - 889266 ],
[ 160284*w - 1988602 , 6056722 , -44944*w - 41188 , 8504*w + 4312 , -5796*w + 5264 , -9236*w + 8722 , -3465*w - 11557 , -34170*w + 68586 , 26927*w + 20405 , 9624*w - 25270 , -5486*w + 56546 , 1852950*w + 
    3751846 ],
[ -18505*w + 13503 , 44944*w - 41188 , 128758 , 614*w - 34132 , 782*w - 11774 , -2986*w - 2506 , 748*w , -364*w - 15708 , -3366*w + 3570 , 102*w + 4998 , -1530*w - 6426 , 10035*w - 130221 ],
[ 3537*w - 2317 , -8504*w + 4312 , -614*w - 34132 , 9170 , -130*w + 3318 , 850*w + 644 , -198*w + 112 , 476*w + 4424 , 808*w - 1400 , -152*w - 1400 , 588*w + 1484 , -2535*w + 22995 ],
[ -1542*w - 4116 , 5796*w + 5264 , -782*w - 11774 , 130*w + 3318 , 1484 , 350*w + 406 , -90*w + 140 , 588*w + 2324 , 288*w - 1120 , -200*w - 728 , 462*w + 462 , 5702*w - 8400 ],
[ -2355*w - 4473 , 9236*w + 8722 , 2986*w - 2506 , -850*w + 644 , -350*w + 406 , 1092 , -60*w - 140 , -218*w + 1596 , 388*w - 140 , 52*w - 476 , 66*w + 770 , 8203*w - 13153 ],
[ -1568*w + 2898 , 3465*w - 11557 , -748*w , 198*w + 112 , 90*w + 140 , 60*w - 140 , 154 , 372*w + 294 , -114*w - 504 , -116*w - 84 , 188*w - 196 , -1313*w - 14819 ],
[ -8658*w - 30800 , 34170*w + 68586 , 364*w - 15708 , -476*w + 4424 , -588*w + 2324 , 218*w + 1596 , -372*w + 294 , 9674 , 1378*w - 2968 , -40*w - 3080 , 1128*w + 3752 , 42616*w - 29512 ],
[ 9491*w - 231 , -26927*w + 20405 , 3366*w + 3570 , -808*w - 1400 , -288*w - 1120 , -388*w - 140 , 114*w - 504 , -1378*w - 2968 , 3122 , 440*w + 840 , -920*w - 168 , -10804*w + 70798 ],
[ 2253*w + 10689 , -9624*w - 25270 , -102*w + 4998 , 152*w - 1400 , 200*w - 728 , -52*w - 476 , 116*w - 84 , 40*w - 3080 , -440*w + 840 , 1008 , -352*w - 1232 , -13837*w + 4613 ],
[ 210*w - 19824 , 5486*w + 56546 , 1530*w - 6426 , -588*w + 1484 , -462*w + 462 , -66*w + 770 , -188*w - 196 , -1128*w + 3752 , 920*w - 168 , 352*w - 1232 , 2464 , 20804*w + 24038 ],
[ 708476*w - 889266 , -1852950*w + 3751846 , -10035*w - 130221 , 2535*w + 22995 , -5702*w - 8400 , -8203*w - 13153 , 1313*w - 14819 , -42616*w - 29512 , 10804*w + 70798 , 13837*w + 4613 , -20804*w + 24038 , 
6295114 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 30649416 , -2747841*w + 21993587 , 689635*w + 233415 , -685679*w - 173131 , 16112*w + 78890 , 190767*w + 10955 , -122878*w + 144074 , -14190*w - 61964 , -15722*w + 201628 , 81665*w + 288897 , -126309*w - 
    110509 , -4713600*w - 7140070 ],
[ 2747841*w + 21993587 , 17568096 , 513061*w - 275373 , -507509*w + 320747 , 16208*w + 50512 , 141819*w - 71883 , -80597*w + 166705 , -13845*w - 39305 , 1940*w + 152320 , 77197*w + 171815 , -98136*w - 23814 
, -4035231*w - 2195291 ],
[ -689635*w + 233415 , -513061*w - 275373 , 114688 , -502*w - 112140 , -960*w + 2870 , 2512*w + 16996 , -3043*w - 11627 , 613*w - 2401 , -3348*w + 1162 , -3076*w + 12950 , -281*w - 14763 , 126886*w - 784616 
],
[ 685679*w - 173131 , 507509*w + 320747 , 502*w - 112140 , 112336 , 1196*w - 1974 , 810*w - 20440 , 2355*w + 15883 , -905*w + 1477 , 3388*w + 1358 , 4496*w - 9730 , -1579*w + 14343 , -136285*w + 773619 ],
[ -16112*w + 78890 , -16208*w + 50512 , 960*w + 2870 , -1196*w - 1974 , 1750 , 3180*w + 4788 , -2250*w + 868 , 32*w - 1358 , -738*w + 2310 , 198*w + 5586 , -1362*w - 4242 , -12091*w - 33635 ],
[ -190767*w + 10955 , -141819*w - 71883 , -2512*w + 16996 , -810*w - 20440 , -3180*w + 4788 , 63938 , -8708*w - 29652 , 2890*w - 3738 , -7330*w - 4298 , -11638*w + 20622 , 4978*w - 34286 , 26442*w - 253400 
],
[ 122878*w + 144074 , 80597*w + 166705 , 3043*w - 11627 , -2355*w + 15883 , 2250*w + 868 , 8708*w - 29652 , 36148 , -1820*w - 784 , 5256*w + 7448 , 9356*w - 7756 , -6004*w + 19628 , -49954*w + 139552 ],
[ 14190*w - 61964 , 13845*w - 39305 , -613*w - 2401 , 905*w + 1477 , -32*w - 1358 , -2890*w - 3738 , 1820*w - 784 , 1176 , 676*w - 2044 , -198*w - 5054 , 1252*w + 3780 , 9205*w + 27223 ],
[ 15722*w + 201628 , -1940*w + 152320 , 3348*w + 1162 , -3388*w + 1358 , 738*w + 2310 , 7330*w - 4298 , -5256*w + 7448 , -676*w - 2044 , 9520 , 4744*w + 10472 , -5952*w - 1344 , -39396*w - 15204 ],
[ -81665*w + 288897 , -77197*w + 171815 , 3076*w + 12950 , -4496*w - 9730 , -198*w + 5586 , 11638*w + 20622 , -9356*w - 7756 , 198*w - 5054 , -4744*w + 10472 , 28728 , -6072*w - 22792 , -38792*w - 151998 ],
[ 126309*w - 110509 , 98136*w - 23814 , 281*w - 14763 , 1579*w + 14343 , 1362*w - 4242 , -4978*w - 34286 , 6004*w + 19628 , -1252*w + 3780 , 5952*w - 1344 , 6072*w - 22792 , 27104 , -820*w + 179144 ],
[ 4713600*w - 7140070 , 4035231*w - 2195291 , -126886*w - 784616 , 136285*w + 773619 , 12091*w - 33635 , -26442*w - 253400 , 49954*w + 139552 , -9205*w + 27223 , 39396*w - 15204 , 38792*w - 151998 , 820*w + 
    179144 , 6814836 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 103620916 , -522418*w + 18234426 , -18449*w + 1943487 , 2033160*w - 2802282 , 1606855*w - 2261875 , -1258808*w + 1805636 , -133256*w + 373324 , -1732122*w + 2497124 , 105584*w - 2782850 , 465036*w + 256130
, -700050*w + 651378 , 2103500*w + 4206916 ],
[ 522418*w + 18234426 , 3512628 , 5549*w + 378959 , 246428*w - 763406 , 132889*w - 620431 , -4122*w + 651448 , 1126*w + 39508 , 220596*w + 1275932 , -300160*w + 24276 , 3792*w - 359772 , 98064*w + 508704 , 
    354486*w + 309008 ],
[ 18449*w + 1943487 , -5549*w + 378959 , 51576 , 41598*w - 148708 , 27126*w - 120694 , -2388*w + 46046 , -1025*w + 4487 , 20849*w + 88473 , -20775*w + 13797 , -1980*w - 24948 , 9918*w + 31584 , 15305*w + 
    43841 ],
[ -2033160*w - 2802282 , -246428*w - 763406 , -41598*w - 148708 , 2038302 , 73552*w + 1903230 , -216922*w - 1477784 , -61780*w - 98210 , -362008*w - 3384906 , 770180*w + 481642 , -111870*w + 912912 , 
    -111912*w - 1461236 , -498390*w - 1047018 ],
[ -1606855*w - 2261875 , -132889*w - 620431 , -27126*w - 120694 , -73552*w + 1903230 , 1899576 , -97428*w - 1706698 , -62819*w - 128387 , -71997*w - 4059881 , 832841*w + 1082669 , -218158*w + 969682 , 
    17124*w - 1749314 , -429881*w - 1242927 ],
[ 1258808*w + 1805636 , 4122*w + 651448 , 2388*w + 46046 , 216922*w - 1477784 , 97428*w - 1706698 , 3871812 , 106434*w + 318570 , -245636*w + 7794598 , -1483390*w - 2620380 , 508620*w - 1700090 , -199870*w +
    3321010 , 105668*w + 2125312 ],
[ 133256*w + 373324 , -1126*w + 39508 , 1025*w + 4487 , 61780*w - 98210 , 62819*w - 128387 , -106434*w + 318570 , 51198 , -254400*w + 538790 , -31482*w - 518700 , 91172*w - 18494 , -117616*w + 207760 , 
    -53712*w + 217812 ],
[ 1732122*w + 2497124 , -220596*w + 1275932 , -20849*w + 88473 , 362008*w - 3384906 , 71997*w - 4059881 , 245636*w + 7794598 , 254400*w + 538790 , 17351502 , -3509958*w - 5030340 , 999404*w - 4078186 , 
    -188080*w + 7518672 , 588456*w + 4409048 ],
[ -105584*w - 2782850 , 300160*w + 24276 , 20775*w + 13797 , -770180*w + 481642 , -832841*w + 1082669 , 1483390*w - 2620380 , 31482*w - 518700 , 3509958*w - 5030340 , 6441708 , -1117464*w - 233324 , 
    1578966*w - 1916698 , 710524*w - 2133460 ],
[ -465036*w + 256130 , -3792*w - 359772 , 1980*w - 24948 , 111870*w + 912912 , 218158*w + 969682 , -508620*w - 1700090 , -91172*w - 18494 , -999404*w - 4078186 , 1117464*w - 233324 , 1365518 , -389664*w - 
    1848000 , -396476*w - 782572 ],
[ 700050*w + 651378 , -98064*w + 508704 , -9918*w + 31584 , 111912*w - 1461236 , -17124*w - 1749314 , 199870*w + 3321010 , 117616*w + 207760 , 188080*w + 7518672 , -1578966*w - 1916698 , 389664*w - 1848000 ,
3279584 , 311232*w + 1851192 ],
[ -2103500*w + 4206916 , -354486*w + 309008 , -15305*w + 43841 , 498390*w - 1047018 , 429881*w - 1242927 , -105668*w + 2125312 , 53712*w + 217812 , -588456*w + 4409048 , -710524*w - 2133460 , 396476*w - 
    782572 , -311232*w + 1851192 , 5811750 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 4547452 , 20012*w - 1175748 , 1268*w + 99624 , -1690*w - 79436 , -3154*w + 82138 , 4279*w + 121933 , -66890*w + 83944 , -43213*w + 94605 , -12399*w - 18599 , -21214*w - 179676 , 56597*w + 96705 , 515964*w 
    + 1068956 ],
[ -20012*w - 1175748 , 305788 , -267*w - 26005 , 459*w + 19831 , 992*w - 20496 , -945*w - 30793 , 16937*w - 21343 , 10973*w - 24353 , 3116*w + 4760 , 5623*w + 45759 , -14563*w - 24297 , -137031*w - 261597 ],
[ -1268*w + 99624 , 267*w - 26005 , 11858 , 274*w - 9240 , -1194*w + 8428 , -502*w + 12026 , -6934*w + 7224 , -3972*w + 7812 , -1326*w - 2394 , -1272*w - 14868 , 4398*w + 8862 , 14714*w + 27706 ],
[ 1690*w - 79436 , -459*w + 19831 , -274*w - 9240 , 10052 , 268*w - 8078 , -390*w - 9618 , 5066*w - 9058 , 2530*w - 7588 , 1190*w + 1078 , 1792*w + 10528 , -3780*w - 4788 , -11630*w - 19614 ],
[ 3154*w + 82138 , -992*w - 20496 , 1194*w + 8428 , -268*w - 8078 , 8848 , 1054*w + 10458 , -4602*w + 11172 , -2162*w + 8932 , -1372*w - 588 , -2464*w - 10416 , 4256*w + 3584 , 13665*w + 15631 ],
[ -4279*w + 121933 , 945*w - 30793 , 502*w + 12026 , 390*w - 9618 , -1054*w + 10458 , 14182 , -7510*w + 9590 , -4248*w + 9464 , -1636*w - 2184 , -1724*w - 16800 , 5190*w + 9478 , 17676*w + 34440 ],
[ 66890*w + 83944 , -16937*w - 21343 , 6934*w + 7224 , -5066*w - 9058 , 4602*w + 11172 , 7510*w + 9590 , 37156 , 2556*w + 23464 , -2484*w + 4788 , -10656*w - 3752 , 8716*w - 14644 , 29754*w - 51828 ],
[ 43213*w + 94605 , -10973*w - 24353 , 3972*w + 7812 , -2530*w - 7588 , 2162*w + 8932 , 4248*w + 9464 , -2556*w + 23464 , 18368 , -1654*w + 1554 , -8146*w - 8330 , 7844*w - 6972 , 24613*w - 18851 ],
[ 12399*w - 18599 , -3116*w + 4760 , 1326*w - 2394 , -1190*w + 1078 , 1372*w - 588 , 1636*w - 2184 , 2484*w + 4788 , 1654*w + 1554 , 2072 , -1360*w + 3304 , 216*w - 4760 , -128*w - 19642 ],
[ 21214*w - 179676 , -5623*w + 45759 , 1272*w - 14868 , -1792*w + 10528 , 2464*w - 10416 , 1724*w - 16800 , 10656*w - 3752 , 8146*w - 8330 , 1360*w + 3304 , 30632 , -6968*w - 22120 , -19124*w - 64890 ],
[ -56597*w + 96705 , 14563*w - 24297 , -4398*w + 8862 , 3780*w - 4788 , -4256*w + 3584 , -5190*w + 9478 , -8716*w - 14644 , -7844*w - 6972 , -216*w - 4760 , 6968*w - 22120 , 27104 , -876*w + 78456 ],
[ -515964*w + 1068956 , 137031*w - 261597 , -14714*w + 27706 , 11630*w - 19614 , -13665*w + 15631 , -17676*w + 34440 , -29754*w - 51828 , -24613*w - 18851 , 128*w - 19642 , 19124*w - 64890 , 876*w + 78456 , 
686252 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 96877928 , -1129292*w - 21675738 , 1870892*w + 2132956 , 3204065*w + 523355 , -260645*w + 19731131 , 866885*w + 3059819 , 22607039*w - 28555667 , -11711038*w + 13701198 , 10386947*w - 11330375 , 321134*w -
    8930880 , -3502524*w - 4490514 , -25093780*w + 95007136 ],
[ 1129292*w - 21675738 , 5089714 , -240594*w - 1063034 , -598202*w - 695786 , -658754*w - 4168906 , -300934*w - 540666 , -5917130*w + 6208370 , 3024078*w - 3121916 , -2904420*w + 2489494 , 222820*w + 1382668
, 651320*w - 79268 , 5780326*w - 23130702 ],
[ -1870892*w + 2132956 , 240594*w - 1063034 , 3809120 , 100084*w + 2860326 , 3192354*w - 14916118 , 140026*w - 2955246 , -255502*w - 5427758 , 593038*w + 3146668 , 665064*w - 5350618 , -328528*w + 8264508 , 
3226520*w + 4237772 , 5080018*w - 5332992 ],
[ -3204065*w + 523355 , 598202*w - 695786 , -100084*w + 2860326 , 2900240 , 1948426*w - 8022336 , 71668*w - 1686818 , 959040*w - 3623718 , -187051*w + 2073701 , 977173*w - 3476109 , -198000*w + 5212060 , 
    2038000*w + 2646000 , 3263369*w - 461937 ],
[ 260645*w + 19731131 , 658754*w - 4168906 , -3192354*w - 14916118 , -1948426*w - 8022336 , 133565838 , 3123782*w + 21222656 , 21568008*w - 6774824 , -14298291*w + 4472545 , 8888997*w + 20422787 , -7975680*w
    - 56007770 , -25949440*w + 295680 , -17990579*w + 143005107 ],
[ -866885*w + 3059819 , 300934*w - 540666 , -140026*w - 2955246 , -71668*w - 1686818 , -3123782*w + 21222656 , 4024300 , 3208046*w + 3503948 , -2196173*w - 2141825 , 730791*w + 5248005 , 56224*w - 10342430 ,
-4180128*w - 4294304 , -6301817*w + 16365083 ],
[ -22607039*w - 28555667 , 5917130*w + 6208370 , 255502*w - 5427758 , -959040*w - 3623718 , -21568008*w - 6774824 , -3208046*w + 3503948 , 123401110 , -15315*w - 64956983 , -3369531*w + 59046309 , 8155624*w 
    - 6559686 , 601580*w - 25828152 , -72023525*w - 144869123 ],
[ 11711038*w + 13701198 , -3024078*w - 3121916 , -593038*w + 3146668 , 187051*w + 2073701 , 14298291*w + 4472545 , 2196173*w - 2141825 , 15315*w - 64956983 , 34782384 , 2315725*w - 30591995 , -5653186*w + 
    4297272 , -517048*w + 17802106 , 39312774*w + 76361880 ],
[ -10386947*w - 11330375 , 2904420*w + 2489494 , -665064*w - 5350618 , -977173*w - 3476109 , -8888997*w + 20422787 , -730791*w + 5248005 , 3369531*w + 59046309 , -2315725*w - 30591995 , 32719582 , 1813694*w 
    - 12665436 , -4418340*w - 10225782 , -37408749*w - 46388041 ],
[ -321134*w - 8930880 , -222820*w + 1382668 , 328528*w + 8264508 , 198000*w + 5212060 , 7975680*w - 56007770 , -56224*w - 10342430 , -8155624*w - 6559686 , 5653186*w + 4297272 , -1813694*w - 12665436 , 
    27418538 , 11141888*w + 10960992 , 15807446*w - 48133624 ],
[ 3502524*w - 4490514 , -651320*w - 79268 , -3226520*w + 4237772 , -2038000*w + 2646000 , 25949440*w + 295680 , 4180128*w - 4294304 , -601580*w - 25828152 , 517048*w + 17802106 , 4418340*w - 10225782 , 
    -11141888*w + 10960992 , 36075424 , 25891408*w + 25702782 ],
[ 25093780*w + 95007136 , -5780326*w - 23130702 , -5080018*w - 5332992 , -3263369*w - 461937 , 17990579*w + 143005107 , 6301817*w + 16365083 , 72023525*w - 144869123 , -39312774*w + 76361880 , 37408749*w - 
    46388041 , -15807446*w - 48133624 , -25891408*w + 25702782 , 519804516 ]
]);
Include(~Erg,Grammatrix/d);

Grammatrix:=Matrix(S,[
[ 742693306796 , 154841730029*w - 622333301961 , -190194975669*w + 552424374089 , -89739501277*w + 259609730639 , 7715277781*w - 22047961803 , -13660889685*w + 39308301557 , -1645897219*w + 4886374129 , 
    -15345958*w + 98676130 , 76383408*w + 103171628 , -56864050*w + 70121170 , -20482670*w + 119748510 , 145439092863*w + 349036417695 ],
[ -154841730029*w - 622333301961 , 748703913608 , 44245169418*w - 742297102036 , 20938659940*w - 349052729634 , -1869538704*w + 29610239820 , 3202102225*w - 52916307787 , 463081262*w - 6293487956 , 
    21029883*w - 85587271 , -22181251*w - 222875835 , 60302833*w + 64078105 , 49812374*w - 44396184 , -194576954817*w - 80151657299 ],
[ 190194975669*w + 552424374089 , -44245169418*w - 742297102036 , 754541613588 , -51848722*w + 354741216872 , 99727402*w - 30053644712 , -20345493*w + 53774591843 , -129647280*w + 6323092188 , -28459991*w + 
    80858463 , 1532363*w + 313118953 , -71357029*w - 134747725 , -70690874*w + 17542952 , 197469802756*w - 1180468520 ],
[ 89739501277*w + 259609730639 , -20938659940*w - 349052729634 , 51848722*w + 354741216872 , 167076068684 , 16782878*w - 14198978276 , -8239551*w + 25378840445 , 4529638*w + 2944000822 , -459511*w + 15418403
, -10160417*w - 7778785 , 5513123*w - 12859189 , 444610*w - 16040528 , 92990025286*w - 1097266590 ],
[ -7715277781*w - 22047961803 , 1869538704*w + 29610239820 , -99727402*w - 30053644712 , -16782878*w - 14198978276 , 1239872340 , 3270589*w - 2162330177 , -16982252*w - 299020876 , -4986563*w - 7233961 , 
    -13725317*w + 42858277 , -3456839*w - 39797359 , -10023420*w - 19071822 , -7949459021*w + 212624951 ],
[ 13660889685*w + 39308301557 , -3202102225*w - 52916307787 , 20345493*w + 53774591843 , 8239551*w + 25378840445 , -3270589*w - 2162330177 , 3864362054 , 11432999*w + 437101217 , 1909923*w - 2273341 , 
    -4596537*w - 26389027 , 7751231*w + 4272807 , 5487408*w - 8367254 , 14117556829*w - 277069765 ],
[ 1645897219*w + 4886374129 , -463081262*w - 6293487956 , 129647280*w + 6323092188 , -4529638*w + 2944000822 , 16982252*w - 299020876 , -11432999*w + 437101217 , 181837978 , 4532513*w + 26828025 , 42831085*w
    - 11097163 , -16160639*w + 71074969 , 4490930*w + 65442748 , 1737247456*w + 80409154 ],
[ 15345958*w + 98676130 , -21029883*w - 85587271 , 28459991*w + 80858463 , 459511*w + 15418403 , 4986563*w - 7233961 , -1909923*w - 2273341 , -4532513*w + 26828025 , 6619914 , 9294454*w + 8830976 , 
    -5988480*w + 10552192 , -1494520*w + 14752024 , 26775116*w + 35779016 ],
[ -76383408*w + 103171628 , 22181251*w - 222875835 , -1532363*w + 313118953 , 10160417*w - 7778785 , 13725317*w + 42858277 , 4596537*w - 26389027 , -42831085*w - 11097163 , -9294454*w + 8830976 , 105623826 ,
-23356064*w - 45817632 , -23249032*w + 5164712 , -28862147*w + 169748677 ],
[ 56864050*w + 70121170 , -60302833*w + 64078105 , 71357029*w - 134747725 , -5513123*w - 12859189 , 3456839*w - 39797359 , -7751231*w + 4272807 , 16160639*w + 71074969 , 5988480*w + 10552192 , 23356064*w - 
    45817632 , 56027888 , 11227152*w + 33747168 , 49855358*w - 31795680 ],
[ 20482670*w + 119748510 , -49812374*w - 44396184 , 70690874*w + 17542952 , -444610*w - 16040528 , 10023420*w - 19071822 , -5487408*w - 8367254 , -4490930*w + 65442748 , 1494520*w + 14752024 , 23249032*w + 
    5164712 , -11227152*w + 33747168 , 36075424 , 36108452*w + 49322868 ],
[ -145439092863*w + 349036417695 , 194576954817*w - 80151657299 , -197469802756*w - 1180468520 , -92990025286*w - 1097266590 , 7949459021*w + 212624951 , -14117556829*w - 277069765 , -1737247456*w + 80409154
, -26775116*w + 35779016 , 28862147*w + 169748677 , -49855358*w - 31795680 , -36108452*w + 49322868 , 363428091194 ]
]);
Include(~Erg,Grammatrix/d);

a:=[* 768144384000, 216, 648, 108, 648, 24, 756, 6, 2, 4, 36, 4, 8, 36, 2, 2, 8, 4, 2, 4, 36, 36, 4, 2, 4, 4, 4, 4, 108, 2, 6, 4, 6,
8, 4, 24, 4, 4, 4, 4, 6, 12, 8, 4, 8, 12, 4, 4, 2, 8, 18, 2, 4, 2, 120, 4, 2, 24, 2, 4, 2, 2, 8, 4, 36, 8, 2, 2, 4, 4, 4, 2, 4,
12, 8, 8, 4, 16, 18, 4, 4, 12, 4, 8, 2, 4, 2, 12, 20, 4, 4, 2, 4, 12, 2, 288, 2, 2, 4, 160, 4, 24, 2, 4, 4, 2, 8, 2, 8, 24, 12,
12, 4, 24, 24, 8, 48, 16, 2, 4, 4, 4, 16, 6, 8, 8, 4, 4, 2, 2, 12, 12, 2, 8, 4, 8, 24, 8, 36, 24, 16, 2, 2, 4, 16, 2, 4, 2, 2, 12,
4, 8, 4, 12, 4, 2, 16, 8, 48, 4, 8, 12, 12, 8, 4, 2, 18, 2 *]; /*1..168*/

START169:=Matrix(S,[
[ 7336924 , 823889*w - 1254519 , -11724*w + 337792 , -191568*w - 246988 , 825917*w - 3147263 , 572052*w - 1631868 , -288453*w + 
    873663 , 1774764*w + 908502 , -677137*w - 17283 , -80094*w - 1334844 , -1006788*w - 1871632 , 3155418*w + 70014 ],
[ -823889*w - 1254519 , 1796032 , -68306*w - 157038 , -71310*w - 339976 , 519908*w - 26782 , 305402*w + 83818 , -153822*w - 39214 
, 217808*w + 1370376 , -113704*w - 471534 , 119080*w - 276612 , 19264*w - 1010520 , -155934*w + 3034024 ],
[ 11724*w + 337792 , 68306*w - 157038 , 60046 , -9230*w + 14546 , -54908*w + 42350 , -29702*w - 644 , 19042*w - 392 , -31640*w - 
    313376 , 21952*w + 111104 , -29344*w + 61376 , -8512*w + 236768 , 85614*w - 195104 ],
[ 191568*w - 246988 , 71310*w - 339976 , 9230*w + 14546 , 365078 , -316366*w - 59024 , -185406*w - 78946 , 89038*w + 41398 , 
    -105634*w - 638848 , 50788*w + 219884 , -54902*w + 117628 , -16188*w + 450282 , -2164*w - 915390 ],
[ -825917*w - 3147263 , -519908*w - 26782 , 54908*w + 42350 , 316366*w - 59024 , 5804008 , -147580*w + 3310202 , 81618*w - 1669304
, -2123326*w + 1715812 , 755728*w - 980896 , 357128*w + 1387568 , 1510832*w + 695912 , -2137796*w + 2890342 ],
[ -572052*w - 1631868 , -305402*w + 83818 , 29702*w - 644 , 185406*w - 78946 , 147580*w + 3310202 , 1935556 , -580*w - 966406 , 
    -1109514*w + 1559600 , 376968*w - 753312 , 251182*w + 656404 , 852758*w - 45640 , -1110724*w + 2146508 ],
[ 288453*w + 873663 , 153822*w - 39214 , -19042*w - 392 , -89038*w + 41398 , -81618*w - 1669304 , 580*w - 966406 , 495922 , 
    633144*w - 790090 , -217412*w + 401198 , -138004*w - 384440 , -483754*w - 12950 , 608672*w - 1101534 ],
[ -1774764*w + 908502 , -217808*w + 1370376 , 31640*w - 313376 , 105634*w - 638848 , 2123326*w + 1715812 , 1109514*w + 1559600 , 
    -633144*w - 790090 , 9024386 , -253256*w - 3360966 , 928280*w - 958608 , 922980*w - 5855668 , 433078*w + 8425144 ],
[ 677137*w - 17283 , 113704*w - 471534 , -21952*w + 111104 , -50788*w + 219884 , -755728*w - 980896 , -376968*w - 753312 , 
    217412*w + 401198 , 253256*w - 3360966 , 1304982 , -374620*w + 174132 , -511636*w + 2008636 , 62364*w - 3210088 ],
[ 80094*w - 1334844 , -119080*w - 276612 , 29344*w + 61376 , 54902*w + 117628 , -357128*w + 1387568 , -251182*w + 656404 , 
    138004*w - 384440 , -928280*w - 958608 , 374620*w + 174132 , 778288 , 510030*w + 1299438 , -903742*w - 531734 ],
[ 1006788*w - 1871632 , -19264*w - 1010520 , 8512*w + 236768 , 16188*w + 450282 , -1510832*w + 695912 , -852758*w - 45640 , 
    483754*w - 12950 , -922980*w - 5855668 , 511636*w + 2008636 , -510030*w + 1299438 , 4509428 , -1165146*w - 5030942 ],
[ -3155418*w + 70014 , 155934*w + 3034024 , -85614*w - 195104 , 2164*w - 915390 , 2137796*w + 2890342 , 1110724*w + 2146508 , 
    -608672*w - 1101534 , -433078*w + 8425144 , -62364*w - 3210088 , 903742*w - 531734 , 1165146*w - 5030942 , 12230694 ]
]);
Include(~Erg,START169/d);
Append(~a,4); /*#Auto=4*/

START170:=Matrix(S,[
[ 179896990 , 48108*w - 1109878 , 92839*w - 47394641 , 1282013*w + 1779141 , -3140368*w + 4441766 , 56163150*w - 16261840 , 
    1881570*w - 368732 , 75495020*w - 194307792 , 14329683*w + 17997497 , 41350256*w - 4962594 , 21563008*w - 50061914 , 
    -27287478*w + 32385850 ],
[ -48108*w - 1109878 , 345338 , -53989*w + 435435 , 13009*w - 27517 , -15448*w - 55678 , 353618*w - 729932 , 14696*w + 19740 , 
    105504*w - 2262960 , 132447*w - 75747 , 263142*w - 627900 , 39414*w - 641760 , 100314*w + 656124 ],
[ -92839*w - 47394641 , 53989*w + 435435 , 13672736 , -339965*w - 534009 , 826950*w - 1254988 , -14695930*w + 4147248 , -495922*w 
    + 93310 , -19765848*w + 50745520 , -3745295*w - 4714871 , -10810898*w + 1266636 , -5642594*w + 13071716 , 6894761*w - 8973251 
],
[ -1282013*w + 1779141 , -13009*w - 27517 , 339965*w - 534009 , 148568 , -62242*w - 180362 , 641280*w + 3149272 , 19050*w + 116816
, 2295672*w + 2631860 , -18656*w + 997920 , 418248*w + 2352840 , 611400*w + 793800 , -531187*w - 1154937 ],
[ 3140368*w + 4441766 , 15448*w - 55678 , -826950*w - 1254988 , 62242*w - 180362 , 648018 , 988104*w - 7965608 , 41034*w - 300412 
, -1951988*w - 14510216 , 667200*w - 1500408 , 844908*w - 5591880 , -457980*w - 3993276 , 24714*w + 4172210 ],
[ -56163150*w - 16261840 , -353618*w - 729932 , 14695930*w + 4147248 , -641280*w + 3149272 , -988104*w - 7965608 , 138922098 , 
    -163154*w + 4560556 , 60781506*w + 203073780 , -7668672*w + 33444992 , -2117676*w + 101869488 , 15529404*w + 57547644 , 
    -9842398*w - 67052748 ],
[ -1881570*w - 368732 , -14696*w + 19740 , 495922*w + 93310 , -19050*w + 116816 , -41034*w - 300412 , 163154*w + 4560556 , 168280 
, 2201512*w + 6100332 , -208280*w + 1147888 , 51536*w + 3307304 , 569200*w + 1730288 , -369882*w - 2037294 ],
[ -75495020*w - 194307792 , -105504*w - 2262960 , 19765848*w + 50745520 , -2295672*w + 2631860 , 1951988*w - 14510216 , 
    -60781506*w + 203073780 , -2201512*w + 6100332 , 483699986 , -25884452*w + 25399248 , -47774622*w + 142620912 , -2504826*w + 
    131915686 , 14965300*w - 129008320 ],
[ -14329683*w + 17997497 , -132447*w - 75747 , 3745295*w - 4714871 , 18656*w + 997920 , -667200*w - 1500408 , 7668672*w + 33444992
, 208280*w + 1147888 , 25884452*w + 25399248 , 11032462 , 5125786*w + 25387516 , 6929390*w + 7863758 , -6122211*w - 12348273 ],
[ -41350256*w - 4962594 , -263142*w - 627900 , 10810898*w + 1266636 , -418248*w + 2352840 , -844908*w - 5591880 , 2117676*w + 
    101869488 , -51536*w + 3307304 , 47774622*w + 142620912 , -5125786*w + 25387516 , 75099626 , 12293472*w + 40636736 , 
    -8362168*w - 48382516 ],
[ -21563008*w - 50061914 , -39414*w - 641760 , 5642594*w + 13071716 , -611400*w + 793800 , 457980*w - 3993276 , -15529404*w + 
    57547644 , -569200*w + 1730288 , 2504826*w + 131915686 , -6929390*w + 7863758 , -12293472*w + 40636736 , 36075424 , 3395030*w 
    - 35763252 ],
[ 27287478*w + 32385850 , -100314*w + 656124 , -6894761*w - 8973251 , 531187*w - 1154937 , -24714*w + 4172210 , 9842398*w - 
    67052748 , 369882*w - 2037294 , -14965300*w - 129008320 , 6122211*w - 12348273 , 8362168*w - 48382516 , -3395030*w - 35763252 
, 39407802 ]
]);
Include(~Erg,START170/d);
Append(~a,4); /*#Auto=4*/

START171:=Matrix(S,[
[ 7104832 , -3893738*w + 17581326 , -161380*w - 289100 , -79434*w - 423850 , 1214960*w - 911190 , 311060*w - 523054 , -785364*w +
    1026494 , 3322840*w + 6854554 , -771482*w - 2287894 , -337304*w + 1702960 , -759562*w - 3320352 , 5146788*w + 10533404 ],
[ 3893738*w + 17581326 , 62196134 , -554186*w + 60970 , -390944*w - 644658 , 2509210*w - 6384028 , 515370*w - 2394686 , -1477494*w
    + 5396636 , 12525888*w + 7232792 , -3271986*w - 3589992 , -58604*w + 5904948 , -3793660*w - 6447896 , 20128381*w + 8797901 ],
[ 161380*w - 289100 , 554186*w + 60970 , 58576 , -5306*w + 23128 , -77824*w - 55314 , -23722*w + 5082 , 58628*w + 11368 , -79550*w
    - 804496 , 6832*w + 230720 , 50064*w - 64176 , -10640*w + 295960 , 42032*w - 1052184 ],
[ 79434*w - 423850 , 390944*w - 644658 , 5306*w + 23128 , 47894 , -79056*w - 65142 , -22690*w - 3472 , 48848*w + 23702 , -55898*w
    - 391720 , 6500*w + 110320 , 23500*w - 29540 , -4940*w + 137410 , -115624*w - 864514 ],
[ -1214960*w - 911190 , -2509210*w - 6384028 , 77824*w - 55314 , 79056*w - 65142 , 2409848 , 68946*w + 711620 , -87926*w - 1649494
, -2277396*w + 3760764 , 686866*w - 700546 , -302698*w - 929866 , 921402*w - 412328 , -2300543*w + 6302387 ],
[ -311060*w - 523054 , -515370*w - 2394686 , 23722*w + 5082 , 22690*w - 3472 , -68946*w + 711620 , 232120 , 26558*w - 522718 ,
    -848874*w + 452284 , 239124*w - 4032 , -52772*w - 378644 , 301604*w + 154826 , -894571*w + 1291045 ],
[ 785364*w + 1026494 , 1477494*w + 5396636 , -58628*w + 11368 , -48848*w + 23702 , 87926*w - 1649494 , -26558*w - 522718 , 1232896
, 2084904*w - 1882440 , -604246*w + 229222 , 186782*w + 902958 , -783790*w - 92722 , 2081283*w - 3819417 ],
[ -3322840*w + 6854554 , -12525888*w + 7232792 , 79550*w - 804496 , 55898*w - 391720 , 2277396*w + 3760764 , 848874*w + 452284 ,
    -2084904*w - 1882440 , 34756050 , 629124*w - 9558934 , -2279876*w + 1303484 , 1545924*w - 11791108 , 3054610*w + 36000230 ],
[ 771482*w - 2287894 , 3271986*w - 3589992 , -6832*w + 230720 , -6500*w + 110320 , -686866*w - 700546 , -239124*w - 4032 ,
    604246*w + 229222 , -629124*w - 9558934 , 2711310 , 604652*w - 650244 , -211390*w + 3447262 , -1491843*w - 9447963 ],
[ 337304*w + 1702960 , 58604*w + 5904948 , -50064*w - 64176 , -23500*w - 29540 , 302698*w - 929866 , 52772*w - 378644 , -186782*w
    + 902958 , 2279876*w + 1303484 , -604652*w - 650244 , 1102864 , -719814*w - 1160250 , 2446832*w - 126126 ],
[ 759562*w - 3320352 , 3793660*w - 6447896 , 10640*w + 295960 , 4940*w + 137410 , -921402*w - 412328 , -301604*w + 154826 ,
    783790*w - 92722 , -1545924*w - 11791108 , 211390*w + 3447262 , 719814*w - 1160250 , 4509428 , -2648828*w - 11052328 ],
[ -5146788*w + 10533404 , -20128381*w + 8797901 , -42032*w - 1052184 , 115624*w - 864514 , 2300543*w + 6302387 , 894571*w +
    1291045 , -2081283*w - 3819417 , -3054610*w + 36000230 , 1491843*w - 9447963 , -2446832*w - 126126 , 2648828*w - 11052328 ,
    53090324 ]
]);
Include(~Erg,START171/d);
Append(~a,16); /*#Auto=16*/

START172:=Matrix(S,[
[ 62215972 , -217739*w - 1723421 , -7368797*w + 22224993 , -3022379*w - 4971267 , -21452638*w - 185396008 , 6789628*w + 56759920 ,
-76827198*w - 141116500 , 45201196*w - 2112012 , -15642845*w - 205972851 , 14387058*w + 67478516 , -40556570*w + 29381772 , 
    110220104*w + 38432268 ],
[ 217739*w - 1723421 , 345338 , 119034*w - 573020 , -33335*w - 194551 , -1045406*w + 2245474 , 309530*w - 789152 , -225704*w + 
    4506180 , -424284*w - 1959972 , -1185015*w + 2587347 , 302556*w - 1269660 , 562932*w + 1559418 , -1038627*w - 5504877 ],
[ 7368797*w + 22224993 , -119034*w - 573020 , 22727026 , -3074515*w + 2336383 , -52568830*w - 35150514 , 16128814*w + 10126802 , 
    -63079588*w + 74681670 , 16636148*w - 76404104 , -55260567*w - 51694727 , 21601732*w + 1394848 , -8296472*w + 79102590 , 
    50886981*w - 164489115 ],
[ 3022379*w - 4971267 , 33335*w - 194551 , 3074515*w + 2336383 , 4898558 , -10754534*w + 60478964 , 3179136*w - 18394292 , 
    6978432*w + 82581996 , -11492068*w - 26885572 , -13794832*w + 61194504 , 2190432*w - 25608828 , 12711108*w + 17034276 , 
    -23631811*w - 73757383 ],
[ 21452638*w - 185396008 , 1045406*w + 2245474 , 52568830*w - 35150514 , 10754534*w + 60478964 , 1203153252 , -2333388*w - 
    368656918 , 360336632*w + 1202803504 , -269747794*w - 199372852 , -44371296*w + 1298900904 , -40622112*w - 468666240 , 
    260910120*w + 14387688 , -615351192*w - 713107934 ],
[ -6789628*w + 56759920 , -309530*w - 789152 , -16128814*w + 10126802 , -3179136*w - 18394292 , 2333388*w - 368656918 , 113073282 
, -108190786*w - 373601284 , 82352298*w + 64767472 , 16132968*w - 397791632 , 11549520*w + 144304356 , -80000388*w - 7960932 , 
    187400540*w + 226998058 ],
[ 76827198*w - 141116500 , 225704*w + 4506180 , 63079588*w + 74681670 , -6978432*w + 82581996 , -360336632*w + 1202803504 , 
    108190786*w - 373601284 , 1959369552 , -210110248*w - 765714768 , -433968016*w + 1206142896 , 99938160*w - 554110788 , 
    256680756*w + 562206484 , -401825928*w - 2005562384 ],
[ -45201196*w - 2112012 , 424284*w - 1959972 , -16636148*w - 76404104 , 11492068*w - 26885572 , 269747794*w - 199372852 , 
    -82352298*w + 64767472 , 210110248*w - 765714768 , 457025394 , 298995516*w - 145552792 , -98500152*w + 141531502 , -40015882*w
    - 412478010 , -58037244*w + 1085634858 ],
[ 15642845*w - 205972851 , 1185015*w + 2587347 , 55260567*w - 51694727 , 13794832*w + 61194504 , 44371296*w + 1298900904 , 
    -16132968*w - 397791632 , 433968016*w + 1206142896 , -298995516*w - 145552792 , 1415726606 , -61229064*w - 496196722 , 
    282617258*w - 51901542 , -691778431*w - 611457315 ],
[ -14387058*w + 67478516 , -302556*w - 1269660 , -21601732*w + 1394848 , -2190432*w - 25608828 , 40622112*w - 468666240 , 
    -11549520*w + 144304356 , -99938160*w - 554110788 , 98500152*w + 141531502 , 61229064*w - 496196722 , 192448522 , -101299104*w
    - 67370016 , 216018522*w + 423739148 ],
[ 40556570*w + 29381772 , -562932*w + 1559418 , 8296472*w + 79102590 , -12711108*w + 17034276 , -260910120*w + 14387688 , 
    80000388*w - 7960932 , -256680756*w + 562206484 , 40015882*w - 412478010 , -282617258*w - 51901542 , 101299104*w - 67370016 , 
396829664 , 147421718*w - 944278132 ],
[ -110220104*w + 38432268 , 1038627*w - 5504877 , -50886981*w - 164489115 , 23631811*w - 73757383 , 615351192*w - 713107934 , 
    -187400540*w + 226998058 , 401825928*w - 2005562384 , 58037244*w + 1085634858 , 691778431*w - 611457315 , -216018522*w + 
    423739148 , -147421718*w - 944278132 , 2635213182 ]
]);
Include(~Erg,START172/d);
Append(~a,4); /*#Auto=4*/

START173:=Matrix(S,[
[ 3643920 , -2618857*w + 5508615 , 266102*w + 1216740 , 175382*w + 641788 , -11000*w + 25788 , 161114*w - 382970 , 14032*w - 36624
, 231658*w - 53466 , 393341*w - 780829 , 95988*w + 202370 , -217008*w - 231154 , -245655*w - 5735247 ],
[ 2618857*w + 5508615 , 46613896 , 1287058*w - 2021908 , 789099*w - 1307649 , -331187*w + 60893 , 680660*w - 2292192 , 52622*w - 
    220752 , 1122634*w - 825678 , 1655147*w - 4756759 , 521772*w + 718032 , -1102536*w - 638078 , -8396046*w - 15896104 ],
[ -266102*w + 1216740 , -1287058*w - 2021908 , 800506 , 6060*w + 446474 , 29208*w - 1498 , 10598*w + 39984 , 1510*w + 4704 , 604*w
    + 56168 , 25956*w + 93996 , -5256*w + 26712 , 4272*w - 48216 , 730240*w - 1214612 ],
[ -175382*w + 641788 , -789099*w - 1307649 , -6060*w + 446474 , 253554 , 14974*w - 686 , 9040*w + 46494 , 1386*w + 4452 , -1992*w 
    + 57722 , 21405*w + 107023 , -7458*w + 22638 , 9116*w - 47614 , 469721*w - 691215 ],
[ 11000*w + 25788 , 331187*w + 60893 , -29208*w - 1498 , -14974*w - 686 , 74032 , -11992*w - 51394 , -986*w - 8288 , 6354*w - 
    73458 , -18471*w - 147819 , 11664*w - 19110 , -18688*w + 52010 , -112771*w + 379687 ],
[ -161114*w - 382970 , -680660*w - 2292192 , -10598*w + 39984 , -9040*w + 46494 , 11992*w - 51394 , 292152 , 778*w + 21084 , 
    -66216*w + 233338 , -21230*w + 611170 , -55040*w + 22470 , 98720*w - 117600 , 669322*w + 89796 ],
[ -14032*w - 36624 , -52622*w - 220752 , -1510*w + 4704 , -1386*w + 4452 , 986*w - 8288 , -778*w + 21084 , 2520 , -6248*w + 18564 
, -3464*w + 51520 , -4832*w + 896 , 8768*w - 8512 , 57400*w + 17934 ],
[ -231658*w - 53466 , -1122634*w - 825678 , -604*w + 56168 , 1992*w + 57722 , -6354*w - 73458 , 66216*w + 233338 , 6248*w + 18564 
, 305480 , 127414*w + 547288 , -41056*w + 111048 , 54618*w - 264390 , 581626*w - 1039556 ],
[ -393341*w - 780829 , -1655147*w - 4756759 , -25956*w + 93996 , -21405*w + 107023 , 18471*w - 147819 , 21230*w + 611170 , 3464*w 
    + 51520 , -127414*w + 547288 , 1352792 , -119964*w + 79072 , 208242*w - 314510 , 1472405*w - 146993 ],
[ -95988*w + 202370 , -521772*w + 718032 , 5256*w + 26712 , 7458*w + 22638 , -11664*w - 19110 , 55040*w + 22470 , 4832*w + 896 , 
    41056*w + 111048 , 119964*w + 79072 , 79310 , -15840*w - 147840 , 79784*w - 918176 ],
[ 217008*w - 231154 , 1102536*w - 638078 , -4272*w - 48216 , -9116*w - 47614 , 18688*w + 52010 , -98720*w - 117600 , -8768*w - 
    8512 , -54618*w - 264390 , -208242*w - 314510 , 15840*w - 147840 , 298144 , -323114*w + 1590932 ],
[ 245655*w - 5735247 , 8396046*w - 15896104 , -730240*w - 1214612 , -469721*w - 691215 , 112771*w + 379687 , -669322*w + 89796 , 
    -57400*w + 17934 , -581626*w - 1039556 , -1472405*w - 146993 , -79784*w - 918176 , 323114*w + 1590932 , 16328522 ]
]);
Include(~Erg,START173/d);
Append(~a,24); /*#Auto=24*/

START174:=Matrix(S,[
[ 10639552 , 887286*w - 8129730 , 77230*w + 276346 , -373969*w + 516859 , -48829*w + 610561 , -220178*w - 575246 , 510142*w - 
    1687210 , 50087*w + 215537 , 162803*w - 1322307 , -273156*w - 1352554 , -835644*w + 21238 , -2306645*w - 9545291 ],
[ -887286*w - 8129730 , 7238770 , -111182*w - 249270 , 206330*w - 668318 , -175230*w - 365974 , 275660*w + 318164 , -297644*w + 
    1774108 , -62194*w - 150374 , -25094*w + 1247918 , 357672*w + 1011612 , 727672*w - 533764 , 2572370*w + 6049526 ],
[ -77230*w + 276346 , 111182*w - 249270 , 59696 , 16116*w + 118986 , 30182*w + 112042 , -5904*w - 29540 , 10732*w + 1092 , -674*w 
    + 2674 , 6114*w - 6566 , 2776*w - 17556 , -6612*w - 21056 , 21330*w - 320026 ],
[ 373969*w + 516859 , -206330*w - 668318 , -16116*w + 118986 , 1502984 , 15774*w + 619192 , -99398*w + 441182 , -563794*w - 841680
, 43878*w - 133728 , -414000*w - 159600 , -370000*w + 781200 , 130000*w + 1778000 , -553734*w + 869792 ],
[ 48829*w + 610561 , 175230*w - 365974 , -30182*w + 112042 , -15774*w + 619192 , 731598 , -19932*w - 39018 , -112794*w - 180460 , 
8802*w - 20062 , -82800*w - 41020 , -74000*w + 155190 , 26000*w + 355600 , -168950*w - 209258 ],
[ 220178*w - 575246 , -275660*w + 318164 , 5904*w - 29540 , 99398*w + 441182 , 19932*w - 39018 , 367458 , -374752*w - 53844 , 
    9714*w - 103852 , -230796*w + 201068 , -118068*w + 657160 , 238548*w + 840756 , -76040*w + 1233890 ],
[ -510142*w - 1687210 , 297644*w + 1774108 , -10732*w + 1092 , 563794*w - 841680 , 112794*w - 180460 , 374752*w - 53844 , 2930522 
, -114660*w - 59948 , 260226*w + 1764042 , 750738*w + 806400 , 893982*w - 2001426 , 1275006*w + 642488 ],
[ -50087*w + 215537 , 62194*w - 150374 , 674*w + 2674 , -43878*w - 133728 , -8802*w - 20062 , -9714*w - 103852 , 114660*w - 59948 
, 33530 , 63864*w - 107212 , 16652*w - 221970 , -96172*w - 205324 , -13544*w - 392392 ],
[ -162803*w - 1322307 , 25094*w + 1247918 , -6114*w - 6566 , 414000*w - 159600 , 82800*w - 41020 , 230796*w + 201068 , -260226*w +
    1764042 , -63864*w - 107212 , 1223922 , 380358*w + 952700 , 716202*w - 648774 , 713726*w + 1161986 ],
[ 273156*w - 1352554 , -357672*w + 1011612 , -2776*w - 17556 , 370000*w + 781200 , 74000*w + 155190 , 118068*w + 657160 , 
    -750738*w + 806400 , -16652*w - 221970 , -380358*w + 952700 , 1569834 , 759520*w + 1053696 , 198410*w + 2415448 ],
[ 835644*w + 21238 , -727672*w - 533764 , 6612*w - 21056 , -130000*w + 1778000 , -26000*w + 355600 , -238548*w + 840756 , 
    -893982*w - 2001426 , 96172*w - 205324 , -716202*w - 648774 , -759520*w + 1053696 , 3279584 , -1034376*w + 2286900 ],
[ 2306645*w - 9545291 , -2572370*w + 6049526 , -21330*w - 320026 , 553734*w + 869792 , 168950*w - 209258 , 76040*w + 1233890 , 
    -1275006*w + 642488 , 13544*w - 392392 , -713726*w + 1161986 , -198410*w + 2415448 , 1034376*w + 2286900 , 12714072 ]
]);
Include(~Erg,START174/d);

Append(~a,2); /*#Auto=2*/
/***Gitter Nr. 175 ***/
Grammatrix:=Matrix(S,[
[ 4270 , 468*w + 952 , 8*w + 392 , 382*w + 602 , 268*w - 112 , -93*w - 133 , 173*w + 35 , 88*w + 42 , 4*w - 126 , -6*w - 210 , -4*w + 84 , -801*w - 3213 ],
[ -468*w + 952 , 3640 , -34*w + 126 , 282*w + 1764 , 650*w + 378 , -46*w + 420 , 130*w - 140 , 52*w , 0 , 0 , 0 , 1146*w - 196 ],
[ -8*w + 392 , 34*w + 126 , 42 , 36*w + 84 , 40*w - 14 , -2*w , 10*w , 4*w , 0 , 0 , 0 , -64*w - 280 ],
[ -382*w + 602 , -282*w + 1764 , -36*w + 84 , 1358 , 266*w + 658 , -10*w - 420 , 60*w + 686 , -18*w + 336 , 66*w + 42 , 108*w + 84 , -84*w - 84 , 520*w + 518 ],
[ -268*w - 112 , -650*w + 378 , -40*w - 14 , -266*w + 658 , 1274 , -200*w - 182 , 130*w + 182 , 40*w + 28 , -22*w - 14 , -36*w - 28 , 28*w + 28 , 56*w + 994 ],
[ 93*w - 133 , 46*w + 420 , 2*w , 10*w - 420 , 200*w - 182 , 1862 , -28*w - 1876 , 106*w - 812 , -176*w - 112 , -288*w - 224 , 224*w + 224 , 198*w - 630 ],
[ -173*w + 35 , -130*w - 140 , -10*w , -60*w + 686 , -130*w + 182 , 28*w - 1876 , 2296 , -154*w + 1162 , 278*w + 70 , 432*w + 182 , -350*w - 350 , -14*w + 1456 ],
[ -88*w + 42 , -52*w , -4*w , 18*w + 336 , -40*w + 28 , -106*w - 812 , 154*w + 1162 , 756 , 182*w - 154 , 280*w - 210 , -238*w - 14 , 179*w + 903 ],
[ -4*w - 126 , 0 , 0 , -66*w + 42 , 22*w - 14 , 176*w - 112 , -278*w + 70 , -182*w - 154 , 392 , 8*w + 588 , 56*w - 392 , -243*w + 161 ],
[ 6*w - 210 , 0 , 0 , -108*w + 84 , 36*w - 28 , 288*w - 224 , -432*w + 182 , -280*w - 210 , -8*w + 588 , 924 , 70*w - 602 , -384*w + 336 ],
[ 4*w + 84 , 0 , 0 , 84*w - 84 , -28*w + 28 , -224*w + 224 , 350*w - 350 , 238*w - 14 , -56*w - 392 , -70*w - 602 , 560 , 308*w - 406 ],
[ 801*w - 3213 , -1146*w - 196 , 64*w - 280 , -520*w + 518 , -56*w + 994 , -198*w - 630 , 14*w + 1456 , -179*w + 903 , 243*w + 161 , 384*w + 336 , -308*w - 406 , 7966 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );
/***Gitter Nr. 176 ***/
Grammatrix:=Matrix(S,[
[ 45670408 , 886918*w + 1979222 , 782231*w - 1797159 , 561728*w + 2853802 , 572242*w + 1188026 , 427879*w + 1898183 , 873575*w + 432019 , 1427202*w - 4197368 , -2045003*w - 4112815 , -907502*w - 126826 , 1252142*w - 1870064 , 10592930*w + 17572996
],
[ -886918*w + 1979222 , 419006 , 114963*w - 63805 , -122714*w + 243012 , 5046*w + 141890 , 10477*w + 262479 , 128123*w + 160755 , 313432*w - 509782 , -264113*w - 959161 , -148846*w - 137494 , 243198*w - 149184 , 361906*w + 2138906 ],
[ -782231*w - 1797159 , -114963*w - 63805 , 2426228 , -47586*w - 1739360 , -136676*w - 149814 , -324387*w - 206451 , -263985*w + 953939 , 430910*w + 2892386 , 1280439*w - 1659889 , 247150*w - 1155294 , 39882*w + 2100112 , -441277*w + 2322761 ],
[ -561728*w + 2853802 , 122714*w + 243012 , 47586*w - 1739360 , 1667862 , 96026*w + 284746 , 227230*w + 281372 , 233702*w - 619696 , -200720*w - 2269036 , -1021448*w + 863268 , -230968*w + 788312 , 56544*w - 1572816 , 244184*w + 263074 ],
[ -572242*w + 1188026 , -5046*w + 141890 , 136676*w - 149814 , -96026*w + 284746 , 181678 , -14130*w + 249886 , 73238*w + 235074 , 281428*w - 87948 , -65790*w - 893424 , -87204*w - 224574 , 188208*w + 104958 , 130922*w + 1260812 ],
[ -427879*w + 1898183 , -10477*w + 262479 , 324387*w - 206451 , -227230*w + 281372 , 14130*w + 249886 , 514850 , 233116*w + 400246 , 656696*w - 759990 , -410406*w - 2035740 , -272782*w - 372232 , 484010*w - 112840 , 610433*w + 1185443 ],
[ -873575*w + 432019 , -128123*w + 160755 , 263985*w + 953939 , -233702*w - 619696 , -73238*w + 235074 , -233116*w + 400246 , 1387946 , 1128148*w + 2135238 , 878940*w - 3853654 , -39980*w - 1570128 , 554636*w + 2016728 , 245589*w + 3143917 ],
[ -1427202*w - 4197368 , -313432*w - 509782 , -430910*w + 2892386 , 200720*w - 2269036 , -281428*w - 87948 , -656696*w - 759990 , -1128148*w + 2135238 , 9766806 , 4515886*w - 945308 , 1221330*w - 2660602 , -789592*w + 6298796 , -2051206*w +
    5991440 ],
[ 2045003*w - 4112815 , 264113*w - 959161 , -1280439*w - 1659889 , 1021448*w + 863268 , 65790*w - 893424 , 410406*w - 2035740 , -878940*w - 3853654 , -4515886*w - 945308 , 14711046 , 1112318*w + 4210234 , -2836338*w - 3164742 , -2567831*w -
    7130963 ],
[ 907502*w - 126826 , 148846*w - 137494 , -247150*w - 1155294 , 230968*w + 788312 , 87204*w - 224574 , 272782*w - 372232 , 39980*w - 1570128 , -1221330*w - 2660602 , -1112318*w + 4210234 , 1794128 , -572590*w - 2407342 , -197240*w - 3428418 ],
[ -1252142*w - 1870064 , -243198*w - 149184 , -39882*w + 2100112 , -56544*w - 1572816 , -188208*w + 104958 , -484010*w - 112840 , -554636*w + 2016728 , 789592*w + 6298796 , 2836338*w - 3164742 , 572590*w - 2407342 , 4509428 , -829440*w + 5027708
],
[ -10592930*w + 17572996 , -361906*w + 2138906 , 441277*w + 2322761 , -244184*w + 263074 , -130922*w + 1260812 , -610433*w + 1185443 , -245589*w + 3143917 , 2051206*w + 5991440 , 2567831*w - 7130963 , 197240*w - 3428418 , 829440*w + 5027708 ,
    28286622 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 2 );
/***Gitter Nr. 177 ***/
Grammatrix:=Matrix(S,[
[ 1274 , -12*w + 700 , -152*w - 140 , 20*w + 28 , -70*w + 98 , -30*w - 210 , 72*w - 154 , 46*w + 56 , 46*w - 770 , -242*w - 924 , 320*w - 42 , 472*w + 490 ],
[ 12*w + 700 , 6174 , -48*w - 2058 , -130*w - 2170 , 0 , 0 , -612*w , 72*w , -24*w , 36*w , 0 , 1406*w - 980 ],
[ 152*w - 140 , 48*w - 2058 , 3976 , 26*w + 672 , 156*w + 882 , -780*w + 210 , 516*w , -102*w , 8*w , -12*w , 0 , -1082*w - 588 ],
[ -20*w + 28 , 130*w - 2170 , -26*w + 672 , 896 , -24*w - 28 , 0 , 216*w , -32*w , 8*w , -12*w , 0 , -412*w + 518 ],
[ 70*w + 98 , 0 , -156*w + 882 , 24*w - 28 , 350 , -216*w - 168 , 82*w + 56 , -20*w , 0 , 0 , 0 , -50*w - 672 ],
[ 30*w - 210 , 0 , 780*w + 210 , 0 , 216*w - 168 , 1470 , 22*w - 616 , -6*w + 168 , 0 , 0 , 0 , -160*w + 840 ],
[ -72*w - 154 , 612*w , -516*w , -216*w , -82*w + 56 , -22*w - 616 , 3556 , -210 , 420*w + 42 , 420*w - 1386 , 126*w + 1176 , -372*w - 1652 ],
[ -46*w + 56 , -72*w , 102*w , 32*w , 20*w , 6*w + 168 , -210 , 154 , 180*w - 42 , 180*w - 504 , 54*w + 504 , 24*w + 280 ],
[ -46*w - 770 , 24*w , -8*w , -8*w , 0 , 0 , -420*w + 42 , -180*w - 42 , 2814 , 1100*w + 2968 , -1138*w + 672 , -156*w - 504 ],
[ 242*w - 924 , -36*w , 12*w , 12*w , 0 , 0 , -420*w - 1386 , -180*w - 504 , -1100*w + 2968 , 6174 , -1468*w - 2408 , 36*w - 770 ],
[ -320*w - 42 , 0 , 0 , 0 , 0 , 0 , -126*w + 1176 , -54*w + 504 , 1138*w + 672 , 1468*w - 2408 , 3388 , -212*w + 308 ],
[ -472*w + 490 , -1406*w - 980 , 1082*w - 588 , 412*w + 518 , 50*w - 672 , 160*w + 840 , 372*w - 1652 , -24*w + 280 , 156*w - 504 , -36*w - 770 , 212*w + 308 , 5754 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 178 ***/
Grammatrix:=Matrix(S,[
[ 1044722 , 25782*w - 1068284 , -8820*w + 197260 , 1208*w - 23772 , -1536*w + 1386 , 4602*w + 1904 , 22204*w + 25564 , 8420*w + 41314 , -1006*w + 9338 , -8096*w - 4620 , 6162*w - 2870 , 47220*w - 23842 ],
[ -25782*w - 1068284 , 1131270 , -334*w - 215572 , -476*w + 27874 , -136*w - 1092 , -5788*w + 672 , -26260*w - 13440 , -9076*w - 30016 , 942*w - 6944 , 6340*w + 7378 , -5120*w + 672 , -47758*w + 41790 ],
[ 8820*w + 197260 , 334*w - 215572 , 70028 , -270*w - 7392 , 1720*w + 4620 , 3920*w - 3892 , 6292*w + 1008 , 1852*w + 3752 , -84*w + 868 , -752*w - 1064 , 640*w - 84 , 7624*w - 28770 ],
[ -1208*w - 23772 , 476*w + 27874 , 270*w - 7392 , 1204 , -176*w - 476 , -608*w + 70 , -1008*w , -346*w , -20*w , -24*w + 84 , 0 , -1196*w + 3038 ],
[ 1536*w + 1386 , 136*w - 1092 , -1720*w + 4620 , 176*w - 476 , 1820 , 692*w + 1806 , 376*w + 1456 , 38*w + 168 , 0 , 0 , 0 , 1834*w - 4312 ],
[ -4602*w + 1904 , 5788*w + 672 , -3920*w - 3892 , 608*w + 70 , -692*w + 1806 , 7462 , -58*w + 7784 , -1446*w + 1876 , -432*w - 336 , 72*w - 3024 , 216*w + 2016 , 7372*w + 2338 ],
[ -22204*w + 25564 , 26260*w - 13440 , -6292*w + 1008 , 1008*w , -376*w + 1456 , 58*w + 7784 , 34160 , 80*w + 14728 , 24*w + 952 , 556*w + 1288 , -12*w - 112 , 9004*w + 25970 ],
[ -8420*w + 41314 , 9076*w - 30016 , -1852*w + 3752 , 346*w , -38*w + 168 , 1446*w + 1876 , -80*w + 14728 , 17962 , -364*w + 3948 , -3266*w + 1652 , 2162*w - 2408 , -292*w - 7728 ],
[ 1006*w + 9338 , -942*w - 6944 , 84*w + 868 , 20*w , 0 , 432*w - 336 , -24*w + 952 , 364*w + 3948 , 1204 , -1040*w + 1176 , 594*w - 1232 , -1548*w - 4508 ],
[ 8096*w - 4620 , -6340*w + 7378 , 752*w - 1064 , 24*w + 84 , 0 , -72*w - 3024 , -556*w + 1288 , 3266*w + 1652 , 1040*w + 1176 , 7854 , -528*w - 4928 , -6636*w + 7532 ],
[ -6162*w - 2870 , 5120*w + 672 , -640*w - 84 , 0 , 0 , -216*w + 2016 , 12*w - 112 , -2162*w - 2408 , -594*w - 1232 , 528*w - 4928 , 3388 , 4476*w - 616 ],
[ -47220*w - 23842 , 47758*w + 41790 , -7624*w - 28770 , 1196*w + 3038 , -1834*w - 4312 , -7372*w + 2338 , -9004*w + 25970 , 292*w - 7728 , 1548*w - 4508 , 6636*w + 7532 , -4476*w - 616 , 107268 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 179 ***/
Grammatrix:=Matrix(S,[
[ 29022 , -1333*w + 4403 , -1116*w - 2520 , -188*w + 490 , 2222*w + 168 , 2463*w + 1281 , 2331*w + 3381 , -1326*w + 7014 , 1785*w - 9583 , -1204*w - 1960 , -2660*w - 854 , 10656*w + 9128 ],
[ 1333*w + 4403 , 8134 , -278*w + 3178 , -54*w - 770 , 168*w + 406 , 234*w + 434 , 628*w + 1218 , -478*w + 1316 , 616*w - 1778 , -192*w - 700 , -568*w - 784 , -204*w - 1778 ],
[ 1116*w - 2520 , 278*w + 3178 , 2800 , -2*w - 952 , -184*w + 434 , 94*w + 70 , 268*w , -74*w , 0 , 0 , 0 , -1420*w - 3696 ],
[ 188*w + 490 , 54*w - 770 , 2*w - 952 , 630 , -8*w - 784 , -222*w - 616 , -124*w - 588 , 294*w + 168 , -324*w - 168 , -12*w + 294 , 54*w + 504 , 518*w - 154 ],
[ -2222*w + 168 , -168*w + 406 , 184*w + 434 , 8*w - 784 , 2380 , 184*w + 2730 , 74*w + 2044 , -952*w - 616 , 1188*w + 616 , 44*w - 1078 , -198*w - 1848 , -842*w + 6370 ],
[ -2463*w + 1281 , -234*w + 434 , -94*w + 70 , 222*w - 616 , -184*w + 2730 , 4088 , 14*w + 2800 , -1098*w - 868 , 1404*w + 728 , 52*w - 1274 , -234*w - 2184 , -332*w + 7742 ],
[ -2331*w + 3381 , -628*w + 1218 , -268*w , 124*w - 588 , -74*w + 2044 , -14*w + 2800 , 3920 , -1176*w - 756 , 1640*w + 672 , 152*w - 1820 , -348*w - 3248 , -298*w + 8064 ],
[ 1326*w + 7014 , 478*w + 1316 , 74*w , -294*w + 168 , 952*w - 616 , 1098*w - 868 , 1176*w - 756 , 3794 , -80*w - 4774 , -592*w + 168 , -948*w + 1316 , 3368*w + 126 ],
[ -1785*w - 9583 , -616*w - 1778 , 0 , 324*w - 168 , -1188*w + 616 , -1404*w + 728 , -1640*w + 672 , 80*w - 4774 , 6230 , 840*w , 1396*w - 1652 , -4652*w - 574 ],
[ 1204*w - 1960 , 192*w - 700 , 0 , 12*w + 294 , -44*w - 1078 , -52*w - 1274 , -152*w - 1820 , 592*w + 168 , -840*w , 1064 , 354*w + 1610 , 44*w - 4746 ],
[ 2660*w - 854 , 568*w - 784 , 0 , -54*w + 504 , 198*w - 1848 , 234*w - 2184 , 348*w - 3248 , 948*w + 1316 , -1396*w - 1652 , -354*w + 1610 , 3388 , 1498*w - 7644 ],
[ -10656*w + 9128 , 204*w - 1778 , 1420*w - 3696 , -518*w - 154 , 842*w + 6370 , 332*w + 7742 , 298*w + 8064 , -3368*w + 126 , 4652*w - 574 , -44*w - 4746 , -1498*w - 7644 , 38164 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 180 ***/
Grammatrix:=Matrix(S,[
[ 28615300 , 1142200*w - 19034680 , 3066084*w - 12705546 , -956634*w + 3831688 , -1705578*w + 228564 , -9109718*w + 21509698 , 4326340*w - 12117294 , 1764724*w + 17657038 , -4154568*w - 4555166 , 391328*w + 1771644 , 1715816*w - 2572570 ,
    3386924*w + 19035646 ],
[ -1142200*w - 19034680 , 110021520 , 629310*w + 23127328 , -208880*w + 17371970 , 654222*w + 5698560 , 3243472*w - 19931394 , -1433518*w + 10586492 , -2763574*w - 9642458 , 2973286*w - 17122 , -406062*w - 821324 , -802556*w + 2709952 , -3862956*w
    - 3305932 ],
[ -3066084*w - 12705546 , -629310*w + 23127328 , 21223524 , 262762*w - 5380690 , 1541058*w - 5426092 , 3202474*w - 45815406 , -1088526*w + 23305982 , -7364326*w - 16247322 , 6120742*w - 3669400 , -976514*w - 1159102 , -1154784*w + 6542550 ,
    -10245864*w - 15673812 ],
[ 956634*w + 3831688 , 208880*w + 17371970 , -262762*w - 5380690 , 9682470 , -671832*w + 5558994 , 1583916*w + 27399316 , -1164552*w - 13894538 , 5551970*w + 5373830 , -3256988*w + 5497408 , 659412*w + 141750 , 159600*w - 4439400 , 5536118*w +
    5596626 ],
[ 1705578*w + 228564 , -654222*w + 5698560 , -1541058*w - 5426092 , 671832*w + 5558994 , 4952486 , 5484724*w + 21490756 , -3085280*w - 10352314 , 5393862*w - 1468642 , -1852800*w + 7981680 , 564980*w - 588350 , -545000*w - 3827460 , 5286264*w -
    921480 ],
[ 9109718*w + 21509698 , -3243472*w - 19931394 , -3202474*w - 45815406 , -1583916*w + 27399316 , -5484724*w + 21490756 , 174829088 , -2205314*w - 89670882 , 32530634*w + 47502434 , -22204180*w + 25925200 , 4042880*w + 2554510 , 2597680*w -
    27162240 , 30734916*w + 29849470 ],
[ -4326340*w - 12117294 , 1433518*w + 10586492 , 1088526*w + 23305982 , 1164552*w - 13894538 , 3085280*w - 10352314 , 2205314*w - 89670882 , 46259206 , -16126400*w - 27302870 , 11742632*w - 11371052 , -2046524*w - 1672930 , -1679872*w + 13736940 ,
-15203734*w - 17532354 ],
[ -1764724*w + 17657038 , 2763574*w - 9642458 , 7364326*w - 16247322 , -5551970*w + 5373830 , -5393862*w - 1468642 , -32530634*w + 47502434 , 16126400*w - 27302870 , 55500074 , -10901568*w - 21952252 , 624676*w + 5985630 , 5784128*w - 4009460 ,
    2892810*w + 47007800 ],
[ 4154568*w - 4555166 , -2973286*w - 17122 , -6120742*w - 3669400 , 3256988*w + 5497408 , 1852800*w + 7981680 , 22204180*w + 25925200 , -11742632*w - 11371052 , 10901568*w - 21952252 , 23673034 , 928594*w - 3226314 , -3075314*w - 6366976 ,
    8090170*w - 22659672 ],
[ -391328*w + 1771644 , 406062*w - 821324 , 976514*w - 1159102 , -659412*w + 141750 , -564980*w - 588350 , -4042880*w + 2554510 , 2046524*w - 1672930 , -624676*w + 5985630 , -928594*w - 3226314 , 694806 , 668964*w + 23296 , -222254*w + 5284734 ],
[ -1715816*w - 2572570 , 802556*w + 2709952 , 1154784*w + 6542550 , -159600*w - 4439400 , 545000*w - 3827460 , -2597680*w - 27162240 , 1679872*w + 13736940 , -5784128*w - 4009460 , 3075314*w - 6366976 , -668964*w + 23296 , 4509428 , -5101238*w -
    1301048 ],
[ -3386924*w + 19035646 , 3862956*w - 3305932 , 10245864*w - 15673812 , -5536118*w + 5596626 , -5286264*w - 921480 , -30734916*w + 29849470 , 15203734*w - 17532354 , -2892810*w + 47007800 , -8090170*w - 22659672 , 222254*w + 5284734 , 5101238*w -
    1301048 , 54516868 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 181 ***/
Grammatrix:=Matrix(S,[
[ 129458 , -7183*w + 15939 , -1352*w + 31444 , 3458*w - 14756 , -3192*w - 378 , 2184*w + 3878 , -4033*w + 19929 , 2656*w - 17682 , 341*w - 22995 , 9386*w - 7896 , -3628*w + 19320 , -50644*w - 174734 ],
[ 7183*w + 15939 , 68292 , -472*w - 8876 , 158*w + 1974 , 2920*w - 1232 , 4314*w - 13356 , 3290*w + 12138 , -4204*w - 5670 , -5832*w - 1596 , -1384*w - 17024 , 4632*w + 7658 , -60672*w - 86226 ],
[ 1352*w + 31444 , 472*w - 8876 , 17654 , 2*w - 12782 , -4232*w - 1778 , -5062*w + 280 , 2426*w , -228*w , 0 , 0 , 0 , -13612*w - 17934 ],
[ -3458*w - 14756 , -158*w + 1974 , -2*w - 12782 , 19922 , 4696*w + 5614 , 5646*w + 12180 , -7558*w - 8960 , 4344*w + 3080 , 5000*w - 840 , 2080*w + 12880 , -4080*w - 4200 , 16826*w + 30380 ],
[ 3192*w - 378 , -2920*w - 1232 , 4232*w - 1778 , -4696*w + 5614 , 14028 , 1022*w + 21490 , -3412*w - 11648 , 2506*w + 2408 , 3000*w - 504 , 1248*w + 7728 , -2448*w - 2520 , -1830*w + 20118 ],
[ -2184*w + 3878 , -4314*w - 13356 , 5062*w + 280 , -5646*w + 12180 , -1022*w + 21490 , 49728 , -11270*w - 29204 , 9552*w + 7350 , 12402*w - 4158 , 5760*w + 36540 , -11628*w - 11970 , 16910*w + 30730 ],
[ 4033*w + 19929 , -3290*w + 12138 , -2426*w , 7558*w - 8960 , 3412*w - 11648 , 11270*w - 29204 , 50008 , -3916*w - 31108 , -9140*w - 29400 , 7904*w - 36232 , 3564*w + 33264 , -8868*w - 83734 ],
[ -2656*w - 17682 , 4204*w - 5670 , 228*w , -4344*w + 3080 , -2506*w + 2408 , -9552*w + 7350 , 3916*w - 31108 , 23114 , 3480*w + 26054 , -8992*w + 17976 , 1182*w - 24542 , 1130*w + 59766 ],
[ -341*w - 22995 , 5832*w - 1596 , 0 , -5000*w - 840 , -3000*w - 504 , -12402*w - 4158 , 9140*w - 29400 , -3480*w + 26054 , 35294 , -14872*w + 8848 , 6658*w - 28770 , -9718*w + 70882 ],
[ -9386*w - 7896 , 1384*w - 17024 , 0 , -2080*w + 12880 , -1248*w + 7728 , -5760*w + 36540 , -7904*w - 36232 , 8992*w + 17976 , 14872*w + 8848 , 53032 , -12174*w - 30618 , 28840*w + 55888 ],
[ 3628*w + 19320 , -4632*w + 7658 , 0 , 4080*w - 4200 , 2448*w - 2520 , 11628*w - 11970 , -3564*w + 33264 , -1182*w - 24542 , -6658*w - 28770 , 12174*w - 30618 , 37268 , -3872*w - 78176 ],
[ 50644*w - 174734 , 60672*w - 86226 , 13612*w - 17934 , -16826*w + 30380 , 1830*w + 20118 , -16910*w + 30730 , 8868*w - 83734 , -1130*w + 59766 , 9718*w + 70882 , -28840*w + 55888 , 3872*w - 78176 , 823102 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 60 );
/***Gitter Nr. 182 ***/
Grammatrix:=Matrix(S,[
[ 1236693948 , -121830544*w - 143032862 , 3978376*w + 69577396 , 2336724*w + 24401664 , -6343456*w + 23599632 , -1190348*w + 16353652 , 14490114*w + 30729678 , 103356938*w - 12607742 , 21948258*w + 45400418 , 33187278*w + 94300150 , -37590964*w +
    358064 , 74363092*w - 66639566 ],
[ 121830544*w - 143032862 , 201214286 , -3968334*w + 3513720 , -1066278*w - 5919536 , 10223794*w - 10935148 , 3775290*w - 7083258 , -1844112*w - 30223508 , -50787780*w - 107251620 , -3234226*w - 45573626 , -912542*w - 81175892 , 17865964*w +
    41165796 , -33398328*w - 136048976 ],
[ -3978376*w + 69577396 , 3968334*w + 3513720 , 46907168 , 102726*w + 17745966 , -4142480*w - 10259018 , -1621538*w + 231098 , 757922*w + 12878208 , 22679050*w + 49580160 , 1279496*w + 20676600 , 56724*w + 36968400 , -7946100*w - 19278000 ,
    -12717384*w + 16430022 ],
[ -2336724*w + 24401664 , 1066278*w - 5919536 , -102726*w + 17745966 , 7632310 , -1998680*w - 4051460 , -793098*w + 245882 , 377800*w + 6372716 , 11234454*w + 24532228 , 634048*w + 10237752 , 28072*w + 18311048 , -3935772*w - 9548560 , -3226338*w
    + 12038642 ],
[ 6343456*w + 23599632 , -10223794*w - 10935148 , 4142480*w - 10259018 , 1998680*w - 4051460 , 11278526 , 583468*w + 3655176 , 3301326*w - 1456420 , 11452544*w - 40855332 , 5079176*w - 2981888 , 9123704*w - 1600312 , -4438232*w + 14514640 ,
    11542350*w + 1733718 ],
[ 1190348*w + 16353652 , -3775290*w - 7083258 , 1621538*w + 231098 , 793098*w + 245882 , -583468*w + 3655176 , 1598618 , 1416872*w + 1308356 , 7799710*w - 9018380 , 2195564*w + 1800288 , 3621148*w + 4687004 , -2901276*w + 2972984 , 3864770*w +
    4535622 ],
[ -14490114*w + 30729678 , 1844112*w - 30223508 , -757922*w + 12878208 , -377800*w + 6372716 , -3301326*w - 1456420 , -1416872*w + 1308356 , 11398772 , 16333452*w + 48636476 , 88284*w + 17521168 , -1669040*w + 30425556 , -5642504*w - 18442312 ,
    -1224600*w + 27241438 ],
[ -103356938*w - 12607742 , 50787780*w - 107251620 , -22679050*w + 49580160 , -11234454*w + 24532228 , -11452544*w - 40855332 , -7799710*w - 9018380 , -16333452*w + 48636476 , 372606304 , -24824364*w + 75871222 , -50932406*w + 113445878 ,
    2384098*w - 135796360 , -45021448*w + 102640888 ],
[ -21948258*w + 45400418 , 3234226*w - 45573626 , -1279496*w + 20676600 , -634048*w + 10237752 , -5079176*w - 2981888 , -2195564*w + 1800288 , -88284*w + 17521168 , 24824364*w + 75871222 , 27027742 , -2811982*w + 46856348 , -8562862*w - 28763504 ,
-2323660*w + 41958322 ],
[ -33187278*w + 94300150 , 912542*w - 81175892 , -56724*w + 36968400 , -28072*w + 18311048 , -9123704*w - 1600312 , -3621148*w + 4687004 , 1669040*w + 30425556 , 50932406*w + 113445878 , 2811982*w + 46856348 , 83285258 , -17838572*w - 43632036 ,
    293862*w + 74468226 ],
[ 37590964*w + 358064 , -17865964*w + 41165796 , 7946100*w - 19278000 , 3935772*w - 9548560 , 4438232*w + 14514640 , 2901276*w + 2972984 , 5642504*w - 18442312 , -2384098*w - 135796360 , 8562862*w - 28763504 , 17838572*w - 43632036 , 49603708 ,
    15795008*w - 39456088 ],
[ -74363092*w - 66639566 , 33398328*w - 136048976 , 12717384*w + 16430022 , 3226338*w + 12038642 , -11542350*w + 1733718 , -3864770*w + 4535622 , 1224600*w + 27241438 , 45021448*w + 102640888 , 2323660*w + 41958322 , -293862*w + 74468226 ,
    -15795008*w - 39456088 , 165220636 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 183 ***/
Grammatrix:=Matrix(S,[
[ 12292669340 , -51067208*w - 4745211128 , 3149654*w + 45524794 , 86952088*w + 101154088 , 30144676*w - 23301712 , -162349072*w - 134665958 , 46857163*w - 261735887 , 14481934*w + 523974136 , -39391739*w + 169622971 , -52927122*w + 204215718 ,
    141113764*w + 494043242 , 844774098*w + 1818799276 ],
[ 51067208*w - 4745211128 , 1834008372 , -988042*w - 17827334 , -33555814*w - 41146126 , -11773024*w + 8556268 , 62740512*w + 55470562 , -18923023*w + 100964017 , -4216718*w - 204161034 , 15784565*w - 65265417 , 21141544*w - 78471022 , -53586248*w
    - 194885572 , -318352234*w - 726206152 ],
[ -3149654*w + 45524794 , 988042*w - 17827334 , 342664 , 477178*w + 252280 , 109574*w - 176288 , -712518*w - 291998 , 116660*w - 843948 , 191346*w + 1587936 , -77232*w + 574616 , -117584*w + 694036 , 529740*w + 1285200 , 2608588*w + 8099154 ],
[ -86952088*w + 101154088 , 33555814*w - 41146126 , -477178*w + 252280 , 9426718 , 655066*w + 2344286 , -519818*w - 14956662 , 2887468*w + 693742 , -4610690*w + 7129808 , -1962128*w - 598500 , -2419760*w - 1202026 , -2988482*w + 14239540 ,
    -5261790*w + 56750218 ],
[ -30144676*w - 23301712 , 11773024*w + 8556268 , -109574*w - 176288 , -655066*w + 2344286 , 1096648 , 1034634*w - 4371500 , 796792*w + 2324868 , -1966974*w - 1499344 , -469916*w - 1643740 , -547780*w - 2149812 , -2359694*w + 1733410 , -5842672*w
    + 11372130 ],
[ 162349072*w - 134665958 , -62740512*w + 55470562 , 712518*w - 291998 , 519818*w - 14956662 , -1034634*w - 4371500 , 25827340 , -5590770*w - 3357606 , 9575646*w - 8959916 , 3663244*w + 2994068 , 4498484*w + 4444930 , 7543476*w - 24703854 ,
    13709270*w - 97869996 ],
[ -46857163*w - 261735887 , 18923023*w + 100964017 , -116660*w - 843948 , -2887468*w + 693742 , -796792*w + 2324868 , 5590770*w - 3357606 , 11161248 , -3343152*w - 17235428 , 418276*w - 7396844 , 661512*w - 9190692 , -7709266*w - 11447422 ,
    -24567186*w - 15009750 ],
[ -14481934*w + 523974136 , 4216718*w - 204161034 , -191346*w + 1587936 , 4610690*w + 7129808 , 1966974*w - 1499344 , -9575646*w - 8959916 , 3343152*w - 17235428 , 34756050 , -2909000*w + 10862418 , -3825800*w + 13094592 , 8699260*w + 34403684 ,
    33833338*w + 82312762 ],
[ 39391739*w + 169622971 , -15784565*w - 65265417 , 77232*w + 574616 , 1962128*w - 598500 , 469916*w - 1643740 , -3663244*w + 2994068 , -418276*w - 7396844 , 2909000*w + 10862418 , 5114662 , -96228*w + 6360620 , 5624360*w + 5656056 , 17267988*w +
    5518408 ],
[ 52927122*w + 204215718 , -21141544*w - 78471022 , 117584*w + 694036 , 2419760*w - 1202026 , 547780*w - 2149812 , -4498484*w + 4444930 , -661512*w - 9190692 , 3825800*w + 13094592 , 96228*w + 6360620 , 7932792 , 7109306*w + 6300658 , 21563132*w +
    3977736 ],
[ -141113764*w + 494043242 , 53586248*w - 194885572 , -529740*w + 1285200 , 2988482*w + 14239540 , 2359694*w + 1733410 , -7543476*w - 24703854 , 7709266*w - 11447422 , -8699260*w + 34403684 , -5624360*w + 5656056 , -7109306*w + 6300658 , 49603708
, 13528742*w + 138478522 ],
[ -844774098*w + 1818799276 , 318352234*w - 726206152 , -2608588*w + 8099154 , 5261790*w + 56750218 , 5842672*w + 11372130 , -13709270*w - 97869996 , 24567186*w - 15009750 , -33833338*w + 82312762 , -17267988*w + 5518408 , -21563132*w + 3977736 ,
-13528742*w + 138478522 , 676479650 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 184 ***/
Grammatrix:=Matrix(S,[
[ 101018834 , -2958880*w + 100730154 , -2898464*w - 16314536 , 5065692*w - 4812108 , -3483254*w + 379596 , -1340108*w - 164164 , 1330634*w + 1756412 , 2936874*w - 5158874 , -982826*w + 7011536 , -68560*w - 1038702 , -388818*w - 1199814 , 4002296*w
    + 12407962 ],
[ 2958880*w + 100730154 , 110336310 , -2253271*w - 14230657 , 2052322*w - 10901646 , -223958*w + 5187014 , 19911*w + 1364321 , -1742474*w - 2415140 , -2675074*w + 14032102 , -535523*w - 10906707 , 387416*w + 1141028 , 851142*w + 850248 ,
    12074652*w + 8767290 ],
[ 2898464*w - 16314536 , 2253271*w - 14230657 , 8826874 , -1209383*w - 12360495 , 1187827*w + 7581483 , 563813*w + 2410499 , -606030*w - 5557832 , -5614554*w + 398622 , 3440207*w - 6533261 , -221928*w + 1441104 , 115842*w + 2382184 , 2312603*w +
    3055703 ],
[ -5065692*w - 4812108 , -2052322*w - 10901646 , 1209383*w - 12360495 , 30553866 , -1091964*w - 20797714 , -759443*w - 7081249 , 828236*w + 16047920 , 15765516*w + 3083696 , -10267055*w + 15421623 , 766344*w - 3821958 , -60540*w - 6709178 ,
    -9303582*w - 21373324 ],
[ 3483254*w + 379596 , 223958*w + 5187014 , -1187827*w + 7581483 , 1091964*w - 20797714 , 24213616 , 373115*w + 10215849 , 143588*w - 20414604 , -19417380*w - 11968068 , 13922671*w - 13950489 , -1235398*w + 4369862 , -416864*w + 8391334 ,
    10738980*w + 36484406 ],
[ 1340108*w - 164164 , -19911*w + 1364321 , -563813*w + 2410499 , 759443*w - 7081249 , -373115*w + 10215849 , 4560150 , 393602*w - 8703156 , -8074396*w - 7362012 , 6168824*w - 4325944 , -599792*w + 1718584 , -317486*w + 3528770 , 4112545*w +
    17196431 ],
[ -1330634*w + 1756412 , 1742474*w - 2415140 , 606030*w - 5557832 , -828236*w + 16047920 , -143588*w - 20414604 , -393602*w - 8703156 , 18480280 , 17961600*w + 9854908 , -12631920*w + 13692000 , 1090576*w - 4096680 , 305696*w - 7726432 ,
    -9682080*w - 33891144 ],
[ -2936874*w - 5158874 , 2675074*w + 14032102 , 5614554*w + 398622 , -15765516*w + 3083696 , 19417380*w - 11968068 , 8074396*w - 7362012 , -17961600*w + 9854908 , 128090802 , -20158284*w - 78926106 , 4587916*w + 5244806 , 7706750*w - 2064818 ,
    27985444*w - 83072990 ],
[ 982826*w + 7011536 , 535523*w - 10906707 , -3440207*w - 6533261 , 10267055*w + 15421623 , -13922671*w - 13950489 , -6168824*w - 4325944 , 12631920*w + 13692000 , 20158284*w - 78926106 , 70858788 , -2001604*w - 8288896 , -5074630*w - 7219366 ,
    -30274247*w + 20555115 ],
[ 68560*w - 1038702 , -387416*w + 1141028 , 221928*w + 1441104 , -766344*w - 3821958 , 1235398*w + 4369862 , 599792*w + 1718584 , -1090576*w - 4096680 , -4587916*w + 5244806 , 2001604*w - 8288896 , 1365518 , 389664*w + 1848000 , 4115222*w +
    3583706 ],
[ 388818*w - 1199814 , -851142*w + 850248 , -115842*w + 2382184 , 60540*w - 6709178 , 416864*w + 8391334 , 317486*w + 3528770 , -305696*w - 7726432 , -7706750*w - 2064818 , 5074630*w - 7219366 , -389664*w + 1848000 , 3279584 , 4553226*w + 13093528
],
[ -4002296*w + 12407962 , -12074652*w + 8767290 , -2312603*w + 3055703 , 9303582*w - 21373324 , -10738980*w + 36484406 , -4112545*w + 17196431 , 9682080*w - 33891144 , -27985444*w - 83072990 , 30274247*w + 20555115 , -4115222*w + 3583706 ,
    -4553226*w + 13093528 , 105024388 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 185 ***/
Grammatrix:=Matrix(S,[
[ 13714008 , 282379*w + 4388881 , -49919*w + 96873 , -35569*w + 421421 , -23038*w - 22848 , -16430*w + 130256 , -46429*w + 274659 , 51755*w - 140651 , 127123*w + 15155 , -84572*w - 2842 , 106720*w - 385070 , -1488634*w - 3402714 ],
[ -282379*w + 4388881 , 1614844 , -16153*w - 32739 , -45055*w + 146951 , -11282*w - 10752 , -20202*w + 43918 , -20141*w + 84329 , 16829*w - 40551 , 39989*w + 12341 , -26624*w - 5754 , 36726*w - 115220 , -369793*w - 1200087 ],
[ 49919*w + 96873 , 16153*w - 32739 , 28868 , 10682*w - 15680 , 1006*w - 1694 , 3490*w + 2310 , 864*w + 4606 , 648*w - 3346 , 2058*w - 2114 , -1352*w + 1484 , 712*w - 8036 , -39635*w - 26299 ],
[ 35569*w + 421421 , 45055*w + 146951 , -10682*w - 15680 , 68446 , -666*w + 8820 , 6*w + 13734 , -72*w + 4452 , -6*w + 840 , 0 , 0 , 0 , -28117*w - 94507 ],
[ 23038*w - 22848 , 11282*w - 10752 , -1006*w - 1694 , 666*w + 8820 , 12418 , 312*w + 1820 , 4862*w - 24332 , -4384*w + 13272 , -13200*w - 6720 , 9400*w + 3080 , -13800*w + 40600 , 4876*w + 588 ],
[ 16430*w + 130256 , 20202*w + 43918 , -3490*w + 2310 , -6*w + 13734 , -312*w + 1820 , 13034 , -500*w + 5852 , 434*w - 2408 , 1320*w - 280 , -940*w - 140 , 1380*w - 4060 , -13442*w - 35378 ],
[ 46429*w + 274659 , 20141*w + 84329 , -864*w + 4606 , 72*w + 4452 , -4862*w - 24332 , 500*w + 5852 , 82754 , 4640*w - 50722 , 36816*w - 28658 , -25504*w + 23982 , 15840*w - 150304 , -46583*w + 28973 ],
[ -51755*w - 140651 , -16829*w - 40551 , -648*w - 3346 , 6*w + 840 , 4384*w + 13272 , -434*w - 2408 , -4640*w - 50722 , 33530 , -20988*w + 32494 , 14292*w - 24906 , -1180*w + 98532 , 29493*w - 47957 ],
[ -127123*w + 15155 , -39989*w + 12341 , -2058*w - 2114 , 0 , 13200*w - 6720 , -1320*w - 280 , -36816*w - 28658 , 20988*w + 32494 , 126252 , -1962*w - 88802 , 62286*w + 101934 , 3059*w - 143493 ],
[ 84572*w - 2842 , 26624*w - 5754 , 1352*w + 1484 , 0 , -9400*w + 3080 , 940*w - 140 , 25504*w + 23982 , -14292*w - 24906 , 1962*w - 88802 , 62762 , -42304*w - 78624 , -2210*w + 98392 ],
[ -106720*w - 385070 , -36726*w - 115220 , -712*w - 8036 , 0 , 13800*w + 40600 , -1380*w - 4060 , -15840*w - 150304 , 1180*w + 98532 , -62286*w + 101934 , 42304*w - 78624 , 298144 , 67592*w - 114954 ],
[ 1488634*w - 3402714 , 369793*w - 1200087 , 39635*w - 26299 , 28117*w - 94507 , -4876*w + 588 , 13442*w - 35378 , 46583*w + 28973 , -29493*w - 47957 , -3059*w - 143493 , 2210*w + 98392 , -67592*w - 114954 , 2170056 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 186 ***/
Grammatrix:=Matrix(S,[
[ 20062 , 4268*w - 6440 , -1126*w + 588 , 29010*w + 21028 , 7060*w + 2646 , 4276*w + 770 , 362*w - 9422 , -2410*w + 9268 , -936*w + 6496 , 1800*w - 280 , 2072*w - 16954 , 5604*w + 31360 ],
[ -4268*w - 6440 , 56812 , 338*w - 15344 , -14461*w - 47019 , -3687*w - 539 , 1104*w + 8400 , 3918*w + 3192 , -4620*w - 8568 , -3240*w - 3528 , -72*w + 5544 , 7344*w + 7560 , -403*w + 22561 ],
[ 1126*w + 588 , -338*w - 15344 , 4928 , 2778*w + 10304 , 1196*w - 140 , -768*w - 2030 , -736*w - 798 , 1104*w + 2142 , 810*w + 882 , 18*w - 1386 , -1836*w - 1890 , -1534*w - 7084 ],
[ -29010*w + 21028 , 14461*w - 47019 , -2778*w + 10304 , 649572 , 3298*w + 128044 , -5777*w + 12915 , 3906*w + 1820 , -1641*w - 6615 , -1315*w - 3675 , -660*w + 3850 , 3930*w + 11270 , -45338*w + 8918 ],
[ -7060*w + 2646 , 3687*w - 539 , -1196*w - 140 , -3298*w + 128044 , 30478 , -1159*w + 1981 , 2024*w + 2632 , -1647*w - 3983 , -1163*w - 1715 , -152*w + 2310 , 2826*w + 4354 , -10650*w - 616 ],
[ -4276*w + 770 , -1104*w + 8400 , 768*w - 2030 , 5777*w + 12915 , 1159*w + 1981 , 17696 , 3184*w - 714 , -2874*w - 6650 , -2322*w - 2702 , 94*w + 5866 , 7548*w + 7770 , -9981*w + 19243 ],
[ -362*w - 9422 , -3918*w + 3192 , 736*w - 798 , -3906*w + 1820 , -2024*w + 2632 , -3184*w - 714 , 9142 , 1410*w - 9478 , 444*w - 6118 , -1420*w + 308 , -1278*w + 13482 , -4566*w - 18130 ],
[ 2410*w + 9268 , 4620*w - 8568 , -1104*w + 2142 , 1641*w - 6615 , 1647*w - 3983 , 2874*w - 6650 , -1410*w - 9478 , 13496 , 664*w + 7644 , 1202*w - 2982 , -2536*w - 15764 , 9287*w + 8435 ],
[ 936*w + 6496 , 3240*w - 3528 , -810*w + 882 , 1315*w - 3675 , 1163*w - 1715 , 2322*w - 2702 , -444*w - 6118 , -664*w + 7644 , 4774 , 1032*w - 1176 , -232*w - 11200 , 4907*w + 8701 ],
[ -1800*w - 280 , 72*w + 5544 , -18*w - 1386 , 660*w + 3850 , 152*w + 2310 , -94*w + 5866 , 1420*w + 308 , -1202*w - 2982 , -1032*w - 1176 , 2856 , 3534*w + 4186 , -3944*w + 4494 ],
[ -2072*w - 16954 , -7344*w + 7560 , 1836*w - 1890 , -3930*w + 11270 , -2826*w + 4354 , -7548*w + 7770 , 1278*w + 13482 , 2536*w - 15764 , 232*w - 11200 , -3534*w + 4186 , 37268 , -11778*w - 29764 ],
[ -5604*w + 31360 , 403*w + 22561 , 1534*w - 7084 , 45338*w + 8918 , 10650*w - 616 , 9981*w + 19243 , 4566*w - 18130 , -9287*w + 8435 , -4907*w + 8701 , 3944*w + 4494 , 11778*w - 29764 , 105140 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 187 ***/
Grammatrix:=Matrix(S,[
[ 681127636 , -44932715*w + 777014721 , -3932983*w - 186359061 , -4878487*w - 892465 , 1218420*w + 12494440 , 11099045*w + 11027121 , 7750569*w + 6810615 , -47750*w + 6025908 , -4212617*w - 7087563 , 5786201*w + 6182771 , -3953274*w + 20961808 ,
    248329558*w + 459989292 ],
[ 44932715*w + 777014721 , 909494082 , -17334448*w - 207610956 , -5817844*w + 2429812 , 2628475*w + 13742771 , 14177614*w + 4775330 , 9754145*w + 2561461 , 550770*w + 6860728 , -5533526*w - 5655118 , 7305328*w + 3590174 , -2736967*w + 26943847 ,
    313829655*w + 410839345 ],
[ 3932983*w - 186359061 , 17334448*w - 207610956 , 58062298 , 1386322*w + 2800868 , 513244*w - 4300982 , -2466706*w - 9632826 , -1779362*w - 6056456 , 406417*w - 2029475 , 756268*w + 3735606 , -1239282*w - 4216800 , 2395272*w - 4158616 ,
    -64474462*w - 135049096 ],
[ 4878487*w - 892465 , 5817844*w + 2429812 , -1386322*w + 2800868 , 1115772 , 349636*w - 299824 , 282244*w - 2653210 , 168274*w - 1703716 , 168056*w - 114604 , -177912*w + 763616 , 157038*w - 1070650 , 555464*w + 709912 , 3250709*w - 12729213 ],
[ -1218420*w + 12494440 , -2628475*w + 13742771 , -513244*w - 4300982 , -349636*w - 299824 , 1004024 , 819318*w + 1480836 , 536930*w + 949200 , -17488*w + 437262 , -209042*w - 699034 , 324454*w + 748510 , -437436*w + 1131396 , 3554002*w + 12000072
],
[ -11099045*w + 11027121 , -14177614*w + 4775330 , 2466706*w - 9632826 , -282244*w - 2653210 , -819318*w + 1480836 , 7485394 , 2820*w + 4652004 , -360770*w + 699286 , 274940*w - 2003624 , -169994*w + 2742698 , -1451062*w - 950614 , -4205409*w +
    35166719 ],
[ -7750569*w + 6810615 , -9754145*w + 2561461 , 1779362*w - 6056456 , -168274*w - 1703716 , -536930*w + 949200 , -2820*w + 4652004 , 3004260 , -246048*w + 359492 , 198632*w - 1457456 , -117288*w + 1960784 , -1036988*w - 660828 , -3242405*w +
    24099719 ],
[ 47750*w + 6025908 , -550770*w + 6860728 , -406417*w - 2029475 , -168056*w - 114604 , 17488*w + 437262 , 360770*w + 699286 , 246048*w + 359492 , 266308 , -129770*w - 173866 , 172562*w + 156450 , -103588*w + 626668 , 2181728*w + 4110820 ],
[ 4212617*w - 7087563 , 5533526*w - 5655118 , -756268*w + 3735606 , 177912*w + 763616 , 209042*w - 699034 , -274940*w - 2003624 , -198632*w - 1457456 , 129770*w - 173866 , 1058680 , -97208*w - 1284864 , 697576*w - 222376 , 530245*w - 15840839 ],
[ -5786201*w + 6182771 , -7305328*w + 3590174 , 1239282*w - 4216800 , -157038*w - 1070650 , -324454*w + 748510 , 169994*w + 2742698 , 117288*w + 1960784 , -172562*w + 156450 , 97208*w - 1284864 , 1628536 , -870840*w - 179592 , -2018131*w +
    19112877 ],
[ 3953274*w + 20961808 , 2736967*w + 26943847 , -2395272*w - 4158616 , -555464*w + 709912 , 437436*w + 1131396 , 1451062*w - 950614 , 1036988*w - 660828 , 103588*w + 626668 , -697576*w - 222376 , 870840*w - 179592 , 3279584 , 10443152*w + 5416782
],
[ -248329558*w + 459989292 , -313829655*w + 410839345 , 64474462*w - 135049096 , -3250709*w - 12729213 , -3554002*w + 12000072 , 4205409*w + 35166719 , 3242405*w + 24099719 , -2181728*w + 4110820 , -530245*w - 15840839 , 2018131*w + 19112877 ,
    -10443152*w + 5416782 , 945830200 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 6 );
/***Gitter Nr. 188 ***/
Grammatrix:=Matrix(S,[
[ 114478 , 17956*w + 86716 , 26340*w + 57134 , -2370*w + 22904 , 5410*w - 36064 , 730*w - 3164 , 23802*w + 5264 , 7828*w + 1162 , 10626*w - 35070 , 3088*w - 52808 , 14000*w + 25844 , 41340*w + 140658 ],
[ -17956*w + 86716 , 94416 , 9067*w + 73073 , -4874*w + 9730 , 10769*w - 7245 , 1317*w - 1309 , 11712*w + 33782 , 4079*w + 10843 , 12641*w - 6083 , 11546*w - 25872 , 3144*w + 32732 , 17901*w + 158739 ],
[ -26340*w + 57134 , -9067*w + 73073 , 85722 , -7258*w + 686 , 12143*w - 735 , 815*w - 119 , 5718*w + 43386 , 2065*w + 14077 , 12625*w + 4123 , 13766*w - 14952 , -816*w + 33040 , -16103*w + 124537 ],
[ 2370*w + 22904 , 4874*w + 9730 , 7258*w + 686 , 13286 , -1074*w - 26796 , 118*w - 644 , 11424*w - 2044 , 3582*w - 1134 , 2052*w - 14364 , -702*w - 18522 , 5508*w + 5670 , 10196*w + 21126 ],
[ -5410*w - 36064 , -10769*w - 7245 , -12143*w - 735 , 1074*w - 26796 , 67480 , 184*w + 1302 , -23492*w + 4452 , -7334*w + 2772 , -4256*w + 29792 , 1456*w + 38416 , -11424*w - 11760 , -14126*w - 6580 ],
[ -730*w - 3164 , -1317*w - 1309 , -815*w - 119 , -118*w - 644 , -184*w + 1302 , 504 , -1262*w + 1400 , -418*w + 490 , -580*w + 2884 , 110*w + 3850 , -1156*w - 1190 , -1862*w + 1666 ],
[ -23802*w + 5264 , -11712*w + 33782 , -5718*w + 43386 , -11424*w - 2044 , 23492*w + 4452 , 1262*w + 1400 , 93814 , 392*w + 29596 , 13832*w + 25270 , 20888*w + 7168 , -10108*w + 38920 , -14180*w + 59962 ],
[ -7828*w + 1162 , -4079*w + 10843 , -2065*w + 14077 , -3582*w - 1134 , 7334*w + 2772 , 418*w + 490 , -392*w + 29596 , 9380 , 4376*w + 8764 , 6754*w + 3010 , -3458*w + 12334 , -5022*w + 19670 ],
[ -10626*w - 35070 , -12641*w - 6083 , -12625*w + 4123 , -2052*w - 14364 , 4256*w + 29792 , 580*w + 2884 , -13832*w + 25270 , -4376*w + 8764 , 37366 , 8464*w + 37632 , -13936*w + 3192 , -15588*w - 8498 ],
[ -3088*w - 52808 , -11546*w - 25872 , -13766*w - 14952 , 702*w - 18522 , -1456*w + 38416 , -110*w + 3850 , -20888*w + 7168 , -6754*w + 3010 , -8464*w + 37632 , 51912 , -14946*w - 19222 , -14464*w - 31304 ],
[ -14000*w + 25844 , -3144*w + 32732 , 816*w + 33040 , -5508*w + 5670 , 11424*w - 11760 , 1156*w - 1190 , 10108*w + 38920 , 3458*w + 12334 , 13936*w + 3192 , 14946*w - 19222 , 37268 , -3478*w + 40376 ],
[ -41340*w + 140658 , -17901*w + 158739 , 16103*w + 124537 , -10196*w + 21126 , 14126*w - 6580 , 1862*w + 1666 , 14180*w + 59962 , 5022*w + 19670 , 15588*w - 8498 , 14464*w - 31304 , 3478*w + 40376 , 378140 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 189 ***/
Grammatrix:=Matrix(S,[
[ 100050818 , 1912492*w + 27875484 , 459542*w - 6505576 , 465420*w - 6956418 , -1545909*w - 14212331 , -849372*w - 15580194 , 529977*w - 5712819 , -435144*w + 1193206 , -2847592*w + 18680774 , -2621284*w - 11189080 , -859970*w - 2362514 ,
    22356490*w + 30517256 ],
[ -1912492*w + 27875484 , 8069684 , 201272*w - 1742384 , 236208*w - 1847188 , -100180*w - 4253900 , 89430*w - 4508952 , 254866*w - 1531012 , -138160*w + 269948 , -1093524*w + 4722690 , -518322*w - 3349262 , -192556*w - 744240 , 5652612*w +
    12165356 ],
[ -459542*w - 6505576 , -201272*w - 1742384 , 1661268 , -16832*w + 1119020 , 91484*w + 490770 , 53334*w + 997150 , -83336*w + 518420 , 58740*w - 196112 , 340566*w - 2609838 , 389826*w + 1488074 , 123784*w + 307188 , -793944*w - 1144430 ],
[ -465420*w - 6956418 , -236208*w - 1847188 , 16832*w + 1119020 , 1012844 , 154544*w + 654556 , 110308*w + 1098328 , -76142*w + 583436 , 62636*w - 223720 , 335990*w - 2979480 , 465160*w + 1624420 , 144860*w + 329980 , -1080100*w - 1090950 ],
[ 1545909*w - 14212331 , 100180*w - 4253900 , -91484*w + 490770 , -154544*w + 654556 , 2961602 , -97777*w + 2710743 , -133587*w + 775873 , 65418*w - 64540 , 625495*w - 1582245 , 73135*w + 1481725 , 47330*w + 351400 , -3696688*w - 8214444 ],
[ 849372*w - 15580194 , -89430*w - 4508952 , -53334*w + 997150 , -110308*w + 1098328 , 97777*w + 2710743 , 2786322 , -141011*w + 961303 , 84018*w - 182896 , 641322*w - 2992892 , 348860*w + 2051336 , 125428*w + 451276 , -3595136*w - 7087542 ],
[ -529977*w - 5712819 , -254866*w - 1531012 , 83336*w + 518420 , 76142*w + 583436 , 133587*w + 775873 , 141011*w + 961303 , 503454 , 15670*w - 180432 , -79641*w - 2095877 , 449711*w + 699321 , 122906*w + 108136 , -1304024*w - 1519392 ],
[ 435144*w + 1193206 , 138160*w + 269948 , -58740*w - 196112 , -62636*w - 223720 , -65418*w - 64540 , -84018*w - 182896 , -15670*w - 180432 , 94178 , 127604*w + 967428 , -242982*w - 196532 , -62744*w - 14168 , 228642*w - 106148 ],
[ 2847592*w + 18680774 , 1093524*w + 4722690 , -340566*w - 2609838 , -335990*w - 2979480 , -625495*w - 1582245 , -641322*w - 2992892 , 79641*w - 2095877 , -127604*w + 967428 , 11273710 , -2254296*w - 4369904 , -632450*w - 749154 , 3044870*w +
    1695806 ],
[ 2621284*w - 11189080 , 518322*w - 3349262 , -389826*w + 1488074 , -465160*w + 1624420 , -73135*w + 1481725 , -348860*w + 2051336 , -449711*w + 699321 , 242982*w - 196532 , 2254296*w - 4369904 , 4849306 , 95348*w + 1175636 , -833650*w - 4888800
],
[ 859970*w - 2362514 , 192556*w - 744240 , -123784*w + 307188 , -144860*w + 329980 , -47330*w + 351400 , -125428*w + 451276 , -122906*w + 108136 , 62744*w - 14168 , 632450*w - 749154 , -95348*w + 1175636 , 298144 , -107672*w - 1311660 ],
[ -22356490*w + 30517256 , -5652612*w + 12165356 , 793944*w - 1144430 , 1080100*w - 1090950 , 3696688*w - 8214444 , 3595136*w - 7087542 , 1304024*w - 1519392 , -228642*w - 106148 , -3044870*w + 1695806 , 833650*w - 4888800 , 107672*w - 1311660 ,
    57058596 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 190 ***/
Grammatrix:=Matrix(S,[
[ 354802 , -16692*w + 64722 , 5370*w - 7560 , 45004*w + 99288 , -13113*w - 60417 , 21294*w - 2016 , 6888*w - 9282 , 8970*w - 33516 , 3136*w - 23744 , -28420*w + 22036 , -6216*w + 50862 , -43141*w - 132615 ],
[ 16692*w + 64722 , 84966 , -2588*w + 924 , 6094*w + 25816 , -569*w - 40663 , -558*w - 27720 , -2004*w - 8610 , -7128*w - 13230 , -4950*w - 5040 , 3150*w + 37170 , 9180*w + 9450 , -4967*w + 43603 ],
[ -5370*w - 7560 , 2588*w + 924 , 19208 , -398*w + 11564 , 5258*w + 266 , -622*w + 5194 , 212*w + 1722 , 1698*w + 2646 , 990*w + 1008 , -630*w - 7434 , -1836*w - 1890 , 10350*w - 7112 ],
[ -45004*w + 99288 , -6094*w + 25816 , 398*w + 11564 , 110474 , 4852*w - 56980 , -1724*w + 5516 , -262*w + 2296 , 838*w + 3276 , 666*w + 1750 , 760*w - 8820 , -1572*w - 4508 , 14348*w - 55482 ],
[ 13113*w - 60417 , 569*w - 40663 , -5258*w + 266 , -4852*w - 56980 , 62132 , 1109*w + 10507 , 1212*w + 2982 , 3628*w + 6412 , 2417*w + 1925 , -2130*w - 16240 , -4314*w - 2996 , -1831*w + 18599 ],
[ -21294*w - 2016 , 558*w - 27720 , 622*w + 5194 , 1724*w + 5516 , -1109*w + 10507 , 36708 , 1900*w + 11914 , 6516*w + 14826 , 5142*w + 5376 , -4494*w - 50610 , -12444*w - 12810 , 14217*w - 44065 ],
[ -6888*w - 9282 , 2004*w - 8610 , -212*w + 1722 , 262*w + 2296 , -1212*w + 2982 , -1900*w + 11914 , 4774 , 1324*w + 8274 , 1370*w + 4088 , 1036*w - 17780 , -3382*w - 8414 , 7282*w - 9142 ],
[ -8970*w - 33516 , 7128*w - 13230 , -1698*w + 2646 , -838*w + 3276 , -3628*w + 6412 , -6516*w + 14826 , -1324*w + 8274 , 20538 , 1118*w + 11228 , 6096*w - 25816 , -3206*w - 19194 , 15886*w - 966 ],
[ -3136*w - 23744 , 4950*w - 5040 , -990*w + 1008 , -666*w + 1750 , -2417*w + 1925 , -5142*w + 5376 , -1370*w + 4088 , -1118*w + 11228 , 7014 , 6246*w - 11578 , -86*w - 13790 , 9073*w + 6937 ],
[ 28420*w + 22036 , -3150*w + 37170 , 630*w - 7434 , -760*w - 8820 , 2130*w - 16240 , 4494*w - 50610 , -1036*w - 17780 , -6096*w - 25816 , -6246*w - 11578 , 81144 , 17086*w + 31290 , -25646*w + 42476 ],
[ 6216*w + 50862 , -9180*w + 9450 , 1836*w - 1890 , 1572*w - 4508 , 4314*w - 2996 , 12444*w - 12810 , 3382*w - 8414 , 3206*w - 19194 , 86*w - 13790 , -17086*w + 31290 , 37268 , -18986*w - 21798 ],
[ 43141*w - 132615 , 4967*w + 43603 , -10350*w - 7112 , -14348*w - 55482 , 1831*w + 18599 , -14217*w - 44065 , -7282*w - 9142 , -15886*w - 966 , -9073*w + 6937 , 25646*w + 42476 , 18986*w - 21798 , 160776 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 191 ***/
Grammatrix:=Matrix(S,[
[ 4242 , -175*w - 1617 , 161*w + 413 , 123*w + 483 , -529*w + 315 , 18*w + 238 , -185*w + 399 , 141*w - 427 , -53*w + 35 , -106*w - 266 , -186*w + 112 , -705*w + 1631 ],
[ 175*w - 1617 , 714 , -44*w - 224 , -30*w - 196 , 200*w + 56 , 16*w , 72*w , -16*w , 0 , 0 , 0 , 395*w - 371 ],
[ -161*w + 413 , 44*w - 224 , 154 , -18*w + 112 , -82*w - 322 , -6*w - 140 , -36*w - 252 , -34*w + 196 , 18*w - 14 , 60*w + 84 , 84*w - 140 , -133*w + 203 ],
[ -123*w + 483 , 30*w - 196 , 18*w + 112 , 182 , -160*w - 182 , -16*w + 56 , -54*w - 28 , 12*w , 0 , 0 , 0 , -75*w + 231 ],
[ 529*w + 315 , -200*w + 56 , 82*w - 322 , 160*w - 182 , 1652 , 122*w + 420 , 74*w + 700 , 14*w - 308 , -18*w + 14 , -60*w - 84 , -84*w + 140 , 465*w + 217 ],
[ -18*w + 238 , -16*w , 6*w - 140 , 16*w + 56 , -122*w + 420 , 1078 , 14*w + 1120 , 246*w - 1120 , -108*w + 84 , -360*w - 504 , -504*w + 840 , -208*w + 98 ],
[ 185*w + 399 , -72*w , 36*w - 252 , 54*w - 28 , -74*w + 700 , -14*w + 1120 , 1904 , 420*w - 2156 , -204*w + 252 , -736*w - 952 , -1008*w + 1680 , -235*w - 693 ],
[ -141*w - 427 , 16*w , 34*w + 196 , -12*w , -14*w - 308 , -246*w - 1120 , -420*w - 2156 , 3612 , 216*w - 742 , 1210*w - 56 , 882*w - 3934 , 620*w + 378 ],
[ 53*w + 35 , 0 , -18*w - 14 , 0 , 18*w + 14 , 108*w + 84 , 204*w + 252 , -216*w - 742 , 252 , -248*w + 504 , 42*w + 1162 , -144*w + 140 ],
[ 106*w - 266 , 0 , -60*w + 84 , 0 , 60*w - 84 , 360*w - 504 , 736*w - 952 , -1210*w - 56 , 248*w + 504 , 2940 , 1358*w + 2254 , -246*w + 1596 ],
[ 186*w + 112 , 0 , -84*w - 140 , 0 , 84*w + 140 , 504*w + 840 , 1008*w + 1680 , -882*w - 3934 , -42*w + 1162 , -1358*w + 2254 , 6160 , -974*w + 406 ],
[ 705*w + 1631 , -395*w - 371 , 133*w + 203 , 75*w + 231 , -465*w + 217 , 208*w + 98 , 235*w - 693 , -620*w + 378 , 144*w + 140 , 246*w + 1596 , 974*w + 406 , 5026 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 192 ***/
Grammatrix:=Matrix(S,[
[ 428186623368 , 176738469222*w - 497293600790 , -105851495804*w + 297283289324 , -71023061061*w + 198102776963 , 24741183385*w - 68672296987 , -8220651365*w + 22826639703 , -1145376198*w + 3201452842 , 11227807*w + 74181499 , 65374593*w +
    122014263 , 34216850*w + 18702348 , -19988718*w + 85589434 , 134263258728*w + 678323233406 ],
[ -176738469222*w - 497293600790 , 1091116428374 , 302699539*w - 653088345623 , 706846908*w - 435129685998 , -239066275*w + 151161084361 , 56642906*w - 50276421468 , -23480602*w - 7135983484 , 34044091*w - 121912259 , -893701*w - 369993309 ,
    -28026111*w - 152703523 , 67821728*w - 14918890 , -436424366599*w - 400540002625 ],
[ 105851495804*w + 297283289324 , -302699539*w - 653088345623 , 390945738442 , -342375188*w + 260328909834 , 102166759*w - 90401378081 , -17276423*w + 30066964613 , 21706511*w + 4272224915 , -25304404*w + 95518444 , 1866752*w + 285451404 ,
    21968576*w + 116173652 , -52074450*w + 13042834 , 261266643759*w + 238983570651 ],
[ 71023061061*w + 198102776963 , -706846908*w - 435129685998 , 342375188*w + 260328909834 , 174471311098 , 80358079*w - 60652241251 , -28822575*w + 20147405579 , -7118971*w + 2787259293 , 40857480*w - 6761552 , 84241912*w - 159560996 , 21990160*w
    - 103981304 , 31500676*w + 99859228 , 174659692289*w + 157968761587 ],
[ -24741183385*w - 68672296987 , 239066275*w + 151161084361 , -102166759*w - 90401378081 , -80358079*w - 60652241251 , 21164159016 , 3502831*w - 7039292743 , 8744546*w - 981199030 , -12920054*w + 38514126 , -8145822*w + 125203330 , 5876059*w +
    53173281 , -22730776*w - 5378058 , -60708689821*w - 54658237123 ],
[ 8220651365*w + 22826639703 , -56642906*w - 50276421468 , 17276423*w + 30066964613 , 28822575*w + 20147405579 , -3502831*w - 7039292743 , 2343321218 , -3200841*w + 329991025 , 2313588*w - 15899562 , -2955988*w - 40942132 , -4155073*w - 14525763 ,
7219948*w - 5326510 , 20176319884*w + 18204691428 ],
[ 1145376198*w + 3201452842 , 23480602*w - 7135983484 , -21706511*w + 4272224915 , 7118971*w + 2787259293 , -8744546*w - 981199030 , 3200841*w + 329991025 , 53954698 , -4820500*w - 4350612 , -12075598*w + 8144528 , -4195175*w + 9446507 ,
    -1937710*w - 14912996 , 2827829747*w + 2612345743 ],
[ -11227807*w + 74181499 , -34044091*w - 121912259 , 25304404*w + 95518444 , -40857480*w - 6761552 , 12920054*w + 38514126 , -2313588*w - 15899562 , 4820500*w - 4350612 , 26226732 , 13275334*w + 53884838 , 9223056*w + 14570864 , -9192400*w +
    18830224 , 28040542*w + 83525358 ],
[ -65374593*w + 122014263 , 893701*w - 369993309 , -1866752*w + 285451404 , -84241912*w - 159560996 , 8145822*w + 125203330 , 2955988*w - 40942132 , 12075598*w + 8144528 , -13275334*w + 53884838 , 157760050 , 11573496*w + 62621496 , -28419800*w +
    6116040 , 11237346*w + 296287978 ],
[ -34216850*w + 18702348 , 28026111*w - 152703523 , -21968576*w + 116173652 , -21990160*w - 103981304 , -5876059*w + 53173281 , 4155073*w - 14525763 , 4195175*w + 9446507 , -9223056*w + 14570864 , -11573496*w + 62621496 , 30801904 , -11729936*w -
    12167008 , -14941939*w + 127458009 ],
[ 19988718*w + 85589434 , -67821728*w - 14918890 , 52074450*w + 13042834 , -31500676*w + 99859228 , 22730776*w - 5378058 , -7219948*w - 5326510 , 1937710*w - 14912996 , 9192400*w + 18830224 , 28419800*w + 6116040 , 11729936*w - 12167008 , 36075424
, 54079516*w - 6329246 ],
[ -134263258728*w + 678323233406 , 436424366599*w - 400540002625 , -261266643759*w + 238983570651 , -174659692289*w + 157968761587 , 60708689821*w - 54658237123 , -20176319884*w + 18204691428 , -2827829747*w + 2612345743 , -28040542*w + 83525358 ,
-11237346*w + 296287978 , 14941939*w + 127458009 , -54079516*w - 6329246 , 1370145348334 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 193 ***/
Grammatrix:=Matrix(S,[
[ 4077668 , 73866*w + 1183182 , 30965*w + 365267 , -165797*w + 2955043 , -74129*w - 901747 , 54350*w + 202020 , 160192*w + 694764 , 765254*w + 1423156 , 311736*w - 2089122 , -75834*w + 1630440 , 330294*w + 597338 , 481398*w + 109410 ],
[ -73866*w + 1183182 , 1293852 , 12467*w + 187943 , -292379*w + 587363 , 64001*w - 147231 , -5728*w + 84672 , -4494*w + 151368 , 83128*w + 352632 , 83012*w - 304416 , -37848*w + 237804 , 39672*w + 126336 , 989282*w + 1462888 ],
[ -30965*w + 365267 , -12467*w + 187943 , 44702 , -86976*w + 340970 , 17222*w - 118300 , 1486*w + 26530 , -1167*w + 86079 , 34367*w + 230825 , 67119*w - 127659 , -39318*w + 121674 , 14598*w + 95592 , 108995*w + 191219 ],
[ 165797*w + 2955043 , 292379*w + 587363 , 86976*w + 340970 , 13039194 , -149216*w - 4766454 , 162410*w + 745906 , 39945*w + 2937515 , 857707*w + 7964033 , 2424193*w - 2978521 , -1584418*w + 3395546 , 263400*w + 3429062 , 563321*w - 4331201 ],
[ 74129*w - 901747 , -64001*w - 147231 , -17222*w - 118300 , 149216*w - 4766454 , 1899576 , -29424*w - 398650 , 97785*w - 1358903 , -71997*w - 4059881 , -1313303*w + 697053 , 916836*w - 1180438 , 17124*w - 1749314 , -154891*w + 1863743 ],
[ -54350*w + 202020 , 5728*w + 84672 , -1486*w + 26530 , -162410*w + 745906 , 29424*w - 398650 , 426300 , -94710*w + 787486 , -67580*w + 2386258 , 780506*w - 156212 , -565458*w + 507864 , -58726*w + 1013194 , 41170*w - 637112 ],
[ -160192*w + 694764 , 4494*w + 151368 , 1167*w + 86079 , -39945*w + 2937515 , -97785*w - 1358903 , 94710*w + 787486 , 1937614 , 525792*w + 5594750 , 1763182*w - 1960364 , -1152700*w + 2338602 , 164656*w + 2453808 , -156622*w - 1655430 ],
[ -765254*w + 1423156 , -83128*w + 352632 , -34367*w + 230825 , -857707*w + 7964033 , 71997*w - 4059881 , 67580*w + 2386258 , -525792*w + 5594750 , 17351502 , 5719898*w - 2341108 , -4024580*w + 4653222 , -188080*w + 7518672 , -149194*w - 5026140
],
[ -311736*w - 2089122 , -83012*w - 304416 , -67119*w - 127659 , -2424193*w - 2978521 , 1313303*w + 697053 , -780506*w - 156212 , -1763182*w - 1960364 , -5719898*w - 2341108 , 13552588 , -997018*w - 9934078 , -2459178*w - 1443610 , 1663730*w +
    146818 ],
[ 75834*w + 1630440 , 37848*w + 237804 , 39318*w + 121674 , 1584418*w + 3395546 , -916836*w - 1180438 , 565458*w + 507864 , 1152700*w + 2338602 , 4024580*w + 4653222 , 997018*w - 9934078 , 7799022 , 1697344*w + 2326016 , -1228930*w - 995652 ],
[ -330294*w + 597338 , -39672*w + 126336 , -14598*w + 95592 , -263400*w + 3429062 , -17124*w - 1749314 , 58726*w + 1013194 , -164656*w + 2453808 , 188080*w + 7518672 , 2459178*w - 1443610 , -1697344*w + 2326016 , 3279584 , -150386*w - 2175586 ],
[ -481398*w + 109410 , -989282*w + 1462888 , -108995*w + 191219 , -563321*w - 4331201 , 154891*w + 1863743 , -41170*w - 637112 , 156622*w - 1655430 , 149194*w - 5026140 , -1663730*w + 146818 , 1228930*w - 995652 , 150386*w - 2175586 , 9592688 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 194 ***/
Grammatrix:=Matrix(S,[
[ 2943752 , 67652*w + 6975164 , 473904*w - 4123252 , 20012*w + 63490 , -132212*w - 36190 , -127792*w + 198520 , 234930*w - 654038 , -208020*w + 2105418 , -43992*w + 469896 , -193530*w - 84140 , -165518*w + 353934 , 968558*w + 920416 ],
[ -67652*w + 6975164 , 16680188 , 1338307*w - 9386405 , 18956*w + 110586 , -318416*w - 125846 , -290994*w + 436744 , 542238*w - 1519560 , -476420*w + 4885188 , -101014*w + 1089396 , -450680*w - 193158 , -384276*w + 826756 , 2277482*w + 2454116 ],
[ -473904*w - 4123252 , -1338307*w - 9386405 , 8962128 , -27732*w - 562044 , 182687*w - 269213 , 175886*w - 229544 , -310380*w + 846804 , 272392*w - 2782010 , 57615*w - 621915 , 257198*w + 110124 , 219282*w - 471884 , -1630479*w - 88095 ],
[ -20012*w + 63490 , -18956*w + 110586 , 27732*w - 562044 , 111594 , -1050*w + 20062 , -9282*w - 40698 , 27972*w + 53284 , -81366*w - 18844 , -17920*w - 3360 , 240*w - 53200 , -16240*w - 38640 , 48856*w + 55874 ],
[ 132212*w - 36190 , 318416*w - 125846 , -182687*w - 269213 , 1050*w + 20062 , 58408 , 11766*w + 19222 , -31050*w - 45752 , 87006*w + 8092 , 19264*w + 448 , -48*w + 52528 , 16240*w + 38640 , 34276*w - 319312 ],
[ 127792*w + 198520 , 290994*w + 436744 , -175886*w - 229544 , 9282*w - 40698 , -11766*w + 19222 , 118790 , -12256*w - 164472 , 91530*w + 292404 , 21624*w + 66668 , -17976*w + 66612 , 6240*w + 85344 , 81128*w - 249858 ],
[ -234930*w - 654038 , -542238*w - 1519560 , 310380*w + 846804 , -27972*w + 53284 , 31050*w - 45752 , 12256*w - 164472 , 377762 , -164308*w - 792078 , -37780*w - 174720 , 66094*w - 118062 , 11890*w - 227262 , -261682*w + 357182 ],
[ 208020*w + 2105418 , 476420*w + 4885188 , -272392*w - 2782010 , 81366*w - 18844 , -87006*w + 8092 , -91530*w + 292404 , 164308*w - 792078 , 2172688 , 3300*w + 482230 , -192534*w + 39312 , -127622*w + 442442 , 713234*w + 63000 ],
[ 43992*w + 469896 , 101014*w + 1089396 , -57615*w - 621915 , 17920*w - 3360 , -19264*w + 448 , -21624*w + 66668 , 37780*w - 174720 , -3300*w + 482230 , 107366 , -42488*w + 7798 , -28476*w + 96740 , 158410*w + 18438 ],
[ 193530*w - 84140 , 450680*w - 193158 , -257198*w + 110124 , -240*w - 53200 , 48*w + 52528 , 17976*w + 66612 , -66094*w - 118062 , 192534*w + 39312 , 42488*w + 7798 , 126588 , 38984*w + 90552 , 21480*w - 453278 ],
[ 165518*w + 353934 , 384276*w + 826756 , -219282*w - 471884 , 16240*w - 38640 , -16240*w + 38640 , -6240*w + 85344 , -11890*w - 227262 , 127622*w + 442442 , 28476*w + 96740 , -38984*w + 90552 , 149072 , 154378*w - 280070 ],
[ -968558*w + 920416 , -2277482*w + 2454116 , 1630479*w - 88095 , -48856*w + 55874 , -34276*w - 319312 , -81128*w - 249858 , 261682*w + 357182 , -713234*w + 63000 , -158410*w + 18438 , -21480*w - 453278 , -154378*w - 280070 , 2663864 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 384 );
/***Gitter Nr. 195 ***/
Grammatrix:=Matrix(S,[
[ 100317154 , 4001542*w + 22807120 , -487448*w - 2572626 , 522232*w - 1387358 , -2293786*w + 2196600 , -543564*w + 1142064 , 698658*w + 655928 , -2104770*w - 11795056 , -108356*w - 688772 , -485836*w + 2185890 , -1892362*w + 5793438 , 77738776*w +
    85454236 ],
[ -4001542*w + 22807120 , 7060312 , -1714*w - 649068 , 116530*w + 134302 , -459772*w - 323134 , -191230*w + 61628 , 55992*w + 235284 , 479792*w - 1597624 , 31812*w - 92708 , -152864*w - 30702 , -445658*w - 313530 , 14927266*w + 43769096 ],
[ 487448*w - 2572626 , 1714*w - 649068 , 344148 , -65434*w + 271096 , 127128*w - 185920 , 50972*w - 89152 , -3576*w - 17444 , -24676*w + 75544 , -1884*w + 4480 , 7748*w + 2800 , 22180*w + 19544 , -1790256*w - 5160568 ],
[ -522232*w - 1387358 , -116530*w + 134302 , 65434*w + 271096 , 677838 , 32156*w - 1002638 , -37810*w - 357252 , -42942*w + 24360 , 421140*w + 638624 , 25240*w + 38640 , -8652*w - 252000 , 27360*w - 761040 , -1449082*w + 2273124 ],
[ 2293786*w + 2196600 , 459772*w - 323134 , -127128*w - 185920 , -32156*w - 1002638 , 2385684 , 63322*w + 977998 , 56922*w - 216972 , -535834*w - 755216 , -32060*w - 58492 , 10992*w + 323400 , -34808*w + 968212 , 3603438*w - 9943332 ],
[ 543564*w + 1142064 , 191230*w + 61628 , -50972*w - 89152 , 37810*w - 357252 , -63322*w + 977998 , 564004 , -3492*w + 2646 , 236346*w - 1050042 , 13052*w - 70994 , -92040*w + 26754 , -279352*w - 61768 , 1765388*w - 2025226 ],
[ -698658*w + 655928 , -55992*w + 235284 , 3576*w - 17444 , 42942*w + 24360 , -56922*w - 216972 , 3492*w + 2646 , 152054 , 191324*w - 1083334 , 10424*w - 61586 , -85832*w + 41118 , -264416*w - 2548 , 123730*w + 3217060 ],
[ 2104770*w - 11795056 , -479792*w - 1597624 , 24676*w + 75544 , -421140*w + 638624 , 535834*w - 755216 , -236346*w - 1050042 , -191324*w - 1083334 , 12920614 , 9650*w + 757064 , 772836*w - 1470910 , 2612156*w - 3237724 , -8128348*w - 10466834 ],
[ 108356*w - 688772 , -31812*w - 92708 , 1884*w + 4480 , -25240*w + 38640 , 32060*w - 58492 , -13052*w - 70994 , -10424*w - 61586 , -9650*w + 757064 , 44618 , 46436*w - 82292 , 155656*w - 176274 , -497140*w - 554232 ],
[ 485836*w + 2185890 , 152864*w - 30702 , -7748*w + 2800 , 8652*w - 252000 , -10992*w + 323400 , 92040*w + 26754 , 85832*w + 41118 , -772836*w - 1470910 , -46436*w - 82292 , 491246 , -103784*w + 1462804 , 1545448*w - 2341402 ],
[ 1892362*w + 5793438 , 445658*w - 313530 , -22180*w + 19544 , -27360*w - 761040 , 34808*w + 968212 , 279352*w - 61768 , 264416*w - 2548 , -2612156*w - 3237724 , -155656*w - 176274 , 103784*w + 1462804 , 4509428 , 4093720*w - 9180808 ],
[ -77738776*w + 85454236 , -14927266*w + 43769096 , 1790256*w - 5160568 , 1449082*w + 2273124 , -3603438*w - 9943332 , -1765388*w - 2025226 , -123730*w + 3217060 , 8128348*w - 10466834 , 497140*w - 554232 , -1545448*w - 2341402 , -4093720*w -
    9180808 , 512475152 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 196 ***/
Grammatrix:=Matrix(S,[
[ 42126770 , 3409982*w + 19922756 , -235008*w + 2893856 , -280107241*w - 351980615 , -70023612*w - 88055044 , -70470750*w - 92515920 , -11983493*w - 18808769 , -397790*w + 1225770 , -489079*w - 198177 , -14737*w - 136829 , 129398*w - 667800 ,
    52733983*w - 161864479 ],
[ -3409982*w + 19922756 , 14278418 , -696809*w + 1206107 , -68255900*w - 332249190 , -17045773*w - 83158117 , -17812086*w - 87050488 , -1832381*w - 17981257 , -256855*w + 1259167 , -505332*w - 58240 , -20297*w - 149947 , 89124*w - 758842 ,
    34936877*w - 20260387 ],
[ 235008*w + 2893856 , 696809*w + 1206107 , 959392 , -24129046*w - 44878806 , -6041470*w - 11214910 , -5862532*w - 10205006 , -1607940*w - 2097144 , 93664*w - 274204 , 115838*w + 96614 , 816*w + 37296 , -40318*w + 161826 , 6150905*w - 12177277 ],
[ 280107241*w - 351980615 , 68255900*w - 332249190 , 24129046*w - 44878806 , 19363282106 , 265111*w + 4842106983 , -9706185*w + 4827753413 , 2626405*w + 928625705 , 68708*w + 10410316 , -1004400*w + 2247728 , -16744*w + 728 , 173456*w - 2232104 ,
-1859239560*w - 1470212324 ],
[ 70023612*w - 88055044 , 17045773*w - 83158117 , 6041470*w - 11214910 , -265111*w + 4842106983 , 1210853476 , -2419238*w + 1207337110 , 618885*w + 232329251 , 10304*w + 2552018 , -232537*w + 530215 , -1921*w + 4991 , 48562*w - 523628 ,
    -464917826*w - 367927742 ],
[ 70470750*w - 92515920 , 17812086*w - 87050488 , 5862532*w - 10205006 , 9706185*w + 4827753413 , 2419238*w + 1207337110 , 1213375646 , -1189581*w + 229982403 , 759506*w + 1107456 , 579331*w + 2119845 , -39511*w + 337001 , -415968*w + 588098 ,
    -462914167*w - 361469871 ],
[ 11983493*w - 18808769 , 1832381*w - 17981257 , 1607940*w - 2097144 , -2626405*w + 928625705 , -618885*w + 232329251 , 1189581*w + 229982403 , 50607158 , -485790*w - 974918 , 189415*w - 1541085 , 77115*w - 6405 , 324826*w + 509908 , -88972970*w -
    75223722 ],
[ 397790*w + 1225770 , 256855*w + 1259167 , -93664*w - 274204 , -68708*w + 10410316 , -10304*w + 2552018 , -759506*w + 1107456 , 485790*w - 974918 , 750764 , -249498*w + 204134 , -18336*w - 68768 , -8240*w - 433776 , -1239099*w + 249851 ],
[ 489079*w - 198177 , 505332*w - 58240 , -115838*w + 96614 , 1004400*w + 2247728 , 232537*w + 530215 , -579331*w + 2119845 , -189415*w - 1541085 , 249498*w + 204134 , 763826 , -35360*w + 34048 , -175496*w - 90776 , 24946*w + 1130192 ],
[ 14737*w - 136829 , 20297*w - 149947 , -816*w + 37296 , 16744*w + 728 , 1921*w + 4991 , 39511*w + 337001 , -77115*w - 6405 , 18336*w - 68768 , 35360*w + 34048 , 13328 , -11664*w + 53760 , 35017*w - 74739 ],
[ -129398*w - 667800 , -89124*w - 758842 , 40318*w + 161826 , -173456*w - 2232104 , -48562*w - 523628 , 415968*w + 588098 , -324826*w + 509908 , 8240*w - 433776 , 175496*w - 90776 , 11664*w + 53760 , 298144 , 326786*w - 608580 ],
[ -52733983*w - 161864479 , -34936877*w - 20260387 , -6150905*w - 12177277 , 1859239560*w - 1470212324 , 464917826*w - 367927742 , 462914167*w - 361469871 , 88972970*w - 75223722 , 1239099*w + 249851 , -24946*w + 1130192 , -35017*w - 74739 ,
    -326786*w - 608580 , 1368346588 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 32 );
/***Gitter Nr. 197 ***/
Grammatrix:=Matrix(S,[
[ 230762 , -231318*w + 514276 , 85650*w - 122402 , -3653*w + 44555 , -551549*w + 824187 , 102306*w - 160944 , -6074*w - 17080 , 36495*w - 94675 , -13089*w + 300545 , -54828*w - 186326 , 13324*w + 32326 , -14395*w + 339717 ],
[ 231318*w + 514276 , 3001292 , 84983*w - 939981 , 22177*w + 152257 , -471896*w + 6166510 , 73105*w - 1150653 , -37926*w - 2142 , -4821*w - 626941 , 346535*w + 1051421 , -409988*w - 86254 , 83056*w - 20118 , 339172*w + 952434 ],
[ -85650*w - 122402 , -84983*w - 939981 , 347718 , -13309*w - 52241 , -25931*w - 2203565 , 10005*w + 410025 , 8043*w - 13517 , 29983*w + 184401 , -152298*w - 199150 , 125898*w - 108542 , -23774*w + 33236 , -142961*w - 243341 ],
[ 3653*w + 44555 , -22177*w + 152257 , 13309*w - 52241 , 29274 , -76140*w + 296394 , 13888*w - 49112 , -3862*w - 224 , -8068*w - 50792 , 37592*w + 57736 , -33172*w + 22316 , 6232*w - 7336 , 11456*w + 68068 ],
[ 551549*w + 824187 , 471896*w + 6166510 , 25931*w - 2203565 , 76140*w + 296394 , 14182378 , -34673*w - 2654505 , -53023*w + 73325 , -139330*w - 1200360 , 906025*w + 1503355 , -813700*w + 467110 , 157020*w - 168420 , 901356*w + 1650376 ],
[ -102306*w - 160944 , -73105*w - 1150653 , -10005*w + 410025 , -13888*w - 49112 , 34673*w - 2654505 , 502306 , 8369*w - 14539 , 19624*w + 210854 , -152741*w - 282429 , 142996*w - 62510 , -27900*w + 25732 , -163083*w - 322609 ],
[ 6074*w - 17080 , 37926*w - 2142 , -8043*w - 13517 , 3862*w - 224 , 53023*w + 73325 , -8369*w - 14539 , 11466 , -13728*w + 7966 , 20544*w - 59878 , 1020*w + 63420 , -972*w - 12460 , 12023*w - 20825 ],
[ -36495*w - 94675 , 4821*w - 626941 , -29983*w + 184401 , 8068*w - 50792 , 139330*w - 1200360 , -19624*w + 210854 , 13728*w + 7966 , 231154 , -121792*w - 378518 , 146248*w + 36680 , -29560*w + 6440 , -67440*w - 212114 ],
[ 13089*w + 300545 , -346535*w + 1051421 , 152298*w - 199150 , -37592*w + 57736 , -906025*w + 1503355 , 152741*w - 282429 , -20544*w - 59878 , 121792*w - 378518 , 1085014 , -223368*w - 606984 , 52600*w + 100184 , -1767*w + 627669 ],
[ 54828*w - 186326 , 409988*w - 86254 , -125898*w - 108542 , 33172*w + 22316 , 813700*w + 467110 , -142996*w - 62510 , -1020*w + 63420 , -146248*w + 36680 , 223368*w - 606984 , 661584 , -8800*w - 131824 , 130150*w - 346640 ],
[ -13324*w + 32326 , -83056*w - 20118 , 23774*w + 33236 , -6232*w - 7336 , -157020*w - 168420 , 27900*w + 25732 , 972*w - 12460 , 29560*w + 6440 , -52600*w + 100184 , 8800*w - 131824 , 27104 , -30622*w + 57694 ],
[ 14395*w + 339717 , -339172*w + 952434 , 142961*w - 243341 , -11456*w + 68068 , -901356*w + 1650376 , 163083*w - 322609 , -12023*w - 20825 , 67440*w - 212114 , 1767*w + 627669 , -130150*w - 346640 , 30622*w + 57694 , 604086 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 198 ***/
Grammatrix:=Matrix(S,[
[ 3442418 , -7293301*w + 11659417 , -117998*w + 148540 , 8311752*w + 153553932 , -3545996*w - 50009372 , -534588*w - 9493008 , -1485572*w - 8311492 , 322259*w + 443037 , 110563*w - 173397 , 275628*w - 364546 , -10984*w + 538944 , 26149346*w +
    28110152 ],
[ 7293301*w + 11659417 , 202003886 , 1123369*w + 4893035 , 513986557*w + 561109381 , -171734500*w - 166186888 , -33871003*w - 33160435 , -33219830*w - 29056342 , 412987*w - 407799 , 61785*w - 555583 , 245061*w - 1524887 , 251934*w + 909020 ,
    219545773*w - 420356755 ],
[ 117998*w + 148540 , -1123369*w + 4893035 , 442246 , 9193127*w + 42131033 , -3189541*w - 13613845 , -668829*w - 2879233 , -372591*w - 2964759 , -74156*w - 173880 , -32200*w + 25760 , -76090*w + 45430 , 14810*w - 129990 , 8924207*w + 1780429 ],
[ -8311752*w + 153553932 , -513986557*w + 561109381 , -9193127*w + 42131033 , 11156125890 , -54316345*w - 3670039121 , -9801128*w - 732677862 , -13113715*w - 702908829 , 1704994*w - 3058860 , 259318*w - 1235528 , 1092893*w - 1663557 , -74794*w +
    2172996 , 1745519144*w + 2891507472 ],
[ 3545996*w - 50009372 , 171734500*w - 166186888 , 3189541*w - 13613845 , 54316345*w - 3670039121 , 1209294940 , -301505*w + 241447969 , 829878*w + 231961562 , -516704*w + 1003940 , -75244*w + 352240 , -327233*w + 394373 , 47656*w - 611702 ,
    -560289413*w - 1011184713 ],
[ 534588*w - 9493008 , 33871003*w - 33160435 , 668829*w - 2879233 , 9801128*w - 732677862 , 301505*w + 241447969 , 48656230 , -294181*w + 46094531 , -44182*w + 808808 , 66854*w + 119126 , 132699*w + 207081 , -82952*w + 141106 , -111825058*w -
    201879650 ],
[ 1485572*w - 8311492 , 33219830*w - 29056342 , 372591*w - 2964759 , 13113715*w - 702908829 , -829878*w + 231961562 , 294181*w + 46094531 , 50607158 , 575330*w - 879158 , -3818*w - 623616 , 13595*w - 1503495 , 324826*w + 509908 , -108184305*w -
    199157385 ],
[ -322259*w + 443037 , -412987*w - 407799 , 74156*w - 173880 , -1704994*w - 3058860 , 516704*w + 1003940 , 44182*w + 808808 , -575330*w - 879158 , 933324 , 106582*w + 142982 , 249904*w + 341488 , -154992*w + 274512 , -345006*w - 107940 ],
[ -110563*w - 173397 , -61785*w - 555583 , 32200*w + 25760 , -259318*w - 1235528 , 75244*w + 352240 , -66854*w + 119126 , 3818*w - 623616 , -106582*w + 142982 , 111986 , -1176*w + 270760 , -59192*w - 89432 , -18304*w + 229586 ],
[ -275628*w - 364546 , -245061*w - 1524887 , 76090*w + 45430 , -1092893*w - 1663557 , 327233*w + 394373 , -132699*w + 207081 , -13595*w - 1503495 , -249904*w + 341488 , 1176*w + 270760 , 667408 , -147184*w - 217280 , 56471*w + 1335523 ],
[ 10984*w + 538944 , -251934*w + 909020 , -14810*w - 129990 , 74794*w + 2172996 , -47656*w - 611702 , 82952*w + 141106 , -324826*w + 509908 , 154992*w + 274512 , 59192*w - 89432 , 147184*w - 217280 , 298144 , 287858*w - 623812 ],
[ -26149346*w + 28110152 , -219545773*w - 420356755 , -8924207*w + 1780429 , -1745519144*w + 2891507472 , 560289413*w - 1011184713 , 111825058*w - 201879650 , 108184305*w - 199157385 , 345006*w - 107940 , 18304*w + 229586 , -56471*w + 1335523 ,
    -287858*w - 623812 , 2666672190 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 199 ***/
Grammatrix:=Matrix(S,[
[ 583665502 , 14771434*w + 42315574 , -233145078*w - 15767565338 , -17171854*w + 2551317160 , 323270368*w - 468969200 , -6265900*w - 17802904 , -48975560*w + 87292310 , -114378166*w + 120302406 , 176282296*w - 155122254 , 14817852*w + 52916500 ,
    -33905480*w + 234028732 , -610378592*w - 671278258 ],
[ -14771434*w + 42315574 , 16074058 , 343722434*w - 1021455666 , -45792552*w + 66975524 , 19986582*w + 52589726 , -20882*w - 6451158 , -6202328*w - 4867114 , -2087014*w - 29675548 , 37096092*w + 50193122 , -434236*w + 17911684 , -22604996*w +
    32937968 , -18384364*w - 168684880 ],
[ 233145078*w - 15767565338 , -343722434*w - 1021455666 , 437749885440 , 2027162882*w - 72990055180 , -9300425159*w + 13332921805 , 174550829*w + 406675171 , 1341530947*w - 2406942979 , 3351617056*w - 3667691146 , -4359352091*w + 4659860317 ,
    -393114662*w - 1200307808 , 652787002*w - 5792409196 , 16658640860*w + 19529376104 ],
[ 17171854*w + 2551317160 , 45792552*w + 66975524 , -2027162882*w - 72990055180 , 13847098216 , 1515430973*w - 3099775959 , -22443043*w + 4146639 , -182694007*w + 455619801 , -585943282*w + 1081844162 , 314232123*w - 1013057507 , 46785918*w +
    14377580 , 77993562*w + 426710060 , -2841916048*w - 2281549522 ],
[ -323270368*w - 468969200 , -19986582*w + 52589726 , 9300425159*w + 13332921805 , -1515430973*w - 3099775959 , 2053785006 , 9708402*w - 35238448 , -21510645*w - 279236545 , 32716059*w - 771076705 , 113126473*w + 771692663 , -24646816*w + 82246514
, -150103168*w - 41232016 , 898670432*w - 2058474166 ],
[ 6265900*w - 17802904 , 20882*w - 6451158 , -174550829*w + 406675171 , 22443043*w + 4146639 , -9708402*w - 35238448 , 4024300 , 3380473*w + 2921527 , 726991*w + 18850195 , -21631431*w - 26719525 , 56224*w - 10342430 , 12654560*w - 20672288 ,
    6215492*w + 83169618 ],
[ 48975560*w + 87292310 , 6202328*w - 4867114 , -1341530947*w - 2406942979 , 182694007*w + 455619801 , 21510645*w - 279236545 , -3380473*w + 2921527 , 46700668 , -14295261*w + 91528535 , 8325464*w - 170620506 , 8803934*w - 6332130 , 25679038*w +
    61803280 , -158707812*w + 258911688 ],
[ 114378166*w + 120302406 , 2087014*w - 29675548 , -3351617056*w - 3667691146 , 585943282*w + 1081844162 , -32716059*w - 771076705 , -726991*w + 18850195 , 14295261*w + 91528535 , 313559736 , -93267765*w - 215791443 , 1601590*w - 46364472 ,
    59481838*w - 81130812 , -268686900*w + 834512868 ],
[ -176282296*w - 155122254 , -37096092*w + 50193122 , 4359352091*w + 4659860317 , -314232123*w - 1013057507 , -113126473*w + 771692663 , 21631431*w - 26719525 , -8325464*w - 170620506 , 93267765*w - 215791443 , 1036863002 , -57523134*w + 67470396
, -199439582*w - 350277424 , 479472900*w - 1022844928 ],
[ -14817852*w + 52916500 , 434236*w + 17911684 , 393114662*w - 1200307808 , -46785918*w + 14377580 , 24646816*w + 82246514 , -56224*w - 10342430 , -8803934*w - 6332130 , -1601590*w - 46364472 , 57523134*w + 67470396 , 27418538 , -33244768*w +
    56071232 , -23834704*w - 209411944 ],
[ 33905480*w + 234028732 , 22604996*w + 32937968 , -652787002*w - 5792409196 , -77993562*w + 426710060 , 150103168*w - 41232016 , -12654560*w - 20672288 , -25679038*w + 61803280 , -59481838*w - 81130812 , 199439582*w - 350277424 , 33244768*w +
    56071232 , 396829664 , -302752536*w - 225647632 ],
[ 610378592*w - 671278258 , 18384364*w - 168684880 , -16658640860*w + 19529376104 , 2841916048*w - 2281549522 , -898670432*w - 2058474166 , -6215492*w + 83169618 , 158707812*w + 258911688 , 268686900*w + 834512868 , -479472900*w - 1022844928 ,
    23834704*w - 209411944 , 302752536*w - 225647632 , 5446414204 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 200 ***/
Grammatrix:=Matrix(S,[
[ 171990 , -18888*w + 13146 , -1254*w - 280 , 11292*w - 23100 , -7098*w + 22330 , -1026*w - 1204 , -50240*w + 100688 , 17260*w - 7154 , -6924*w - 72170 , 29426*w + 120316 , 53722*w + 2702 , 22246*w + 242816 ],
[ 18888*w + 13146 , 69496 , -2158*w + 10276 , -13958*w + 4004 , 5052*w - 420 , 1032*w - 84 , 708*w , -148*w , 64*w , -24*w , 0 , 90394*w + 103852 ],
[ 1254*w - 280 , 2158*w + 10276 , 4396 , -2276*w + 12460 , 944*w - 4564 , 176*w - 1708 , -20*w + 280 , -12*w , 0 , 0 , 0 , 12968*w + 11186 ],
[ -11292*w - 23100 , 13958*w + 4004 , 2276*w + 12460 , 164850 , 1036*w - 63714 , 260*w + 140 , 46*w - 2408 , -40*w + 1792 , 0 , 0 , 0 , 2680*w + 60872 ],
[ 7098*w + 22330 , -5052*w - 420 , -944*w - 4564 , -1036*w - 63714 , 27958 , -106*w - 364 , -3512*w + 26950 , 2266*w - 5866 , -3588*w - 9030 , 8658*w + 10416 , 8034*w - 13104 , 212*w - 22036 ],
[ 1026*w - 1204 , -1032*w - 84 , -176*w - 1708 , -260*w + 140 , 106*w - 364 , 1974 , -1064*w + 10612 , 690*w - 1736 , -1104*w - 2520 , 2664*w + 3108 , 2472*w - 4032 , -3948*w + 6412 ],
[ 50240*w + 100688 , -708*w , 20*w + 280 , -46*w - 2408 , 3512*w + 26950 , 1064*w + 10612 , 662494 , 31906*w - 147924 , -91094*w - 113400 , 195144*w + 63658 , 128792*w - 389172 , -80782*w + 145488 ],
[ -17260*w - 7154 , 148*w , 12*w , 40*w + 1792 , -2266*w - 5866 , -690*w - 1736 , -31906*w - 147924 , 44142 , 26090*w - 5530 , -47058*w + 52402 , -9970*w + 131684 , 9786*w - 54992 ],
[ 6924*w - 72170 , -64*w , 0 , 0 , 3588*w - 9030 , 1104*w - 2520 , 91094*w - 113400 , -26090*w - 5530 , 109046 , -25218*w - 201866 , -76850*w - 57736 , 30798*w + 43890 ],
[ -29426*w + 120316 , 24*w , 0 , 0 , -8658*w + 10416 , -2664*w + 3108 , -195144*w + 63658 , 47058*w + 52402 , 25218*w - 201866 , 414694 , 128976*w + 231420 , -48456*w - 131838 ],
[ -53722*w + 2702 , 0 , 0 , 0 , -8034*w - 13104 , -2472*w - 4032 , -128792*w - 389172 , 9970*w + 131684 , 76850*w - 57736 , -128976*w + 231420 , 409948 , 13690*w - 179718 ],
[ -22246*w + 242816 , -90394*w + 103852 , -12968*w + 11186 , -2680*w + 60872 , -212*w - 22036 , 3948*w + 6412 , 80782*w + 145488 , -9786*w - 54992 , -30798*w + 43890 , 48456*w - 131838 , -13690*w - 179718 , 1512812 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 201 ***/
Grammatrix:=Matrix(S,[
[ 2371796 , -499887*w + 1500905 , 101032*w - 388486 , 121722*w - 116942 , -474*w - 60970 , 26296*w - 54264 , -15307*w - 18725 , 14276*w + 133966 , -4073*w + 22855 , -23236*w + 93492 , -8398*w - 121296 , -80527*w - 652967 ],
[ 499887*w + 1500905 , 1901284 , -19606*w - 443352 , 68588*w - 397390 , -2970*w - 91840 , 11196*w - 126686 , -17796*w + 14658 , 61190*w + 84406 , 3988*w + 30954 , 11372*w + 147966 , -51862*w - 95144 , -225914*w - 353654 ],
[ -101032*w - 388486 , 19606*w - 443352 , 105602 , -18762*w + 91868 , -1148*w + 21588 , -3926*w + 29190 , 4076*w - 2394 , -13702*w - 23030 , -716*w - 7448 , -1554*w - 34958 , 11338*w + 24766 , 50012*w + 99792 ],
[ -121722*w - 116942 , -68588*w - 397390 , 18762*w + 91868 , 278278 , -2714*w + 57092 , -698*w + 71736 , 6152*w - 8820 , -32574*w - 20328 , -3630*w - 11858 , -10406*w - 57596 , 24684*w + 25410 , 94922*w + 59962 ],
[ 474*w - 60970 , 2970*w - 91840 , 1148*w + 21588 , 2714*w + 57092 , 38136 , 294*w + 23394 , 1448*w + 2548 , -6410*w - 3192 , -720*w - 2352 , -2064*w - 11424 , 4896*w + 5040 , 21798*w + 22064 ],
[ -26296*w - 54264 , -11196*w - 126686 , 3926*w + 29190 , 698*w + 71736 , -294*w + 23394 , 23128 , 1934*w - 1960 , -9770*w - 5488 , -986*w - 3766 , -3394*w - 19124 , 8228*w + 8470 , 25940*w + 18270 ],
[ 15307*w - 18725 , 17796*w + 14658 , -4076*w - 2394 , -6152*w - 8820 , -1448*w + 2548 , -1934*w - 1960 , 3304 , 2568*w - 6440 , 524*w , 2708*w + 2296 , -2880*w + 3612 , -4520*w + 17682 ],
[ -14276*w + 133966 , -61190*w + 84406 , 13702*w - 23030 , 32574*w - 20328 , 6410*w - 3192 , 9770*w - 5488 , -2568*w - 6440 , 39410 , -1700*w + 4914 , -9448*w + 18368 , 2308*w - 33796 , -816*w - 88144 ],
[ 4073*w + 22855 , -3988*w + 30954 , 716*w - 7448 , 3630*w - 11858 , 720*w - 2352 , 986*w - 3766 , -524*w , 1700*w + 4914 , 1358 , -6*w + 5614 , -1622*w - 4410 , -3486*w - 11774 ],
[ 23236*w + 93492 , -11372*w + 147966 , 1554*w - 34958 , 10406*w - 57596 , 2064*w - 11424 , 3394*w - 19124 , -2708*w + 2296 , 9448*w + 18368 , 6*w + 5614 , 29792 , -8786*w - 23842 , -19070*w - 36736 ],
[ 8398*w - 121296 , 51862*w - 95144 , -11338*w + 24766 , -24684*w + 25410 , -4896*w + 5040 , -8228*w + 8470 , 2880*w + 3612 , -2308*w - 33796 , 1622*w - 4410 , 8786*w - 23842 , 37268 , 4924*w + 67298 ],
[ 80527*w - 652967 , 225914*w - 353654 , -50012*w + 99792 , -94922*w + 59962 , -21798*w + 22064 , -25940*w + 18270 , 4520*w + 17682 , 816*w - 88144 , 3486*w - 11774 , 19070*w - 36736 , -4924*w + 67298 , 326648 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 202 ***/
Grammatrix:=Matrix(S,[
[ 207956 , 1834*w - 133714 , -5495*w + 10451 , 2324*w - 854 , -2495*w + 3059 , -1797*w - 2989 , 626*w - 686 , -6574*w + 18354 , 3211*w - 1701 , 2155*w - 5649 , -394*w + 8848 , 190823*w + 557291 ],
[ -1834*w - 133714 , 90006 , 4035*w - 3941 , -1682*w - 266 , 1985*w - 2597 , 1165*w + 2093 , -455*w + 511 , 4575*w - 13559 , -2310*w + 1386 , -1519*w + 4179 , 226*w - 6412 , -130680*w - 358232 ],
[ 5495*w + 10451 , -4035*w - 3941 , 46830 , -742*w - 5040 , 764*w - 12964 , -34*w + 210 , 428*w + 868 , -340*w - 13888 , -1178*w + 3038 , -124*w + 4340 , -930*w - 3906 , 8053*w - 46669 ],
[ -2324*w - 854 , 1682*w - 266 , 742*w - 5040 , 1106 , -472*w + 462 , 4*w - 378 , 6*w - 56 , -1074*w + 672 , 356*w + 308 , 368*w - 112 , -276*w + 812 , -5112*w + 22246 ],
[ 2495*w + 3059 , -1985*w - 2597 , -764*w - 12964 , 472*w + 462 , 6188 , -102*w + 490 , -160*w - 560 , 1738*w + 7504 , 188*w - 2324 , -476*w - 2492 , 984*w + 1176 , 14813*w - 7749 ],
[ 1797*w - 2989 , -1165*w + 2093 , 34*w + 210 , -4*w - 378 , 102*w + 490 , 476 , -26*w - 56 , 806*w + 1204 , -168*w - 644 , -242*w - 434 , 322*w - 126 , 1027*w - 23345 ],
[ -626*w - 686 , 455*w + 511 , -428*w + 868 , -6*w - 56 , 160*w - 560 , 26*w - 56 , 112 , -924 , -76*w + 196 , -8*w + 280 , -60*w - 252 , -2481*w + 1897 ],
[ 6574*w + 18354 , -4575*w - 13559 , 340*w - 13888 , 1074*w + 672 , -1738*w + 7504 , -806*w + 1204 , -924 , 20412 , 1162*w - 5026 , 224*w - 6496 , 1568*w + 5600 , 43995*w - 1603 ],
[ -3211*w - 1701 , 2310*w + 1386 , 1178*w + 3038 , -356*w + 308 , -188*w - 2324 , 168*w - 644 , 76*w + 196 , -1162*w - 5026 , 2002 , 304*w + 1680 , -728*w - 840 , -12008*w + 24682 ],
[ -2155*w - 5649 , 1519*w + 4179 , 124*w + 4340 , -368*w - 112 , 476*w - 2492 , 242*w - 434 , 8*w + 280 , -224*w - 6496 , -304*w + 1680 , 2128 , -576*w - 1680 , -13983*w + 2233 ],
[ 394*w + 8848 , -226*w - 6412 , 930*w - 3906 , 276*w + 812 , -984*w + 1176 , -322*w - 126 , 60*w - 252 , -1568*w + 5600 , 728*w - 840 , 576*w - 1680 , 2464 , 12784*w + 23394 ],
[ -190823*w + 557291 , 130680*w - 358232 , -8053*w - 46669 , 5112*w + 22246 , -14813*w - 7749 , -1027*w - 23345 , 2481*w + 1897 , -43995*w - 1603 , 12008*w + 24682 , 13983*w + 2233 , -12784*w + 23394 , 2930508 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 203 ***/
Grammatrix:=Matrix(S,[
[ 333984 , 2224*w + 164626 , -576*w - 31164 , 15790*w - 57288 , -32792*w + 397964 , 40224*w - 292040 , 25668*w - 237384 , 42772*w + 5880 , 16804*w - 14700 , -37608*w + 57820 , 19840*w + 173880 , 180494*w + 539280 ],
[ -2224*w + 164626 , 83006 , 12*w - 16086 , 8948*w - 30758 , -17652*w + 191674 , 20711*w - 142569 , 13209*w - 114835 , 21240*w + 2940 , 8430*w - 7350 , -18810*w + 28910 , 9920*w + 86940 , 85702*w + 268758 ],
[ 576*w - 31164 , -12*w - 16086 , 3444 , -1242*w + 6314 , 2494*w - 35784 , -3578*w + 27286 , -2088*w + 21700 , -4220*w - 588 , -1686*w + 1470 , 3762*w - 5782 , -1984*w - 17388 , -16560*w - 48566 ],
[ -15790*w - 57288 , -8948*w - 30758 , 1242*w + 6314 , 60214 , -9112*w - 76132 , 3985*w + 83475 , 4431*w + 53137 , -17622*w + 16800 , -5580*w + 19320 , 9960*w - 48720 , -24360*w - 57960 , -41482*w - 44702 ],
[ 32792*w + 397964 , 17652*w + 191674 , -2494*w - 35784 , 9112*w - 76132 , 550704 , 20118*w - 390432 , 8390*w - 325416 , 49112*w - 17500 , 17072*w - 26082 , -36862*w + 85274 , 35984*w + 181132 , 290728*w + 565754 ],
[ -40224*w - 292040 , -20711*w - 142569 , 3578*w + 27286 , -3985*w + 83475 , -20118*w - 390432 , 328902 , 6389*w + 251965 , -53830*w + 42966 , -17561*w + 45339 , 34269*w - 125769 , -60102*w - 184884 , -219986*w - 359100 ],
[ -25668*w - 237384 , -13209*w - 114835 , 2088*w + 21700 , -4431*w + 53137 , -8390*w - 325416 , -6389*w + 251965 , 201768 , -37230*w + 21574 , -12627*w + 26355 , 25801*w - 77147 , -35174*w - 132916 , -177120*w - 318850 ],
[ -42772*w + 5880 , -21240*w + 2940 , 4220*w - 588 , 17622*w + 16800 , -49112*w - 17500 , 53830*w + 42966 , 37230*w + 21574 , 100002 , 9758*w + 39340 , -27348*w - 80948 , -56674*w + 80318 , -71560*w + 125188 ],
[ -16804*w - 14700 , -8430*w - 7350 , 1686*w + 1470 , 5580*w + 19320 , -17072*w - 26082 , 17561*w + 45339 , 12627*w + 26355 , -9758*w + 39340 , 23674 , -3152*w - 52836 , -31510*w - 6678 , -31318*w + 12838 ],
[ 37608*w + 57820 , 18810*w + 28910 , -3762*w - 5782 , -9960*w - 48720 , 36862*w + 85274 , -34269*w - 125769 , -25801*w - 77147 , 27348*w - 80948 , 3152*w - 52836 , 121758 , 70004*w + 44660 , 80612*w + 4368 ],
[ -19840*w + 173880 , -9920*w + 86940 , 1984*w - 17388 , 24360*w - 57960 , -35984*w + 181132 , 60102*w - 184884 , 35174*w - 132916 , 56674*w + 80318 , 31510*w - 6678 , -70004*w + 44660 , 298144 , 27402*w + 329686 ],
[ -180494*w + 539280 , -85702*w + 268758 , 16560*w - 48566 , 41482*w - 44702 , -290728*w + 565754 , 219986*w - 359100 , 177120*w - 318850 , 71560*w + 125188 , 31318*w + 12838 , -80612*w + 4368 , -27402*w + 329686 , 1712284 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 204 ***/
Grammatrix:=Matrix(S,[
[ 5894 , 170*w + 24948 , 1712*w + 7364 , 46*w + 476 , -318*w - 4438 , -1304*w - 2842 , -864*w + 2128 , -696*w + 2128 , 168*w + 2156 , 628*w + 6818 , 2764*w + 2492 , 5984*w + 644 ],
[ -170*w + 24948 , 152838 , 7992*w + 43722 , 822*w + 7630 , -1168*w - 15624 , -6656*w - 9660 , -5572*w + 9044 , -3372*w + 7056 , 12*w + 8596 , 496*w + 27244 , 9860*w + 14616 , 29106*w + 17262 ],
[ -1712*w + 7364 , -7992*w + 43722 , 55132 , 422*w + 5180 , 15488*w - 20384 , -3040*w + 504 , -2036*w + 896 , -304*w , -24*w , -36*w , 0 , 19232*w - 10990 ],
[ -46*w + 476 , -822*w + 7630 , -422*w + 5180 , 1204 , 2320*w - 336 , -666*w + 70 , -436*w , -58*w , -8*w , -12*w , 0 , 2390*w - 1316 ],
[ 318*w - 4438 , 1168*w - 15624 , -15488*w - 20384 , -2320*w - 336 , 112364 , -206*w - 15190 , 156*w - 8960 , 26*w - 1680 , 0 , 0 , 0 , 20994*w + 74704 ],
[ 1304*w - 2842 , 6656*w - 9660 , 3040*w + 504 , 666*w + 70 , 206*w - 15190 , 30632 , -34*w + 6930 , 2154*w - 5418 , -540*w - 6930 , -1890*w - 22680 , -9180*w - 9450 , -7930*w - 33782 ],
[ 864*w + 2128 , 5572*w + 9044 , 2036*w + 896 , 436*w , -156*w - 8960 , 34*w + 6930 , 5012 , -48*w + 686 , 12*w + 294 , 42*w + 714 , 204*w + 210 , -174*w - 13496 ],
[ 696*w + 2128 , 3372*w + 7056 , 304*w , 58*w , -26*w - 1680 , -2154*w - 5418 , 48*w + 686 , 4074 , 1036*w + 2058 , 3378*w + 6440 , 4316*w - 4326 , 3132*w - 3304 ],
[ -168*w + 2156 , -12*w + 8596 , 24*w , 8*w , 0 , 540*w - 6930 , -12*w + 294 , -1036*w + 2058 , 2926 , 62*w + 9408 , 3324*w + 5614 , 2138*w + 5320 ],
[ -628*w + 6818 , -496*w + 27244 , 36*w , 12*w , 0 , 1890*w - 22680 , -42*w + 714 , -3378*w + 6440 , -62*w + 9408 , 30282 , 10580*w + 18564 , 6714*w + 17878 ],
[ -2764*w + 2492 , -9860*w + 14616 , 0 , 0 , 0 , 9180*w - 9450 , -204*w + 210 , -4316*w - 4326 , -3324*w + 5614 , -10580*w + 18564 , 37268 , -2308*w + 27398 ],
[ -5984*w + 644 , -29106*w + 17262 , -19232*w - 10990 , -2390*w - 1316 , -20994*w + 74704 , 7930*w - 33782 , 174*w - 13496 , -3132*w - 3304 , -2138*w + 5320 , -6714*w + 17878 , 2308*w + 27398 , 159236 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 205 ***/
Grammatrix:=Matrix(S,[
[ 56973560 , 141196*w + 13619382 , -178835*w + 750365 , -5147*w - 228319 , 60666*w - 247240 , 101883*w - 425467 , -120733*w + 1341165 , -4386*w - 222544 , -290571*w + 88697 , -489066*w + 258818 , 154696*w - 868686 , -3213352*w - 6524770 ],
[ -141196*w + 13619382 , 3333918 , -46180*w + 137354 , 5824*w - 58730 , 24598*w - 60102 , 43100*w - 104006 , -32416*w + 327964 , -1110*w - 54614 , -71416*w + 18116 , -120502*w + 57274 , 39566*w - 211246 , -748982*w - 1623328 ],
[ 178835*w + 750365 , 46180*w + 137354 , 42532 , -3688*w - 3822 , -4698*w - 10486 , -10314*w - 8008 , 238*w + 12390 , 130*w - 1876 , -2370*w + 2170 , -3932*w + 4508 , 712*w - 8036 , -64186*w - 9674 ],
[ 5147*w - 228319 , -5824*w - 58730 , 3688*w - 3822 , 7000 , -194*w + 10626 , -736*w + 14798 , 16*w - 616 , 22*w - 336 , 0 , 0 , 0 , 12292*w + 31598 ],
[ -60666*w - 247240 , -24598*w - 60102 , 4698*w - 10486 , 194*w + 10626 , 28546 , 106*w + 34160 , -11994*w + 63420 , 1592*w - 13608 , -15600*w - 8400 , -28000*w - 7280 , 13800*w - 40600 , 15524*w + 24934 ],
[ -101883*w - 425467 , -43100*w - 104006 , 10314*w - 8008 , 736*w + 14798 , -106*w + 34160 , 56252 , -12002*w + 60662 , 1594*w - 14560 , -15600*w - 9100 , -28000*w - 7490 , 13800*w - 40600 , 33512*w + 36456 ],
[ 120733*w + 1341165 , 32416*w + 327964 , -238*w + 12390 , -16*w - 616 , 11994*w + 63420 , 12002*w + 60662 , 531356 , -5240*w - 99022 , -111900*w + 78400 , -192040*w + 188160 , 41670*w - 381850 , -110414*w + 42098 ],
[ 4386*w - 222544 , 1110*w - 54614 , -130*w - 1876 , -22*w - 336 , -1592*w - 13608 , -1594*w - 14560 , 5240*w - 99022 , 19026 , 21732*w - 6804 , 37832*w - 21910 , -11582*w + 68642 , 17150*w - 14 ],
[ 290571*w + 88697 , 71416*w + 18116 , 2370*w + 2170 , 0 , 15600*w - 8400 , 15600*w - 9100 , 111900*w + 78400 , -21732*w - 6804 , 177030 , 11448*w + 311626 , -74514*w - 117810 , -9728*w + 155932 ],
[ 489066*w + 258818 , 120502*w + 57274 , 3932*w + 4508 , 0 , 28000*w - 7280 , 28000*w - 7490 , 192040*w + 188160 , -37832*w - 21910 , -11448*w + 311626 , 553994 , -123616*w - 241248 , -23360*w + 267778 ],
[ -154696*w - 868686 , -39566*w - 211246 , -712*w - 8036 , 0 , -13800*w - 40600 , -13800*w - 40600 , -41670*w - 381850 , 11582*w + 68642 , 74514*w - 117810 , 123616*w - 241248 , 298144 , 69426*w - 80990 ],
[ 3213352*w - 6524770 , 748982*w - 1623328 , 64186*w - 9674 , -12292*w + 31598 , -15524*w + 24934 , -33512*w + 36456 , 110414*w + 42098 , -17150*w - 14 , 9728*w + 155932 , 23360*w + 267778 , -69426*w - 80990 , 2074660 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 206 ***/
Grammatrix:=Matrix(S,[
[ 5550454 , 261147*w - 1370243 , 713532*w - 1833874 , 948324*w - 111342 , 306374*w - 427434 , 110535*w - 220647 , 23262*w + 751646 , -1276622*w - 3452904 , 353141*w + 334089 , 423908*w - 1891554 , 230058*w + 1500100 , 1443878*w - 4858098 ],
[ -261147*w - 1370243 , 2302272 , 632467*w + 1592969 , -24582*w + 631498 , 162104*w + 411684 , 15445*w + 272307 , -157028*w - 451626 , 1468810*w + 411264 , -283901*w + 270053 , 105440*w + 1739066 , -432486*w - 611268 , 276147*w + 5476555 ],
[ -713532*w - 1833874 , -632467*w + 1592969 , 11003818 , -528872*w + 3018778 , -47470*w + 2880080 , -219063*w + 645827 , 357266*w - 1659406 , 1074376*w + 12312664 , -615603*w - 2020249 , -1926472*w + 2677150 , 265602*w - 4178468 , -5242200*w -
    6853028 ],
[ -948324*w - 111342 , 24582*w + 631498 , 528872*w + 3018778 , 1781360 , 125686*w + 913276 , 11870*w + 294070 , -105410*w - 305760 , 1041548*w + 377188 , -204866*w + 177254 , 58480*w + 1251264 , -303192*w - 466662 , -799438*w + 1425270 ],
[ -306374*w - 427434 , -162104*w + 411684 , 47470*w + 2880080 , -125686*w + 913276 , 797174 , -56098*w + 181762 , 89504*w - 476476 , 383400*w + 3354736 , -184850*w - 527226 , -514048*w + 844592 , 42180*w - 1173270 , -1195048*w - 1275596 ],
[ -110535*w - 220647 , -15445*w + 272307 , 219063*w + 645827 , -11870*w + 294070 , 56098*w + 181762 , 104160 , -54880*w - 232134 , 641818*w + 453950 , -133510*w + 70056 , 2728*w + 803768 , -179240*w - 354410 , -460283*w + 719929 ],
[ -23262*w + 751646 , 157028*w - 451626 , -357266*w - 1659406 , 105410*w - 305760 , -89504*w - 476476 , 54880*w - 232134 , 974246 , -1626854*w - 4403280 , 450102*w + 414764 , 530540*w - 2462964 , 308438*w + 1922774 , 1428144*w - 365974 ],
[ 1276622*w - 3452904 , -1468810*w + 411264 , -1074376*w + 12312664 , -1041548*w + 377188 , -383400*w + 3354736 , -641818*w + 453950 , 1626854*w - 4403280 , 39087622 , -1347850*w - 7174300 , -6548526*w + 4924178 , 1834784*w - 12349820 , -7512388*w
    - 14644014 ],
[ -353141*w + 334089 , 283901*w + 270053 , 615603*w - 2020249 , 204866*w + 177254 , 184850*w - 527226 , 133510*w + 70056 , -450102*w + 414764 , 1347850*w - 7174300 , 1642494 , 1372142*w + 678286 , -763098*w + 1823766 , 894855*w + 4483227 ],
[ -423908*w - 1891554 , -105440*w + 1739066 , 1926472*w + 2677150 , -58480*w + 1251264 , 514048*w + 844592 , -2728*w + 803768 , -530540*w - 2462964 , 6548526*w + 4924178 , -1372142*w + 678286 , 8308944 , -1839702*w - 3711722 , -3295002*w + 7059808
],
[ -230058*w + 1500100 , 432486*w - 611268 , -265602*w - 4178468 , 303192*w - 466662 , -42180*w - 1173270 , 179240*w - 354410 , -308438*w + 1922774 , -1834784*w - 12349820 , 763098*w + 1823766 , 1839702*w - 3711722 , 4509428 , 3030964*w + 1963192
],
[ -1443878*w - 4858098 , -276147*w + 5476555 , 5242200*w - 6853028 , 799438*w + 1425270 , 1195048*w - 1275596 , 460283*w + 719929 , -1428144*w - 365974 , 7512388*w - 14644014 , -894855*w + 4483227 , 3295002*w + 7059808 , -3030964*w + 1963192 ,
    57700090 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 207 ***/
Grammatrix:=Matrix(S,[
[ 155078 , -3829*w + 167251 , 161892*w - 798756 , -87821*w + 372981 , -1177*w + 11235 , -4391*w - 49385 , 12267*w - 38255 , 943*w + 8827 , -3479*w + 25459 , -2918*w + 5432 , 334*w + 7644 , 105308*w + 402430 ],
[ 3829*w + 167251 , 729596 , 426085*w - 3055381 , -252631*w + 1414147 , -23267*w + 2527 , -43349*w - 242655 , 166307*w - 109739 , 8209*w + 38997 , -77945*w + 260911 , -39078*w + 55776 , 1512*w + 98812 , 624226*w + 877422 ],
[ -161892*w - 798756 , -426085*w - 3055381 , 15554434 , 211575*w - 7638127 , 67103*w - 248283 , 465409*w + 744051 , -603335*w + 1511755 , -79445*w - 111601 , 106829*w - 1639897 , 123154*w - 500612 , -97544*w - 433524 , -3117380*w - 470862 ],
[ 87821*w + 372981 , 252631*w + 1414147 , -211575*w - 7638127 , 3837694 , -29846*w + 186284 , -274562*w - 320978 , 270752*w - 889000 , 46024*w + 45990 , -17448*w + 869260 , -53238*w + 281246 , 60604*w + 212002 , 1504162*w - 341614 ],
[ 1177*w + 11235 , 23267*w + 2527 , -67103*w - 248283 , 29846*w + 186284 , 65128 , -37072*w - 1582 , -8764*w - 92428 , 5662*w - 812 , 14384*w + 50064 , 1016*w + 23016 , 6800*w + 7000 , 19146*w - 267988 ],
[ 4391*w - 49385 , 43349*w - 242655 , -465409*w + 744051 , 274562*w - 320978 , 37072*w - 1582 , 370160 , -139958*w - 52052 , -1202*w - 58702 , 104144*w - 102396 , 41666*w + 10486 , 19060*w - 79030 , -358182*w - 647150 ],
[ -12267*w - 38255 , -166307*w - 109739 , 603335*w + 1511755 , -270752*w - 889000 , 8764*w - 92428 , 139958*w - 52052 , 775264 , -22272*w + 14224 , -133896*w - 419944 , -21432*w - 180992 , -59572*w - 22960 , -208650*w + 1487122 ],
[ -943*w + 8827 , -8209*w + 38997 , 79445*w - 111601 , -46024*w + 45990 , -5662*w - 812 , 1202*w - 58702 , 22272*w + 14224 , 9380 , -17516*w + 13104 , -6754*w - 3010 , -3458*w + 12334 , 55498*w + 118174 ],
[ 3479*w + 25459 , 77945*w + 260911 , -106829*w - 1639897 , 17448*w + 869260 , -14384*w + 50064 , -104144*w - 102396 , 133896*w - 419944 , 17516*w + 13104 , 411026 , -20704*w + 134512 , 31064*w + 91168 , 378464*w - 685930 ],
[ 2918*w + 5432 , 39078*w + 55776 , -123154*w - 500612 , 53238*w + 281246 , -1016*w + 23016 , -41666*w + 10486 , 21432*w - 180992 , 6754*w - 3010 , 20704*w + 134512 , 51912 , 14946*w + 19222 , 87416*w - 373884 ],
[ -334*w + 7644 , -1512*w + 98812 , 97544*w - 433524 , -60604*w + 212002 , -6800*w + 7000 , -19060*w - 79030 , 59572*w - 22960 , 3458*w + 12334 , -31064*w + 91168 , -14946*w + 19222 , 37268 , 139754*w + 34720 ],
[ -105308*w + 402430 , -624226*w + 877422 , 3117380*w - 470862 , -1504162*w - 341614 , -19146*w - 267988 , 358182*w - 647150 , 208650*w + 1487122 , -55498*w + 118174 , -378464*w - 685930 , -87416*w - 373884 , -139754*w + 34720 , 6453818 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 208 ***/
Grammatrix:=Matrix(S,[
[ 24304 , -28419*w + 13055 , 6830*w - 350 , -399*w + 6209 , -4*w + 84 , 1198*w + 364 , -1312*w + 1638 , 7124*w + 2506 , -2209*w + 7833 , -1145*w - 1127 , 11*w - 5621 , -9770*w + 65688 ],
[ 28419*w + 13055 , 270606 , 2523*w - 67515 , 6144*w + 2786 , 152*w + 420 , 514*w - 7672 , 883*w + 9457 , 3307*w - 46109 , 6810*w + 15540 , -1196*w + 7392 , -5216*w - 1148 , 76762*w + 121478 ],
[ -6830*w - 350 , -2523*w - 67515 , 18648 , -1542*w + 966 , -48*w - 154 , 82*w + 2016 , -301*w - 2177 , 467*w + 12005 , -2050*w - 2520 , 92*w - 2072 , 1302*w - 630 , -20314*w - 23380 ],
[ 399*w + 6209 , -6144*w + 2786 , 1542*w + 966 , 2590 , -6*w - 56 , 396*w + 28 , -240*w + 672 , 2454*w , -576*w + 2800 , -410*w - 266 , -78*w - 1806 , -1884*w + 16618 ],
[ 4*w + 84 , -152*w + 420 , 48*w - 154 , 6*w - 56 , 28 , -14 , -48*w , 10*w , 0 , 0 , 0 , -60*w + 364 ],
[ -1198*w + 364 , -514*w - 7672 , -82*w + 2016 , -396*w + 28 , -14 , 896 , -82*w - 868 , -86*w + 4760 , -824*w - 1344 , 78*w - 770 , 550*w - 154 , -2636*w - 2226 ],
[ 1312*w + 1638 , -883*w + 9457 , 301*w - 2177 , 240*w + 672 , 48*w , 82*w - 868 , 1736 , 780*w - 4760 , 636*w + 2100 , -192*w + 672 , -556*w - 364 , 2162*w + 8232 ],
[ -7124*w + 2506 , -3307*w - 46109 , -467*w + 12005 , -2454*w , -10*w , 86*w + 4760 , -780*w - 4760 , 26628 , -4600*w - 6720 , 380*w - 4340 , 2960*w - 1120 , -16503*w - 14413 ],
[ 2209*w + 7833 , -6810*w + 15540 , 2050*w - 2520 , 576*w + 2800 , 0 , 824*w - 1344 , -636*w + 2100 , 4600*w - 6720 , 7448 , -844*w + 644 , -976*w - 3360 , 1834*w + 22694 ],
[ 1145*w - 1127 , 1196*w + 7392 , -92*w - 2072 , 410*w - 266 , 0 , -78*w - 770 , 192*w + 672 , -380*w - 4340 , 844*w + 644 , 784 , -480*w + 448 , 2968*w + 742 ],
[ -11*w - 5621 , 5216*w - 1148 , -1302*w - 630 , 78*w - 1806 , 0 , -550*w - 154 , 556*w - 364 , -2960*w - 1120 , 976*w - 3360 , 480*w + 448 , 2464 , 2066*w - 12348 ],
[ 9770*w + 65688 , -76762*w + 121478 , 20314*w - 23380 , 1884*w + 16618 , 60*w + 364 , 2636*w - 2226 , -2162*w + 8232 , 16503*w - 14413 , -1834*w + 22694 , -2968*w + 742 , -2066*w - 12348 , 222572 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 209 ***/
Grammatrix:=Matrix(S,[
[ 1254736 , -2367006*w - 2248792 , 974048*w + 440580 , -232738*w - 63826 , -17118*w - 17150 , 102228*w - 222824 , 126122*w - 193522 , -93546*w - 25130 , 97652*w - 56840 , -21694*w - 438634 , -87802*w - 211288 , -2383630*w + 6134632 ],
[ 2367006*w - 2248792 , 52991078 , -873012*w - 20852482 , 333566*w + 4984000 , -70684*w + 278236 , -406812*w + 380772 , -470652*w + 470764 , 69200*w + 321636 , -100660*w - 359548 , -266424*w + 312340 , -90176*w + 498260 , 20605598*w + 32268040 ],
[ -974048*w + 440580 , 873012*w - 20852482 , 8382066 , -51734*w - 2010750 , 34820*w - 104664 , 125756*w - 67354 , 138288*w - 114576 , 15122*w - 141484 , -372*w + 197316 , 136072*w + 61880 , 84372*w - 134064 , -7566194*w - 15526560 ],
[ 232738*w - 63826 , -333566*w + 4984000 , 51734*w - 2010750 , 502068 , -8924*w + 35574 , -29460*w + 11592 , -36572*w + 28140 , 1908*w + 9436 , -1142*w - 15624 , -11218*w - 6020 , -7188*w + 10836 , 1708552*w + 4029844 ],
[ 17118*w - 17150 , 70684*w + 278236 , -34820*w - 104664 , 8924*w + 35574 , 22302 , -174*w - 11928 , -2282*w - 2744 , 3172*w - 14504 , -720*w + 17976 , 12168*w + 5040 , 7416*w - 12096 , 151136*w - 17458 ],
[ -102228*w - 222824 , 406812*w + 380772 , -125756*w - 67354 , 29460*w + 11592 , 174*w - 11928 , 227080 , -12948*w + 266798 , 17770*w - 107072 , -4040*w + 114282 , 68276*w + 26530 , 41612*w - 67872 , 147456*w - 1185912 ],
[ -126122*w - 193522 , 470652*w + 470764 , -138288*w - 114576 , 36572*w + 28140 , 2282*w - 2744 , 12948*w + 266798 , 348866 , -2080*w - 184548 , 27280*w + 166978 , 104824*w - 113778 , 37000*w - 187712 , 126282*w - 1186038 ],
[ 93546*w - 25130 , -69200*w + 321636 , -15122*w - 141484 , -1908*w + 9436 , -3172*w - 14504 , -17770*w - 107072 , 2080*w - 184548 , 235858 , -36860*w - 231406 , -155118*w + 149996 , -57570*w + 269024 , 334566*w + 407988 ],
[ -97652*w - 56840 , 100660*w - 359548 , 372*w + 197316 , 1142*w - 15624 , 720*w + 17976 , 4040*w + 114282 , -27280*w + 166978 , 36860*w - 231406 , 268604 , 176830*w + 23674 , 99370*w - 201880 , -317070*w - 764442 ],
[ 21694*w - 438634 , 266424*w + 312340 , -136072*w + 61880 , 11218*w - 6020 , -12168*w + 5040 , -68276*w + 26530 , -104824*w - 113778 , 155118*w + 149996 , -176830*w + 23674 , 818762 , 141996*w + 441028 , 437130*w - 1617434 ],
[ 87802*w - 211288 , 90176*w + 498260 , -84372*w - 134064 , 7188*w + 10836 , -7416*w - 12096 , -41612*w - 67872 , -37000*w - 187712 , 57570*w + 269024 , -99370*w - 201880 , -141996*w + 441028 , 409948 , 518634*w - 340956 ],
[ 2383630*w + 6134632 , -20605598*w + 32268040 , 7566194*w - 15526560 , -1708552*w + 4029844 , -151136*w - 17458 , -147456*w - 1185912 , -126282*w - 1186038 , -334566*w + 407988 , 317070*w - 764442 , -437130*w - 1617434 , -518634*w - 340956 ,
    78790838 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 336 );
/***Gitter Nr. 210 ***/
Grammatrix:=Matrix(S,[
[ 469952 , 3623*w - 13783 , 985805*w - 2962407 , -575316*w + 379218 , 98896*w + 14518 , 1440*w + 11186 , 51166*w - 141120 , 35804*w - 345492 , 14356*w - 156240 , 78060*w + 39802 , 40800*w - 87052 , -77000*w - 658798 ],
[ -3623*w - 13783 , 52318 , -40475*w + 955675 , 37985*w - 298641 , -12028*w - 13916 , 447*w - 371 , -8714*w + 10892 , -7520*w + 53172 , -4187*w + 21567 , -16188*w - 9870 , -8460*w + 17598 , 51315*w + 114625 ],
[ -985805*w - 2962407 , 40475*w + 955675 , 87055612 , 3833559*w - 31691247 , -1818930*w + 2022314 , -23081*w + 41139 , -1048922*w + 2442426 , -739970*w + 6652394 , -324453*w + 2952831 , -1611172*w - 836752 , -837072*w + 1795234 , 5052857*w +
    7365421 ],
[ 575316*w + 379218 , -37985*w - 298641 , -3833559*w - 31691247 , 13710312 , 548778*w - 1365350 , 8522*w - 45220 , 248600*w - 1037554 , -8182*w - 2298366 , -2566*w - 1020432 , 545762*w - 159572 , 198810*w - 793702 , -2159566*w - 1126174 ],
[ -98896*w + 14518 , 12028*w - 13916 , 1818930*w + 2022314 , -548778*w - 1365350 , 497392 , 1856*w + 11018 , 33502*w + 307748 , 145862*w + 331884 , 68560*w + 156520 , -53320*w + 263620 , 26640*w + 180880 , 255376*w - 580874 ],
[ -1440*w + 11186 , -447*w - 371 , 23081*w + 41139 , -8522*w - 45220 , -1856*w + 11018 , 1190 , -1144*w + 1876 , -966*w + 1484 , -480*w + 1232 , -48*w + 168 , 0 , 3970*w - 8428 ],
[ -51166*w - 141120 , 8714*w + 10892 , 1048922*w + 2442426 , -248600*w - 1037554 , -33502*w + 307748 , 1144*w + 1876 , 272706 , 89252*w + 407330 , 41760*w + 183008 , -83670*w + 167566 , -3806*w + 181874 , 214410*w - 235606 ],
[ -35804*w - 345492 , 7520*w + 53172 , 739970*w + 6652394 , 8182*w - 2298366 , -145862*w + 331884 , 966*w + 1484 , -89252*w + 407330 , 870688 , 2252*w + 384664 , -201402*w + 40320 , -77358*w + 285922 , 428400*w + 201586 ],
[ -14356*w - 156240 , 4187*w + 21567 , 324453*w + 2952831 , 2566*w - 1020432 , -68560*w + 156520 , 480*w + 1232 , -41760*w + 183008 , -2252*w + 384664 , 172046 , -87592*w + 18746 , -33492*w + 124460 , 190230*w + 91532 ],
[ -78060*w + 39802 , 16188*w - 9870 , 1611172*w - 836752 , -545762*w - 159572 , 53320*w + 263620 , 48*w + 168 , 83670*w + 167566 , 201402*w + 40320 , 87592*w + 18746 , 345884 , 66088*w + 144760 , 72870*w - 693826 ],
[ -40800*w - 87052 , 8460*w + 17598 , 837072*w + 1795234 , -198810*w - 793702 , -26640*w + 180880 , 0 , 3806*w + 181874 , 77358*w + 285922 , 33492*w + 124460 , -66088*w + 144760 , 149072 , 162706*w - 194866 ],
[ 77000*w - 658798 , -51315*w + 114625 , -5052857*w + 7365421 , 2159566*w - 1126174 , -255376*w - 580874 , -3970*w - 8428 , -214410*w - 235606 , -428400*w + 201586 , -190230*w + 91532 , -72870*w - 693826 , -162706*w - 194866 , 2713550 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 211 ***/
Grammatrix:=Matrix(S,[
[ 92148 , -1899*w + 28791 , -3258*w + 48202 , -718*w + 4830 , 876*w + 1260 , -194*w + 490 , -938*w + 3388 , 1850*w - 5628 , -645*w - 539 , -698*w - 1624 , 960*w - 1204 , -12248*w - 7406 ],
[ 1899*w + 28791 , 11760 , -1400*w + 7336 , -408*w + 280 , 2528*w + 532 , 452*w + 1120 , -218*w + 6272 , 3154*w - 10304 , -1256*w - 1330 , -1392*w - 3276 , 1920*w - 2408 , -6791*w + 4795 ],
[ 3258*w + 48202 , 1400*w + 7336 , 78120 , -182*w + 11508 , -7770*w - 11312 , -876*w - 6090 , 5372*w - 7840 , -17422*w - 6720 , 2160*w + 13020 , 240*w + 15540 , -6120*w - 6300 , 8072*w + 3430 ],
[ 718*w + 4830 , 408*w + 280 , 182*w + 11508 , 1862 , -1238*w - 2828 , -116*w - 1372 , 1456*w - 1820 , -4110*w - 1568 , 504*w + 3038 , 56*w + 3626 , -1428*w - 1470 , 2312*w + 2254 ],
[ -876*w + 1260 , -2528*w + 532 , 7770*w - 11312 , 1238*w - 2828 , 27328 , -248*w + 5782 , -6736*w + 9772 , 15530*w + 5264 , -1872*w - 11284 , -208*w - 13468 , 5304*w + 5460 , -11732*w - 23394 ],
[ 194*w + 490 , -452*w + 1120 , 876*w - 6090 , 116*w - 1372 , 248*w + 5782 , 2996 , -3242*w + 4984 , 8222*w + 2100 , -720*w - 6902 , -80*w - 8750 , 3468*w + 3570 , -5150*w - 8666 ],
[ 938*w + 3388 , 218*w + 6272 , -5372*w - 7840 , -1456*w - 1820 , 6736*w + 9772 , 3242*w + 4984 , 41062 , 16120*w - 73346 , -8496*w - 2310 , -9400*w - 14028 , 9764*w - 19544 , -18448*w + 24710 ],
[ -1850*w - 5628 , -3154*w - 10304 , 17422*w - 6720 , 4110*w - 1568 , -15530*w + 5264 , -8222*w + 2100 , -16120*w - 73346 , 186354 , 18520*w - 24710 , 24288*w - 7448 , -7900*w + 69692 , 21588*w - 106400 ],
[ 645*w - 539 , 1256*w - 1330 , -2160*w + 13020 , -504*w + 3038 , 1872*w - 11284 , 720*w - 6902 , 8496*w - 2310 , -18520*w - 24710 , 20902 , -1412*w + 22820 , -8278*w - 13454 , 9815*w + 30779 ],
[ 698*w - 1624 , 1392*w - 3276 , -240*w + 15540 , -56*w + 3626 , 208*w - 13468 , 80*w - 8750 , 9400*w - 14028 , -24288*w - 7448 , 1412*w + 22820 , 29288 , -11558*w - 12446 , 14796*w + 28882 ],
[ -960*w - 1204 , -1920*w - 2408 , 6120*w - 6300 , 1428*w - 1470 , -5304*w + 5460 , -3468*w + 3570 , -9764*w - 19544 , 7900*w + 69692 , 8278*w - 13454 , 11558*w - 12446 , 37268 , 4934*w - 53074 ],
[ 12248*w - 7406 , 6791*w + 4795 , -8072*w + 3430 , -2312*w + 2254 , 11732*w - 23394 , 5150*w - 8666 , 18448*w + 24710 , -21588*w - 106400 , -9815*w + 30779 , -14796*w + 28882 , -4934*w - 53074 , 106960 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 2 );
/***Gitter Nr. 212 ***/
Grammatrix:=Matrix(S,[
[ 2033500 , 88650*w + 14448 , -56674*w + 29820 , 165148*w - 30478 , -188310*w + 54796 , 9244*w - 997262 , 2372*w - 68922 , -100060*w - 594762 , 21108*w + 9114 , 87986*w + 294 , 26078*w - 191142 , -193185*w + 273245 ],
[ -88650*w + 14448 , 41216 , 1648*w - 21490 , 3594*w + 55888 , 17282*w - 111370 , 51968*w + 15722 , 2714*w + 3276 , 33198*w - 31080 , -126*w + 7056 , -480*w + 29862 , 9180*w + 9450 , -23683*w - 85491 ],
[ 56674*w + 29820 , -1648*w - 21490 , 19950 , -44*w - 33698 , 8238*w + 88158 , -33996*w - 13524 , -2622*w - 2352 , -23004*w + 16800 , -5040 , 360*w - 19740 , -6120*w - 6300 , 18414*w + 31514 ],
[ -165148*w - 30478 , -3594*w + 55888 , 44*w - 33698 , 128002 , 332*w + 81788 , 72766*w + 40768 , 4652*w - 3192 , 49662*w - 37520 , 10920 , -780*w + 42770 , 13260*w + 13650 , -7814*w - 100478 ],
[ 188310*w + 54796 , -17282*w - 111370 , -8238*w + 88158 , -332*w + 81788 , 2791544 , -269882*w + 56658 , -27224*w - 75068 , -154606*w + 30464 , 11200*w - 82320 , -1120*w - 236320 , -76160*w - 78400 , 404400*w + 511616 ],
[ -9244*w - 997262 , -51968*w + 15722 , 33996*w - 13524 , -72766*w + 40768 , 269882*w + 56658 , 658336 , -6310*w + 39256 , 71846*w + 394744 , -11536*w - 2268 , -53668*w - 966 , -15508*w + 115570 , 100289*w - 338275 ],
[ -2372*w - 68922 , -2714*w + 3276 , 2622*w - 2352 , -4652*w - 3192 , 27224*w - 75068 , 6310*w + 39256 , 6160 , 4728*w + 21980 , -2000*w + 168 , -5056*w + 5684 , 88*w + 13244 , 1371*w - 45731 ],
[ 100060*w - 594762 , -33198*w - 31080 , 23004*w + 16800 , -49662*w - 37520 , 154606*w + 30464 , -71846*w + 394744 , -4728*w + 21980 , 349986 , -8952*w + 7910 , -29488*w - 15064 , -11700*w + 63588 , 55182*w - 215670 ],
[ -21108*w + 9114 , 126*w + 7056 , -5040 , 10920 , -11200*w - 82320 , 11536*w - 2268 , 2000*w + 168 , 8952*w + 7910 , 8022 , 2196*w + 14644 , 5732*w + 420 , -21667*w - 26677 ],
[ -87986*w + 294 , 480*w + 29862 , -360*w - 19740 , 780*w + 42770 , 1120*w - 236320 , 53668*w - 966 , 5056*w + 5684 , 29488*w - 15064 , -2196*w + 14644 , 44968 , 14278*w + 15246 , -41546*w - 105686 ],
[ -26078*w - 191142 , -9180*w + 9450 , 6120*w - 6300 , -13260*w + 13650 , 76160*w - 78400 , 15508*w + 115570 , -88*w + 13244 , 11700*w + 63588 , -5732*w + 420 , -14278*w + 15246 , 37268 , 19956*w - 131950 ],
[ 193185*w + 273245 , 23683*w - 85491 , -18414*w + 31514 , 7814*w - 100478 , -404400*w + 511616 , -100289*w - 338275 , -1371*w - 45731 , -55182*w - 215670 , 21667*w - 26677 , 41546*w - 105686 , -19956*w - 131950 , 789460 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 213 ***/
Grammatrix:=Matrix(S,[
[ 25687718 , 2288563*w + 21673337 , 612694*w - 548226 , 16472476*w - 82775000 , -424643*w + 920619 , -150794*w + 3359524 , -267705*w + 1709771 , 5513787*w + 7033355 , 683515*w + 3658725 , 3322322*w - 5841500 , -240680*w - 107478 , -15118960*w -
    55331290 ],
[ -2288563*w + 21673337 , 19932458 , 550123*w - 103033 , 21419604*w - 57884750 , -438302*w + 497630 , -392316*w + 2697562 , -412988*w + 1307306 , 4118678*w + 10053596 , 228388*w + 3688944 , 3499500*w - 2764160 , -199980*w - 264880 , -7550091*w -
    56055139 ],
[ -612694*w - 548226 , -550123*w - 103033 , 398174 , 1665764*w + 5025090 , -2706*w + 49896 , -35937*w - 155925 , -5116*w + 4354 , 36239*w + 115157 , -1930*w + 31794 , 32858*w - 8974 , -1154*w - 3892 , 1645178*w - 1129674 ],
[ -16472476*w - 82775000 , -21419604*w - 57884750 , -1665764*w + 5025090 , 357552664 , 873525*w - 4600099 , -1235385*w - 11856033 , -435741*w - 6418993 , -21213078*w + 5736738 , -4567717*w - 7574511 , -5845478*w + 33427436 , 791332*w - 849436 ,
    86614810*w + 113511398 ],
[ 424643*w + 920619 , 438302*w + 497630 , 2706*w + 49896 , -873525*w - 4600099 , 194978 , 79385*w + 140455 , 30032*w + 146720 , 534810*w - 626710 , 142320*w + 91210 , 42880*w - 1000160 , -17520*w + 39760 , -1498941*w - 6853 ],
[ 150794*w + 3359524 , 392316*w + 2697562 , 35937*w - 155925 , 1235385*w - 11856033 , -79385*w + 140455 , 569450 , -43657*w + 211393 , 700092*w + 1198568 , 70565*w + 521941 , 485322*w - 647192 , -31788*w - 24108 , -2441552*w - 6345472 ],
[ 267705*w + 1709771 , 412988*w + 1307306 , 5116*w + 4354 , 435741*w - 6418993 , -30032*w + 146720 , 43657*w + 211393 , 226688 , 739868*w + 89488 , 142336*w + 318640 , 263716*w - 1070076 , -28588*w + 18900 , -1566247*w - 2735621 ],
[ -5513787*w + 7033355 , -4118678*w + 10053596 , -36239*w + 115157 , 21213078*w + 5736738 , -534810*w - 626710 , -700092*w + 1198568 , -739868*w + 89488 , 17137554 , -995048*w + 3413438 , 3637096*w + 5665464 , -73560*w - 652680 , 8054891*w -
    37639119 ],
[ -683515*w + 3658725 , -228388*w + 3688944 , 1930*w + 31794 , 4567717*w - 7574511 , -142320*w + 91210 , -70565*w + 521941 , -142336*w + 318640 , 995048*w + 3413438 , 1085014 , 1053720*w - 349608 , -52600*w - 100184 , -602009*w - 10807125 ],
[ -3322322*w - 5841500 , -3499500*w - 2764160 , -32858*w - 8974 , 5845478*w + 33427436 , -42880*w - 1000160 , -485322*w - 647192 , -263716*w - 1070076 , -3637096*w + 5665464 , -1053720*w - 349608 , 7277424 , 114224*w - 325248 , 10665408*w - 556178
],
[ 240680*w - 107478 , 199980*w - 264880 , 1154*w - 3892 , -791332*w - 849436 , 17520*w + 39760 , 31788*w - 24108 , 28588*w + 18900 , 73560*w - 652680 , 52600*w - 100184 , -114224*w - 325248 , 27104 , -468514*w + 1206520 ],
[ 15118960*w - 55331290 , 7550091*w - 56055139 , -1645178*w - 1129674 , -86614810*w + 113511398 , 1498941*w - 6853 , 2441552*w - 6345472 , 1566247*w - 2735621 , -8054891*w - 37639119 , 602009*w - 10807125 , -10665408*w - 556178 , 468514*w +
    1206520 , 184890552 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 214 ***/
Grammatrix:=Matrix(S,[
[ 23394 , -690*w + 6944 , 1700*w + 18228 , 7986*w + 12838 , -363*w - 1869 , 511*w + 2499 , -473*w - 3101 , 260*w + 980 , 1643*w + 595 , 66*w - 196 , 946*w - 1540 , 12614*w + 15064 ],
[ 690*w + 6944 , 3262 , 730*w + 6048 , 2824*w + 3612 , -410*w - 1680 , 160*w + 140 , -180*w + 140 , 40*w , 0 , 0 , 0 , 3782*w + 1652 ],
[ -1700*w + 18228 , -730*w + 6048 , 21098 , 5084*w + 18578 , -910*w + 2394 , 422*w + 3808 , -78*w - 5432 , 188*w + 1512 , 1896*w + 1512 , 96*w , 1008*w - 1680 , 10506*w + 22050 ],
[ -7986*w + 12838 , -2824*w + 3612 , -5084*w + 18578 , 39788 , 2764*w - 3038 , 410*w + 1862 , -1074*w - 2548 , 138*w + 448 , -316*w - 252 , -16*w , -168*w + 280 , 4112*w + 36064 ],
[ 363*w - 1869 , 410*w - 1680 , 910*w + 2394 , -2764*w - 3038 , 16940 , 108*w + 5488 , 762*w - 10262 , 192*w + 2758 , 3950*w + 3150 , 200*w , 2100*w - 3500 , 1994*w + 8050 ],
[ -511*w + 2499 , -160*w + 140 , -422*w + 3808 , -410*w + 1862 , -108*w + 5488 , 3542 , 432*w - 5740 , 178*w + 1540 , 2500*w + 672 , 100*w - 336 , 1428*w - 2380 , 2444*w + 9912 ],
[ 473*w - 3101 , 180*w + 140 , 78*w - 5432 , 1074*w - 2548 , -762*w - 10262 , -432*w - 5740 , 9968 , -488*w - 2436 , -4318*w + 952 , -166*w + 616 , -2030*w + 5026 , -4586*w - 13034 ],
[ -260*w + 980 , -40*w , -188*w + 1512 , -138*w + 448 , -192*w + 2758 , -178*w + 1540 , 488*w - 2436 , 840 , 1258*w + 1652 , 106*w - 28 , 770*w - 462 , 672*w + 4970 ],
[ -1643*w + 595 , 0 , -1896*w + 1512 , 316*w - 252 , -3950*w + 3150 , -2500*w + 672 , 4318*w + 952 , -1258*w + 1652 , 17612 , 286*w + 1414 , 2030*w + 7294 , -5229*w + 15141 ],
[ -66*w - 196 , 0 , -96*w , 16*w , -200*w , -100*w - 336 , 166*w + 616 , -106*w - 28 , -286*w + 1414 , 280 , -98*w + 574 , -484*w ],
[ -946*w - 1540 , 0 , -1008*w - 1680 , 168*w + 280 , -2100*w - 3500 , -1428*w - 2380 , 2030*w + 5026 , -770*w - 462 , -2030*w + 7294 , 98*w + 574 , 6160 , -4902*w + 1820 ],
[ -12614*w + 15064 , -3782*w + 1652 , -10506*w + 22050 , -4112*w + 36064 , -1994*w + 8050 , -2444*w + 9912 , 4586*w - 13034 , -672*w + 4970 , 5229*w + 15141 , 484*w , 4902*w + 1820 , 76230 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 215 ***/
Grammatrix:=Matrix(S,[
[ 2692088 , 143102*w - 723450 , 55896*w - 81452 , 47258*w - 99610 , -8424*w + 30030 , -430954*w - 677530 , -621752*w - 2815078 , 92790*w - 1151052 , 124398*w - 296142 , -145808*w - 656936 , 313994*w + 367178 , -4334*w + 43134 ],
[ -143102*w - 723450 , 830620 , -10930*w + 274568 , 14436*w + 20552 , -16622*w - 3458 , 170298*w + 32886 , 403834*w + 633990 , 60514*w + 405916 , -17411*w + 145341 , 83958*w + 140420 , -118562*w + 19110 , -63931*w - 230517 ],
[ -55896*w - 81452 , 10930*w + 274568 , 102998 , 9190*w + 770 , -7024*w + 784 , 35132*w - 40838 , 114488*w + 31780 , 32188*w + 72520 , 2960*w + 35224 , 22348*w + 4144 , -22866*w + 37296 , -25856*w - 88480 ],
[ -47258*w - 99610 , -14436*w + 20552 , -9190*w + 770 , 23534 , 510*w - 15680 , 26036*w - 35350 , 62380*w + 10528 , 16892*w + 36680 , 1520*w + 18088 , 11476*w + 2128 , -11742*w + 19152 , 9692*w - 2604 ],
[ 8424*w + 30030 , 16622*w - 3458 , 7024*w + 784 , -510*w - 15680 , 16184 , -1012*w - 770 , 4318*w - 5516 , -814*w + 9016 , -480*w + 6552 , 4944*w + 1008 , -4944*w + 8064 , -5144*w + 2366 ],
[ 430954*w - 677530 , -170298*w + 32886 , -35132*w - 40838 , -26036*w - 35350 , 1012*w - 770 , 979706 , -358648*w + 2044476 , -239418*w + 350238 , -88680*w - 66038 , -89136*w + 365260 , -10586*w - 520044 , -9774*w - 11424 ],
[ 621752*w - 2815078 , -403834*w + 633990 , -114488*w + 31780 , -62380*w + 10528 , -4318*w - 5516 , 358648*w + 2044476 , 5433372 , -420504*w + 1490076 , -231936*w + 144452 , -16952*w + 1080800 , -269476*w - 1080856 , 8616*w - 97188 ],
[ -92790*w - 1151052 , -60514*w + 405916 , -32188*w + 72520 , -16892*w + 36680 , 814*w + 9016 , 239418*w + 350238 , 420504*w + 1490076 , 718466 , -48456*w + 207046 , 105572*w + 271796 , -173932*w - 70532 , -3362*w - 77966 ],
[ -124398*w - 296142 , 17411*w + 145341 , -2960*w + 35224 , -1520*w + 18088 , 480*w + 6552 , 88680*w - 66038 , 231936*w + 144452 , 48456*w + 207046 , 95830 , 60920*w + 25592 , -65572*w + 87052 , -1330*w - 28238 ],
[ 145808*w - 656936 , -83958*w + 140420 , -22348*w + 4144 , -11476*w + 2128 , -4944*w + 1008 , 89136*w + 365260 , 16952*w + 1080800 , -105572*w + 271796 , -60920*w + 25592 , 290024 , -76242*w - 279622 , 15784*w - 616 ],
[ -313994*w + 367178 , 118562*w + 19110 , 22866*w + 37296 , 11742*w + 19152 , 4944*w + 8064 , 10586*w - 520044 , 269476*w - 1080856 , 173932*w - 70532 , 65572*w + 87052 , 76242*w - 279622 , 409948 , -15272*w - 27496 ],
[ 4334*w + 43134 , 63931*w - 230517 , 25856*w - 88480 , -9692*w - 2604 , 5144*w + 2366 , 9774*w - 11424 , -8616*w - 97188 , 3362*w - 77966 , 1330*w - 28238 , -15784*w - 616 , 15272*w - 27496 , 164402 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 216 ***/
Grammatrix:=Matrix(S,[
[ 2582874 , -93721*w - 881461 , 258150*w + 278936 , 141650*w + 289646 , 23551*w + 42441 , 7014*w - 182308 , -174706*w - 457646 , -171054*w - 321832 , 113504*w + 1223544 , 131916*w + 366800 , -179986*w + 270284 , 505321*w + 717983 ],
[ 93721*w - 881461 , 385868 , -99336*w - 115122 , -75048*w - 105378 , -20980*w - 20482 , -8321*w + 56469 , 50742*w + 177002 , 49897*w + 133889 , -347*w - 415723 , -31370*w - 145068 , 65728*w - 49406 , -128432*w - 303688 ],
[ -258150*w + 278936 , 99336*w - 115122 , 944090 , -18198*w + 662270 , -10296*w + 176372 , -4550*w + 11354 , 5078*w + 30744 , 5856*w + 28392 , 13542*w - 99372 , -2850*w - 42294 , 17394*w + 3108 , 71956*w + 825062 ],
[ -141650*w + 289646 , 75048*w - 105378 , 18198*w + 662270 , 586922 , -7538*w + 177576 , -3942*w - 15498 , -29404*w - 44072 , -27258*w - 20048 , 29268*w + 120400 , 19132*w + 26628 , -15596*w + 46424 , 90068*w + 465542 ],
[ -23551*w + 42441 , 20980*w - 20482 , 10296*w + 176372 , 7538*w + 177576 , 60942 , -3009*w + 1407 , -10308*w + 7518 , -7539*w + 12677 , 16877*w - 9863 , 5030*w - 12376 , 3554*w + 17360 , 22814*w + 83762 ],
[ -7014*w - 182308 , 8321*w + 56469 , 4550*w + 11354 , 3942*w - 15498 , 3009*w + 1407 , 36708 , 30680*w + 62216 , 32226*w + 41706 , -27612*w - 258426 , -29382*w - 76230 , 37698*w - 61488 , -25607*w - 14973 ],
[ 174706*w - 457646 , -50742*w + 177002 , -5078*w + 30744 , 29404*w - 44072 , 10308*w + 7518 , -30680*w + 62216 , 435484 , 19776*w + 354676 , 143000*w - 608552 , 4148*w - 286412 , 112852*w + 86576 , -34002*w - 163716 ],
[ 171054*w - 321832 , -49897*w + 133889 , -5856*w + 28392 , 27258*w - 20048 , 7539*w + 12677 , -32226*w + 41706 , -19776*w + 354676 , 308168 , 185512*w - 464828 , 30054*w - 259994 , 95416*w + 150836 , -19361*w - 174153 ],
[ -113504*w + 1223544 , 347*w - 415723 , -13542*w - 99372 , -29268*w + 120400 , -16877*w - 9863 , 27612*w - 258426 , -143000*w - 608552 , -185512*w - 464828 , 2151394 , 164786*w + 757778 , -341272*w + 258132 , 177593*w + 199381 ],
[ -131916*w + 366800 , 31370*w - 145068 , 2850*w - 42294 , -19132*w + 26628 , -5030*w - 12376 , 29382*w - 76230 , -4148*w - 286412 , -30054*w - 259994 , -164786*w + 757778 , 355376 , -139998*w - 92050 , 47432*w + 164626 ],
[ 179986*w + 270284 , -65728*w - 49406 , -17394*w + 3108 , 15596*w + 46424 , -3554*w + 17360 , -37698*w - 61488 , -112852*w + 86576 , -95416*w + 150836 , 341272*w + 258132 , 139998*w - 92050 , 409948 , 52790*w - 173544 ],
[ -505321*w + 717983 , 128432*w - 303688 , -71956*w + 825062 , -90068*w + 465542 , -22814*w + 83762 , 25607*w - 14973 , 34002*w - 163716 , 19361*w - 174153 , -177593*w + 199381 , -47432*w + 164626 , -52790*w - 173544 , 1371384 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 217 ***/
Grammatrix:=Matrix(S,[
[ 127764728 , -375533*w + 4498487 , -120172*w + 1782368 , -249592*w + 2081996 , -89617*w + 1069075 , 1206110*w - 1321572 , 952489*w - 1629887 , 379525*w - 84889 , 138206*w + 4881618 , -1251980*w - 2349018 , 1187066*w - 465430 , -21972467*w -
    41065143 ],
[ 375533*w + 4498487 , 256480 , 4110*w - 33236 , 11641*w - 27041 , 5041*w - 10073 , -14046*w + 6272 , -850*w - 4914 , -2667*w - 5761 , 9897*w + 8197 , -5038*w + 12600 , 449*w - 14161 , -842021*w - 751947 ],
[ 120172*w + 1782368 , -4110*w - 33236 , 157766 , -8266*w + 170044 , -1330*w + 73542 , 65728*w - 144074 , 35678*w - 118482 , 21354*w - 19320 , 28344*w + 226632 , -72042*w - 69678 , 54702*w - 63714 , -419548*w - 662690 ],
[ 249592*w + 2081996 , -11641*w - 27041 , 8266*w + 170044 , 216244 , 4338*w + 94920 , 65816*w - 212688 , 32416*w - 162834 , 24534*w - 36456 , 51562*w + 257530 , -92372*w - 43428 , 60732*w - 107380 , -553409*w - 605325 ],
[ 89617*w + 1069075 , -5041*w - 10073 , 1330*w + 73542 , -4338*w + 94920 , 43946 , 35282*w - 86926 , 19938*w - 71218 , 12426*w - 12852 , 17932*w + 133308 , -43042*w - 38094 , 31954*w - 39998 , -260043*w - 359821 ],
[ -1206110*w - 1321572 , 14046*w + 6272 , -65728*w - 144074 , -65816*w - 212688 , -35282*w - 86926 , 406126 , 24610*w + 278222 , -14756*w + 104216 , -159372*w - 152460 , 122998*w - 200326 , -28222*w + 288274 , 814649*w - 1035153 ],
[ -952489*w - 1629887 , 850*w - 4914 , -35678*w - 118482 , -32416*w - 162834 , -19938*w - 71218 , -24610*w + 278222 , 261716 , -14128*w + 74340 , -144584*w - 192472 , 122446*w - 138978 , -40792*w + 253960 , 717816*w - 563010 ],
[ -379525*w - 84889 , 2667*w - 5761 , -21354*w - 19320 , -24534*w - 36456 , -12426*w - 12852 , 14756*w + 104216 , 14128*w + 74340 , 32872 , -52676*w - 14308 , 30514*w - 84182 , -60*w + 90916 , 186977*w - 486521 ],
[ -138206*w + 4881618 , -9897*w + 8197 , -28344*w + 226632 , -51562*w + 257530 , -17932*w + 133308 , 159372*w - 152460 , 144584*w - 192472 , 52676*w - 14308 , 734832 , -173920*w - 379344 , 175952*w - 33712 , -884904*w - 2242422 ],
[ 1251980*w - 2349018 , 5038*w + 12600 , 72042*w - 69678 , 92372*w - 43428 , 43042*w - 38094 , -122998*w - 200326 , -122446*w - 138978 , -30514*w - 84182 , 173920*w - 379344 , 487032 , -99464*w - 275576 , -80645*w + 2687307 ],
[ -1187066*w - 465430 , -449*w - 14161 , -54702*w - 63714 , -60732*w - 107380 , -31954*w - 39998 , 28222*w + 288274 , 40792*w + 253960 , 60*w + 90916 , -175952*w - 33712 , 99464*w - 275576 , 298144 , 594348*w - 1400882 ],
[ 21972467*w - 41065143 , 842021*w - 751947 , 419548*w - 662690 , 553409*w - 605325 , 260043*w - 359821 , -814649*w - 1035153 , -717816*w - 563010 , -186977*w - 486521 , 884904*w - 2242422 , 80645*w + 2687307 , -594348*w - 1400882 , 40586028 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );
/***Gitter Nr. 218 ***/
Grammatrix:=Matrix(S,[
[ 5712140 , 398108*w - 3566150 , -53444*w - 388500 , -256030*w + 78442 , -231606*w - 93870 , 167634*w - 140280 , -133888*w - 10654 , 108936*w + 102326 , -185898*w - 410564 , -382580*w + 142926 , -148946*w + 951202 , -639667*w + 3546613 ],
[ -398108*w - 3566150 , 2865870 , 64686*w + 315630 , 118486*w + 174132 , 185972*w + 128016 , -49440*w + 127400 , 50552*w - 112000 , -42176*w + 87360 , 97720*w - 105056 , 55796*w - 409472 , -105792*w - 336896 , -355554*w - 3493196 ],
[ 53444*w - 388500 , -64686*w + 315630 , 59696 , 13244*w + 96334 , 19258*w + 76286 , -5020*w - 6216 , 3812*w - 1708 , -2732*w + 4788 , 6114*w - 6566 , 3488*w - 25592 , -6612*w - 21056 , -33598*w - 460194 ],
[ 256030*w + 78442 , -118486*w + 174132 , -13244*w + 96334 , 968198 , 7212*w + 395374 , 74494*w - 456890 , -98570*w + 130620 , 140706*w - 53256 , -331200*w - 127680 , -406400*w + 949760 , 104000*w + 1422400 , -580085*w - 1147321 ],
[ 231606*w - 93870 , -185972*w + 128016 , -19258*w + 76286 , -7212*w + 395374 , 329854 , 18496*w - 168938 , -24728*w + 23016 , 35190*w - 5712 , -82800*w - 37380 , -101600*w + 236810 , 26000*w + 355600 , -192087*w - 848771 ],
[ -167634*w - 140280 , 49440*w + 127400 , 5020*w - 6216 , -74494*w - 456890 , -18496*w - 168938 , 353290 , 48638*w - 171220 , -84678*w + 156408 , 230796*w - 197428 , 151128*w - 961408 , -238548*w - 840756 , 331540*w - 100184 ],
[ 133888*w - 10654 , -50552*w - 112000 , -3812*w - 1708 , 98570*w + 130620 , 24728*w + 23016 , -48638*w - 171220 , 151312 , 20268*w - 171192 , -88524*w + 336812 , 61968*w + 640892 , 242312*w + 185864 , -78342*w + 558852 ],
[ -108936*w + 102326 , 42176*w + 87360 , 2732*w + 4788 , -140706*w - 53256 , -35190*w - 5712 , 84678*w + 156408 , -20268*w - 171192 , 224770 , 57978*w - 499870 , -170988*w - 715106 , -322678*w + 26810 , 73164*w - 745542 ],
[ 185898*w - 410564 , -97720*w - 105056 , -6114*w - 6566 , 331200*w - 127680 , 82800*w - 37380 , -230796*w - 197428 , 88524*w + 336812 , -57978*w - 499870 , 1223922 , 569556*w + 1290506 , 716202*w - 648774 , -20579*w + 1757651 ],
[ 382580*w + 142926 , -55796*w - 409472 , -3488*w - 25592 , 406400*w + 949760 , 101600*w + 236810 , -151128*w - 961408 , -61968*w + 640892 , 170988*w - 715106 , -569556*w + 1290506 , 3217802 , 1057664*w + 1649984 , -836224*w + 1716498 ],
[ 148946*w + 951202 , 105792*w - 336896 , 6612*w - 21056 , -104000*w + 1422400 , -26000*w + 355600 , 238548*w - 840756 , -242312*w + 185864 , 322678*w + 26810 , -716202*w - 648774 , -1057664*w + 1649984 , 3279584 , -992460*w - 1049062 ],
[ 639667*w + 3546613 , 355554*w - 3493196 , 33598*w - 460194 , 580085*w - 1147321 , 192087*w - 848771 , -331540*w - 100184 , 78342*w + 558852 , -73164*w - 745542 , 20579*w + 1757651 , 836224*w + 1716498 , 992460*w - 1049062 , 12307862 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 219 ***/
Grammatrix:=Matrix(S,[
[ 219460794 , -89428880*w + 172305308 , 8505904*w + 2089906 , -9280432*w + 772394 , 1799884*w - 2997778 , -1857292*w - 18145428 , -1975780*w - 6155632 , -11298058*w - 10910928 , 5207198*w + 10512348 , -1291282*w - 1051316 , 799972*w - 6012650 ,
    28842682*w - 16306654 ],
[ 89428880*w + 172305308 , 505560104 , 6729024*w - 36502634 , -5923836*w + 42873866 , -1280252*w - 6270978 , -9259482*w + 4135278 , -3475266*w + 5723438 , -6948620*w + 37755704 , 5808822*w - 16736286 , -660106*w + 4314604 , -2865468*w - 3403666 ,
9571688*w - 126822738 ],
[ -8505904*w + 2089906 , -6729024*w - 36502634 , 4264918 , -144270*w - 4806662 , 335842*w + 529452 , 776119*w - 2091607 , 150294*w - 1181614 , -331052*w - 4865784 , -128315*w + 2683513 , -47708*w - 545608 , 371018*w - 184912 , 1425655*w + 11572757
],
[ 9280432*w + 772394 , 5923836*w + 42873866 , 144270*w - 4806662 , 5541550 , -355932*w - 707392 , -874698*w + 2006844 , -181450*w + 1209838 , 191530*w + 5140814 , 225246*w - 2770922 , 30814*w + 583296 , -395010*w + 101024 , -1133188*w - 12915350
],
[ -1799884*w - 2997778 , 1280252*w - 6270978 , -335842*w + 529452 , 355932*w - 707392 , 438452 , 299460*w + 290990 , 124330*w - 98266 , 441936*w - 820190 , -293010*w + 215110 , 52910*w - 98560 , 61510*w + 257880 , -755204*w + 1997296 ],
[ 1857292*w - 18145428 , 9259482*w + 4135278 , -776119*w - 2091607 , 874698*w + 2006844 , -299460*w + 290990 , 3679424 , 183300*w + 1515430 , 1903022*w + 3600310 , -794586*w - 2599842 , 222734*w + 339360 , -243298*w + 1033648 , -3376412*w -
    4260816 ],
[ 1975780*w - 6155632 , 3475266*w + 5723438 , -150294*w - 1181614 , 181450*w + 1209838 , -124330*w - 98266 , -183300*w + 1515430 , 756196 , 604172*w + 2160396 , -189770*w - 1322958 , 70792*w + 213276 , -147522*w + 322210 , -1068304*w - 3171210 ],
[ 11298058*w - 10910928 , 6948620*w + 37755704 , 331052*w - 4865784 , -191530*w + 5140814 , -441936*w - 820190 , -1903022*w + 3600310 , -604172*w + 2160396 , 10416070 , 568886*w - 5415984 , 41588*w + 1137724 , -771898*w + 126686 , -1083994*w -
    16459716 ],
[ -5207198*w + 10512348 , -5808822*w - 16736286 , 128315*w + 2683513 , -225246*w - 2770922 , 293010*w + 215110 , 794586*w - 2599842 , 189770*w - 1322958 , -568886*w - 5415984 , 3053946 , -85090*w - 581350 , 398866*w - 366002 , 1535184*w + 8121316
],
[ 1291282*w - 1051316 , 660106*w + 4314604 , 47708*w - 545608 , -30814*w + 583296 , -52910*w - 98560 , -222734*w + 339360 , -70792*w + 213276 , -41588*w + 1137724 , 85090*w - 581350 , 127624 , -86382*w - 8358 , -74128*w - 1855084 ],
[ -799972*w - 6012650 , 2865468*w - 3403666 , -371018*w - 184912 , 395010*w + 101024 , -61510*w + 257880 , 243298*w + 1033648 , 147522*w + 322210 , 771898*w + 126686 , -398866*w - 366002 , 86382*w - 8358 , 409948 , -1246186*w + 476714 ],
[ -28842682*w - 16306654 , -9571688*w - 126822738 , -1425655*w + 11572757 , 1133188*w - 12915350 , 755204*w + 1997296 , 3376412*w - 4260816 , 1068304*w - 3171210 , 1083994*w - 16459716 , -1535184*w + 8121316 , 74128*w - 1855084 , 1246186*w +
    476714 , 39705680 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 220 ***/
Grammatrix:=Matrix(S,[
[ 3944710 , -41514*w + 987154 , 5260*w + 5768 , -142196*w + 155764 , -31640*w + 27930 , 35188*w - 289002 , 75548*w - 77560 , 31378*w - 364364 , 30718*w + 125020 , -230768*w - 496944 , -186556*w + 115794 , -84244*w - 432166 ],
[ 41514*w + 987154 , 267134 , 894*w + 476 , -22200*w + 110516 , -5406*w + 19684 , 7898*w - 76622 , 18776*w - 19726 , 7342*w - 91308 , 7926*w + 30744 , -58568*w - 120680 , -46290*w + 31500 , -18116*w - 91252 ],
[ -5260*w + 5768 , -894*w + 476 , 1764 , -7440*w - 252 , -1536*w - 476 , -1616*w + 140 , -896*w , -76*w , 0 , 0 , 0 , -1460*w - 1862 ],
[ 142196*w + 155764 , 22200*w + 110516 , 7440*w - 252 , 712964 , -3078*w + 133672 , 712*w + 49490 , -38*w + 43260 , 2*w + 3360 , 0 , 0 , 0 , 9476*w + 151242 ],
[ 31640*w + 27930 , 5406*w + 19684 , 1536*w - 476 , 3078*w + 133672 , 26236 , 548*w + 12838 , -1022*w + 8792 , 214*w + 9520 , -896*w - 1792 , 5632*w + 5488 , 3296*w - 5376 , 328*w + 35056 ],
[ -35188*w - 289002 , -7898*w - 76622 , 1616*w + 140 , -712*w + 49490 , -548*w + 12838 , 108598 , -22788*w + 47488 , 3402*w + 141372 , -15904*w - 32928 , 99968*w + 99092 , 58504*w - 95424 , -13372*w + 115374 ],
[ -75548*w - 77560 , -18776*w - 19726 , 896*w , 38*w + 43260 , 1022*w + 8792 , 22788*w + 47488 , 67060 , 41504*w + 48244 , -15472*w + 18312 , 67264*w - 157948 , -3808*w - 152992 , 25460*w + 81704 ],
[ -31378*w - 364364 , -7342*w - 91308 , 76*w , -2*w + 3360 , -214*w + 9520 , -3402*w + 141372 , -41504*w + 48244 , 254170 , -26732*w - 62384 , 172528*w + 204162 , 107444*w - 151368 , -34002*w + 178640 ],
[ -30718*w + 125020 , -7926*w + 30744 , 0 , 0 , 896*w - 1792 , 15904*w - 32928 , 15472*w + 18312 , 26732*w - 62384 , 35182 , -20992*w - 178010 , -42506*w - 42112 , 26730*w - 19712 ],
[ 230768*w - 496944 , 58568*w - 120680 , 0 , 0 , -5632*w + 5488 , -99968*w + 99092 , -67264*w - 157948 , -172528*w + 204162 , 20992*w - 178010 , 988442 , 189960*w + 390656 , -147326*w - 12068 ],
[ 186556*w + 115794 , 46290*w + 31500 , 0 , 0 , -3296*w - 5376 , -58504*w - 95424 , 3808*w - 152992 , -107444*w - 151368 , 42506*w - 42112 , -189960*w + 390656 , 409948 , -55968*w - 203140 ],
[ 84244*w - 432166 , 18116*w - 91252 , 1460*w - 1862 , -9476*w + 151242 , -328*w + 35056 , 13372*w + 115374 , -25460*w + 81704 , 34002*w + 178640 , -26730*w - 19712 , 147326*w - 12068 , 55968*w - 203140 , 251510 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 221 ***/
Grammatrix:=Matrix(S,[
[ 67164608 , 26384*w + 22394638 , 2473116*w - 8763454 , -885424*w + 3083654 , -116904*w + 71834 , 407636*w - 298228 , 1343720*w - 1782732 , 328800*w + 31080 , -2320*w - 9619092 , 1324466*w + 357406 , 1776862*w - 1348228 , 9960892*w + 24291022 ],
[ -26384*w + 22394638 , 7507122 , 722944*w - 2717848 , -260228*w + 957712 , -44076*w + 73080 , 147444*w - 165522 , 392308*w - 805196 , 107404*w - 42616 , -206118*w - 3196844 , 448348*w - 79982 , 561886*w - 715428 , 3274276*w + 7950880 ],
[ -2473116*w - 8763454 , -722944*w - 2717848 , 11407172 , 35136*w - 3920028 , -12616*w + 732312 , -184*w - 371140 , -776*w + 119280 , 68*w - 13440 , 0 , 0 , 0 , -4715084*w - 5446714 ],
[ 885424*w + 3083654 , 260228*w + 957712 , -35136*w - 3920028 , 1352596 , 1270*w - 261310 , -274*w + 136010 , 3802*w + 28756 , -1362*w + 18816 , 46848*w + 47488 , -8512*w + 43232 , -2432*w + 67648 , 1672678*w + 1773058 ],
[ 116904*w + 71834 , 44076*w + 73080 , 12616*w + 732312 , -1270*w - 261310 , 160510 , 23262*w - 177716 , -38274*w - 547288 , 13184*w - 116172 , -439200*w - 453040 , 79800*w - 406980 , 22800*w - 634200 , -290786*w - 329574 ],
[ -407636*w - 298228 , -147444*w - 165522 , 184*w - 371140 , 274*w + 136010 , -23262*w - 177716 , 270634 , 202412*w + 643916 , 13530*w + 175000 , 700304*w - 220808 , 3144*w + 686392 , 139024*w + 879704 , 98864*w + 140826 ],
[ -1343720*w - 1782732 , -392308*w - 805196 , 776*w + 119280 , -3802*w + 28756 , 38274*w - 547288 , -202412*w + 643916 , 3747828 , -132960*w + 700588 , 2582848*w + 4166232 , -677904*w + 2332036 , -414688*w + 3940048 , 221430*w + 331576 ],
[ -328800*w + 31080 , -107404*w - 42616 , -68*w - 13440 , 1362*w + 18816 , -13184*w - 116172 , -13530*w + 175000 , 132960*w + 700588 , 164584 , 632876*w + 131810 , -43278*w + 606592 , 63604*w + 841526 , 66804*w + 37226 ],
[ 2320*w - 9619092 , 206118*w - 3196844 , 0 , -46848*w + 47488 , 439200*w - 453040 , -700304*w - 220808 , -2582848*w + 4166232 , -632876*w + 131810 , 17274334 , -2386046*w - 682430 , -3209428*w + 2406950 , -75120*w + 1170120 ],
[ -1324466*w + 357406 , -448348*w - 79982 , 0 , 8512*w + 43232 , -79800*w - 406980 , -3144*w + 686392 , 677904*w + 2332036 , 43278*w + 606592 , 2386046*w - 682430 , 2334038 , 459268*w + 3008096 , 162706*w + 17542 ],
[ -1776862*w - 1348228 , -561886*w - 715428 , 0 , 2432*w + 67648 , -22800*w - 634200 , -139024*w + 879704 , 414688*w + 3940048 , -63604*w + 841526 , 3209428*w + 2406950 , -459268*w + 3008096 , 4509428 , 208518*w + 249858 ],
[ -9960892*w + 24291022 , -3274276*w + 7950880 , 4715084*w - 5446714 , -1672678*w + 1773058 , 290786*w - 329574 , -98864*w + 140826 , -221430*w + 331576 , -66804*w + 37226 , 75120*w + 1170120 , -162706*w + 17542 , -208518*w + 249858 , 27705426 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 222 ***/
Grammatrix:=Matrix(S,[
[ 5908 , 222*w - 5586 , -221*w + 399 , 41*w + 245 , -583*w + 329 , -63*w - 707 , -227*w + 469 , 287*w - 945 , 144*w + 252 , 195*w - 497 , 112*w - 1162 , -3893*w - 4095 ],
[ -222*w - 5586 , 44534 , 171*w + 399 , 1794*w + 3206 , -2127*w + 3325 , -648*w + 1190 , -657*w - 2569 , 1077*w + 987 , -195*w - 91 , -23*w + 1379 , 220*w + 3542 , 6193*w - 1379 ],
[ 221*w + 399 , -171*w + 399 , 112 , 52*w + 84 , -62*w + 154 , -34*w - 14 , -18*w , 10*w , 0 , 0 , 0 , -386*w + 518 ],
[ -41*w + 245 , -1794*w + 3206 , -52*w + 84 , 1218 , -462*w - 504 , -144*w - 504 , -42*w - 168 , -14*w + 126 , 6*w - 14 , -12*w - 56 , -30*w - 126 , 432*w + 1078 ],
[ 583*w + 329 , 2127*w + 3325 , 62*w + 154 , 462*w - 504 , 6608 , -424*w - 350 , -18*w + 1708 , -404*w - 350 , 54*w - 126 , -108*w - 504 , -270*w - 1134 , -72*w + 1764 ],
[ 63*w - 707 , 648*w + 1190 , 34*w - 14 , 144*w - 504 , 424*w - 350 , 952 , 192*w - 336 , -178*w - 98 , -26*w - 350 , -180*w + 112 , -246*w + 938 , 732*w - 910 ],
[ 227*w + 469 , 657*w - 2569 , 18*w , 42*w - 168 , 18*w + 1708 , -192*w - 336 , 1260 , -416*w - 1344 , 136*w - 196 , -52*w - 812 , -196*w - 1316 , -112*w + 2520 ],
[ -287*w - 945 , -1077*w + 987 , -10*w , 14*w + 126 , 404*w - 350 , 178*w - 98 , 416*w - 1344 , 8330 , -734*w + 1008 , -66*w + 2814 , 452*w + 1652 , 618*w - 7420 ],
[ -144*w + 252 , 195*w - 91 , 0 , -6*w - 14 , -54*w - 126 , 26*w - 350 , -136*w - 196 , 734*w + 1008 , 686 , 296*w + 336 , 304*w - 448 , -812*w - 1176 ],
[ -195*w - 497 , 23*w + 1379 , 0 , 12*w - 56 , 108*w - 504 , 180*w + 112 , 52*w - 812 , 66*w + 2814 , -296*w + 336 , 1176 , 312*w + 1064 , 182*w - 3430 ],
[ -112*w - 1162 , -220*w + 3542 , 0 , 30*w - 126 , 270*w - 1134 , 246*w + 938 , 196*w - 1316 , -452*w + 1652 , -304*w - 448 , -312*w + 1064 , 2464 , 1164*w - 3136 ],
[ 3893*w - 4095 , -6193*w - 1379 , 386*w + 518 , -432*w + 1078 , 72*w + 1764 , -732*w - 910 , 112*w + 2520 , -618*w - 7420 , 812*w - 1176 , -182*w - 3430 , -1164*w - 3136 , 32508 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 223 ***/
Grammatrix:=Matrix(S,[
[ 1223861828 , -2142581219*w - 3756309655 , -1770698020*w - 2976445500 , -141998444*w - 192873128 , -1724574*w + 10269714 , 18071458*w + 29554476 , -5786976*w - 10486252 , 673166*w + 28451794 , -1655239*w + 2467857 , -3339856*w - 3038938 ,
    -1481059*w + 13158019 , -827211692*w + 703764726 ],
[ 2142581219*w - 3756309655 , 38232230176 , 226778777*w + 31202126305 , 99066223*w + 2360791069 , 21950372*w - 17019058 , -15221918*w - 298901652 , 3267574*w + 99143898 , 42402500*w - 103215042 , 9455045*w + 9887325 , 6480840*w + 46950974 ,
    25642485*w - 28011753 , 3817591098*w + 8096982362 ],
[ 1770698020*w - 2976445500 , -226778777*w + 31202126305 , 25474394456 , 66807143*w + 1930894315 , 18006900*w - 13024424 , -10739793*w - 244507501 , 2109955*w + 81028213 , 35195855*w - 82511149 , 7658566*w + 8449014 , 5017820*w + 38572296 ,
    21084964*w - 21820834 , 3067580051*w + 6766806319 ],
[ 141998444*w - 192873128 , -99066223*w + 2360791069 , -66807143*w + 1930894315 , 147703346 , 1395018*w - 675080 , -208657*w - 18662497 , -40277*w + 6153805 , 2866583*w - 5617325 , 557526*w + 772842 , 282338*w + 3002398 , 1647792*w - 1277710 ,
    214751165*w + 569320997 ],
[ 1724574*w + 10269714 , -21950372*w - 17019058 , -18006900*w - 13024424 , -1395018*w - 675080 , 235004 , 411594*w + 106610 , -135050*w - 50176 , 106650*w + 456288 , -19296*w + 79520 , -65664*w + 27776 , 19824*w + 252784 , -6285272*w + 11301248 ],
[ -18071458*w + 29554476 , 15221918*w - 298901652 , 10739793*w - 244507501 , 208657*w - 18662497 , -411594*w + 106610 , 5157124 , 26928*w - 1700552 , -759814*w + 1524516 , -149384*w - 203448 , -78512*w - 800912 , -438290*w + 358302 , -25866512*w -
    73294774 ],
[ 5786976*w - 10486252 , -3267574*w + 99143898 , -2109955*w + 81028213 , 40277*w + 6153805 , 135050*w - 50176 , -26928*w - 1700552 , 562044 , 242564*w - 531692 , 50388*w + 61516 , 30212*w + 261380 , 142740*w - 134764 , 8955921*w + 23092167 ],
[ -673166*w + 28451794 , -42402500*w - 103215042 , -35195855*w - 82511149 , -2866583*w - 5617325 , -106650*w + 456288 , 759814*w + 1524516 , -242564*w - 531692 , 1278564 , -76656*w + 97272 , -146300*w - 161532 , -80208*w + 579488 , -18975478*w +
    7233394 ],
[ 1655239*w + 2467857 , -9455045*w + 9887325 , -7658566*w + 8449014 , -557526*w + 772842 , 19296*w + 79520 , 149384*w - 203448 , -50388*w + 61516 , 76656*w + 97272 , 39592 , -20812*w + 49140 , 28656*w + 77728 , -1024457*w + 8530795 ],
[ 3339856*w - 3038938 , -6480840*w + 46950974 , -5017820*w + 38572296 , -282338*w + 3002398 , 65664*w + 27776 , 78512*w - 800912 , -30212*w + 261380 , 146300*w - 161532 , 20812*w + 49140 , 137648 , 76480*w - 8960 , 3213938*w + 14293636 ],
[ 1481059*w + 13158019 , -25642485*w - 28011753 , -21084964*w - 21820834 , -1647792*w - 1277710 , -19824*w + 252784 , 438290*w + 358302 , -142740*w - 134764 , 80208*w + 579488 , -28656*w + 77728 , -76480*w - 8960 , 298144 , -8121055*w + 11610655
],
[ 827211692*w + 703764726 , -3817591098*w + 8096982362 , -3067580051*w + 6766806319 , -214751165*w + 569320997 , 6285272*w + 11301248 , 25866512*w - 73294774 , -8955921*w + 23092167 , 18975478*w + 7233394 , 1024457*w + 8530795 , -3213938*w +
    14293636 , 8121055*w + 11610655 , 4384794260 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 224 ***/
Grammatrix:=Matrix(S,[
[ 23814 , -2812*w + 10416 , -1998*w + 10388 , -1194*w + 4312 , 951*w + 735 , -2561*w - 8057 , 34*w + 6874 , 963*w - 6083 , 3921*w + 6867 , -677*w - 4879 , 4774*w - 6468 , 4125*w + 5859 ],
[ 2812*w + 10416 , 15694 , 791*w + 15421 , 816*w + 490 , 498*w - 2100 , -1430*w - 1624 , 1577*w + 637 , -1672*w - 532 , 685*w - 7987 , -918*w + 2352 , -2658*w - 6174 , 3218*w + 420 ],
[ 1998*w + 10388 , -791*w + 15421 , 16254 , 828*w + 322 , 450*w - 2128 , -1498*w - 1624 , 1605*w + 637 , -1680*w - 532 , 685*w - 7987 , -918*w + 2352 , -2658*w - 6174 , 2421*w + 1519 ],
[ 1194*w + 4312 , -816*w + 490 , -828*w + 322 , 2730 , 416*w + 322 , -980*w - 462 , 462*w + 2632 , -170*w - 3332 , 2480*w - 224 , -884*w - 1652 , 1340*w - 6692 , 690*w - 252 ],
[ -951*w + 735 , -498*w - 2100 , -450*w - 2128 , -416*w + 322 , 1092 , 330*w - 1358 , -404*w + 952 , 466*w - 756 , 384*w + 2352 , 60*w - 1092 , 1116*w + 252 , -123*w + 1379 ],
[ 2561*w - 8057 , 1430*w - 1624 , 1498*w - 1624 , 980*w - 462 , -330*w - 1358 , 9044 , 542*w - 3416 , -746*w + 1260 , -314*w - 3850 , -208*w + 1568 , -1646*w - 1246 , -959*w - 2051 ],
[ -34*w + 6874 , -1577*w + 637 , -1605*w + 637 , -462*w + 2632 , 404*w + 952 , -542*w - 3416 , 4144 , 308*w - 4256 , 2944*w + 2408 , -780*w - 2828 , 2580*w - 6412 , 901*w + 707 ],
[ -963*w - 6083 , 1672*w - 532 , 1680*w - 532 , 170*w - 3332 , -466*w - 756 , 746*w + 1260 , -308*w - 4256 , 5250 , -3848*w - 1190 , 1192*w + 2968 , -2616*w + 9464 , -841*w - 175 ],
[ -3921*w + 6867 , -685*w - 7987 , -685*w - 7987 , -2480*w - 224 , -384*w + 2352 , 314*w - 3850 , -2944*w + 2408 , 3848*w - 1190 , 20902 , 2008*w - 6888 , 7800*w + 11816 , 14*w + 3920 ],
[ 677*w - 4879 , 918*w + 2352 , 918*w + 2352 , 884*w - 1652 , -60*w - 1092 , 208*w + 1568 , 780*w - 2828 , -1192*w + 2968 , -2008*w - 6888 , 3696 , -3728*w + 1344 , -379*w - 1309 ],
[ -4774*w - 6468 , 2658*w - 6174 , 2658*w - 6174 , -1340*w - 6692 , -1116*w + 252 , 1646*w - 1246 , -2580*w - 6412 , 2616*w + 9464 , -7800*w + 11816 , 3728*w + 1344 , 27104 , -1470*w + 2240 ],
[ -4125*w + 5859 , -3218*w + 420 , -2421*w + 1519 , -690*w - 252 , 123*w + 1379 , 959*w - 2051 , -901*w + 707 , 841*w - 175 , -14*w + 3920 , 379*w - 1309 , 1470*w + 2240 , 11424 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 225 ***/
Grammatrix:=Matrix(S,[
[ 36442 , 225*w + 15981 , 1163*w + 1771 , 6246*w - 9310 , -3015*w - 1015 , 128*w - 1288 , -1479*w - 1239 , 1558*w + 2450 , -741*w - 11585 , -2954*w - 4690 , 3928*w - 7434 , -3767*w - 10045 ],
[ -225*w + 15981 , 8078 , 270*w + 1330 , 3146*w + 868 , -1408*w - 14 , 60*w - 2016 , -1100*w + 28 , 1354*w + 126 , -1455*w - 7777 , -2400*w - 1778 , 2178*w - 7084 , -1045*w - 3381 ],
[ -1163*w + 1771 , -270*w + 1330 , 1330 , 2028*w + 2954 , -288*w - 602 , -250*w - 588 , -164*w + 84 , 100*w - 266 , -282*w - 434 , -228*w + 196 , 28*w - 868 , 708*w - 1890 ],
[ -6246*w - 9310 , -3146*w + 868 , -2028*w + 2954 , 39662 , 1942*w - 1610 , -38*w - 4788 , -480*w - 392 , 532*w - 1890 , -1410*w - 2170 , -1140*w + 980 , 140*w - 4340 , 7108*w + 4522 ],
[ 3015*w - 1015 , 1408*w - 14 , 288*w - 602 , -1942*w - 1610 , 8834 , -58*w - 2506 , -1416*w + 3444 , 2254*w - 4242 , -4794*w - 7378 , -3876*w + 3332 , 476*w - 14756 , -184*w + 6958 ],
[ -128*w - 1288 , -60*w - 2016 , 250*w - 588 , 38*w - 4788 , 58*w - 2506 , 4214 , 1174*w - 3696 , -2094*w + 5292 , 5260*w + 7420 , 4136*w - 3640 , -504*w + 15624 , -198*w - 3962 ],
[ 1479*w - 1239 , 1100*w + 28 , 164*w + 84 , 480*w - 392 , 1416*w + 3444 , -1174*w - 3696 , 7728 , 720*w - 11228 , -8192*w + 4088 , -3196*w + 13440 , -4676*w - 17668 , 548*w + 3528 ],
[ -1558*w + 2450 , -1354*w + 126 , -100*w - 266 , -532*w - 1890 , -2254*w - 4242 , 2094*w + 5292 , -720*w - 11228 , 17332 , 12034*w - 10878 , 3794*w - 22064 , 8400*w + 24192 , -1508*w - 5992 ],
[ 741*w - 11585 , 1455*w - 7777 , 282*w - 434 , 1410*w - 2170 , 4794*w - 7378 , -5260*w + 7420 , 8192*w + 4088 , -12034*w - 10878 , 68712 , 13744*w + 34412 , -23604*w + 27020 , 5608*w - 3892 ],
[ 2954*w - 4690 , 2400*w - 1778 , 228*w + 196 , 1140*w + 980 , 3876*w + 3332 , -4136*w - 3640 , 3196*w + 13440 , -3794*w - 22064 , -13744*w + 34412 , 36596 , -17290*w - 19642 , 3692*w + 5964 ],
[ -3928*w - 7434 , -2178*w - 7084 , -28*w - 868 , -140*w - 4340 , -476*w - 14756 , 504*w + 15624 , 4676*w - 17668 , -8400*w + 24192 , 23604*w + 27020 , 17290*w - 19642 , 67760 , 792*w - 15484 ],
[ 3767*w - 10045 , 1045*w - 3381 , -708*w - 1890 , -7108*w + 4522 , 184*w + 6958 , 198*w - 3962 , -548*w + 3528 , 1508*w - 5992 , -5608*w - 3892 , -3692*w + 5964 , -792*w - 15484 , 15876 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 226 ***/
Grammatrix:=Matrix(S,[
[ 2139564 , -791864*w - 773822 , -348568*w + 173810 , -116269*w + 87297 , -42572*w + 672980 , 171647*w + 142989 , -5407*w - 96929 , -75568*w + 53158 , 115012*w - 943922 , 55997*w + 395185 , -179552*w + 42154 , 2040504*w + 1114260 ],
[ 791864*w - 773822 , 4544666 , 422840*w + 1818950 , 101983*w + 762657 , 240792*w - 97930 , -87501*w - 766255 , -26043*w + 81179 , 89102*w + 255556 , -624694*w + 506226 , 157919*w - 602497 , 200016*w + 633738 , -623040*w - 5233886 ],
[ 348568*w + 173810 , -422840*w + 1818950 , 1528198 , -28664*w + 467964 , 187220*w + 69902 , 75428*w - 806232 , -32286*w + 42980 , 23500*w + 333900 , -633600*w - 350700 , 245700*w - 321300 , 58500*w + 800100 , 383928*w - 3383086 ],
[ 116269*w + 87297 , -101983*w + 762657 , 28664*w + 467964 , 205716 , 49636*w - 121240 , -99224*w - 219464 , -4808*w + 40152 , 51768*w + 44100 , -172980*w + 521220 , 6180*w - 293580 , 118380*w + 105420 , -122454*w - 1123808 ],
[ 42572*w + 672980 , -240792*w - 97930 , -187220*w + 69902 , -49636*w - 121240 , 1510544 , 847914*w + 63938 , -25804*w - 253148 , -323386*w + 347634 , 28542*w - 4357374 , 421314*w + 1474410 , -729738*w + 766374 , 2485158*w + 2010554 ],
[ -171647*w + 142989 , 87501*w - 766255 , -75428*w - 806232 , 99224*w - 219464 , -847914*w + 63938 , 3833844 , 145358*w - 127008 , -230424*w - 1442098 , 2812774*w - 125482 , -926322*w + 1986166 , -536206*w - 3246782 , -1043760*w + 9554188 ],
[ 5407*w - 96929 , 26043*w + 81179 , 32286*w + 42980 , 4808*w + 40152 , 25804*w - 253148 , -145358*w - 127008 , 47208 , 62496*w - 15260 , -91114*w + 751016 , -43836*w - 313684 , 141544*w - 31864 , -377226*w - 657244 ],
[ 75568*w + 53158 , -89102*w + 255556 , -23500*w + 333900 , -51768*w + 44100 , 323386*w + 347634 , 230424*w - 1442098 , -62496*w - 15260 , 640626 , -1065054*w - 1137584 , 467820*w - 356538 , 6168*w + 1446648 , 999200*w - 3147438 ],
[ -115012*w - 943922 , 624694*w + 506226 , 633600*w - 350700 , 172980*w + 521220 , -28542*w - 4357374 , -2812774*w - 125482 , 91114*w + 751016 , 1065054*w - 1137584 , 14471884 , -1429094*w - 4829384 , 2403194*w - 2652118 , -7017648*w - 5534074 ],
[ -55997*w + 395185 , -157919*w - 602497 , -245700*w - 321300 , -6180*w - 293580 , -421314*w + 1474410 , 926322*w + 1986166 , 43836*w - 313684 , -467820*w - 356538 , 1429094*w - 4829384 , 2599478 , -1063868*w - 776188 , 1795742*w + 6706308 ],
[ 179552*w + 42154 , -200016*w + 633738 , -58500*w + 800100 , -118380*w + 105420 , 729738*w + 766374 , 536206*w - 3246782 , -141544*w - 31864 , -6168*w + 1446648 , -2403194*w - 2652118 , 1063868*w - 776188 , 3279584 , 2208470*w - 7154938 ],
[ -2040504*w + 1114260 , 623040*w - 5233886 , -383928*w - 3383086 , 122454*w - 1123808 , -2485158*w + 2010554 , 1043760*w + 9554188 , 377226*w - 657244 , -999200*w - 3147438 , 7017648*w - 5534074 , -1795742*w + 6706308 , -2208470*w - 7154938 ,
    36131830 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 227 ***/
Grammatrix:=Matrix(S,[
[ 2134272 , 78440*w - 189574 , 6736*w - 12012 , -13970*w + 58590 , 13294*w - 18718 , -7604*w + 67690 , 137962*w - 379036 , 32660*w + 164080 , 30036*w + 165284 , 139940*w + 328006 , -167322*w + 66570 , -638324*w - 1673742 ],
[ -78440*w - 189574 , 130032 , -3238*w + 14196 , -9998*w + 4816 , 10728*w - 924 , -636*w - 84 , 744*w , -444*w , 40*w , -24*w , 0 , 156210*w + 76468 ],
[ -6736*w - 12012 , 3238*w + 14196 , 4396 , -868*w + 5012 , 1232*w - 8848 , -64*w - 868 , -20*w + 280 , -12*w , 0 , 0 , 0 , 15372*w + 2856 ],
[ 13970*w + 58590 , 9998*w + 4816 , 868*w + 5012 , 36274 , 970*w - 17458 , -222*w + 10332 , 42*w - 1344 , -32*w + 896 , 0 , 0 , 0 , -11144*w + 23170 ],
[ -13294*w - 18718 , -10728*w - 924 , -1232*w - 8848 , -970*w - 17458 , 32032 , -136*w + 3458 , -3194*w + 32368 , -2966*w - 9184 , -2664*w - 5796 , -9144*w - 8316 , 7416*w - 12096 , 1680*w - 1148 ],
[ 7604*w + 67690 , 636*w - 84 , 64*w - 868 , 222*w + 10332 , 136*w + 3458 , 9282 , 2446*w - 15806 , 2208*w + 3388 , 1998*w + 4872 , 6858*w + 5922 , -5562*w + 9072 , -19980*w - 12502 ],
[ -137962*w - 379036 , -744*w , 20*w + 280 , -42*w - 1344 , 3194*w + 32368 , -2446*w - 15806 , 662494 , -80584*w - 100100 , -72338*w - 83342 , -216428*w - 14742 , 128792*w - 389172 , 150284*w + 113330 ],
[ -32660*w + 164080 , 444*w , 12*w , 32*w + 896 , 2966*w - 9184 , -2208*w + 3388 , 80584*w - 100100 , 85400 , 350*w + 74732 , 30236*w + 189308 , -67104*w - 53732 , -980*w - 155904 ],
[ -30036*w + 165284 , -40*w , 0 , 0 , 2664*w - 5796 , -1998*w + 4872 , 72338*w - 83342 , -350*w + 74732 , 66920 , 26202*w + 169750 , -59678*w - 49924 , -6972*w - 149758 ],
[ -139940*w + 328006 , 24*w , 0 , 0 , 9144*w - 8316 , -6858*w + 5922 , 216428*w - 14742 , -30236*w + 189308 , -26202*w + 169750 , 502698 , -131900*w - 290332 , 43476*w - 392378 ],
[ 167322*w + 66570 , 0 , 0 , 0 , -7416*w - 12096 , 5562*w + 9072 , -128792*w - 389172 , 67104*w - 53732 , 59678*w - 49924 , 131900*w - 290332 , 409948 , -127938*w + 148260 ],
[ 638324*w - 1673742 , -156210*w + 76468 , -15372*w + 2856 , 11144*w + 23170 , -1680*w - 1148 , 19980*w - 12502 , -150284*w + 113330 , 980*w - 155904 , 6972*w - 149758 , -43476*w - 392378 , 127938*w + 148260 , 3022992 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 228 ***/
Grammatrix:=Matrix(S,[
[ 7392 , -595*w - 3059 , 248*w + 140 , 28*w - 224 , -24*w + 364 , -240*w + 532 , 30*w - 378 , 294*w + 434 , 160*w + 154 , 124*w - 952 , -176*w - 924 , -1675*w - 4557 ],
[ 595*w - 3059 , 3626 , -116*w - 714 , -18*w - 112 , 48*w - 406 , -290*w - 378 , 55*w + 189 , -75*w - 161 , -85*w - 35 , -60*w + 462 , 88*w + 462 , -310*w + 3640 ],
[ -248*w + 140 , 116*w - 714 , 364 , -2*w + 28 , -48*w + 84 , 72*w + 28 , -12*w , -28*w , 0 , 0 , 0 , 140*w - 406 ],
[ -28*w - 224 , 18*w - 112 , 2*w + 28 , 98 , -18*w - 154 , -12*w - 364 , 2*w + 168 , -116*w - 112 , -72*w - 28 , -56*w + 280 , 36*w + 336 , -60*w - 812 ],
[ 24*w + 364 , -48*w - 406 , 48*w + 84 , 18*w - 154 , 784 , 36*w + 1610 , -8*w - 588 , 326*w + 336 , 216*w + 84 , 168*w - 840 , -108*w - 1008 , 606*w + 3332 ],
[ 240*w + 532 , 290*w - 378 , -72*w + 28 , 12*w - 364 , -36*w + 1610 , 4396 , -10*w - 1428 , 722*w + 560 , 468*w + 182 , 364*w - 1820 , -234*w - 2184 , 1432*w + 8330 ],
[ -30*w - 378 , -55*w + 189 , 12*w , -2*w + 168 , 8*w - 588 , 10*w - 1428 , 616 , -336*w - 308 , -208*w - 56 , -224*w + 1008 , 132*w + 1232 , -491*w - 3171 ],
[ -294*w + 434 , 75*w - 161 , 28*w , 116*w - 112 , -326*w + 336 , -722*w + 560 , 336*w - 308 , 1820 , 88*w + 1064 , 672*w + 224 , 600*w - 1176 , -1521*w + 3031 ],
[ -160*w + 154 , 85*w - 35 , 0 , 72*w - 28 , -216*w + 84 , -468*w + 182 , 208*w - 56 , -88*w + 1064 , 686 , 330*w + 378 , 386*w - 350 , -1053*w + 1295 ],
[ -124*w - 952 , 60*w + 462 , 0 , 56*w + 280 , -168*w - 840 , -364*w - 1820 , 224*w + 1008 , -672*w + 224 , -330*w + 378 , 2912 , 886*w + 2058 , -1698*w - 3500 ],
[ 176*w - 924 , -88*w + 462 , 0 , -36*w + 336 , 108*w - 1008 , 234*w - 2184 , -132*w + 1232 , -600*w - 1176 , -386*w - 350 , -886*w + 2058 , 3388 , -276*w - 6300 ],
[ 1675*w - 4557 , 310*w + 3640 , -140*w - 406 , 60*w - 812 , -606*w + 3332 , -1432*w + 8330 , 491*w - 3171 , 1521*w + 3031 , 1053*w + 1295 , 1698*w - 3500 , 276*w - 6300 , 31164 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 229 ***/
Grammatrix:=Matrix(S,[
[ 298594016 , 12961062*w + 118470184 , -30281676*w + 55133386 , -10895222*w + 11774476 , -1604624*w + 3513020 , 194161974*w - 1178837898 , -72449294*w + 444856482 , -637690*w + 1499750 , 9417700*w - 28260246 , -1308734*w - 2507232 , 2195488*w +
    11404708 , -102406240*w - 489284852 ],
[ -12961062*w + 118470184 , 75175590 , -14438000*w - 27119498 , -4838186*w - 13939562 , 37508*w - 501928 , -26595266*w - 609678230 , 10156934*w + 230680590 , 6900*w + 25200 , -600374*w - 13575310 , 108*w , 0 , -117429846*w - 133706650 ],
[ 30281676*w + 55133386 , 14438000*w - 27119498 , 172782708 , -887126*w + 62732488 , -5184232*w + 24507812 , 186564534*w + 465100650 , -67234566*w - 180613398 , -1759712*w + 8825600 , 24032810*w - 19046426 , -6863964*w - 5005000 , 15696000*w +
    38080000 , 181834436*w - 12015808 ],
[ 10895222*w + 11774476 , 4838186*w - 13939562 , 887126*w + 62732488 , 23064776 , -1834568*w + 8777972 , 73682728*w + 202833750 , -26694820*w - 78439522 , -621694*w + 3110282 , 8660494*w - 5864404 , -2423862*w - 1766800 , 5542650*w + 13447000 ,
    73326656*w - 2730560 ],
[ 1604624*w + 3513020 , -37508*w - 501928 , 5184232*w + 24507812 , 1834568*w + 8777972 , 10229968 , 50172236*w + 56476476 , -18036244*w - 24015684 , 136862*w + 3982510 , 5377614*w - 19710754 , -2688490*w + 2171820 , 8275130*w + 3895640 ,
    29288694*w - 37870910 ],
[ -194161974*w - 1178837898 , 26595266*w - 609678230 , -186564534*w + 465100650 , -73682728*w + 202833750 , -50172236*w + 56476476 , 35849880542 , 24025692*w - 13533168950 , -13250156*w + 27352024 , 102510380*w + 783015324 , -24038936*w - 56867132
, 34583872*w + 237531126 , 5744005618*w + 12385580158 ],
[ 72449294*w + 444856482 , -10156934*w + 230680590 , 67234566*w - 180613398 , 26694820*w - 78439522 , 18036244*w - 24015684 , -24025692*w - 13533168950 , 5110063126 , 4603206*w - 11233390 , -38394010*w - 287594048 , 9553740*w + 19205830 ,
    -15493076*w - 85372462 , -2177634266*w - 4647152440 ],
[ 637690*w + 1499750 , -6900*w + 25200 , 1759712*w + 8825600 , 621694*w + 3110282 , -136862*w + 3982510 , 13250156*w + 27352024 , -4603206*w - 11233390 , 1616538 , 2291478*w - 7391930 , -1107700*w + 611590 , 3264260*w + 2357320 , 9996640*w -
    5832190 ],
[ -9417700*w - 28260246 , 600374*w - 13575310 , -24032810*w - 19046426 , -8660494*w - 5864404 , -5377614*w - 19710754 , -102510380*w + 783015324 , 38394010*w - 287594048 , -2291478*w - 7391930 , 73980060 , 4193946*w - 13876016 , -18306410*w +
    21850178 , 85233006*w + 396629282 ],
[ 1308734*w - 2507232 , -108*w , 6863964*w - 5005000 , 2423862*w - 1766800 , 2688490*w + 2171820 , 24038936*w - 56867132 , -9553740*w + 19205830 , 1107700*w + 611590 , -4193946*w - 13876016 , 5547542 , 2851944*w - 14773052 , -654264*w - 51881970
],
[ -2195488*w + 11404708 , 0 , -15696000*w + 38080000 , -5542650*w + 13447000 , -8275130*w + 3895640 , -34583872*w + 237531126 , 15493076*w - 85372462 , -3264260*w + 2357320 , 18306410*w + 21850178 , -2851944*w - 14773052 , 49603708 , 28422794*w +
    135448810 ],
[ 102406240*w - 489284852 , 117429846*w - 133706650 , -181834436*w - 12015808 , -73326656*w - 2730560 , -29288694*w - 37870910 , -5744005618*w + 12385580158 , 2177634266*w - 4647152440 , -9996640*w - 5832190 , -85233006*w + 396629282 , 654264*w -
    51881970 , -28422794*w + 135448810 , 10854375056 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 230 ***/
Grammatrix:=Matrix(S,[
[ 5197276 , -149826*w - 1883462 , -349516*w - 143990 , 107018*w + 125860 , -385974*w + 311220 , -33390*w - 179858 , -171244*w + 2411864 , -282952*w + 841344 , -53582*w + 78190 , -64808*w + 469336 , 211436*w + 602084 , 1052522*w + 1656998 ],
[ 149826*w - 1883462 , 734594 , 97700*w + 78498 , -25474*w - 52752 , 136386*w - 65254 , 8876*w + 60284 , 90976*w - 752780 , 101022*w - 243964 , 17378*w - 20160 , 25996*w - 143192 , -59884*w - 207592 , -335179*w - 808745 ],
[ 349516*w - 143990 , -97700*w + 78498 , 743022 , 8134*w - 222936 , 17002*w + 542570 , -42720*w + 48860 , 484470*w + 290136 , 138040*w + 396984 , 3672*w + 82824 , 77520*w + 122808 , 126072*w - 205632 , 111598*w - 611590 ],
[ -107018*w + 125860 , 25474*w - 52752 , -8134*w - 222936 , 78442 , -9224*w - 133826 , 12554*w - 10486 , -147658*w - 84476 , -42006*w - 120148 , -1116*w - 25172 , -23560*w - 37324 , -38316*w + 62496 , -13074*w + 206402 ],
[ 385974*w + 311220 , -136386*w - 65254 , -17002*w + 542570 , 9224*w - 133826 , 587496 , -38954*w + 60858 , 435992*w + 243068 , 130498*w + 411208 , 9312*w + 93856 , 82496*w + 131040 , 135136*w - 220416 , 217068*w - 501648 ],
[ 33390*w - 179858 , -8876*w + 60284 , 42720*w + 48860 , -12554*w - 10486 , 38954*w + 60858 , 32088 , 61698*w - 245714 , 43430*w - 33726 , 7918*w + 8274 , 18260*w - 28826 , -1914*w - 92400 , -25739*w - 125069 ],
[ 171244*w + 2411864 , -90976*w - 752780 , -484470*w + 290136 , 147658*w - 84476 , -435992*w + 243068 , -61698*w - 245714 , 3009230 , -292796*w + 1010926 , -77978*w + 73668 , -78580*w + 549024 , 243086*w + 719922 , 587672*w + 656670 ],
[ 282952*w + 841344 , -101022*w - 243964 , -138040*w + 396984 , 42006*w - 120148 , -130498*w + 411208 , -43430*w - 33726 , 292796*w + 1010926 , 620410 , -13562*w + 106288 , 40632*w + 276808 , 184514*w + 51282 , 282444*w - 107660 ],
[ 53582*w + 78190 , -17378*w - 20160 , -3672*w + 82824 , 1116*w - 25172 , -9312*w + 93856 , -7918*w + 8274 , 77978*w + 73668 , 13562*w + 106288 , 28462 , 14450*w + 47670 , 37750*w - 19782 , 34669*w - 54845 ],
[ 64808*w + 469336 , -25996*w - 143192 , -77520*w + 122808 , 23560*w - 37324 , -82496*w + 131040 , -18260*w - 28826 , 78580*w + 549024 , -40632*w + 276808 , -14450*w + 47670 , 149016 , 82994*w + 113386 , 122574*w + 72226 ],
[ -211436*w + 602084 , 59884*w - 207592 , -126072*w - 205632 , 38316*w + 62496 , -135136*w - 220416 , 1914*w - 92400 , -243086*w + 719922 , -184514*w + 51282 , -37750*w - 19782 , -82994*w + 113386 , 409948 , 51766*w + 528360 ],
[ -1052522*w + 1656998 , 335179*w - 808745 , -111598*w - 611590 , 13074*w + 206402 , -217068*w - 501648 , 25739*w - 125069 , -587672*w + 656670 , -282444*w - 107660 , -34669*w - 54845 , -122574*w + 72226 , -51766*w + 528360 , 2067394 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 60 );
/***Gitter Nr. 231 ***/
Grammatrix:=Matrix(S,[
[ 5530 , 746*w - 504 , -138*w + 980 , 474*w + 868 , -729*w - 1379 , -214*w - 3710 , -130*w + 4326 , -395*w - 1015 , 1003*w + 287 , -1938*w - 1736 , -946*w + 1540 , -3110*w - 6314 ],
[ -746*w - 504 , 3640 , -248*w - 1890 , -1018*w + 1008 , -512*w - 1638 , 344*w , -286*w + 140 , 52*w , 0 , 0 , 0 , 1330*w - 1876 ],
[ 138*w + 980 , 248*w - 1890 , 1568 , 576*w - 154 , 270*w - 616 , -198*w - 1638 , 28*w + 1694 , -118*w - 420 , 282*w + 210 , -528*w - 504 , -252*w + 420 , -1162*w - 1036 ],
[ -474*w + 868 , 1018*w + 1008 , -576*w - 154 , 3822 , -1436*w + 2058 , -210*w + 910 , 494*w - 1162 , 122*w + 420 , -470*w - 350 , 880*w + 840 , 420*w - 700 , 728*w - 2506 ],
[ 729*w - 1379 , 512*w - 1638 , -270*w - 616 , 1436*w + 2058 , 16940 , 62*w + 10934 , 1120*w - 12670 , 742*w + 3108 , -2350*w - 1750 , 4400*w + 4200 , 2100*w - 3500 , 1845*w + 5607 ],
[ 214*w - 3710 , -344*w , 198*w - 1638 , 210*w + 910 , -62*w + 10934 , 11270 , 1096*w - 13034 , 960*w + 2870 , -2674*w - 742 , 5138*w + 4452 , 2478*w - 4130 , 3664*w + 7658 ],
[ 130*w + 4326 , 286*w + 140 , -28*w + 1694 , -494*w - 1162 , -1120*w - 12670 , -1096*w - 13034 , 16072 , -1494*w - 2646 , 3368*w - 1288 , -6592*w - 1512 , -2520*w + 6664 , -5025*w - 5845 ],
[ 395*w - 1015 , -52*w , 118*w - 420 , -122*w + 420 , -742*w + 3108 , -960*w + 2870 , 1494*w - 2646 , 1708 , -774*w - 2562 , 926*w + 4956 , 1050*w + 714 , 492*w + 4760 ],
[ -1003*w + 287 , 0 , -282*w + 210 , 470*w - 350 , 2350*w - 1750 , 2674*w - 742 , -3368*w - 1288 , 774*w - 2562 , 6440 , 972*w - 10416 , -1204*w - 4564 , 1376*w - 8498 ],
[ 1938*w - 1736 , 0 , 528*w - 504 , -880*w + 840 , -4400*w + 4200 , -5138*w + 4452 , 6592*w - 1512 , -926*w + 4956 , -972*w - 10416 , 20944 , 3262*w + 7294 , -1784*w + 17024 ],
[ 946*w + 1540 , 0 , 252*w + 420 , -420*w - 700 , -2100*w - 3500 , -2478*w - 4130 , 2520*w + 6664 , -1050*w + 714 , 1204*w - 4564 , -3262*w + 7294 , 6160 , -3260*w + 3724 ],
[ 3110*w - 6314 , -1330*w - 1876 , 1162*w - 1036 , -728*w - 2506 , -1845*w + 5607 , -3664*w + 7658 , 5025*w - 5845 , -492*w + 4760 , -1376*w - 8498 , 1784*w + 17024 , 3260*w + 3724 , 25172 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 232 ***/
Grammatrix:=Matrix(S,[
[ 19310788 , 8702144*w - 7742840 , -6817040*w + 4359558 , -407864*w - 392616 , -827478*w + 1015350 , -1473784*w + 2579892 , 1136362*w - 1376298 , -736684*w - 8654086 , -3336508*w - 3879344 , 159350*w - 867762 , 575522*w - 7323400 , 4397868*w +
    65452730 ],
[ -8702144*w - 7742840 , 93864582 , -1032584*w - 53108412 , -400592*w - 3992324 , 375708*w - 4827900 , 926852*w - 2173654 , -712804*w + 696164 , 519844*w + 6310752 , 2447858*w + 2796934 , -113538*w + 635446 , -408344*w + 5364058 , -17314972*w +
    47202722 ],
[ 6817040*w + 4359558 , 1032584*w - 53108412 , 32497668 , 10332*w + 2860424 , -15884*w + 2541252 , 16396*w + 519624 , -4*w - 91448 , -190184*w - 138880 , -178816*w + 337344 , -12160*w - 48832 , -125568*w - 304640 , 17665054*w - 27233948 ],
[ 407864*w - 392616 , 400592*w - 3992324 , -10332*w + 2860424 , 1229326 , 137754*w - 1014496 , -152528*w - 3623354 , -3550*w + 2602208 , 2579694*w + 2293564 , 2425192*w - 4576908 , 164920*w + 657244 , 1703016*w + 4131680 , -1737864*w - 4267886 ],
[ 827478*w + 1015350 , -375708*w - 4827900 , 15884*w + 2541252 , -137754*w - 1014496 , 1953910 , 862934*w + 4389224 , -484726*w - 3233636 , -3665740*w + 443324 , -2207368*w + 8887396 , -328760*w - 613844 , -2904104*w - 3000480 , 5605394*w -
    4926418 ],
[ 1473784*w + 2579892 , -926852*w - 2173654 , -16396*w + 519624 , 152528*w - 3623354 , -862934*w + 4389224 , 17837610 , 554758*w - 12868100 , -11984390*w - 14647136 , -12629320*w + 18640664 , -662312*w - 3409336 , -7379096*w - 22352064 ,
    19853056*w + 13677818 ],
[ -1136362*w - 1376298 , 712804*w + 696164 , 4*w - 91448 , 3550*w + 2602208 , 484726*w - 3233636 , -554758*w - 12868100 , 9432612 , 9095912*w + 7928984 , 8520166*w - 16197398 , 583862*w + 2312814 , 6016874*w + 14496384 , -14942454*w - 5760454 ],
[ 736684*w - 8654086 , -519844*w + 6310752 , 190184*w - 138880 , -2579694*w + 2293564 , 3665740*w + 443324 , 11984390*w - 14647136 , -9095912*w + 7928984 , 68734680 , 23011194*w + 44274118 , -1753646*w + 5943826 , -8992546*w + 53321968 ,
    -6230026*w - 102922582 ],
[ 3336508*w - 3879344 , -2447858*w + 2796934 , 178816*w + 337344 , -2425192*w - 4576908 , 2207368*w + 8887396 , 12629320*w + 18640664 , -8520166*w - 16197398 , -23011194*w + 44274118 , 82449584 , -3119722*w - 280910 , -23645066*w + 13273316 ,
    30313624*w - 81194400 ],
[ -159350*w - 867762 , 113538*w + 635446 , 12160*w - 48832 , -164920*w + 657244 , 328760*w - 613844 , 662312*w - 3409336 , -583862*w + 2312814 , 1753646*w + 5943826 , 3119722*w - 280910 , 827274 , 582796*w + 6217540 , -3182786*w - 7749224 ],
[ -575522*w - 7323400 , 408344*w + 5364058 , 125568*w - 304640 , -1703016*w + 4131680 , 2904104*w - 3000480 , 7379096*w - 22352064 , -6016874*w + 14496384 , 8992546*w + 53321968 , 23645066*w + 13273316 , -582796*w + 6217540 , 49603708 ,
    -18404930*w - 73929828 ],
[ -4397868*w + 65452730 , 17314972*w + 47202722 , -17665054*w - 27233948 , 1737864*w - 4267886 , -5605394*w - 4926418 , -19853056*w + 13677818 , 14942454*w - 5760454 , 6230026*w - 102922582 , -30313624*w - 81194400 , 3182786*w - 7749224 ,
    18404930*w - 73929828 , 404971056 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 233 ***/
Grammatrix:=Matrix(S,[
[ 152377652 , 13764728*w + 201704020 , -2221324*w - 11357766 , 3535494*w - 3551254 , 12349512*w - 24268300 , -454345274*w + 2489175192 , 108349264*w - 600828088 , 19217130*w - 132176198 , -8845572*w + 32009040 , -3739038*w + 27750016 , -2727780*w
    - 28045094 , 60717360*w + 498039416 ],
[ -13764728*w + 201704020 , 317596132 , -639164*w - 30410744 , 4710880*w + 10903270 , 9507912*w + 3075520 , -672807740*w + 4113948930 , 161884382*w - 990787238 , 32788432*w - 225003968 , -10505504*w + 50952650 , -6863404*w + 12798884 , 2924732*w -
    20409802 , 156828200*w + 813581972 ],
[ 2221324*w - 11357766 , 639164*w - 30410744 , 9557940 , -735830*w - 5594680 , -89736*w - 943572 , -15046406*w - 392092330 , 3632996*w + 94250156 , 811264*w + 20966848 , -202502*w - 5238562 , 84*w , 0 , -35341084*w - 40997530 ],
[ -3535494*w - 3551254 , -4710880*w + 10903270 , 735830*w - 5594680 , 5489064 , -1707004*w + 9360176 , 26026092*w + 232232546 , -5894016*w - 55474860 , -471310*w - 14129598 , 908814*w + 2442118 , -567012*w - 6271650 , 1765800*w + 4284000 ,
    31179994*w + 23685564 ],
[ -12349512*w - 24268300 , -9507912*w + 3075520 , 89736*w - 943572 , 1707004*w + 9360176 , 103203744 , 278524316*w + 336844452 , -62321874*w - 81883886 , -9644438*w - 47573526 , 7611438*w - 10225894 , -18765750*w - 51084950 , 25904490*w + 14304920
, 101051414*w - 100030000 ],
[ 454345274*w + 2489175192 , 672807740*w + 4113948930 , 15046406*w - 392092330 , -26026092*w + 232232546 , -278524316*w + 336844452 , 99734482414 , 29279054*w - 23875402782 , 79165272*w - 5351962644 , 41471628*w + 1330517300 , 32255250*w -
    432533500 , 63516240*w + 399354970 , 6520798888*w + 15950984602 ],
[ -108349264*w - 600828088 , -161884382*w - 990787238 , -3632996*w + 94250156 , 5894016*w - 55474860 , 62321874*w - 81883886 , -29279054*w - 23875402782 , 5717029738 , -16114088*w + 1283047640 , -9684504*w - 317206708 , -5324110*w + 98005432 ,
    -16006522*w - 87602732 , -1564920482*w - 3795695260 ],
[ -19217130*w - 132176198 , -32788432*w - 225003968 , -811264*w + 20966848 , 471310*w - 14129598 , 9644438*w - 47573526 , -79165272*w - 5351962644 , 16114088*w + 1283047640 , 297862810 , -3649010*w - 65574222 , 6555020*w + 31338426 , -11846564*w -
    15993040 , -370405502*w - 799149806 ],
[ 8845572*w + 32009040 , 10505504*w + 50952650 , 202502*w - 5238562 , -908814*w + 2442118 , -7611438*w - 10225894 , -41471628*w + 1330517300 , 9684504*w - 317206708 , 3649010*w - 65574222 , 21027692 , 5246080*w - 3322634 , -3583666*w + 10341786 ,
76968744*w + 245100548 ],
[ 3739038*w + 27750016 , 6863404*w + 12798884 , -84*w , 567012*w - 6271650 , 18765750*w - 51084950 , -32255250*w - 432533500 , 5324110*w + 98005432 , -6555020*w + 31338426 , -5246080*w - 3322634 , 51359210 , -10676340*w - 41829620 , -55514390*w -
    79709826 ],
[ 2727780*w - 28045094 , -2924732*w - 20409802 , 0 , -1765800*w + 4284000 , -25904490*w + 14304920 , -63516240*w + 399354970 , 16006522*w - 87602732 , 11846564*w - 15993040 , 3583666*w + 10341786 , 10676340*w - 41829620 , 49603708 , 28674228*w +
    145675404 ],
[ -60717360*w + 498039416 , -156828200*w + 813581972 , 35341084*w - 40997530 , -31179994*w + 23685564 , -101051414*w - 100030000 , -6520798888*w + 15950984602 , 1564920482*w - 3795695260 , 370405502*w - 799149806 , -76968744*w + 245100548 ,
    55514390*w - 79709826 , -28674228*w + 145675404 , 5776823108 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1728 );
/***Gitter Nr. 234 ***/
Grammatrix:=Matrix(S,[
[ 44436 , 20496*w - 28238 , 328*w + 1162 , 1830*w + 3262 , -82*w - 1428 , -324*w - 154 , 544*w + 2310 , 5426*w + 2632 , 2910*w - 2772 , -536*w - 3976 , 494*w + 1106 , 11122*w + 52024 ],
[ -20496*w - 28238 , 97636 , -2131*w + 1841 , -3250*w + 5222 , 129*w + 357 , 341*w - 161 , -1277*w + 175 , -2801*w + 16751 , 461*w + 10157 , 2029*w - 595 , -654*w + 1232 , -34071*w + 4655 ],
[ -328*w + 1162 , 2131*w + 1841 , 4942 , 186*w + 2632 , -108*w + 1596 , 294*w - 70 , -132*w - 504 , -100*w - 3528 , -540*w - 1764 , -378*w + 630 , 54*w - 378 , 101*w + 2359 ],
[ -1830*w + 3262 , 3250*w + 5222 , -186*w + 2632 , 3178 , -16*w + 518 , 136*w - 182 , -100*w + 448 , 1130*w + 560 , 568*w - 280 , -36*w - 644 , 100*w + 196 , -598*w + 8050 ],
[ 82*w - 1428 , -129*w + 357 , 108*w + 1596 , 16*w + 518 , 700 , 118*w - 70 , -90*w - 336 , -558*w - 1456 , -464*w - 448 , -108*w + 532 , -32*w - 224 , -121*w - 1379 ],
[ 324*w - 154 , -341*w - 161 , -294*w - 70 , -136*w - 182 , -118*w - 70 , 196 , 56*w - 140 , 218*w - 392 , 52*w - 364 , -72*w - 56 , 34*w - 14 , 161*w - 721 ],
[ -544*w + 2310 , 1277*w + 175 , 132*w - 504 , 100*w + 448 , 90*w - 336 , -56*w - 140 , 490 , 594*w + 1638 , 462*w + 532 , 108*w - 532 , 28*w + 252 , 160*w + 3836 ],
[ -5426*w + 2632 , 2801*w + 16751 , 100*w - 3528 , -1130*w + 560 , 558*w - 1456 , -218*w - 392 , -594*w + 1638 , 16044 , 1290*w + 7882 , 1296*w - 1456 , -304*w + 1680 , -6312*w + 15050 ],
[ -2910*w - 2772 , -461*w + 10157 , 540*w - 1764 , -568*w - 280 , 464*w - 448 , -52*w - 364 , -462*w + 532 , -1290*w + 7882 , 5138 , 888*w + 280 , -280*w + 616 , -4646*w + 2534 ],
[ 536*w - 3976 , -2029*w - 595 , 378*w + 630 , 36*w - 644 , 108*w + 532 , 72*w - 56 , -108*w - 532 , -1296*w - 1456 , -888*w + 280 , 1232 , -96*w - 336 , -501*w - 6349 ],
[ -494*w + 1106 , 654*w + 1232 , -54*w - 378 , -100*w + 196 , 32*w - 224 , -34*w - 14 , -28*w + 252 , 304*w + 1680 , 280*w + 616 , 96*w - 336 , 224 , -312*w + 2506 ],
[ -11122*w + 52024 , 34071*w + 4655 , -101*w + 2359 , 598*w + 8050 , 121*w - 1379 , -161*w - 721 , -160*w + 3836 , 6312*w + 15050 , 4646*w + 2534 , 501*w - 6349 , 312*w + 2506 , 91560 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 235 ***/
Grammatrix:=Matrix(S,[
[ 120680 , 18839*w + 17409 , 1247*w - 14581 , -2636*w + 2856 , 2649*w + 763 , -6970*w + 11410 , 2005*w - 10269 , 1280*w + 10276 , -2622*w - 1246 , 3821*w - 1477 , 920*w - 12306 , 35886*w - 234444 ],
[ -18839*w + 17409 , 36344 , 1814*w - 7658 , -428*w - 2184 , -21*w - 707 , -1340*w - 9856 , 1302*w + 5054 , -1819*w - 1883 , 1062*w - 3010 , -780*w + 5250 , 1994*w + 4494 , 54176*w + 29106 ],
[ -1247*w - 14581 , -1814*w - 7658 , 14210 , -210*w - 4746 , 78*w + 2646 , -2522*w - 10066 , 3330*w + 1288 , -3032*w + 4844 , -420*w - 3780 , 660*w + 5880 , 2790*w + 630 , 422*w + 42406 ],
[ 2636*w + 2856 , 428*w - 2184 , 210*w - 4746 , 5474 , 1278*w - 1372 , 1530*w + 17640 , -3472*w - 8400 , 4302*w + 700 , -756*w + 5292 , 828*w - 8120 , -3118*w - 5950 , 281*w - 32081 ],
[ -2649*w + 763 , 21*w - 707 , -78*w + 2646 , -1278*w - 1372 , 7910 , -5318*w - 1456 , 3632*w - 5166 , -1584*w + 8330 , -1274*w - 2394 , 1732*w + 3808 , 2358*w - 3402 , 3605*w + 20909 ],
[ 6970*w + 11410 , 1340*w - 9856 , 2522*w - 10066 , -1530*w + 17640 , 5318*w - 1456 , 63182 , -9206*w - 36106 , 14366*w + 12614 , -4610*w + 16030 , 5796*w - 26320 , -8818*w - 28658 , 11729*w - 105693 ],
[ -2005*w - 10269 , -1302*w + 5054 , -3330*w + 1288 , 3472*w - 8400 , -3632*w - 5166 , 9206*w - 36106 , 32004 , -6576*w - 22540 , 4552*w - 5992 , -6484*w + 8708 , 884*w + 22932 , -22430*w + 40250 ],
[ -1280*w + 10276 , 1819*w - 1883 , 3032*w + 4844 , -4302*w + 700 , 1584*w + 8330 , -14366*w + 12614 , 6576*w - 22540 , 26264 , -4784*w - 3584 , 7166*w + 3430 , 4516*w - 19964 , 26225*w + 3199 ],
[ 2622*w - 1246 , -1062*w - 3010 , 420*w - 3780 , 756*w + 5292 , 1274*w - 2394 , 4610*w + 16030 , -4552*w - 5992 , 4784*w - 3584 , 9072 , -1336*w - 11144 , -5360*w - 336 , -5448*w - 29190 ],
[ -3821*w - 1477 , 780*w + 5250 , -660*w + 5880 , -828*w - 8120 , -1732*w + 3808 , -5796*w - 26320 , 6484*w + 8708 , -7166*w + 3430 , 1336*w - 11144 , 17864 , 7816*w + 7448 , 5988*w + 53914 ],
[ -920*w - 12306 , -1994*w + 4494 , -2790*w + 630 , 3118*w - 5950 , -2358*w - 3402 , 8818*w - 28658 , -884*w + 22932 , -4516*w - 19964 , 5360*w - 336 , -7816*w + 7448 , 27104 , -20793*w + 41853 ],
[ -35886*w - 234444 , -54176*w + 29106 , -422*w + 42406 , -281*w - 32081 , -3605*w + 20909 , -11729*w - 105693 , 22430*w + 40250 , -26225*w + 3199 , 5448*w - 29190 , -5988*w + 53914 , 20793*w + 41853 , 963774 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 236 ***/
Grammatrix:=Matrix(S,[
[ 27089790 , -58968*w + 12953122 , -1585732*w + 1920940 , 688136*w - 682178 , 290236*w - 4172938 , -29362*w - 243362 , 214108*w - 276276 , -251474*w + 427504 , -3525972*w - 5784660 , 2675176*w - 2635626 , 521660*w - 497728 , -8000558*w - 24782436
],
[ 58968*w + 12953122 , 6264328 , -964626*w + 1339660 , 410106*w - 493822 , 139920*w - 1779610 , 1794*w - 90608 , 90740*w - 97286 , -115704*w + 144144 , -1408036*w - 2932356 , 1196296*w - 790104 , 232846*w - 147294 , -3988798*w - 11554116 ],
[ 1585732*w + 1920940 , 964626*w + 1339660 , 17823344 , 92070*w - 6903988 , -7206*w + 1905834 , -2010*w - 230790 , -1086*w + 216300 , 66*w - 16800 , 0 , 0 , 0 , -3730302*w - 76482 ],
[ -688136*w - 682178 , -410106*w - 493822 , -92070*w - 6903988 , 2705584 , -14182*w - 833252 , 2380*w + 62720 , 5148*w - 87220 , -7888*w + 33040 , -136320*w - 128240 , 83760*w - 142240 , 16480*w - 26880 , 1582174*w - 344652 ],
[ -290236*w - 4172938 , -139920*w - 1779610 , 7206*w + 1905834 , 14182*w - 833252 , 2869566 , 16676*w + 160552 , -114962*w + 246232 , 143608*w - 383516 , 2446944*w + 2338308 , -1511892*w + 2536408 , -295816*w + 482496 , 192516*w + 3484796 ],
[ 29362*w - 243362 , -1794*w - 90608 , 2010*w - 230790 , -2380*w + 62720 , -16676*w + 160552 , 80024 , -18716*w + 756 , 25058*w - 53886 , 351972*w + 495894 , -250190*w + 297780 , -48940*w + 55944 , -141216*w + 430206 ],
[ -214108*w - 276276 , -90740*w - 97286 , 1086*w + 216300 , -5148*w - 87220 , 114962*w + 246232 , 18716*w + 756 , 67060 , -10560*w - 84868 , 320848*w - 771428 , 23420*w + 786744 , 3808*w + 152992 , 214732*w + 276388 ],
[ 251474*w + 427504 , 115704*w + 144144 , -66*w - 16800 , 7888*w + 33040 , -143608*w - 383516 , -25058*w - 53886 , 10560*w - 84868 , 145362 , -625988*w + 751310 , 109230*w - 1217524 , 22432*w - 235592 , -175900*w - 614712 ],
[ 3525972*w - 5784660 , 1408036*w - 2932356 , 0 , 136320*w - 128240 , -2446944*w + 2338308 , -351972*w + 495894 , -320848*w - 771428 , 625988*w + 751310 , 22966132 , -4722216*w - 9675344 , -907294*w - 1911168 , -3767922*w + 3449404 ],
[ -2675176*w - 2635626 , -1196296*w - 790104 , 0 , -83760*w - 142240 , 1511892*w + 2536408 , 250190*w + 297780 , -23420*w + 786744 , -109230*w - 1217524 , 4722216*w - 9675344 , 10872862 , -10736*w + 2111032 , 2295960*w + 3967292 ],
[ -521660*w - 497728 , -232846*w - 147294 , 0 , -16480*w - 26880 , 295816*w + 482496 , 48940*w + 55944 , -3808*w + 152992 , -22432*w - 235592 , 907294*w - 1911168 , 10736*w + 2111032 , 409948 , 451154*w + 759080 ],
[ 8000558*w - 24782436 , 3988798*w - 11554116 , 3730302*w - 76482 , -1582174*w - 344652 , -192516*w + 3484796 , 141216*w + 430206 , -214732*w + 276388 , 175900*w - 614712 , 3767922*w + 3449404 , -2295960*w + 3967292 , -451154*w + 759080 , 47057472
]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 237 ***/
Grammatrix:=Matrix(S,[
[ 47418 , -1817*w - 7385 , 2352*w + 5068 , -521*w - 1015 , -111*w - 35 , -555*w + 1295 , -123*w + 315 , -392*w + 1050 , -62*w + 70 , 58*w + 952 , -110*w , -9*w + 4599 ],
[ 1817*w - 7385 , 3374 , 230*w - 1582 , -189*w + 133 , -55*w + 49 , 49*w + 259 , 65*w + 63 , 118*w + 210 , 4*w + 14 , 110*w - 154 , -22*w , 445*w - 49 ],
[ -2352*w + 5068 , -230*w - 1582 , 2884 , 20*w - 1064 , 8*w - 154 , -440*w , -82*w , -88*w , -4*w , -24*w + 84 , 0 , -360*w + 630 ],
[ 521*w - 1015 , 189*w + 133 , -20*w - 1064 , 756 , 140 , 240*w , 36*w - 112 , 144*w + 112 , 56 , 48*w - 168 , -24*w + 168 , 112*w - 322 ],
[ 111*w - 35 , 55*w + 49 , -8*w - 154 , 140 , 378 , 70 , 26*w - 28 , 4*w + 28 , 14 , 12*w - 42 , -6*w + 42 , 100*w + 28 ],
[ 555*w + 1295 , -49*w + 259 , 440*w , -240*w , 70 , 910 , 4*w + 112 , -6*w + 112 , 0 , 0 , 0 , 94*w + 28 ],
[ 123*w + 315 , -65*w + 63 , 82*w , -36*w - 112 , -26*w - 28 , -4*w + 112 , 84 , -60*w - 56 , -28 , -24*w + 84 , 12*w - 84 , -16*w + 126 ],
[ 392*w + 1050 , -118*w + 210 , 88*w , -144*w + 112 , -4*w + 28 , 6*w + 112 , 60*w - 56 , 1134 , -50*w + 98 , 234*w + 336 , -172*w + 84 , 158*w + 462 ],
[ 62*w + 70 , -4*w + 14 , 4*w , 56 , 14 , 0 , -28 , 50*w + 98 , 28 , 34*w - 42 , -10*w + 70 , 30*w ],
[ -58*w + 952 , -110*w - 154 , 24*w + 84 , -48*w - 168 , -12*w - 42 , 0 , 24*w + 84 , -234*w + 336 , -34*w - 42 , 462 , -64*w - 224 , -68*w + 406 ],
[ 110*w , 22*w , 0 , 24*w + 168 , 6*w + 42 , 0 , -12*w - 84 , 172*w + 84 , 10*w + 70 , 64*w - 224 , 224 , 72*w - 112 ],
[ 9*w + 4599 , -445*w - 49 , 360*w + 630 , -112*w - 322 , -100*w + 28 , -94*w + 28 , 16*w + 126 , -158*w + 462 , -30*w , 68*w + 406 , -72*w - 112 , 1274 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 238 ***/
Grammatrix:=Matrix(S,[
[ 6940990 , 211290*w - 287518 , -162116*w + 113960 , -126121*w + 126189 , 30601*w + 15533 , 21012*w + 209846 , 49638*w - 103852 , 656220*w - 95676 , 178212*w - 1351406 , -146008*w + 42014 , 425880*w + 233912 , 2130211*w + 3879799 ],
[ -211290*w - 287518 , 147966 , 1344*w - 105532 , -639*w - 78337 , -4723*w - 13839 , -7584*w + 6972 , -1296*w + 5460 , 1444*w + 34860 , 9898*w + 18438 , 24*w - 10248 , -2136*w + 24108 , -148789*w + 445039 ],
[ 162116*w + 113960 , -1344*w - 105532 , 98546 , 1280*w + 69090 , 5590*w + 11746 , 5664*w - 7840 , 862*w - 1904 , -4496*w - 5096 , -2652*w - 812 , 676*w + 3024 , -1888*w - 6328 , 98832*w - 374346 ],
[ 126121*w + 126189 , 639*w - 78337 , -1280*w + 69090 , 49602 , 3912*w + 6468 , 4700*w - 4886 , 528*w - 2324 , -810*w - 17276 , -4905*w - 9387 , -24*w + 5166 , 1068*w - 12054 , 90231*w - 271677 ],
[ -30601*w + 15533 , 4723*w - 13839 , -5590*w + 11746 , -3912*w + 6468 , 19992 , -164*w + 5978 , 864*w + 3906 , -9504*w + 39578 , 9621*w + 29519 , 1588*w - 8946 , -8338*w + 21560 , -20907*w + 51513 ],
[ -21012*w + 209846 , 7584*w + 6972 , -5664*w - 7840 , -4700*w - 4886 , 164*w + 5978 , 15036 , 1574*w - 2366 , 24012*w - 10850 , 5400*w - 48860 , -5442*w + 2184 , 15954*w + 4914 , 60782*w + 185346 ],
[ -49638*w - 103852 , 1296*w + 5460 , -862*w - 1904 , -528*w - 2324 , -864*w + 3906 , -1574*w - 2366 , 7168 , -16208*w + 43764 , 8318*w + 45976 , 3206*w - 10374 , -13046*w + 21098 , -63396*w + 24724 ],
[ -656220*w - 95676 , -1444*w + 34860 , 4496*w - 5096 , 810*w - 17276 , 9504*w + 39578 , -24012*w - 10850 , 16208*w + 43764 , 694736 , 196186*w + 199696 , -2830*w - 149562 , -43794*w + 439950 , -506132*w + 1353324 ],
[ -178212*w - 1351406 , -9898*w + 18438 , 2652*w - 812 , 4905*w - 9387 , -9621*w + 29519 , -5400*w - 48860 , -8318*w + 45976 , -196186*w + 199696 , 448238 , 41530*w - 49336 , -137070*w + 40306 , -540681*w - 583877 ],
[ 146008*w + 42014 , -24*w - 10248 , -676*w + 3024 , 24*w + 5166 , -1588*w - 8946 , 5442*w + 2184 , -3206*w - 10374 , 2830*w - 149562 , -41530*w - 49336 , 32494 , 11264*w - 93632 , 116784*w - 287238 ],
[ -425880*w + 233912 , 2136*w + 24108 , 1888*w - 6328 , -1068*w - 12054 , 8338*w + 21560 , -15954*w + 4914 , 13046*w + 21098 , 43794*w + 439950 , 137070*w + 40306 , -11264*w - 93632 , 298144 , -235044*w + 1091398 ],
[ -2130211*w + 3879799 , 148789*w + 445039 , -98832*w - 374346 , -90231*w - 271677 , 20907*w + 51513 , -60782*w + 185346 , 63396*w + 24724 , 506132*w + 1353324 , 540681*w - 583877 , -116784*w - 287238 , 235044*w + 1091398 , 7353990 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 6 );
/***Gitter Nr. 239 ***/
Grammatrix:=Matrix(S,[
[ 507850 , -19422*w - 45808 , 4776*w + 26712 , -100148*w - 313978 , 50232*w + 111482 , 210130*w + 306054 , 41342*w - 174832 , -21562*w - 91742 , 11732*w + 57470 , 145740*w - 143220 , 42876*w - 263872 , -617757*w + 2292703 ],
[ 19422*w - 45808 , 6950804 , 2052*w + 918456 , 206264*w - 4462836 , 462764*w + 1347780 , 2861904*w + 3160080 , 423140*w - 2681560 , -319460*w - 1166284 , 200202*w + 780248 , 1983936*w - 2558136 , 466896*w - 3885308 , -7799727*w + 3398213 ],
[ -4776*w + 26712 , -2052*w + 918456 , 165046 , -3796*w - 758702 , 69002*w + 163366 , 395920*w + 214480 , 27070*w - 348880 , -52588*w - 124208 , 31840*w + 80640 , 216800*w - 451360 , 18240*w - 507360 , -964870*w + 756574 ],
[ 100148*w - 313978 , -206264*w - 4462836 , 3796*w - 758702 , 4562950 , -408008*w - 940310 , -2424944*w - 1117368 , -111854*w + 2695700 , 322668*w + 857080 , -250748*w - 612192 , -1611532*w + 3349556 , -135432*w + 3767148 , 6137784*w - 6386002 ],
[ -50232*w + 111482 , -462764*w + 1347780 , -69002*w + 163366 , 408008*w - 940310 , 614040 , 417354*w + 2519342 , 318866*w - 412412 , 20862*w - 485352 , -12904*w + 307104 , 704504*w + 499576 , 434768*w - 701176 , -2386262*w - 3077200 ],
[ -210130*w + 306054 , -2861904*w + 3160080 , -395920*w + 214480 , 2424944*w - 1117368 , -417354*w + 2519342 , 13051864 , 1825368*w + 97440 , 465148*w - 1916516 , -339294*w + 1265936 , 2615850*w + 6534346 , 2508416*w - 352114 , -7566169*w -
    24487967 ],
[ -41342*w - 174832 , -423140*w - 2681560 , -27070*w - 348880 , 111854*w + 2695700 , -318866*w - 412412 , -1825368*w + 97440 , 2527364 , 255504*w + 605108 , -237768*w - 526596 , -1351804*w + 3111780 , -54836*w + 3305344 , 3758234*w - 7293062 ],
[ 21562*w - 91742 , 319460*w - 1166284 , 52588*w - 124208 , -322668*w + 857080 , -20862*w - 485352 , -465148*w - 1916516 , -255504*w + 605108 , 436296 , -12620*w - 306964 , -707638*w - 126182 , -364592*w + 885220 , 2079693*w + 1721083 ],
[ -11732*w + 57470 , -200202*w + 780248 , -31840*w + 80640 , 250748*w - 612192 , 12904*w + 307104 , 339294*w + 1265936 , 237768*w - 526596 , 12620*w - 306964 , 272818 , 589270*w + 271334 , 335092*w - 658000 , -1456673*w - 1308993 ],
[ -145740*w - 143220 , -1983936*w - 2558136 , -216800*w - 451360 , 1611532*w + 3349556 , -704504*w + 499576 , -2615850*w + 6534346 , 1351804*w + 3111780 , 707638*w - 126182 , -589270*w + 271334 , 9263856 , 1770366*w + 4453666 , 1591502*w -
    24394692 ],
[ -42876*w - 263872 , -466896*w - 3885308 , -18240*w - 507360 , 135432*w + 3767148 , -434768*w - 701176 , -2508416*w - 352114 , 54836*w + 3305344 , 364592*w + 885220 , -335092*w - 658000 , -1770366*w + 4453666 , 4509428 , 5426552*w - 9614094 ],
[ 617757*w + 2292703 , 7799727*w + 3398213 , 964870*w + 756574 , -6137784*w - 6386002 , 2386262*w - 3077200 , 7566169*w - 24487967 , -3758234*w - 7293062 , -2079693*w + 1721083 , 1456673*w - 1308993 , -1591502*w - 24394692 , -5426552*w - 9614094 ,
90651358 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 240 ***/
Grammatrix:=Matrix(S,[
[ 31066 , 26787*w + 232729 , 48223*w + 595343 , -10230*w - 134022 , -1146*w + 322 , 358*w , 300*w - 840 , 292*w + 588 , -379*w - 1309 , 220*w + 1694 , 414*w + 476 , 29589*w + 30107 ],
[ -26787*w + 232729 , 2277016 , -139145*w + 5513193 , 38162*w - 1238118 , -4137*w - 623 , 3231*w - 931 , 2527*w - 13979 , 5482*w + 686 , -6642*w - 13916 , 9002*w + 19166 , 8128*w - 7812 , 221412*w + 485492 ],
[ -48223*w + 595343 , 139145*w + 5513193 , 13529502 , 17806*w - 3051272 , -13646*w + 6300 , 8696*w - 7560 , 6676*w - 34958 , 12858*w + 5082 , -15614*w - 35014 , 19920*w + 47600 , 18884*w - 14504 , 569486*w + 1063468 ],
[ 10230*w - 134022 , -38162*w - 1238118 , -17806*w - 3051272 , 700350 , 3512*w - 2562 , -1974*w + 7686 , -1146*w + 12530 , -4216*w - 84 , 5276*w + 8176 , -6932*w - 13020 , -5968*w + 6104 , -128148*w - 228410 ],
[ 1146*w + 322 , 4137*w - 623 , 13646*w + 6300 , -3512*w - 2562 , 1652 , -188*w - 630 , -82*w - 322 , 92*w + 70 , -86*w - 14 , 120*w + 112 , 84*w - 140 , 100*w - 4984 ],
[ -358*w , -3231*w - 931 , -8696*w - 7560 , 1974*w + 7686 , 188*w - 630 , 2982 , 216*w + 2436 , -722*w + 700 , 970*w + 42 , -1374*w - 1232 , -966*w + 1610 , -70*w + 4928 ],
[ -300*w - 840 , -2527*w - 13979 , -6676*w - 34958 , 1146*w + 12530 , 82*w - 322 , -216*w + 2436 , 2968 , -1092*w + 280 , 1334*w + 1078 , -1494*w - 3080 , -1414*w + 714 , -1500*w + 1386 ],
[ -292*w + 588 , -5482*w + 686 , -12858*w + 5082 , 4216*w - 84 , -92*w + 70 , 722*w + 700 , 1092*w + 280 , 3192 , 558*w - 3626 , -1486*w + 3612 , -14*w + 4130 , -184*w + 3024 ],
[ 379*w - 1309 , 6642*w - 13916 , 15614*w - 35014 , -5276*w + 8176 , 86*w - 14 , -970*w + 42 , -1334*w + 1078 , -558*w - 3626 , 4984 , 1000*w - 5964 , -728*w - 4536 , -862*w - 5810 ],
[ -220*w + 1694 , -9002*w + 19166 , -19920*w + 47600 , 6932*w - 13020 , -120*w + 112 , 1374*w - 1232 , 1494*w - 3080 , 1486*w + 3612 , -1000*w - 5964 , 9576 , 2142*w + 5054 , 800*w + 5936 ],
[ -414*w + 476 , -8128*w - 7812 , -18884*w - 14504 , 5968*w + 6104 , -84*w - 140 , 966*w + 1610 , 1414*w + 714 , 14*w + 4130 , 728*w - 4536 , -2142*w + 5054 , 6160 , -1012*w + 2884 ],
[ -29589*w + 30107 , -221412*w + 485492 , -569486*w + 1063468 , 128148*w - 228410 , -100*w - 4984 , 70*w + 4928 , 1500*w + 1386 , 184*w + 3024 , 862*w - 5810 , -800*w + 5936 , 1012*w + 2884 , 262360 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 241 ***/
Grammatrix:=Matrix(S,[
[ 10038 , -80*w , 148*w + 126 , -1408*w + 2492 , -2213*w - 6573 , -205*w + 2709 , -281*w - 987 , 1123*w - 2695 , -1949*w - 5887 , 4967*w + 1197 , -2904*w + 6622 , 7096*w + 2814 ],
[ 80*w , 252 , 2*w - 56 , -456*w + 210 , -300*w + 42 , -48*w , 18*w , -12*w , 0 , 0 , 0 , 506*w - 448 ],
[ -148*w + 126 , -2*w - 56 , 182 , -300*w - 1162 , 450*w , -162*w - 42 , 12*w , 18*w , 0 , 0 , 0 , -332*w + 756 ],
[ 1408*w + 2492 , 456*w + 210 , 300*w - 1162 , 28084 , -4400*w + 70 , 1278*w + 4578 , -78*w - 700 , -182*w , 0 , 0 , 0 , 3474*w - 8988 ],
[ 2213*w - 6573 , 300*w + 42 , -450*w , 4400*w + 70 , 26264 , 884*w - 5250 , -144*w + 1400 , -1504*w + 1050 , -450*w + 9100 , -3900*w - 12600 , 4650*w + 1050 , -6196*w - 19572 ],
[ 205*w + 2709 , 48*w , 162*w - 42 , -1278*w + 4578 , -884*w - 5250 , 2772 , -174*w - 588 , 364*w - 1610 , -1180*w - 2240 , 2440*w - 1120 , -1070*w + 4130 , 1978*w - 1428 ],
[ 281*w - 987 , -18*w , -12*w , 78*w - 700 , 144*w + 1400 , 174*w - 588 , 504 , -414*w + 56 , 134*w + 2660 , -1372*w - 2576 , 1268*w - 588 , -1028*w - 364 ],
[ -1123*w - 2695 , 12*w , -18*w , 182*w , 1504*w + 1050 , -364*w - 1610 , 414*w + 56 , 3192 , 2582*w - 196 , -2956*w + 8386 , -154*w - 8778 , -1380*w + 7350 ],
[ 1949*w - 5887 , 0 , 0 , 0 , 450*w + 9100 , 1180*w - 2240 , -134*w + 2660 , -2582*w - 196 , 16450 , -7600*w - 18872 , 7958*w - 826 , -6668*w - 5264 ],
[ -4967*w + 1197 , 0 , 0 , 0 , 3900*w - 12600 , -2440*w - 1120 , 1372*w - 2576 , 2956*w + 8386 , 7600*w - 18872 , 46494 , -9564*w - 24892 , 5710*w + 28378 ],
[ 2904*w + 6622 , 0 , 0 , 0 , -4650*w + 1050 , 1070*w + 4130 , -1268*w - 588 , 154*w - 8778 , -7958*w - 826 , 9564*w - 24892 , 27104 , 2846*w - 23310 ],
[ -7096*w + 2814 , -506*w - 448 , 332*w + 756 , -3474*w - 8988 , 6196*w - 19572 , -1978*w - 1428 , 1028*w - 364 , 1380*w + 7350 , 6668*w - 5264 , -5710*w + 28378 , -2846*w - 23310 , 54040 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 242 ***/
Grammatrix:=Matrix(S,[
[ 59402 , 300*w + 60732 , -598*w - 21000 , -8236*w - 5110 , -3360*w - 3276 , 1146*w + 7448 , -477*w - 4375 , -2074*w + 1064 , 3320*w + 2114 , 1986*w - 4410 , -620*w - 728 , 21343*w + 27783 ],
[ -300*w + 60732 , 69062 , -2076*w - 24080 , -9298*w - 3640 , -3946*w - 3388 , 1656*w + 7420 , -780*w - 4452 , -1990*w + 1610 , 3286*w + 1190 , 1764*w - 4788 , -624*w - 644 , 23986*w + 29386 ],
[ 598*w - 21000 , 2076*w - 24080 , 12768 , 3316*w + 3682 , 902*w + 4480 , -538*w - 4914 , 140*w + 3066 , 842*w - 504 , -1422*w - 1134 , -900*w + 1764 , 252*w + 252 , -8236*w - 15274 ],
[ 8236*w - 5110 , 9298*w - 3640 , -3316*w + 3682 , 16478 , 1314*w + 5054 , -590*w + 182 , 638*w - 182 , -794*w - 168 , 1106*w + 882 , 700*w - 1372 , -196*w - 196 , 1746*w - 26320 ],
[ 3360*w - 3276 , 3946*w - 3388 , -902*w + 4480 , -1314*w + 5054 , 9450 , -358*w - 7896 , 14*w + 5586 , 1492*w - 812 , -2370*w - 1890 , -1500*w + 2940 , 420*w + 420 , 576*w - 13356 ],
[ -1146*w + 7448 , -1656*w + 7420 , 538*w - 4914 , 590*w + 182 , 358*w - 7896 , 11270 , 384*w - 7686 , -2988*w + 2282 , 4382*w + 1512 , 2338*w - 6412 , -826*w - 826 , 1832*w + 10164 ],
[ 477*w - 4375 , 780*w - 4452 , -140*w + 3066 , -638*w - 182 , -14*w + 5586 , -384*w - 7686 , 5376 , 1994*w - 2254 , -3100*w + 56 , -1396*w + 5040 , 588*w + 364 , -1234*w - 5880 ],
[ 2074*w + 1064 , 1990*w + 1610 , -842*w - 504 , 794*w - 168 , -1492*w - 812 , 2988*w + 2282 , -1994*w - 2254 , 8260 , 1058*w - 11088 , -2066*w - 6860 , -462*w + 1554 , 2393*w - 3465 ],
[ -3320*w + 2114 , -3286*w + 1190 , 1422*w - 1134 , -1106*w + 882 , 2370*w - 1890 , -4382*w + 1512 , 3100*w + 56 , -1058*w - 11088 , 17612 , 4016*w + 8120 , 294*w - 2618 , -2543*w + 8617 ],
[ -1986*w - 4410 , -1764*w - 4788 , 900*w + 1764 , -700*w - 1372 , 1500*w + 2940 , -2338*w - 6412 , 1396*w + 5040 , 2066*w - 6860 , -4016*w + 8120 , 10164 , 742*w - 714 , -3156*w - 182 ],
[ 620*w - 728 , 624*w - 644 , -252*w + 252 , 196*w - 196 , -420*w + 420 , 826*w - 826 , -588*w + 364 , 462*w + 1554 , -294*w - 2618 , -742*w - 714 , 560 , 276*w - 1974 ],
[ -21343*w + 27783 , -23986*w + 29386 , 8236*w - 15274 , -1746*w - 26320 , -576*w - 13356 , -1832*w + 10164 , 1234*w - 5880 , -2393*w - 3465 , 2543*w + 8617 , 3156*w - 182 , -276*w - 1974 , 74494 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 243 ***/
Grammatrix:=Matrix(S,[
[ 31550918 , -66292*w + 6116908 , -58686*w - 2681504 , -12850904*w - 12942454 , 265444*w + 1791510 , -111104*w - 45780 , 911240*w - 21151830 , 11170972*w + 22314026 , -289772*w - 4153156 , -1141902*w + 1084958 , 1203674*w - 7051982 , 8605694*w -
    6505450 ],
[ 66292*w + 6116908 , 1542002 , -92774*w - 553868 , -1940540*w - 387702 , 86400*w + 150780 , 6140*w + 3962 , -237556*w - 2074394 , 1429336*w + 810824 , -91752*w - 360430 , -89736*w + 215236 , 10752*w - 773752 , 786673*w - 1625435 ],
[ 58686*w - 2681504 , 92774*w - 553868 , 1462174 , 2320526*w + 1357202 , -104396*w - 154098 , -23042*w + 9128 , 200222*w + 1845452 , -1323576*w - 671244 , 79624*w + 328664 , 80460*w - 173880 , -23864*w + 663796 , -1032486*w + 2814084 ],
[ 12850904*w - 12942454 , 1940540*w - 387702 , -2320526*w + 1357202 , 93701398 , 1126194*w - 3364452 , -69954*w + 117474 , -16537906*w + 8285578 , 9273244*w - 73717882 , -2972124*w + 4143468 , 1483414*w + 5432644 , -6059516*w - 2333366 ,
    -17168634*w - 47553478 ],
[ -265444*w + 1791510 , -86400*w + 150780 , 104396*w - 154098 , -1126194*w - 3364452 , 305424 , -17976*w + 33894 , 274182*w - 2543268 , 1211984*w + 3476690 , -1792*w - 525728 , -145236*w + 74760 , 194684*w - 787192 , 1312965*w + 167349 ],
[ 111104*w - 45780 , -6140*w + 3962 , 23042*w + 9128 , 69954*w + 117474 , 17976*w + 33894 , 53620 , -312968*w + 15722 , 292968*w - 1138578 , -57856*w + 49084 , 24826*w + 112476 , -114750*w - 71540 , -11788*w - 184506 ],
[ -911240*w - 21151830 , 237556*w - 2074394 , -200222*w + 1845452 , 16537906*w + 8285578 , -274182*w - 2543268 , 312968*w + 15722 , 33433106 , -18524970*w - 30085356 , 723924*w + 6320734 , 1718556*w - 2301656 , -1362206*w + 11724286 , -11280563*w
    + 15828673 ],
[ -11170972*w + 22314026 , -1429336*w + 810824 , 1323576*w - 671244 , -9273244*w - 73717882 , -1211984*w + 3476690 , -292968*w - 1138578 , 18524970*w - 30085356 , 99268246 , 2854454*w - 8494724 , -2815168*w - 4580744 , 7701628*w - 5250476 ,
    18964700*w + 31662680 ],
[ 289772*w - 4153156 , 91752*w - 360430 , -79624*w + 328664 , 2972124*w + 4143468 , 1792*w - 525728 , 57856*w + 49084 , -723924*w + 6320734 , -2854454*w - 8494724 , 1304982 , 374620*w - 174132 , -511636*w + 2008636 , -2497745*w + 1292501 ],
[ 1141902*w + 1084958 , 89736*w + 215236 , -80460*w - 173880 , -1483414*w + 5432644 , 145236*w + 74760 , -24826*w + 112476 , -1718556*w - 2301656 , 2815168*w - 4580744 , -374620*w - 174132 , 778288 , -510030*w - 1299438 , -77044*w - 5057080 ],
[ -1203674*w - 7051982 , -10752*w - 773752 , 23864*w + 663796 , 6059516*w - 2333366 , -194684*w - 787192 , 114750*w - 71540 , 1362206*w + 11724286 , -7701628*w - 5250476 , 511636*w + 2008636 , 510030*w - 1299438 , 4509428 , -3180352*w + 8853306 ],
[ -8605694*w - 6505450 , -786673*w - 1625435 , 1032486*w + 2814084 , 17168634*w - 47553478 , -1312965*w + 167349 , 11788*w - 184506 , 11280563*w + 15828673 , -18964700*w + 31662680 , 2497745*w + 1292501 , 77044*w - 5057080 , 3180352*w + 8853306 ,
48680366 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 244 ***/
Grammatrix:=Matrix(S,[
[ 73715698 , -1622602*w + 16422434 , 392703*w - 3065447 , 38766*w + 1047970 , 123746*w + 345786 , -744730*w - 670726 , -141800*w - 116900 , -72*w - 82964 , -24308*w + 103894 , -56567*w + 80577 , -20624*w + 128394 , 15459427*w + 17666187 ],
[ 1622602*w + 16422434 , 5982326 , 26109*w - 1196895 , 51286*w + 418614 , 38984*w + 185920 , -550924*w - 1212456 , -107342*w - 165088 , 28996*w - 176218 , -65620*w + 123984 , -79085*w - 40481 , -61752*w + 69062 , 2970406*w - 212786 ],
[ -392703*w - 3065447 , -26109*w - 1196895 , 244622 , -12270*w - 82012 , -8658*w - 35014 , 111906*w + 234374 , 21642*w + 31346 , -5452*w + 35420 , 12838*w - 25186 , 15962*w + 7210 , 12278*w - 14714 , -548596*w + 221634 ],
[ -38766*w + 1047970 , -51286*w + 418614 , 12270*w - 82012 , 35322 , 786*w + 19348 , -39528*w - 144662 , -8342*w - 21364 , 4330*w - 15792 , -7404*w + 8932 , -6916*w - 8932 , -6436*w + 2044 , 147346*w + 87724 ],
[ -123746*w + 345786 , -38984*w + 185920 , 8658*w - 35014 , -786*w + 19348 , 15302 , -40626*w - 103152 , -7438*w - 14224 , 1640*w - 14742 , -5038*w + 10640 , -6864*w - 2912 , -5274*w + 6678 , 354*w + 161700 ],
[ 744730*w - 670726 , 550924*w - 1212456 , -111906*w + 234374 , 39528*w - 144662 , 40626*w - 103152 , 1882566 , 15886*w + 295232 , -64118*w + 96418 , 78998*w + 31528 , 53512*w + 201208 , 73926*w + 68278 , 217869*w + 343063 ],
[ 141800*w - 116900 , 107342*w - 165088 , -21642*w + 31346 , 8342*w - 21364 , 7438*w - 14224 , -15886*w + 295232 , 48496 , -11220*w + 8988 , 12532*w + 11424 , 6204*w + 33292 , 10196*w + 14980 , 13757*w + 50645 ],
[ 72*w - 82964 , -28996*w - 176218 , 5452*w + 35420 , -4330*w - 15792 , -1640*w - 14742 , 64118*w + 96418 , 11220*w + 8988 , 25578 , 4898*w - 21840 , 10104*w + 1176 , 7640*w - 12264 , 70846*w - 13776 ],
[ 24308*w + 103894 , 65620*w + 123984 , -12838*w - 25186 , 7404*w + 8932 , 5038*w + 10640 , -78998*w + 31528 , -12532*w + 11424 , -4898*w - 21840 , 27986 , -7816*w + 15848 , -2856*w + 20776 , -56355*w + 87101 ],
[ 56567*w + 80577 , 79085*w - 40481 , -15962*w + 7210 , 6916*w - 8932 , 6864*w - 2912 , -53512*w + 201208 , -6204*w + 33292 , -10104*w + 1176 , 7816*w + 15848 , 35728 , 7008*w + 24752 , 25426*w + 140896 ],
[ 20624*w + 128394 , 61752*w + 69062 , -12278*w - 14714 , 6436*w + 2044 , 5274*w + 6678 , -73926*w + 68278 , -10196*w + 14980 , -7640*w - 12264 , 2856*w + 20776 , -7008*w + 24752 , 27104 , -6918*w + 149646 ],
[ -15459427*w + 17666187 , -2970406*w - 212786 , 548596*w + 221634 , -147346*w + 87724 , -354*w + 161700 , -217869*w + 343063 , -13757*w + 50645 , -70846*w - 13776 , 56355*w + 87101 , -25426*w + 140896 , 6918*w + 149646 , 31747086 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 245 ***/
Grammatrix:=Matrix(S,[
[ 568576044050 , 6818006270*w + 422776014710 , -3534637564*w - 163706079810 , -1388347142*w - 558877130 , -2917840930*w - 3974986806 , 2254577506*w - 3639046488 , 733079252*w - 15867098576 , 1050346208*w - 6691398224 , 102688018*w - 199853122 ,
    -1911738230*w - 12215139174 , 5214729810*w + 1860032006 , -30676860402*w - 66468091802 ],
[ -6818006270*w + 422776014710 , 314941579638 , -664233632*w - 122026328746 , -1023182426*w - 535276294 , -2116153286*w - 3201960440 , 1716887775*w - 2502621191 , 737442627*w - 11703032607 , 860540371*w - 4871887741 , 78600085*w - 139326845 ,
    -1267976204*w - 9220736798 , 3843721624*w + 1825855934 , -22009790585*w - 51976244789 ],
[ 3534637564*w - 163706079810 , 664233632*w - 122026328746 , 47294143134 , 396129842*w + 231349020 , 812887192*w + 1288737198 , -672460415*w + 935422229 , -315636559*w + 4528395179 , -346101967*w + 1875422661 , -30842411*w + 52533859 , 468470490*w
    + 3599005620 , -1486277484*w - 776352234 , 8412701475*w + 20463142133 ],
[ 1388347142*w - 558877130 , 1023182426*w - 535276294 , -396129842*w + 231349020 , 45727374 , -11511220*w + 90597108 , -14605190*w - 62422304 , -55988980*w - 5463486 , -24003962*w - 20387948 , -769088*w - 2627814 , -41892654*w + 53718266 ,
    3681336*w - 129337166 , -147197386*w + 578257960 ],
[ 2917840930*w - 3974986806 , 2116153286*w - 3201960440 , -812887192*w + 1288737198 , 11511220*w + 90597108 , 207313708 , -48961188*w - 96354370 , -123015374*w + 105768418 , -58319412*w + 6363700 , -2427856*w - 3846514 , -73759874*w + 205949478 ,
-31836684*w - 286651442 , -156887130*w + 1579540200 ],
[ -2254577506*w - 3639046488 , -1716887775*w - 2502621191 , 672460415*w + 935422229 , 14605190*w - 62422304 , 48961188*w - 96354370 , 146424208 , 84011178*w + 207826822 , 26830350*w + 118300168 , 105532*w + 6832406 , 94527770*w + 60932242 ,
    -70980960*w + 195422094 , 487137146*w - 372942892 ],
[ -733079252*w - 15867098576 , -737442627*w - 11703032607 , 315636559*w + 4528395179 , 55988980*w - 5463486 , 123015374*w + 105768418 , -84011178*w + 207826822 , 705141472 , -32819676*w + 308799176 , -3910436*w + 10722544 , 111554206*w + 508755534
, -234074770*w - 580174 , 958919084*w + 1739606036 ],
[ -1050346208*w - 6691398224 , -860540371*w - 4871887741 , 346101967*w + 1875422661 , 24003962*w - 20387948 , 58319412*w + 6363700 , -26830350*w + 118300168 , 32819676*w + 308799176 , 145962516 , -1205484*w + 5970048 , 72602536*w + 186292008 ,
    -102516532*w + 76262676 , 499201838*w + 450242702 ],
[ -102688018*w - 199853122 , -78600085*w - 139326845 , 30842411*w + 52533859 , 769088*w - 2627814 , 2427856*w - 3846514 , -105532*w + 6832406 , 3910436*w + 10722544 , 1205484*w + 5970048 , 326214 , 4551066*w + 3505978 , -3614494*w + 9105418 ,
    24047924*w - 13114346 ],
[ 1911738230*w - 12215139174 , 1267976204*w - 9220736798 , -468470490*w + 3599005620 , 41892654*w + 53718266 , 73759874*w + 205949478 , -94527770*w + 60932242 , -111554206*w + 508755534 , -72602536*w + 186292008 , -4551066*w + 3505978 , 492170112
, -169330394*w - 260458422 , 421770908*w + 2292267824 ],
[ -5214729810*w + 1860032006 , -3843721624*w + 1825855934 , 1486277484*w - 776352234 , -3681336*w - 129337166 , 31836684*w - 286651442 , 70980960*w + 195422094 , 234074770*w - 580174 , 102516532*w + 76262676 , 3614494*w + 9105418 , 169330394*w -
    260458422 , 545640788 , 565498376*w - 2228964318 ],
[ 30676860402*w - 66468091802 , 22009790585*w - 51976244789 , -8412701475*w + 20463142133 , 147197386*w + 578257960 , 156887130*w + 1579540200 , -487137146*w - 372942892 , -958919084*w + 1739606036 , -499201838*w + 450242702 , -24047924*w -
    13114346 , -421770908*w + 2292267824 , -565498376*w - 2228964318 , 19489299788 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );
/***Gitter Nr. 246 ***/
Grammatrix:=Matrix(S,[
[ 12618169704 , 1395236*w + 2904435002 , -157494*w + 1808310 , 5824808*w - 13396040 , -16207724*w + 3839626 , 2937528*w + 3526502 , -1751908*w - 5617962 , -533960*w + 29070832 , 635840*w - 12942048 , -24844762*w - 67246676 , 20114600*w - 16674812
, -598403894*w - 1156389150 ],
[ -1395236*w + 2904435002 , 668798578 , -95612*w + 557172 , 1252812*w - 2806846 , -3656974*w + 770364 , 666042*w + 832104 , -407002*w - 1299872 , -129096*w + 6723388 , 149262*w - 2992724 , -5735616*w - 15581594 , 4655030*w - 3834082 , -137471786*w
    - 266279468 ],
[ 157494*w + 1808310 , 95612*w + 557172 , 315924 , 12226*w + 544152 , 13968*w - 410032 , -2648*w + 67284 , -1172*w + 9660 , -8036*w + 27132 , 3804*w - 10388 , -5872*w - 103208 , 22180*w + 19544 , 93848*w - 108094 ],
[ -5824808*w - 13396040 , -1252812*w - 2806846 , -12226*w + 544152 , 1145998 , 48628*w - 1029938 , -39820*w + 174188 , 27878*w + 15848 , -133680*w - 175616 , 57628*w + 92400 , 453588*w - 473760 , -27360*w + 761040 , 1509926*w - 591332 ],
[ 16207724*w + 3839626 , 3656974*w + 770364 , -13968*w - 410032 , -48628*w - 1029938 , 1368948 , 35184*w - 181062 , -32258*w + 15428 , 144374*w + 176428 , -62400*w - 96180 , -491400*w + 511560 , 29640*w - 824460 , -1858084*w + 5080390 ],
[ -2937528*w + 3526502 , -666042*w + 832104 , 2648*w + 67284 , 39820*w + 174188 , -35184*w - 181062 , 98574 , 14400*w - 50008 , -110234*w + 139048 , 50808*w - 53340 , 103256*w - 1005396 , 172808*w + 414652 , 146738*w - 1332744 ],
[ 1751908*w - 5617962 , 407002*w - 1299872 , 1172*w + 9660 , -27878*w + 15848 , 32258*w + 15428 , -14400*w - 50008 , 52934 , 44504*w - 217546 , -22244*w + 93940 , 108192*w + 743358 , -177424*w - 48916 , 109788*w + 1111180 ],
[ 533960*w + 29070832 , 129096*w + 6723388 , 8036*w + 27132 , 133680*w - 175616 , -144374*w + 176428 , 110234*w + 139048 , -44504*w - 217546 , 1230614 , 13210*w - 550550 , -1144120*w - 2576644 , 821776*w - 904554 , -1421802*w - 2643424 ],
[ -635840*w - 12942048 , -149262*w - 2992724 , -3804*w - 10388 , -57628*w + 92400 , 62400*w - 96180 , -50808*w - 53340 , 22244*w + 93940 , -13210*w - 550550 , 247380 , 539740*w + 1067178 , -358076*w + 466634 , 671352*w + 1045128 ],
[ 24844762*w - 67246676 , 5735616*w - 15581594 , 5872*w - 103208 , -453588*w - 473760 , 491400*w + 511560 , -103256*w - 1005396 , -108192*w + 743358 , 1144120*w - 2576644 , -539740*w + 1067178 , 12850334 , -2563472*w - 3456572 , 753552*w +
    14699076 ],
[ -20114600*w - 16674812 , -4655030*w - 3834082 , -22180*w + 19544 , 27360*w + 761040 , -29640*w - 824460 , -172808*w + 414652 , 177424*w - 48916 , -821776*w - 904554 , 358076*w + 466634 , 2563472*w - 3456572 , 4509428 , 2734356*w - 5005490 ],
[ 598403894*w - 1156389150 , 137471786*w - 266279468 , -93848*w - 108094 , -1509926*w - 591332 , 1858084*w + 5080390 , -146738*w - 1332744 , -109788*w + 1111180 , 1421802*w - 2643424 , -671352*w + 1045128 , -753552*w + 14699076 , -2734356*w -
    5005490 , 305790534 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 247 ***/
Grammatrix:=Matrix(S,[
[ 37534 , 2629*w + 4445 , -6738*w + 4606 , -990*w + 140 , 666*w - 1834 , -1582*w + 14966 , -2148*w - 224 , -853*w + 917 , 5803*w + 7119 , -7042*w + 2296 , 2076*w - 12040 , 17157*w + 47327 ],
[ -2629*w + 4445 , 179900 , 26*w + 66668 , 3256*w + 78792 , 16536*w + 10626 , -6288*w - 1050 , 204*w , 786*w , 0 , 0 , 0 , 23097*w + 112637 ],
[ 6738*w + 4606 , -26*w + 66668 , 110614 , -4158*w + 62692 , 6760*w + 8190 , 12000*w + 10010 , -260*w + 15120 , 1350*w + 5880 , 6120*w - 42000 , 3360*w + 48720 , -12240*w - 12600 , 41020*w + 41776 ],
[ 990*w + 140 , -3256*w + 78792 , 4158*w + 62692 , 59458 , 8072*w + 9310 , -304*w + 1372 , -142*w + 3472 , 600*w + 1176 , 1224*w - 8400 , 672*w + 9744 , -2448*w - 2520 , 18374*w + 43876 ],
[ -666*w - 1834 , -16536*w + 10626 , -6760*w + 8190 , -8072*w + 9310 , 12796 , -360*w - 4606 , -30*w + 112 , 58*w + 560 , 0 , 0 , 0 , -8810*w + 22582 ],
[ 1582*w + 14966 , 6288*w - 1050 , -12000*w + 10010 , 304*w + 1372 , 360*w - 4606 , 35980 , -4532*w + 2996 , -1602*w + 2954 , 13734*w + 4620 , -13944*w + 16548 , 1400*w - 28154 , 11028*w + 40894 ],
[ 2148*w - 224 , -204*w , 260*w + 15120 , 142*w + 3472 , 30*w + 112 , 4532*w + 2996 , 5964 , 488*w + 2324 , 2796*w - 16940 , 1288*w + 19936 , -5032*w - 5180 , 7196*w - 2562 ],
[ 853*w + 917 , -786*w , -1350*w + 5880 , -600*w + 1176 , -58*w + 560 , 1602*w + 2954 , -488*w + 2324 , 1316 , 2668*w - 4620 , -1374*w + 8610 , -1482*w - 5362 , 2393*w + 3675 ],
[ -5803*w + 7119 , 0 , -6120*w - 42000 , -1224*w - 8400 , 0 , -13734*w + 4620 , -2796*w - 16940 , -2668*w - 4620 , 62566 , -14354*w - 56546 , 18166*w - 2674 , -20729*w + 26831 ],
[ 7042*w + 2296 , 0 , -3360*w + 48720 , -672*w + 9744 , 0 , 13944*w + 16548 , -1288*w + 19936 , 1374*w + 8610 , 14354*w - 56546 , 74424 , -17102*w - 26922 , 25156*w + 6902 ],
[ -2076*w - 12040 , 0 , 12240*w - 12600 , 2448*w - 2520 , 0 , -1400*w - 28154 , 5032*w - 5180 , 1482*w - 5362 , -18166*w - 2674 , 17102*w - 26922 , 37268 , -7636*w - 42420 ],
[ -17157*w + 47327 , -23097*w + 112637 , -41020*w + 41776 , -18374*w + 43876 , 8810*w + 22582 , -11028*w + 40894 , -7196*w - 2562 , -2393*w + 3675 , 20729*w + 26831 , -25156*w + 6902 , 7636*w - 42420 , 250488 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 248 ***/
Grammatrix:=Matrix(S,[
[ 158896602004 , 112006627255*w + 14458134719 , -48989122437*w - 37343209365 , 15031196925*w + 10360734699 , 25769900398*w + 19711326754 , 8612500637*w + 6638190097 , 957624340*w + 630709562 , -25710667*w + 65130527 , 197129570*w + 59273060 ,
    83607887*w - 239217055 , 23572232*w - 43880326 , 88402094974*w - 232440115292 ],
[ -112006627255*w + 14458134719 , 587379148062 , 22185994658*w - 260182890170 , -6409908738*w + 78676440290 , -11771970985*w + 138545046577 , -3952381217*w + 46244423281 , -411730136*w + 5131392098 , -12474384*w + 6208020 , -55192511*w + 298013205
, 37784836*w + 186509974 , 4914690*w + 46824470 , 183057477318*w + 437923833522 ],
[ 48989122437*w - 37343209365 , -22185994658*w - 260182890170 , 121318597218 , -139922845*w - 36513452871 , 26766275*w - 64617925757 , 16548447*w - 21576181277 , -8073605*w - 2379450017 , 5758188*w - 15447404 , -321576*w - 122137372 , -24160828*w
    - 45891272 , -4521830*w - 13347586 , -97698100761*w - 145705079989 ],
[ -15031196925*w + 10360734699 , 6409908738*w + 78676440290 , 139922845*w - 36513452871 , 11686427704 , 54945871*w + 19290525317 , 5703568*w + 6420833916 , 19096229*w + 763446285 , 1536465*w - 104632297 , -66408782*w + 311063746 , 33654935*w +
    197485113 , 4148458*w + 50413188 , 29185141787*w + 44584718395 ],
[ -25769900398*w + 19711326754 , 11771970985*w + 138545046577 , -26766275*w - 64617925757 , -54945871*w + 19290525317 , 34734540540 , 2122905*w + 11582584251 , -8750692*w + 1287793724 , 15716993*w + 32490339 , -33925254*w - 93531746 , -28709505*w
    + 10970729 , -7021994*w - 1347304 , 52062480528*w + 77473359516 ],
[ -8612500637*w + 6638190097 , 3952381217*w + 46244423281 , -16548447*w - 21576181277 , -5703568*w + 6420833916 , -2122905*w + 11582584251 , 3864362054 , -2630905*w + 426339893 , 3646167*w + 13994239 , -5637156*w - 31969560 , -7661771*w - 3876733
, -1758370*w - 1970668 , 17395866665*w + 25829167539 ],
[ -957624340*w + 630709562 , 411730136*w + 5131392098 , 8073605*w - 2379450017 , -19096229*w + 763446285 , 8750692*w + 1287793724 , 2630905*w + 426339893 , 53954698 , 3116681*w - 6852503 , -12075598*w + 8144528 , -2819263*w + 18433247 , -1003416*w
    + 3944542 , 1902858020*w + 2892867376 ],
[ 25710667*w + 65130527 , 12474384*w + 6208020 , -5758188*w - 15447404 , -1536465*w - 104632297 , -15716993*w + 32490339 , -3646167*w + 13994239 , -3116681*w - 6852503 , 18240810 , 8829774*w - 46815552 , -5397960*w - 28039256 , -747656*w - 7274008
, 31101109*w - 6567855 ],
[ -197129570*w + 59273060 , 55192511*w + 298013205 , 321576*w - 122137372 , 66408782*w + 311063746 , 33925254*w - 93531746 , 5637156*w - 31969560 , 12075598*w + 8144528 , -8829774*w - 46815552 , 157760050 , 28928888*w + 56460600 , 5723240*w +
    16973320 , 70314964*w + 147875672 ],
[ -83607887*w - 239217055 , -37784836*w + 186509974 , 24160828*w - 45891272 , -33654935*w + 197485113 , 28709505*w + 10970729 , 7661771*w - 3876733 , 2819263*w + 18433247 , 5397960*w - 28039256 , -28928888*w + 56460600 , 57348368 , -1064272*w +
    13421408 , -1532567*w + 156126397 ],
[ -23572232*w - 43880326 , -4914690*w + 46824470 , 4521830*w - 13347586 , -4148458*w + 50413188 , 7021994*w - 1347304 , 1758370*w - 1970668 , 1003416*w + 3944542 , 747656*w - 7274008 , -5723240*w + 16973320 , 1064272*w + 13421408 , 3279584 ,
    2388782*w + 34430648 ],
[ -88402094974*w - 232440115292 , -183057477318*w + 437923833522 , 97698100761*w - 145705079989 , -29185141787*w + 44584718395 , -52062480528*w + 77473359516 , -17395866665*w + 25829167539 , -1902858020*w + 2892867376 , -31101109*w - 6567855 ,
    -70314964*w + 147875672 , 1532567*w + 156126397 , -2388782*w + 34430648 , 726212788420 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );
/***Gitter Nr. 249 ***/
Grammatrix:=Matrix(S,[
[ 580916 , 4934*w + 117852 , -42771*w + 267323 , -757*w + 1379 , -1686*w - 7266 , 767*w - 1463 , 5835*w + 38479 , -12545*w - 1477 , 2185*w + 3689 , -1384*w + 3094 , -673*w - 12005 , 37959*w + 160909 ],
[ -4934*w + 117852 , 24304 , -10923*w + 51541 , -207*w + 539 , -301*w - 1239 , 196*w - 196 , 783*w + 7567 , -2295*w - 1267 , 344*w + 854 , -300*w + 490 , -14*w - 2338 , 6179*w + 34433 ],
[ 42771*w + 267323 , 10923*w + 51541 , 148722 , -86*w - 406 , -1110*w - 3556 , 468*w - 1050 , 5029*w + 16667 , -6474*w + 5292 , 1363*w + 847 , -469*w + 2205 , -1150*w - 5600 , 30240*w + 56854 ],
[ 757*w + 1379 , 207*w + 539 , 86*w - 406 , 1442 , 80*w + 1484 , 16*w + 238 , -590*w - 2660 , 1004*w - 1624 , -310*w + 70 , 20*w - 280 , 150*w + 630 , -782*w - 1400 ],
[ 1686*w - 7266 , 301*w - 1239 , 1110*w - 3556 , -80*w + 1484 , 2464 , -222*w + 462 , -688*w - 7560 , 2654*w - 448 , -628*w - 756 , 176*w - 560 , 88*w + 1848 , -1270*w - 5894 ],
[ -767*w - 1463 , -196*w - 196 , -468*w - 1050 , -16*w + 238 , 222*w + 462 , 1358 , -1474*w - 1358 , 774*w - 3178 , -368*w + 532 , -44*w - 336 , 286*w + 462 , -896*w + 308 ],
[ -5835*w + 38479 , -783*w + 7567 , -5029*w + 16667 , 590*w - 2660 , 688*w - 7560 , 1474*w - 1358 , 31164 , -10300*w - 6944 , 2034*w + 4802 , -978*w + 1582 , 520*w - 7672 , 3242*w + 26082 ],
[ 12545*w - 1477 , 2295*w - 1267 , 6474*w + 5292 , -1004*w - 1624 , -2654*w - 448 , -774*w - 3178 , 10300*w - 6944 , 26264 , 1246*w - 5978 , 798*w + 1862 , -2636*w + 756 , 7580*w - 14154 ],
[ -2185*w + 3689 , -344*w + 854 , -1363*w + 847 , 310*w + 70 , 628*w - 756 , 368*w + 532 , -2034*w + 4802 , -1246*w - 5978 , 2072 , -224*w - 56 , 472*w - 728 , -852*w + 4984 ],
[ 1384*w + 3094 , 300*w + 490 , 469*w + 2205 , -20*w - 280 , -176*w - 560 , 44*w - 336 , 978*w + 1582 , -798*w + 1862 , 224*w - 56 , 392 , -296*w - 504 , 1176*w + 560 ],
[ 673*w - 12005 , 14*w - 2338 , 1150*w - 5600 , -150*w + 630 , -88*w + 1848 , -286*w + 462 , -520*w - 7672 , 2636*w + 756 , -472*w - 728 , 296*w - 504 , 2464 , -1250*w - 7154 ],
[ -37959*w + 160909 , -6179*w + 34433 , -30240*w + 56854 , 782*w - 1400 , 1270*w - 5894 , 896*w + 308 , -3242*w + 26082 , -7580*w - 14154 , 852*w + 4984 , -1176*w + 560 , 1250*w - 7154 , 72506 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 250 ***/
Grammatrix:=Matrix(S,[
[ 20998152 , -277197*w + 327985 , 1871992*w - 3169852 , 8634102*w - 11035542 , -792307*w - 17451105 , -500476*w - 3360378 , 1007141*w + 3712569 , -390737*w - 1802241 , -1015311*w + 1397781 , 169234*w - 2883720 , 904798*w + 1320844 , 3030513*w +
    11928189 ],
[ 277197*w + 327985 , 91826 , 15662*w - 264390 , -206518*w - 810726 , -292096*w - 277354 , -55172*w - 28630 , 76780*w - 34860 , -35940*w + 11256 , -1674*w + 96138 , -26940*w - 57708 , 27810*w - 45360 , 240617*w - 201495 ],
[ -1871992*w - 3169852 , -15662*w - 264390 , 3556980 , 32934*w - 930202 , 1995708*w + 766038 , 423708*w + 203756 , -568510*w + 422408 , 271314*w - 144760 , 12780*w - 760410 , 213000*w + 457240 , -219390*w + 357840 , -650214*w + 2484300 ],
[ -8634102*w - 11035542 , 206518*w - 810726 , -32934*w - 930202 , 69098722 , 7110548*w + 12663322 , 1562948*w + 129626 , -1786156*w + 7532 , 766692*w + 232680 , 41540*w - 4095630 , 1187000*w + 2441320 , -1193770*w + 1947120 , -10951104*w - 7588266
],
[ 792307*w - 17451105 , 292096*w - 277354 , -1995708*w + 766038 , -7110548*w + 12663322 , 18683364 , 265556*w + 3506370 , -1023346*w - 4157860 , 444956*w + 2014236 , 870540*w - 765450 , -271360*w + 2200240 , -653490*w - 1322160 , -2867483*w -
    11781805 ],
[ 500476*w - 3360378 , 55172*w - 28630 , -423708*w + 203756 , -1562948*w + 129626 , -265556*w + 3506370 , 743008 , -146838*w - 878864 , 63038*w + 414624 , 189708*w - 12054 , -104984*w + 391160 , -97974*w - 365568 , -199362*w - 2289518 ],
[ -1007141*w + 3712569 , -76780*w - 34860 , 568510*w + 422408 , 1786156*w + 7532 , 1023346*w - 4157860 , 146838*w - 878864 , 1494024 , 15176*w - 737940 , -212000*w - 57344 , 133968*w - 396816 , 93796*w + 444024 , 162195*w + 3133235 ],
[ 390737*w - 1802241 , 35940*w + 11256 , -271314*w - 144760 , -766692*w + 232680 , -444956*w + 2014236 , -63038*w + 414624 , -15176*w - 737940 , 373828 , 90828*w - 14672 , -45196*w + 191604 , -52072*w - 169792 , -143869*w - 1362711 ],
[ 1015311*w + 1397781 , 1674*w + 96138 , -12780*w - 760410 , -41540*w - 4095630 , -870540*w - 765450 , -189708*w - 12054 , 212000*w - 57344 , -90828*w - 14672 , 500598 , -147894*w - 288022 , 143290*w - 247646 , 860693*w - 207977 ],
[ -169234*w - 2883720 , 26940*w - 57708 , -213000*w + 457240 , -1187000*w + 2441320 , 271360*w + 2200240 , 104984*w + 391160 , -133968*w - 396816 , 45196*w + 191604 , 147894*w - 288022 , 471856 , -155606*w - 154154 , -552452*w - 1662598 ],
[ -904798*w + 1320844 , -27810*w - 45360 , 219390*w + 357840 , 1193770*w + 1947120 , 653490*w - 1322160 , 97974*w - 365568 , -93796*w + 444024 , 52072*w - 169792 , -143290*w - 247646 , 155606*w - 154154 , 409948 , -371244*w + 1829394 ],
[ -3030513*w + 11928189 , -240617*w - 201495 , 650214*w + 2484300 , 10951104*w - 7588266 , 2867483*w - 11781805 , 199362*w - 2289518 , -162195*w + 3133235 , 143869*w - 1362711 , -860693*w - 207977 , 552452*w - 1662598 , 371244*w + 1829394 ,
    16304708 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 251 ***/
Grammatrix:=Matrix(S,[
[ 90818 , 2536*w + 39690 , -21448*w + 14812 , -12031*w + 2149 , 40895*w - 21455 , 27470*w + 11578 , -14399*w + 17577 , -676*w - 74200 , 4235*w - 41545 , -20656*w - 31500 , -19432*w + 1638 , 11555*w + 84371 ],
[ -2536*w + 39690 , 20916 , -6590*w + 6748 , -5297*w + 49 , 22067*w + 8043 , 13282*w + 17724 , -8109*w + 2149 , 3264*w - 36260 , 4328*w - 18382 , -8200*w - 23072 , -9456*w - 6636 , 3602*w + 51618 ],
[ 21448*w + 14812 , 6590*w + 6748 , 98658 , -8026*w + 30170 , 11710*w - 41846 , 8916*w - 23828 , -258*w + 15064 , -12432*w - 7280 , -7224*w - 7448 , -6832*w + 24304 , -784*w + 24304 , 5306*w + 55104 ],
[ 12031*w + 2149 , 5297*w + 49 , 8026*w + 30170 , 24878 , 2176*w - 78218 , 6308*w - 43484 , 978*w + 24416 , -13236*w - 6972 , -7740*w - 7980 , -7320*w + 26040 , -840*w + 26040 , 23709*w + 14749 ],
[ -40895*w - 21455 , -22067*w + 8043 , -11710*w - 41846 , -2176*w - 78218 , 408030 , -26462*w + 244076 , -10026*w - 130214 , 73058*w + 9842 , 44460*w + 47460 , 42360*w - 147210 , 4830*w - 149730 , -106399*w + 48783 ],
[ -27470*w + 11578 , -13282*w + 17724 , -8916*w - 23828 , -6308*w - 43484 , 26462*w + 244076 , 164150 , -16144*w - 74396 , 48974*w - 37184 , 31662*w + 9086 , 16780*w - 114226 , -7322*w - 98266 , -57964*w + 91224 ],
[ 14399*w + 17577 , 8109*w + 2149 , 258*w + 15064 , -978*w + 24416 , 10026*w - 130214 , 16144*w - 74396 , 47320 , -26956*w - 24220 , -13050*w - 26362 , -18980*w + 38990 , -6818*w + 48734 , 37631*w - 4263 ],
[ 676*w - 74200 , -3264*w - 36260 , 12432*w - 7280 , 13236*w - 6972 , -73058*w + 9842 , -48974*w - 37184 , 26956*w - 24220 , 137088 , -10798*w + 64610 , 30636*w + 63406 , 32046*w + 9422 , -23184*w - 140812 ],
[ -4235*w - 41545 , -4328*w - 18382 , 7224*w - 7448 , 7740*w - 7980 , -44460*w + 47460 , -31662*w + 9086 , 13050*w - 26362 , 10798*w + 64610 , 48552 , 25628*w + 18648 , 20664*w - 17192 , -22130*w - 64932 ],
[ 20656*w - 31500 , 8200*w - 23072 , 6832*w + 24304 , 7320*w + 26040 , -42360*w - 147210 , -16780*w - 114226 , 18980*w + 38990 , -30636*w + 63406 , -25628*w + 18648 , 102004 , 16982*w + 69846 , 26528*w - 107142 ],
[ 19432*w + 1638 , 9456*w - 6636 , 784*w + 24304 , 840*w + 26040 , -4830*w - 149730 , 7322*w - 98266 , 6818*w + 48734 , -32046*w + 9422 , -20664*w - 17192 , -16982*w + 69846 , 67760 , 35884*w - 44240 ],
[ -11555*w + 84371 , -3602*w + 51618 , -5306*w + 55104 , -23709*w + 14749 , 106399*w + 48783 , 57964*w + 91224 , -37631*w - 4263 , 23184*w - 140812 , 22130*w - 64932 , -26528*w - 107142 , -35884*w - 44240 , 276234 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 252 ***/
Grammatrix:=Matrix(S,[
[ 427266 , -2423*w + 14539 , 4886*w - 13636 , -7754*w - 38584 , -11377*w - 118587 , -3459*w - 24507 , 48945*w - 1995 , 27171*w - 18697 , 14405*w - 27503 , -34434*w - 102732 , -38094*w + 2506 , -128143*w - 195335 ],
[ 2423*w + 14539 , 17290 , 222*w - 7700 , -88*w - 42 , 4496*w + 5250 , 328*w + 504 , -3104*w + 4046 , -1168*w + 3094 , -424*w + 2478 , 2648*w + 3220 , 1920*w - 2408 , 4693*w + 17115 ],
[ -4886*w - 13636 , -222*w - 7700 , 5334 , 354*w - 854 , -2136*w - 1722 , -316*w - 686 , 1864*w + 1260 , 692*w + 336 , 336*w - 126 , -282*w - 2226 , -612*w - 630 , 1880*w - 10206 ],
[ 7754*w - 38584 , 88*w - 42 , -354*w - 854 , 7014 , 128*w + 13524 , 146*w + 4844 , -6464*w - 7756 , -3662*w - 2128 , -2128*w + 798 , 1786*w + 14098 , 3876*w + 3990 , 8534*w + 36288 ],
[ 11377*w - 118587 , -4496*w + 5250 , 2136*w - 1722 , -128*w + 13524 , 79940 , -254*w + 11270 , -19638*w - 30212 , -11940*w - 5908 , -7728*w + 5278 , 8426*w + 63938 , 17476*w + 17990 , 30405*w + 108927 ],
[ 3459*w - 24507 , -328*w + 504 , 316*w - 686 , -146*w + 4844 , 254*w + 11270 , 4088 , -4406*w - 6272 , -2502*w - 1596 , -1456*w + 546 , 1222*w + 9646 , 2652*w + 2730 , 6427*w + 22225 ],
[ -48945*w - 1995 , 3104*w + 4046 , -1864*w + 1260 , 6464*w - 7756 , 19638*w - 30212 , 4406*w - 6272 , 70672 , 3136*w + 35700 , 4480*w + 17276 , 14700*w - 40068 , -1624*w - 41132 , 31439*w - 115311 ],
[ -27171*w - 18697 , 1168*w + 3094 , -692*w + 336 , 3662*w - 2128 , 11940*w - 5908 , 2502*w - 1596 , -3136*w + 35700 , 19572 , 1512*w + 10836 , 10288*w - 14672 , 1720*w - 22344 , 22941*w - 51877 ],
[ -14405*w - 27503 , 424*w + 2478 , -336*w - 126 , 2128*w + 798 , 7728*w + 5278 , 1456*w + 546 , -4480*w + 17276 , -1512*w + 10836 , 7294 , 7910*w - 1274 , 3458*w - 12334 , 17853*w - 17031 ],
[ 34434*w - 102732 , -2648*w + 3220 , 282*w - 2226 , -1786*w + 14098 , -8426*w + 63938 , -1222*w + 9646 , -14700*w - 40068 , -10288*w - 14672 , -7910*w - 1274 , 69664 , 14622*w + 33138 , 13950*w + 139720 ],
[ 38094*w + 2506 , -1920*w - 2408 , 612*w - 630 , -3876*w + 3990 , -17476*w + 17990 , -2652*w + 2730 , 1624*w - 41132 , -1720*w - 22344 , -3458*w - 12334 , -14622*w + 33138 , 37268 , -23062*w + 86730 ],
[ 128143*w - 195335 , -4693*w + 17115 , -1880*w - 10206 , -8534*w + 36288 , -30405*w + 108927 , -6427*w + 22225 , -31439*w - 115311 , -22941*w - 51877 , -17853*w - 17031 , -13950*w + 139720 , 23062*w + 86730 , 425110 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 2 );
/***Gitter Nr. 253 ***/
Grammatrix:=Matrix(S,[
[ 3076444 , 209247*w - 108535 , 347018*w + 681912 , -262036*w - 75390 , 27286*w + 135240 , -144596*w + 116144 , 100493*w + 102865 , -12029*w + 12859 , -342449*w - 18837 , -143672*w + 327978 , 97220*w + 492100 , -240291*w + 2259047 ],
[ -209247*w - 108535 , 355684 , -34742*w + 294336 , 26652*w - 75362 , -33304*w - 15316 , -26668*w - 172270 , -12964*w + 114240 , -1914*w - 11760 , -7920*w - 376320 , -55680*w - 147840 , -74160*w + 120960 , -245999*w + 301903 ],
[ -347018*w + 681912 , 34742*w + 294336 , 1021888 , -150722*w - 421666 , 19888*w + 21994 , -7658*w - 141806 , -10478*w + 92736 , -3150*w - 9408 , -6336*w - 301056 , -44544*w - 118272 , -59328*w + 96768 , -713556*w - 344736 ],
[ 262036*w - 75390 , -26652*w - 75362 , 150722*w - 421666 , 472458 , -10176*w - 94948 , -3564*w - 1498 , 1516*w - 12432 , 890*w + 3976 , 792*w + 37632 , 5568*w + 14784 , 7416*w - 12096 , 90750*w + 1098328 ],
[ -27286*w + 135240 , 33304*w - 15316 , -19888*w + 21994 , 10176*w - 94948 , 57988 , -22150*w + 55006 , 18236*w + 1736 , -1660*w + 2394 , -55566*w + 45024 , -16744*w + 72856 , 25354*w + 66108 , 76088*w - 41160 ],
[ 144596*w + 116144 , 26668*w - 172270 , 7658*w - 141806 , 3564*w - 1498 , 22150*w + 55006 , 215040 , 32246*w - 112896 , 838*w + 14574 , -50226*w + 428764 , 40016*w + 224336 , 101574*w - 58212 , 251872*w + 71484 ],
[ -100493*w + 102865 , 12964*w + 114240 , 10478*w + 92736 , -1516*w - 12432 , -18236*w + 1736 , -32246*w - 112896 , 102410 , -3156*w - 6944 , -44130*w - 308952 , -62038*w - 81494 , -48902*w + 157374 , -146809*w + 172725 ],
[ 12029*w + 12859 , 1914*w - 11760 , 3150*w - 9408 , -890*w + 3976 , 1660*w + 2394 , -838*w + 14574 , 3156*w - 6944 , 1316 , -6790*w + 30450 , 1590*w + 19334 , 8326*w + 350 , 13303*w + 22113 ],
[ 342449*w - 18837 , 7920*w - 376320 , 6336*w - 301056 , -792*w + 37632 , 55566*w + 45024 , 50226*w + 428764 , 44130*w - 308952 , 6790*w + 30450 , 1071658 , 153298*w + 436002 , 217036*w - 330120 , 509517*w - 89537 ],
[ 143672*w + 327978 , 55680*w - 147840 , 44544*w - 118272 , -5568*w + 14784 , 16744*w + 72856 , -40016*w + 224336 , 62038*w - 81494 , -1590*w + 19334 , -153298*w + 436002 , 331184 , 135662*w + 83202 , 219924*w + 459998 ],
[ -97220*w + 492100 , 74160*w + 120960 , 59328*w + 96768 , -7416*w - 12096 , -25354*w + 66108 , -101574*w - 58212 , 48902*w + 157374 , -8326*w + 350 , -217036*w - 330120 , -135662*w + 83202 , 409948 , -132480*w + 740614 ],
[ 240291*w + 2259047 , 245999*w + 301903 , 713556*w - 344736 , -90750*w + 1098328 , -76088*w - 41160 , -251872*w + 71484 , 146809*w + 172725 , -13303*w + 22113 , -509517*w - 89537 , -219924*w + 459998 , 132480*w + 740614 , 6999398 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 254 ***/
Grammatrix:=Matrix(S,[
[ 4032 , 227*w - 371 , -58*w - 518 , -41*w - 665 , 92*w + 56 , -132*w - 280 , 154*w + 476 , -652*w - 1204 , 135*w + 287 , 246*w + 70 , -100*w + 658 , 1912*w - 924 ],
[ -227*w - 371 , 322 , 8*w - 252 , -2*w - 56 , 0 , 40*w , -80*w , 240*w , 16*w , -12*w , 0 , 51*w + 2233 ],
[ 58*w - 518 , -8*w - 252 , 1162 , 28*w + 238 , 4*w - 126 , 98*w - 56 , -142*w + 112 , -20*w , 0 , 0 , 0 , 98*w - 812 ],
[ 41*w - 665 , 2*w - 56 , -28*w + 238 , 616 , -142*w + 14 , -88*w - 98 , 210*w + 56 , 38*w , 0 , 0 , 0 , 125*w - 1225 ],
[ -92*w + 56 , 0 , -4*w - 126 , 142*w + 14 , 322 , -56*w + 224 , 62*w - 504 , 8*w - 84 , 0 , 0 , 0 , -176*w - 266 ],
[ 132*w - 280 , -40*w , -98*w - 56 , 88*w - 98 , 56*w + 224 , 644 , -40*w - 602 , -606*w - 294 , 240*w - 1960 , -180*w - 1890 , 930*w + 210 , -658*w - 1736 ],
[ -154*w + 476 , 80*w , 142*w + 112 , -210*w + 56 , -62*w - 504 , 40*w - 602 , 1554 , -360*w - 1638 , 144*w - 1288 , -108*w - 1050 , 558*w + 126 , 1324*w + 28 ],
[ 652*w - 1204 , -240*w , 20*w , -38*w , -8*w - 84 , 606*w - 294 , 360*w - 1638 , 18130 , -6168*w + 2856 , -4324*w + 9730 , -2726*w - 18102 , -6392*w + 4228 ],
[ -135*w + 287 , -16*w , 0 , 0 , 0 , -240*w - 1960 , -144*w - 1288 , 6168*w + 2856 , 19502 , 3580*w + 15134 , -8470*w + 5082 , 1319*w + 12411 ],
[ -246*w + 70 , 12*w , 0 , 0 , 0 , 180*w - 1890 , 108*w - 1050 , 4324*w + 9730 , -3580*w + 15134 , 16394 , -7520*w - 6944 , -990*w + 11676 ],
[ 100*w + 658 , 0 , 0 , 0 , 0 , -930*w + 210 , -558*w + 126 , 2726*w - 18102 , 8470*w + 5082 , 7520*w - 6944 , 27104 , 5818*w - 1316 ],
[ -1912*w - 924 , -51*w + 2233 , -98*w - 812 , -125*w - 1225 , 176*w - 266 , 658*w - 1736 , -1324*w + 28 , 6392*w + 4228 , -1319*w + 12411 , 990*w + 11676 , -5818*w - 1316 , 41860 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 255 ***/
Grammatrix:=Matrix(S,[
[ 7812 , -610*w + 3416 , -432*w + 98 , -146*w - 574 , -52*w - 14 , -225*w - 329 , 873*w - 469 , 158*w - 308 , -107*w + 105 , 66*w + 308 , 134*w + 168 , 3612*w + 10374 ],
[ 610*w + 3416 , 2842 , -214*w + 658 , 260*w + 336 , -10*w - 14 , 167*w + 133 , -581*w - 1099 , -164*w - 112 , 139*w - 259 , -80*w - 798 , -16*w - 252 , 2736*w + 3836 ],
[ 432*w + 98 , 214*w + 658 , 1344 , -2*w + 1386 , -44*w - 378 , 202*w - 70 , 210*w , 58*w , 0 , 0 , 0 , 1030*w - 336 ],
[ 146*w - 574 , -260*w + 336 , 2*w + 1386 , 4018 , 56*w - 644 , 582*w + 798 , 404*w - 3920 , -26*w - 840 , 220*w + 560 , 420*w - 700 , 120*w - 420 , 272*w + 1092 ],
[ 52*w - 14 , 10*w - 14 , 44*w - 378 , -56*w - 644 , 364 , -172*w + 378 , -122*w - 336 , -40*w - 84 , 22*w + 56 , 42*w - 70 , 12*w - 42 , -226*w - 294 ],
[ 225*w - 329 , -167*w + 133 , -202*w - 70 , -582*w + 798 , 172*w + 378 , 1848 , -28*w - 2072 , -90*w - 448 , 154*w + 392 , 294*w - 490 , 84*w - 294 , -492*w + 770 ],
[ -873*w - 469 , 581*w - 1099 , -210*w , -404*w - 3920 , 122*w - 336 , 28*w - 2072 , 14602 , 456*w + 3094 , -556*w - 1778 , -1176*w + 1960 , -456*w + 1596 , 36*w + 1862 ],
[ -158*w - 308 , 164*w - 112 , -58*w , 26*w - 840 , 40*w - 84 , 90*w - 448 , -456*w + 3094 , 770 , -64*w - 490 , -312*w + 168 , -152*w + 224 , -42*w + 364 ],
[ 107*w + 105 , -139*w - 259 , 0 , -220*w + 560 , -22*w + 56 , -154*w + 392 , 556*w - 1778 , 64*w - 490 , 490 , 278*w + 182 , 112*w - 84 , -210*w - 378 ],
[ -66*w + 308 , 80*w - 798 , 0 , -420*w - 700 , -42*w - 70 , -294*w - 490 , 1176*w + 1960 , 312*w + 168 , -278*w + 182 , 1232 , 66*w + 462 , -22*w - 854 ],
[ -134*w + 168 , 16*w - 252 , 0 , -120*w - 420 , -12*w - 42 , -84*w - 294 , 456*w + 1596 , 152*w + 224 , -112*w - 84 , -66*w + 462 , 308 , 56*w + 238 ],
[ -3612*w + 10374 , -2736*w + 3836 , -1030*w - 336 , -272*w + 1092 , 226*w - 294 , 492*w + 770 , -36*w + 1862 , 42*w + 364 , 210*w - 378 , 22*w - 854 , -56*w + 238 , 31346 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 256 ***/
Grammatrix:=Matrix(S,[
[ 264458978 , -12171719*w - 1833419 , 2470722*w - 28362768 , 3543320*w - 8312710 , -1227286*w - 9210558 , -10503237*w - 4414487 , -53204404*w + 94871658 , -6663919*w - 17284841 , 4692471*w + 5636701 , -7224792*w - 15706194 , -9189736*w + 55285790
, -93390272*w - 15182132 ],
[ 12171719*w - 1833419 , 16492028 , -2846283*w + 2004317 , -782722*w - 2933252 , -929106*w + 380772 , -804332*w + 7251230 , 7429320*w + 40282816 , -1954334*w + 3972948 , 732620*w - 3039540 , -1821032*w + 4416216 , 5123504*w + 8411284 , 8534610*w +
    53800740 ],
[ -2470722*w - 28362768 , 2846283*w + 2004317 , 15355354 , -571556*w + 2560614 , 515958*w + 1348788 , 2603261*w - 778645 , 10054354*w - 32848102 , 2072511*w + 2842413 , -1274509*w - 417445 , 2160392*w + 2327906 , 644920*w - 14972230 , 16416946*w -
    12973786 ],
[ -3543320*w - 8312710 , 782722*w - 2933252 , 571556*w + 2560614 , 1316952 , 370578*w + 403256 , 977320*w - 2011030 , 1108662*w - 19644044 , 1098918*w - 173754 , -552386*w + 648172 , 1086576*w - 437920 , -1104774*w - 6472620 , 2765044*w - 16042446
],
[ 1227286*w - 9210558 , 929106*w + 380772 , -515958*w + 1348788 , -370578*w + 403256 , 1009638 , 983170*w + 1591058 , 6860640*w - 4164748 , 437922*w + 2498314 , -409950*w - 1051820 , 524960*w + 2370480 , 1762650*w - 4825240 , 5283136*w + 300636 ],
[ 10503237*w - 4414487 , 804332*w + 7251230 , -2603261*w - 778645 , -977320*w - 2011030 , -983170*w + 1591058 , 10265178 , 16622020*w + 44146242 , -1896700*w + 7792610 , 379262*w - 4948496 , -1588892*w + 8192660 , 8331840*w + 4513586 , 8408426*w +
    38747534 ],
[ 53204404*w + 94871658 , -7429320*w + 40282816 , -10054354*w - 32848102 , -1108662*w - 19644044 , -6860640*w - 4164748 , -16622020*w + 44146242 , 379182524 , -20841406*w + 11977826 , 9689566*w - 17034570 , -20176118*w + 17235498 , 28580406*w +
    114315866 , -24873882*w + 262051440 ],
[ 6663919*w - 17284841 , 1954334*w + 3972948 , -2072511*w + 2842413 , -1098918*w - 173754 , -437922*w + 2498314 , 1896700*w + 7792610 , 20841406*w + 11977826 , 8406972 , -632856*w - 4269160 , 312184*w + 8315608 , 7192402*w - 7402962 , 13555090*w +
    17333204 ],
[ -4692471*w + 5636701 , -732620*w - 3039540 , 1274509*w - 417445 , 552386*w + 648172 , 409950*w - 1051820 , -379262*w - 4948496 , -9689566*w - 17034570 , 632856*w - 4269160 , 2504390 , 467560*w - 4390008 , -4211858*w - 29638 , -5700062*w -
    15929494 ],
[ 7224792*w - 15706194 , 1821032*w + 4416216 , -2160392*w + 2327906 , -1086576*w - 437920 , -524960*w + 2370480 , 1588892*w + 8192660 , 20176118*w + 17235498 , -312184*w + 8315608 , -467560*w - 4390008 , 8308944 , 7391126*w - 5454470 , 12871598*w
    + 20615070 ],
[ 9189736*w + 55285790 , -5123504*w + 8411284 , -644920*w - 14972230 , 1104774*w - 6472620 , -1762650*w - 4825240 , -8331840*w + 4513586 , -28580406*w + 114315866 , -7192402*w - 7402962 , 4211858*w - 29638 , -7391126*w - 5454470 , 49603708 ,
    -26786470*w + 66525662 ],
[ 93390272*w - 15182132 , -8534610*w + 53800740 , -16416946*w - 12973786 , -2765044*w - 16042446 , -5283136*w + 300636 , -8408426*w + 38747534 , 24873882*w + 262051440 , -13555090*w + 17333204 , 5700062*w - 15929494 , -12871598*w + 20615070 ,
    26786470*w + 66525662 , 346342444 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 257 ***/
Grammatrix:=Matrix(S,[
[ 64461250 , -2628601*w + 70552853 , -326652*w + 3540334 , 225813*w - 6554387 , 21931*w + 7777 , -41157*w + 277669 , -153865*w + 34139 , -149834*w - 406798 , 32727*w + 76699 , 170628*w - 3640 , -48432*w + 365862 , 9440438*w + 12137916 ],
[ 2628601*w + 70552853 , 78447796 , -229725*w + 4131113 , -29341*w - 7260407 , 31429*w - 11977 , -42893*w + 319529 , -171869*w + 29645 , -164170*w - 446614 , 37870*w + 83944 , 186530*w + 3906 , -54972*w + 394912 , 10817861*w + 10508771 ],
[ 326652*w + 3540334 , 229725*w + 4131113 , 525532 , -23676*w - 296128 , 3914*w - 6510 , 4958*w + 79898 , -40164*w + 51002 , -50738*w - 74662 , 10766*w + 5866 , 47608*w - 30548 , -5896*w + 108724 , 518931*w + 186963 ],
[ -225813*w - 6554387 , 29341*w - 7260407 , 23676*w - 296128 , 698040 , -2572*w - 588 , 6930*w - 8624 , 5256*w + 17570 , -358*w + 23856 , -426*w - 7966 , -3476*w - 12698 , 4222*w - 4074 , -1019479*w - 1038387 ],
[ -21931*w + 7777 , -31429*w - 11977 , -3914*w - 6510 , 2572*w - 588 , 1652 , -140*w - 658 , 378*w + 28 , 388*w + 378 , -86*w - 14 , -372*w + 308 , 28*w - 868 , -527*w + 24031 ],
[ 41157*w + 277669 , 42893*w + 319529 , -4958*w + 79898 , -6930*w - 8624 , 140*w - 658 , 30982 , -18446*w + 11536 , -14762*w - 44772 , 4366*w + 4270 , 18672*w + 7350 , -8134*w + 35322 , 42723*w - 38633 ],
[ 153865*w + 34139 , 171869*w + 29645 , 40164*w + 51002 , -5256*w + 17570 , -378*w + 28 , 18446*w + 11536 , 85568 , -34604*w + 43680 , 4124*w - 17052 , 13376*w - 79072 , 18396*w + 53116 , 4461*w - 152971 ],
[ 149834*w - 406798 , 164170*w - 446614 , 50738*w - 74662 , 358*w + 23856 , -388*w + 378 , 14762*w - 44772 , 34604*w + 43680 , 127512 , -4558*w - 20230 , -27232*w - 82950 , 33250*w - 27902 , -52808*w - 139034 ],
[ -32727*w + 76699 , -37870*w + 83944 , -10766*w + 5866 , 426*w - 7966 , 86*w - 14 , -4366*w + 4270 , -4124*w - 17052 , 4558*w - 20230 , 4984 , 1184*w + 19572 , -5992*w - 3976 , 10828*w + 37870 ],
[ -170628*w - 3640 , -186530*w + 3906 , -47608*w - 30548 , 3476*w - 12698 , 372*w + 308 , -18672*w + 7350 , -13376*w - 79072 , 27232*w - 82950 , -1184*w + 19572 , 95340 , -27818*w - 32074 , 1108*w + 147924 ],
[ 48432*w + 365862 , 54972*w + 394912 , 5896*w + 108724 , -4222*w - 4074 , -28*w - 868 , 8134*w + 35322 , -18396*w + 53116 , -33250*w - 27902 , 5992*w - 3976 , 27818*w - 32074 , 67760 , 43710*w - 42070 ],
[ -9440438*w + 12137916 , -10817861*w + 10508771 , -518931*w + 186963 , 1019479*w - 1038387 , 527*w + 24031 , -42723*w - 38633 , -4461*w - 152971 , 52808*w - 139034 , -10828*w + 37870 , -1108*w + 147924 , -43710*w - 42070 , 12140408 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 258 ***/
Grammatrix:=Matrix(S,[
[ 7371616 , 89813*w - 800695 , 33326*w - 325430 , -40517*w + 194257 , -23372*w + 371350 , 469823*w - 4207 , 28818*w + 43638 , -129181*w - 115451 , 3911*w - 940023 , 112856*w + 105756 , -290107*w + 51989 , 4317489*w + 9419907 ],
[ -89813*w - 800695 , 342188 , 3925*w - 86023 , -13105*w + 38563 , -5387*w + 66367 , 85210*w - 44548 , 8846*w - 70 , -26457*w - 21343 , 566*w - 107114 , 14117*w + 11445 , -34867*w + 11963 , -581943*w - 528647 ],
[ -33326*w - 325430 , -3925*w - 86023 , 89026 , 4916*w - 44408 , -2564*w - 69202 , -85608*w + 95438 , -8034*w + 2352 , 27562*w - 238 , 15718*w + 139146 , -19060*w - 952 , 42354*w - 46830 , -235791*w - 340361 ],
[ 40517*w + 194257 , 13105*w + 38563 , -4916*w - 44408 , 41216 , 8048*w + 46802 , 46472*w - 100534 , 4784*w - 5250 , -18586*w + 15778 , -19474*w - 82194 , 12376*w - 8792 , -23940*w + 50988 , 174495*w + 113295 ],
[ 23372*w + 371350 , 5387*w + 66367 , 2564*w - 69202 , -8048*w + 46802 , 73738 , 88586*w - 55902 , 7346*w + 1862 , -28262*w - 10360 , -7296*w - 153972 , 19920*w + 9716 , -47478*w + 29498 , 250246*w + 436478 ],
[ -469823*w - 4207 , -85210*w - 44548 , 85608*w + 95438 , -46472*w - 100534 , -88586*w - 55902 , 847182 , -9518*w + 68334 , 36892*w - 238476 , 195440*w + 33964 , -25224*w + 167356 , -5918*w - 434126 , -675915*w + 1881271 ],
[ -28818*w + 43638 , -8846*w - 70 , 8034*w + 2352 , -4784*w - 5250 , -7346*w + 1862 , 9518*w + 68334 , 8596 , 1594*w - 21266 , 9210*w - 15078 , 766*w + 10766 , -5928*w - 21448 , -17499*w + 172403 ],
[ 129181*w - 115451 , 26457*w - 21343 , -27562*w - 238 , 18586*w + 15778 , 28262*w - 10360 , -36892*w - 238476 , -1594*w - 21266 , 85708 , -58130*w + 20846 , 2902*w - 53354 , 12924*w + 124012 , 122171*w - 691243 ],
[ -3911*w - 940023 , -566*w - 107114 , -15718*w + 139146 , 19474*w - 82194 , 7296*w - 153972 , -195440*w + 33964 , -9210*w - 15078 , 58130*w + 20846 , 465752 , -54816*w - 48216 , 139896*w - 29176 , -562035*w - 1302861 ],
[ -112856*w + 105756 , -14117*w + 11445 , 19060*w - 952 , -12376*w - 8792 , -19920*w + 9716 , 25224*w + 167356 , -766*w + 10766 , -2902*w - 53354 , 54816*w - 48216 , 50568 , -18152*w - 112952 , -96511*w + 614285 ],
[ 290107*w + 51989 , 34867*w + 11963 , -42354*w - 46830 , 23940*w + 50988 , 47478*w + 29498 , 5918*w - 434126 , 5928*w - 21448 , -12924*w + 124012 , -139896*w - 29176 , 18152*w - 112952 , 298144 , 438152*w - 1123150 ],
[ -4317489*w + 9419907 , 581943*w - 528647 , 235791*w - 340361 , -174495*w + 113295 , -250246*w + 436478 , 675915*w + 1881271 , 17499*w + 172403 , -122171*w - 691243 , 562035*w - 1302861 , 96511*w + 614285 , -438152*w - 1123150 , 29814050 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 259 ***/
Grammatrix:=Matrix(S,[
[ 130998 , 3478*w + 65240 , 861*w - 1897 , -484*w + 1134 , 144*w + 9268 , 46857*w - 544313 , 11865*w - 137697 , -414*w - 504 , 375*w + 1981 , 578*w - 1792 , 852*w + 1792 , -20509*w - 67151 ],
[ -3478*w + 65240 , 33698 , -796*w + 406 , -226*w - 154 , 529*w + 4697 , 34134*w - 258888 , 8633*w - 65611 , -295*w - 217 , 169*w + 1071 , 251*w - 1169 , 560*w + 966 , -8852*w - 35420 ],
[ -861*w - 1897 , 796*w + 406 , 46592 , -2098*w - 7224 , -2080*w - 14028 , -7842*w + 177744 , -2039*w + 45087 , 380*w + 1960 , -360*w - 840 , -1080*w + 3360 , -900*w - 3780 , 8694*w + 26278 ],
[ 484*w + 1134 , 226*w - 154 , 2098*w - 7224 , 2282 , 60*w + 2534 , 8136*w - 29918 , 2040*w - 7602 , -16*w - 210 , 60*w + 140 , 180*w - 560 , 150*w + 630 , -638*w - 6664 ],
[ -144*w + 9268 , -529*w + 4697 , 2080*w - 14028 , -60*w + 2534 , 19824 , 19214*w - 46914 , 4969*w - 13013 , -604*w - 1302 , 372*w + 868 , 1116*w - 3472 , 930*w + 3906 , -1520*w - 15512 ],
[ -46857*w - 544313 , -34134*w - 258888 , 7842*w + 177744 , -8136*w - 29918 , -19214*w - 46914 , 3122700 , -95*w + 788627 , 2602*w + 4998 , -2716*w - 10332 , -2448*w + 17444 , -7650*w - 10570 , 146892*w + 311780 ],
[ -11865*w - 137697 , -8633*w - 65611 , 2039*w + 45087 , -2040*w - 7602 , -4969*w - 13013 , 95*w + 788627 , 199906 , 743*w + 1183 , -894*w - 3528 , -569*w + 4613 , -2254*w - 2352 , 36985*w + 79177 ],
[ 414*w - 504 , 295*w - 217 , -380*w + 1960 , 16*w - 210 , 604*w - 1302 , -2602*w + 4998 , -743*w + 1183 , 378 , 68*w - 126 , -274*w + 14 , 100*w - 812 , -80*w + 2072 ],
[ -375*w + 1981 , -169*w + 1071 , 360*w - 840 , -60*w + 140 , -372*w + 868 , 2716*w - 10332 , 894*w - 3528 , -68*w - 126 , 1750 , 32*w , 392*w + 168 , 288*w - 2296 ],
[ -578*w - 1792 , -251*w - 1169 , 1080*w + 3360 , -180*w - 560 , -1116*w - 3472 , 2448*w + 17444 , 569*w + 4613 , 274*w + 14 , -32*w , 1624 , -584*w - 728 , 1732*w + 1176 ],
[ -852*w + 1792 , -560*w + 966 , 900*w - 3780 , -150*w + 630 , -930*w + 3906 , 7650*w - 10570 , 2254*w - 2352 , -100*w - 812 , -392*w + 168 , 584*w - 728 , 2464 , 144*w - 4564 ],
[ 20509*w - 67151 , 8852*w - 35420 , -8694*w + 26278 , 638*w - 6664 , 1520*w - 15512 , -146892*w + 311780 , -36985*w + 79177 , 80*w + 2072 , -288*w - 2296 , -1732*w + 1176 , -144*w - 4564 , 82880 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 260 ***/
Grammatrix:=Matrix(S,[
[ 240044 , -55475*w + 9499 , 7511*w + 37457 , -2506*w - 5698 , 1009*w - 1057 , -1051*w - 23709 , -46568*w - 64582 , -41962*w - 16730 , 7661*w + 30737 , 1647*w + 17549 , 5224*w + 1582 , -216424*w + 192010 ],
[ 55475*w + 9499 , 191436 , 9649*w - 68859 , -3112*w + 29232 , 3337*w - 7623 , -5703*w - 7805 , -10999*w + 12397 , -9997*w + 15043 , 3250*w + 2674 , 1393*w + 2485 , 1156*w - 2506 , 47473*w + 332871 ],
[ -7511*w + 37457 , -9649*w - 68859 , 49336 , 126*w - 18466 , -1560*w + 4382 , 1026*w - 2744 , -13592*w + 8232 , -7946*w + 12264 , 2622*w + 1302 , 1194*w + 1722 , 918*w - 2058 , -53281*w + 1239 ],
[ 2506*w - 5698 , 3112*w + 29232 , -126*w - 18466 , 8050 , 760*w - 2562 , -748*w - 1218 , 336*w - 9184 , -1426*w - 7056 , -396*w + 2436 , -324*w + 924 , 180*w + 756 , 9620*w + 6216 ],
[ -1009*w - 1057 , -3337*w - 7623 , 1560*w + 4382 , -760*w - 2562 , 1764 , 690*w + 686 , 3774*w + 2632 , 3266*w - 448 , -676*w - 1652 , -236*w - 1036 , -396*w + 308 , 1451*w - 6909 ],
[ 1051*w - 23709 , 5703*w - 7805 , -1026*w - 2744 , 748*w - 1218 , -690*w + 686 , 6916 , 10320*w + 22820 , 10194*w + 13216 , -820*w - 8316 , 68*w - 4172 , -1286*w - 966 , 30385*w - 13979 ],
[ 46568*w - 64582 , 10999*w + 12397 , 13592*w + 8232 , -336*w - 9184 , -3774*w + 2632 , -10320*w + 22820 , 244090 , 18198*w + 186522 , 10530*w - 46872 , 7564*w - 18228 , -3980*w - 21644 , 126118*w + 379666 ],
[ 41962*w - 16730 , 9997*w + 15043 , 7946*w + 12264 , 1426*w - 7056 , -3266*w - 448 , -10194*w + 13216 , -18198*w + 186522 , 161308 , 13254*w - 29442 , 7696*w - 8624 , -1296*w - 18256 , 64424*w + 363510 ],
[ -7661*w + 30737 , -3250*w + 2674 , -2622*w + 1302 , 396*w + 2436 , 676*w - 1652 , 820*w - 8316 , -10530*w - 46872 , -13254*w - 29442 , 14546 , -872*w + 6664 , 1640*w + 3192 , -43935*w - 37989 ],
[ -1647*w + 17549 , -1393*w + 2485 , -1194*w + 1722 , 324*w + 924 , 236*w - 1036 , -68*w - 4172 , -7564*w - 18228 , -7696*w - 8624 , 872*w + 6664 , 3472 , 976*w + 896 , -22803*w + 77 ],
[ -5224*w + 1582 , -1156*w - 2506 , -918*w - 2058 , -180*w + 756 , 396*w + 308 , 1286*w - 966 , 3980*w - 21644 , 1296*w - 18256 , -1640*w + 3192 , -976*w + 896 , 2464 , -5884*w - 47278 ],
[ 216424*w + 192010 , -47473*w + 332871 , 53281*w + 1239 , -9620*w + 6216 , -1451*w - 6909 , -30385*w - 13979 , -126118*w + 379666 , -64424*w + 363510 , 43935*w - 37989 , 22803*w + 77 , 5884*w - 47278 , 1728664 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 261 ***/
Grammatrix:=Matrix(S,[
[ 9099426 , -393884*w + 1043672 , 383510*w - 61278 , 58632*w + 11760 , -724260*w + 3068814 , -789718*w + 2422616 , 821992*w - 3065720 , 4705040*w + 4432778 , 716108*w - 478492 , -47604*w - 4234804 , 1228254*w + 2088800 , -1791886*w + 3958766 ],
[ 393884*w + 1043672 , 530320 , 25244*w - 264488 , 56454*w - 29596 , 119340*w - 40558 , 109136*w + 2268 , -116018*w + 19502 , -112656*w - 984466 , -44680*w - 96698 , -98816*w + 201292 , -6272*w - 300216 , 12957*w + 452529 ],
[ -383510*w - 61278 , -25244*w - 264488 , 212464 , -29938*w + 1484 , -203736*w - 36890 , -180670*w - 83482 , 191404*w + 65128 , 83014*w + 1415008 , 55440*w + 158592 , 151200*w - 221200 , -14896*w + 414344 , -181860*w - 307286 ],
[ -58632*w + 11760 , -56454*w - 29596 , 29938*w + 1484 , 98966 , 66900*w - 1288 , 58574*w + 20944 , -68692*w - 10514 , -31302*w - 597380 , -22572*w - 66304 , -63928*w + 93772 , 6308*w - 175462 , 9898*w - 137396 ],
[ 724260*w + 3068814 , -119340*w - 40558 , 203736*w - 36890 , -66900*w - 1288 , 3717028 , -152968*w + 3224830 , 127546*w - 3623662 , 4162040*w - 818412 , 485916*w - 1030400 , -565736*w - 3233468 , 1209228*w + 541086 , -125190*w + 4109098 ],
[ 789718*w + 2422616 , -109136*w + 2268 , 180670*w - 83482 , -58574*w + 20944 , 152968*w + 3224830 , 2880360 , -64014*w - 3152086 , 3407930*w - 2627520 , 338604*w - 1083768 , -681632*w - 2414300 , 1036476*w - 112462 , 136421*w + 3700711 ],
[ -821992*w - 3065720 , 116018*w + 19502 , -191404*w + 65128 , 68692*w - 10514 , -127546*w - 3623662 , 64014*w - 3152086 , 3712744 , -4651024*w + 2048228 , -503878*w + 1276506 , 773042*w + 3469578 , -1383862*w - 252266 , 108079*w - 4317397 ],
[ -4705040*w + 4432778 , 112656*w - 984466 , -83014*w + 1415008 , 31302*w - 597380 , -4162040*w - 818412 , -3407930*w - 2627520 , 4651024*w + 2048228 , 51853620 , 1597444*w + 6264608 , 5874468*w - 6256796 , -1257324*w + 14918372 , -5519585*w -
    6286119 ],
[ -716108*w - 478492 , 44680*w - 96698 , -55440*w + 158592 , 22572*w - 66304 , -485916*w - 1030400 , -338604*w - 1083768 , 503878*w + 1276506 , -1597444*w + 6264608 , 1102542 , 901928*w + 512960 , -611718*w + 1529094 , -486083*w - 1960553 ],
[ 47604*w - 4234804 , 98816*w + 201292 , -151200*w - 221200 , 63928*w + 93772 , 565736*w - 3233468 , 681632*w - 2414300 , -773042*w + 3469578 , -5874468*w - 6256796 , -901928*w + 512960 , 5418728 , -1539710*w - 2800042 , 1352336*w - 3597062 ],
[ -1228254*w + 2088800 , 6272*w - 300216 , 14896*w + 414344 , -6308*w - 175462 , -1209228*w + 541086 , -1036476*w - 112462 , 1383862*w - 252266 , 1257324*w + 14918372 , 611718*w + 1529094 , 1539710*w - 2800042 , 4509428 , -1720546*w - 837242 ],
[ 1791886*w + 3958766 , -12957*w + 452529 , 181860*w - 307286 , -9898*w - 137396 , 125190*w + 4109098 , -136421*w + 3700711 , -108079*w - 4317397 , 5519585*w - 6286119 , 486083*w - 1960553 , -1352336*w - 3597062 , 1720546*w - 837242 , 7041944 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 262 ***/
Grammatrix:=Matrix(S,[
[ 6930 , 2868*w + 25956 , -2129*w - 20503 , -86*w + 140 , 51*w + 161 , -89*w - 245 , 124*w + 56 , -94*w + 448 , -337*w - 469 , 89*w - 1687 , -378*w - 1680 , -4148*w - 1470 ],
[ -2868*w + 25956 , 109200 , 452*w - 85946 , -330*w + 602 , -33*w + 119 , -145*w - 1435 , 677*w + 553 , -542*w + 1302 , -910*w - 3430 , 1231*w - 6055 , -520*w - 7574 , -15875*w - 18067 ],
[ 2129*w - 20503 , -452*w - 85946 , 67830 , 262*w - 378 , 24*w - 98 , 102*w + 1148 , -534*w - 448 , 438*w - 1036 , 722*w + 2730 , -984*w + 4816 , 410*w + 6034 , 12664*w + 13552 ],
[ 86*w + 140 , 330*w + 602 , -262*w - 378 , 266 , 24*w - 350 , 12*w - 14 , 78*w + 56 , 50*w - 56 , 60*w + 140 , -8*w + 280 , 60*w + 252 , -168*w - 322 ],
[ -51*w + 161 , 33*w + 119 , -24*w - 98 , -24*w - 350 , 700 , -50*w + 70 , -140*w - 112 , -50*w + 224 , -188*w - 140 , -164*w - 644 , -288*w - 224 , 282*w + 714 ],
[ 89*w - 245 , 145*w - 1435 , -102*w + 1148 , -12*w - 14 , 50*w + 70 , 84 , -34*w + 56 , 22*w + 28 , -4*w + 140 , -94*w + 98 , -54*w + 266 , 262*w + 168 ],
[ -124*w + 56 , -677*w + 553 , 534*w - 448 , -78*w + 56 , 140*w - 112 , 34*w + 56 , 336 , 24*w + 28 , 60*w + 140 , -8*w + 280 , 60*w + 252 , 60*w - 1218 ],
[ 94*w + 448 , 542*w + 1302 , -438*w - 1036 , -50*w - 56 , 50*w + 224 , -22*w + 28 , -24*w + 28 , 210 , -120*w - 14 , -160*w - 448 , -248*w - 56 , -18*w + 644 ],
[ 337*w - 469 , 910*w - 3430 , -722*w + 2730 , -60*w + 140 , 188*w - 140 , 4*w + 140 , -60*w + 140 , 120*w - 14 , 854 , -272*w + 784 , -40*w + 1064 , 572*w + 406 ],
[ -89*w - 1687 , -1231*w - 6055 , 984*w + 4816 , 8*w + 280 , 164*w - 644 , 94*w + 98 , 8*w + 280 , 160*w - 448 , 272*w + 784 , 2128 , 576*w + 1680 , 788*w - 2548 ],
[ 378*w - 1680 , 520*w - 7574 , -410*w + 6034 , -60*w + 252 , 288*w - 224 , 54*w + 266 , -60*w + 252 , 248*w - 56 , 40*w + 1064 , -576*w + 1680 , 2464 , 1398*w - 630 ],
[ 4148*w - 1470 , 15875*w - 18067 , -12664*w + 13552 , 168*w - 322 , -282*w + 714 , -262*w + 168 , -60*w - 1218 , 18*w + 644 , -572*w + 406 , -788*w - 2548 , -1398*w - 630 , 23086 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 263 ***/
Grammatrix:=Matrix(S,[
[ 224840 , 180876*w - 289282 , 336986*w - 615272 , 77894*w - 138376 , 234*w + 17668 , -79424*w - 23324 , 15346*w - 6216 , -18360*w
    + 52976 , 6744*w + 46970 , 5486*w + 44394 , 55152*w - 65982 , 27178*w - 622846 ],
[ -180876*w - 289282 , 1569316 , 45216*w + 2992724 , 4490*w + 710920 , -24776*w - 30688 , 64984*w - 265916 , -5072*w + 62552 ,
    -10064*w - 108276 , -28336*w - 17444 , -26716*w - 20160 , -15676*w + 244440 , 501374*w + 1115086 ],
[ -336986*w - 615272 , -45216*w + 2992724 , 5811190 , -2752*w + 1375668 , -50856*w - 70154 , 142158*w - 528696 , -11850*w + 124824
, -20436*w - 216552 , -56704*w - 34888 , -53384*w - 40320 , -31352*w + 488880 , 926758*w + 2196516 ],
[ -77894*w - 138376 , -4490*w + 710920 , 2752*w + 1375668 , 335188 , -12370*w - 12502 , 34946*w - 121786 , -2902*w + 30016 ,
    -5088*w - 54586 , -14176*w - 8722 , -13346*w - 10080 , -7838*w + 122220 , 226736*w + 508466 ],
[ -234*w + 17668 , 24776*w - 30688 , 50856*w - 70154 , 12370*w - 12502 , 53998 , 17286*w + 18732 , -3538*w - 3360 , 3880*w - 14644
, -2160*w - 10920 , -1800*w - 9660 , -12360*w + 20160 , 7742*w - 75558 ],
[ 79424*w - 23324 , -64984*w - 265916 , -142158*w - 528696 , -34946*w - 121786 , -17286*w + 18732 , 659904 , -9488*w - 128590 ,
    77726*w + 107534 , 49632*w - 95956 , 46410*w - 81508 , -124078*w - 394632 , -157692*w + 133154 ],
[ -15346*w - 6216 , 5072*w + 62552 , 11850*w + 124824 , 2902*w + 30016 , 3538*w - 3360 , 9488*w - 128590 , 26530 , -13524*w -
    29050 , -11064*w + 13580 , -10230*w + 11004 , 18306*w + 89544 , 31058*w + 532 ],
[ 18360*w + 52976 , 10064*w - 108276 , 20436*w - 216552 , 5088*w - 54586 , -3880*w - 14644 , -77726*w + 107534 , 13524*w - 29050 ,
83944 , 19916*w + 25928 , 17674*w + 25578 , 26906*w - 171248 , -53082*w - 95774 ],
[ -6744*w + 46970 , 28336*w - 17444 , 56704*w - 34888 , 14176*w - 8722 , 2160*w - 10920 , -49632*w - 95956 , 11064*w + 13580 ,
    -19916*w + 25928 , 41118 , -606*w + 37268 , 48970*w - 8232 , 5784*w - 117712 ],
[ -5486*w + 44394 , 26716*w - 20160 , 53384*w - 40320 , 13346*w - 10080 , 1800*w - 9660 , -46410*w - 81508 , 10230*w + 11004 ,
    -17674*w + 25578 , 606*w + 37268 , 33866 , 44276*w - 12516 , 4080*w - 110824 ],
[ -55152*w - 65982 , 15676*w + 244440 , 31352*w + 488880 , 7838*w + 122220 , 12360*w + 20160 , 124078*w - 394632 , -18306*w +
    89544 , -26906*w - 171248 , -48970*w - 8232 , -44276*w - 12516 , 409948 , 140754*w + 74214 ],
[ -27178*w - 622846 , -501374*w + 1115086 , -926758*w + 2196516 , -226736*w + 508466 , -7742*w - 75558 , 157692*w + 133154 ,
    -31058*w + 532 , 53082*w - 95774 , -5784*w - 117712 , -4080*w - 110824 , -140754*w + 74214 , 2006830 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 216 );
/***Gitter Nr. 264 ***/
Grammatrix:=Matrix(S,[
[ 3699038 , -8566*w - 1264368 , -31120*w + 73682 , 73242*w - 61656 , -40502*w + 11256 , -150848*w - 89516 , 455900*w - 159502 ,
    -3396*w + 11088 , 225598*w - 332528 , 32548*w + 213612 , 240826*w - 218498 , 88910*w + 1826230 ],
[ 8566*w - 1264368 , 436632 , 11180*w - 22428 , -29068*w + 22288 , 15738*w - 4536 , 50678*w + 33040 , -151368*w + 41104 , 1266*w -
    3612 , -75924*w + 104454 , -10028*w - 71428 , -80422*w + 66570 , -30012*w - 602518 ],
[ 31120*w + 73682 , -11180*w - 22428 , 13482 , -1282*w + 8918 , 300*w - 3864 , -980*w + 5222 , -142*w - 19152 , 46*w + 28 ,
    -1798*w - 9422 , 1262*w - 1456 , -1396*w - 10206 , 24198*w + 16380 ],
[ -73242*w - 61656 , 29068*w + 22288 , 1282*w + 8918 , 122416 , -254*w - 55608 , 3612*w - 15316 , -12344*w - 2828 , 20*w - 2016 ,
-5568*w + 12320 , -1536*w - 5600 , -6592*w + 10752 , 21522*w + 74802 ],
[ 40502*w + 11256 , -15738*w - 4536 , -300*w - 3864 , 254*w - 55608 , 26040 , 60*w + 8442 , -66*w + 4900 , -14*w + 840 , 0 , 0 , 0
, -6306*w - 60214 ],
[ 150848*w - 89516 , -50678*w + 33040 , 980*w + 5222 , -3612*w - 15316 , -60*w + 8442 , 105854 , -53408*w - 324240 , 1314*w + 280
, -54048*w - 142352 , 21024*w - 42336 , -42792*w - 169008 , 165998*w + 19684 ],
[ -455900*w - 159502 , 151368*w + 41104 , 142*w - 19152 , 12344*w - 2828 , 66*w + 4900 , 53408*w - 324240 , 1231020 , -4268*w -
    4592 , 97360*w + 651616 , -89328*w + 56952 , 46732*w + 695912 , -503412*w - 755048 ],
[ 3396*w + 11088 , -1266*w - 3612 , -46*w + 28 , -20*w - 2016 , 14*w + 840 , -1314*w + 280 , 4268*w - 4592 , 168 , 1914*w - 4844 ,
528*w + 1988 , 2266*w - 3696 , -762*w + 12236 ],
[ -225598*w - 332528 , 75924*w + 104454 , 1798*w - 9422 , 5568*w + 12320 , 0 , 54048*w - 142352 , -97360*w + 651616 , -1914*w -
    4844 , 400344 , -52104*w - 19572 , -30734*w + 396396 , -204158*w - 675612 ],
[ -32548*w + 213612 , 10028*w - 71428 , -1262*w - 1456 , 1536*w - 5600 , 0 , -21024*w - 42336 , 89328*w + 56952 , -528*w + 1988 ,
52104*w - 19572 , 48538 , 53208*w + 8736 , -78790*w + 216566 ],
[ -240826*w - 218498 , 80422*w + 66570 , 1396*w - 10206 , 6592*w + 10752 , 0 , 42792*w - 169008 , -46732*w + 695912 , -2266*w -
    3696 , 30734*w + 396396 , -53208*w + 8736 , 409948 , -252348*w - 567784 ],
[ -88910*w + 1826230 , 30012*w - 602518 , -24198*w + 16380 , -21522*w + 74802 , 6306*w - 60214 , -165998*w + 19684 , 503412*w -
    755048 , 762*w + 12236 , 204158*w - 675612 , 78790*w + 216566 , 252348*w - 567784 , 2317714 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 265 ***/
Grammatrix:=Matrix(S,[
[ 9483796 , -12760871*w + 46276363 , 26816060*w - 126779226 , -7321410*w + 33986120 , 3312*w + 51604 , -2498*w - 24640 , 9300*w +
    1890 , -8780*w + 92064 , 12756*w - 196280 , 10224*w - 22568 , 32364*w - 18256 , -3440202*w - 20967940 ],
[ 12760871*w + 46276363 , 355179300 , -39627131*w - 888919059 , 9984895*w + 239475831 , 189588*w + 142926 , -43908*w + 32872 ,
    35180*w - 174244 , 167995*w + 517545 , -473667*w - 1164709 , -3174*w - 314790 , 122532*w - 809242 , -45742841*w - 71361647 ],
[ -26816060*w - 126779226 , 39627131*w - 888919059 , 2260804966 , 1784327*w - 608538105 , -390522*w - 434784 , 99636*w + 53452 ,
    -103176*w + 331478 , -307904*w - 1352176 , 909954*w + 2962050 , -24916*w + 706384 , -342416*w + 1683556 , 106812950*w +
    215033952 ],
[ 7321410*w + 33986120 , -9984895*w + 239475831 , -1784327*w - 608538105 , 163819754 , 105973*w + 109557 , -27647*w - 13363 ,
    27709*w - 90643 , 84974*w + 363118 , -249614*w - 795480 , 6078*w - 191366 , 91336*w - 458584 , -28918050*w - 57278970 ],
[ -3312*w + 51604 , -189588*w + 142926 , 390522*w - 434784 , -105973*w + 109557 , 53284 , -2700*w - 2170 , 4286*w + 798 , -6530*w
    + 30716 , 25442*w - 72758 , 5852*w + 1820 , 16436*w + 32564 , 2492*w - 168028 ],
[ 2498*w - 24640 , 43908*w + 32872 , -99636*w + 53452 , 27647*w - 13363 , 2700*w - 2170 , 2982 , -216*w - 2436 , 2188*w + 826 ,
    -6466*w - 4970 , -408*w - 2842 , 322*w - 9982 , -4266*w + 45612 ],
[ -9300*w + 1890 , -35180*w - 174244 , 103176*w + 331478 , -27709*w - 90643 , -4286*w + 798 , 216*w - 2436 , 2968 , -2910*w - 3514
, 7310*w + 13398 , 80*w + 3794 , -2114*w + 11326 , 24038*w - 12026 ],
[ 8780*w + 92064 , -167995*w + 517545 , 307904*w - 1352176 , -84974*w + 363118 , 6530*w + 30716 , -2188*w + 826 , 2910*w - 3514 ,
26292 , 5498*w - 68446 , 3712*w - 4802 , 13874*w + 3570 , -42100*w - 212604 ],
[ -12756*w - 196280 , 473667*w - 1164709 , -909954*w + 2962050 , 249614*w - 795480 , -25442*w - 72758 , 6466*w - 4970 , -7310*w +
    13398 , -5498*w - 68446 , 205912 , -10296*w + 19516 , -43344*w + 15568 , 73790*w + 522634 ],
[ -10224*w - 22568 , 3174*w - 314790 , 24916*w + 706384 , -6078*w - 191366 , -5852*w + 1820 , 408*w - 2842 , -80*w + 3794 ,
    -3712*w - 4802 , 10296*w + 19516 , 5628 , -3178*w + 17206 , 34746*w + 45332 ],
[ -32364*w - 18256 , -122532*w - 809242 , 342416*w + 1683556 , -91336*w - 458584 , -16436*w + 32564 , -322*w - 9982 , 2114*w +
    11326 , -13874*w + 3570 , 43344*w + 15568 , 3178*w + 17206 , 67760 , 101930*w + 10206 ],
[ 3440202*w - 20967940 , 45742841*w - 71361647 , -106812950*w + 215033952 , 28918050*w - 57278970 , -2492*w - 168028 , 4266*w +
    45612 , -24038*w - 12026 , 42100*w - 212604 , -73790*w + 522634 , -34746*w + 45332 , -101930*w + 10206 , 55831342 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );
/***Gitter Nr. 266 ***/
Grammatrix:=Matrix(S,[
[ 638532874 , 50084046*w - 324346960 , -8100486*w + 23000054 , 26058760*w + 5289312 , -16434156*w + 45425534 , -1502636*w +
    126548772 , -290496396*w - 687142470 , 123598658*w + 647552248 , -4939206*w + 68112170 , 156881478*w + 306957476 , -33660972*w
    - 80621884 , 126560798*w - 37946160 ],
[ -50084046*w - 324346960 , 255148894 , 2041230*w - 26768028 , -7044866*w + 33020596 , 4687446*w - 13066634 , -18628*w - 41542760
, 85412380*w + 190359680 , -37882380*w - 182156590 , 1098912*w - 19310466 , -45919128*w - 82424258 , 9919864*w + 21887796 ,
    30207186*w + 32744306 ],
[ 8100486*w + 23000054 , -2041230*w - 26768028 , 6452544 , -247846*w - 4637444 , 31590*w - 852768 , 30698*w - 4886 , 632748*w +
    1679888 , -267142*w - 1521184 , 10820*w - 145208 , -347464*w - 688548 , 74556*w + 180880 , -11382432*w - 13295324 ],
[ -26058760*w + 5289312 , 7044866*w + 33020596 , 247846*w - 4637444 , 27013756 , -4884150*w - 1716484 , -7223618*w + 12248978 ,
    3577796*w - 203991816 , -22443730*w + 131485760 , -4650504*w + 6691720 , 1720096*w + 103492144 , 502460*w - 24063200 ,
    33974688*w + 119865130 ],
[ 16434156*w + 45425534 , -4687446*w - 13066634 , -31590*w - 852768 , 4884150*w - 1716484 , 14692216 , 6982600*w + 20334314 ,
    -86421052*w + 4711504 , 57039226*w + 55680072 , 3083392*w + 13052004 , 42999404*w - 12803588 , -10068148*w + 350280 ,
    43142412*w - 57172108 ],
[ 1502636*w + 126548772 , 18628*w - 41542760 , -30698*w - 4886 , 7223618*w + 12248978 , -6982600*w + 20334314 , 52427130 ,
    -122816714*w - 288869616 , 52327274*w + 272467692 , -2089064*w + 28695492 , 66104252*w + 129094756 , -14186284*w - 33911640 ,
85914874*w + 62399596 ],
[ 290496396*w - 687142470 , -85412380*w + 190359680 , -632748*w + 1679888 , -3577796*w - 203991816 , 86421052*w + 4711504 ,
    122816714*w - 288869616 , 3656674364 , 355590588*w - 2392129558 , 80081450*w - 125628356 , -61830674*w - 1822790186 ,
    -1509790*w + 425831392 , -341469114*w - 1826469078 ],
[ -123598658*w + 647552248 , 37882380*w - 182156590 , 267142*w - 1521184 , 22443730*w + 131485760 , -57039226*w + 55680072 ,
    -52327274*w + 272467692 , -355590588*w - 2392129558 , 1807012074 , -40167952*w + 136717686 , 217742986*w + 1150401448 ,
    -40430212*w - 279613880 , 401313004*w + 961256086 ],
[ 4939206*w + 68112170 , -1098912*w - 19310466 , -10820*w - 145208 , 4650504*w + 6691720 , -3083392*w + 13052004 , 2089064*w +
    28695492 , -80081450*w - 125628356 , 40167952*w + 136717686 , 16600304 , 42052874*w + 53173946 , -9275710*w - 14868532 ,
    51881898*w + 10150224 ],
[ -156881478*w + 306957476 , 45919128*w - 82424258 , 347464*w - 688548 , -1720096*w + 103492144 , -42999404*w - 12803588 ,
    -66104252*w + 129094756 , 61830674*w - 1822790186 , -217742986*w + 1150401448 , -42052874*w + 53173946 , 916137838 , 7954892*w
    - 212134076 , 140203752*w + 951186250 ],
[ 33660972*w - 80621884 , -9919864*w + 21887796 , -74556*w + 180880 , -502460*w - 24063200 , 10068148*w + 350280 , 14186284*w -
    33911640 , 1509790*w + 425831392 , 40430212*w - 279613880 , 9275710*w - 14868532 , -7954892*w - 212134076 , 49603708 ,
    -40720344*w - 211719018 ],
[ -126560798*w - 37946160 , -30207186*w + 32744306 , 11382432*w - 13295324 , -33974688*w + 119865130 , -43142412*w - 57172108 ,
    -85914874*w + 62399596 , 341469114*w - 1826469078 , -401313004*w + 961256086 , -51881898*w + 10150224 , -140203752*w +
    951186250 , 40720344*w - 211719018 , 1456337722 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4 );
/***Gitter Nr. 267 ***/
Grammatrix:=Matrix(S,[
[ 42364 , 2106*w - 12054 , 232*w + 6916 , 2030*w - 2800 , 4936*w - 12516 , -2744*w + 9100 , 328*w + 2254 , 1176*w + 3668 , 810*w -
    2156 , -1750*w - 4592 , -3954*w + 4830 , 8132*w + 16310 ],
[ -2106*w - 12054 , 12460 , 146*w - 4592 , -14*w + 560 , 0 , -144*w , -104*w , -32*w , 32*w , -24*w , 0 , 3500*w + 22162 ],
[ -232*w + 6916 , -146*w - 4592 , 3276 , 680*w - 252 , 2168*w - 168 , -1376*w + 28 , -152*w , 28*w , 0 , 0 , 0 , -3804*w - 5586 ],
[ -2030*w - 2800 , 14*w + 560 , -680*w - 252 , 3346 , 664*w + 6230 , -624*w - 3444 , -102*w - 280 , 40*w , 0 , 0 , 0 , -1074*w -
    1862 ],
[ -4936*w - 12516 , 0 , -2168*w - 168 , -664*w + 6230 , 29708 , 136*w - 20846 , 4*w - 2632 , 2*w + 672 , 0 , 0 , 0 , -4258*w -
    17948 ],
[ 2744*w + 9100 , 144*w , 1376*w + 28 , 624*w - 3444 , -136*w - 20846 , 15750 , 14*w + 2100 , 66*w - 1400 , -240*w - 168 , 1428 ,
816*w + 840 , 3426*w + 13202 ],
[ -328*w + 2254 , 104*w , 152*w , 102*w - 280 , -4*w - 2632 , -14*w + 2100 , 644 , -78*w + 966 , 260*w + 42 , -1442 , -884*w - 910
, 4*w + 6412 ],
[ -1176*w + 3668 , 32*w , -28*w , -40*w , -2*w + 672 , -66*w - 1400 , 78*w + 966 , 5950 , 1542*w - 322 , -684*w - 8540 , -5520*w -
    2394 , -1078*w + 16338 ],
[ -810*w - 2156 , -32*w , 0 , 0 , 0 , 240*w - 168 , -260*w + 42 , -1542*w - 322 , 2870 , 2280*w - 812 , 924*w - 10010 , -4152*w -
    3304 ],
[ 1750*w - 4592 , 24*w , 0 , 0 , 0 , 1428 , -1442 , 684*w - 8540 , -2280*w - 812 , 13006 , 7752*w + 7980 , 3298*w - 22036 ],
[ 3954*w + 4830 , 0 , 0 , 0 , 0 , -816*w + 840 , 884*w - 910 , 5520*w - 2394 , -924*w - 10010 , -7752*w + 7980 , 37268 , 15462*w -
    56 ],
[ -8132*w + 16310 , -3500*w + 22162 , 3804*w - 5586 , 1074*w - 1862 , 4258*w - 17948 , -3426*w + 13202 , -4*w + 6412 , 1078*w +
    16338 , 4152*w - 3304 , -3298*w - 22036 , -15462*w - 56 , 164360 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 268 ***/
Grammatrix:=Matrix(S,[
[ 2180318 , 198619*w + 2160767 , 6332*w - 444388 , 68048*w - 6314 , -58059*w + 32837 , 252393*w + 804279 , -32057*w - 109109 ,
    -143274*w + 132440 , -200817*w + 353507 , 113652*w + 583940 , -164392*w - 186774 , 1480236*w + 1724646 ],
[ -198619*w + 2160767 , 2968196 , 73261*w - 528003 , 101804*w - 8680 , -82268*w + 14728 , 206902*w + 1251656 , -25898*w - 169484 ,
-212894*w + 37632 , -316894*w + 287364 , 75696*w + 889028 , -196060*w - 402416 , 1296114*w + 2642472 ],
[ -6332*w - 444388 , -73261*w - 528003 , 141610 , -12732*w + 81396 , 12097*w - 57141 , -143881*w - 195083 , 19337*w + 27489 ,
    40958*w - 85624 , 53815*w - 180593 , -63362*w - 169904 , 64780*w + 17360 , -318584*w - 186592 ],
[ -68048*w - 6314 , -101804*w - 8680 , 12732*w + 81396 , 176022 , 102*w - 112084 , -177314*w + 36260 , 24474*w - 2450 , 8294*w -
    131250 , -170*w - 220150 , -84490*w - 30940 , 52530*w - 85680 , -75124*w + 570066 ],
[ 58059*w + 32837 , 82268*w + 14728 , -12097*w - 57141 , -102*w - 112084 , 74704 , 129896*w - 38570 , -17846*w + 3500 , -8078*w +
    102928 , -388*w + 173908 , 67004*w + 24584 , -41612*w + 67872 , 76776*w - 434490 ],
[ -252393*w + 804279 , -206902*w + 1251656 , 143881*w - 195083 , 177314*w + 36260 , -129896*w - 38570 , 2359854 , 2804*w - 322000
, -204198*w - 239232 , -382230*w - 248304 , -153930*w + 1006740 , -90018*w - 748692 , 828924*w + 2223564 ],
[ 32057*w - 109109 , 25898*w - 169484 , -19337*w + 27489 , -24474*w - 2450 , 17846*w + 3500 , -2804*w - 322000 , 44002 , 27976*w +
    29302 , 51858*w + 28980 , 19116*w - 137088 , 13286*w + 99722 , -114848*w - 288330 ],
[ 143274*w + 132440 , 212894*w + 37632 , -40958*w - 85624 , -8294*w - 131250 , 8078*w + 102928 , 204198*w - 239232 , -27976*w +
    29302 , 293090 , 51538*w + 432992 , 173112*w - 96096 , -79458*w + 262934 , 140282*w - 815822 ],
[ 200817*w + 353507 , 316894*w + 287364 , -53815*w - 180593 , 170*w - 220150 , 388*w + 173908 , 382230*w - 248304 , -51858*w +
    28980 , -51538*w + 432992 , 730366 , 285406*w + 79002 , -172022*w + 302470 , 331470*w - 1230012 ],
[ -113652*w + 583940 , -75696*w + 889028 , 63362*w - 169904 , 84490*w - 30940 , -67004*w + 24584 , 153930*w + 1006740 , -19116*w -
    137088 , -173112*w - 96096 , -285406*w + 79002 , 791392 , -137226*w - 438858 , 521840*w + 730394 ],
[ 164392*w - 186774 , 196060*w - 402416 , -64780*w + 17360 , -52530*w - 85680 , 41612*w + 67872 , 90018*w - 748692 , -13286*w +
    99722 , 79458*w + 262934 , 172022*w + 302470 , 137226*w - 438858 , 409948 , -163486*w - 1042524 ],
[ -1480236*w + 1724646 , -1296114*w + 2642472 , 318584*w - 186592 , 75124*w + 570066 , -76776*w - 434490 , -828924*w + 2223564 ,
    114848*w - 288330 , -140282*w - 815822 , -331470*w - 1230012 , -521840*w + 730394 , 163486*w - 1042524 , 9581264 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 269 ***/
Grammatrix:=Matrix(S,[
[ 400386 , -61675*w + 771855 , 156926*w - 135842 , 356392*w + 185276 , -413450*w - 492618 , 208466*w + 115290 , -33634*w + 252056
, 26448*w - 177072 , -61186*w - 46900 , 191972*w + 124166 , 141556*w - 215628 , 337319*w - 349265 ],
[ 61675*w + 771855 , 2931166 , 399049*w - 1159431 , 575462*w - 258412 , -753721*w + 31157 , 317893*w - 201943 , 55780*w + 388234 ,
-23956*w - 280392 , -84509*w + 90153 , 256828*w - 304388 , 87838*w - 571312 , 580548*w - 797412 ],
[ -156926*w - 135842 , -399049*w - 1159431 , 1022308 , -59744*w + 1144248 , 184414*w - 1397928 , -26560*w + 652680 , -133140*w -
    4900 , 78612*w + 42140 , -2492*w - 201852 , 18512*w + 618016 , 144536*w + 343896 , 84788*w + 940100 ],
[ -356392*w + 185276 , -575462*w - 258412 , 59744*w + 1144248 , 3227840 , 290136*w - 3900848 , 14222*w + 1787422 , -347820*w -
    36974 , 205938*w + 22554 , -5880*w - 549990 , 51510*w + 1700160 , 395850*w + 941850 , 699894*w + 2299248 ],
[ 413450*w - 492618 , 753721*w + 31157 , -184414*w - 1397928 , -290136*w - 3900848 , 4987038 , -197344*w - 2184070 , 438722*w -
    176386 , -268954*w + 138894 , 61628*w + 687918 , -231770*w - 2109856 , -591710*w - 914382 , -1051834*w - 2351468 ],
[ -208466*w + 115290 , -317893*w - 201943 , 26560*w + 652680 , -14222*w + 1787422 , 197344*w - 2184070 , 1036406 , -196292*w -
    48160 , 129842*w + 35476 , 2908*w - 319368 , 8060*w + 991144 , 218204*w + 580860 , 378706*w + 1310204 ],
[ 33634*w + 252056 , -55780*w + 388234 , 133140*w - 4900 , 347820*w - 36974 , -438722*w - 176386 , 196292*w - 48160 , 326116 ,
    -5438*w - 169610 , -70954*w + 24360 , 217966*w - 109144 , 107506*w - 391902 , 230103*w - 532819 ],
[ -26448*w - 177072 , 23956*w - 280392 , -78612*w + 42140 , -205938*w + 22554 , 268954*w + 138894 , -129842*w + 35476 , 5438*w -
    169610 , 137088 , 41434*w - 1204 , -129594*w + 16296 , -73514*w + 205478 , -147408*w + 338366 ],
[ 61186*w - 46900 , 84509*w + 90153 , 2492*w - 201852 , 5880*w - 549990 , -61628*w + 687918 , -2908*w - 319368 , 70954*w + 24360 ,
-41434*w - 1204 , 113260 , -7218*w - 351834 , -79674*w - 199850 , -113869*w - 387331 ],
[ -191972*w + 124166 , -256828*w - 304388 , -18512*w + 618016 , -51510*w + 1700160 , 231770*w - 2109856 , -8060*w + 991144 ,
    -217966*w - 109144 , 129594*w + 16296 , 7218*w - 351834 , 1097544 , 234990*w + 656782 , 331416*w + 1246728 ],
[ -141556*w - 215628 , -87838*w - 571312 , -144536*w + 343896 , -395850*w + 941850 , 591710*w - 914382 , -218204*w + 580860 ,
    -107506*w - 391902 , 73514*w + 205478 , 79674*w - 199850 , -234990*w + 656782 , 745360 , -69696*w + 1244698 ],
[ -337319*w - 349265 , -580548*w - 797412 , -84788*w + 940100 , -699894*w + 2299248 , 1051834*w - 2351468 , -378706*w + 1310204 ,
-230103*w - 532819 , 147408*w + 338366 , 113869*w - 387331 , -331416*w + 1246728 , 69696*w + 1244698 , 2932426 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 144 );
/***Gitter Nr. 270 ***/
Grammatrix:=Matrix(S,[
[ 31864056 , 809371*w + 109254971 , 1161966*w + 39539388 , 51417*w - 4710629 , -132699*w + 87073 , -6863216*w - 3310328 ,
    -1727533*w - 4718805 , 552972*w - 1942402 , -2271613*w - 3921547 , -2487263*w + 629615 , 482724*w - 5108026 , -33972327*w -
    54283999 ],
[ -809371*w + 109254971 , 378178360 , 3042748*w + 136752462 , 191361*w - 16489263 , -492003*w + 319403 , -24328067*w - 10766063 ,
-6221086*w - 16215808 , 1868508*w - 6780956 , -7956208*w - 13576654 , -8673654*w + 2312926 , 1650367*w - 17844995 , -115992681*w -
    193315283 ],
[ -1161966*w + 39539388 , -3042748*w + 136752462 , 50010618 , 474470*w - 5672478 , -176214*w + 22148 , -8103332*w - 8619422 ,
    -1725747*w - 7062069 , 833159*w - 2167249 , -2458548*w - 6001618 , -3073066*w - 574952 , 980464*w - 5950448 , -40324018*w -
    76930266 ],
[ -51417*w - 4710629 , -191361*w - 16489263 , -474470*w - 5672478 , 2690884 , 66550*w - 66682 , 4123154*w + 1313634 , 1178052*w +
    2247546 , -181926*w + 952672 , 1097842*w + 2007138 , 1218416*w - 216608 , -263268*w + 2479148 , 5664842*w + 8131396 ],
[ 132699*w + 87073 , 492003*w + 319403 , 176214*w + 22148 , -66550*w - 66682 , 20594 , -103368*w + 781998 , -82308*w + 189756 ,
    -24526*w - 54096 , -72694*w + 191478 , -10820*w + 247072 , -67254*w - 87318 , -352296*w + 985180 ],
[ 6863216*w - 3310328 , 24328067*w - 10766063 , 8103332*w - 8619422 , -4123154*w + 1313634 , 103368*w + 781998 , 49949662 ,
    -2844634*w + 16101246 , -1542350*w - 719642 , -2570732*w + 12361944 , 812090*w + 12661334 , -3812746*w - 1767178 , -9416630*w
    + 62556774 ],
[ 1727533*w - 4718805 , 6221086*w - 16215808 , 1725747*w - 7062069 , -1178052*w + 2247546 , 82308*w + 189756 , 2844634*w +
    16101246 , 7014112 , -618504*w + 958552 , 286434*w + 4525290 , 1181598*w + 2756614 , -1097992*w + 1607816 , 2041223*w +
    22183931 ],
[ -552972*w - 1942402 , -1868508*w - 6780956 , -833159*w - 2167249 , 181926*w + 952672 , 24526*w - 54096 , 1542350*w - 719642 ,
    618504*w + 958552 , 890428 , 705822*w - 364322 , 428330*w - 1357846 , 271052*w + 1209628 , 3110059*w - 1553391 ],
[ 2271613*w - 3921547 , 7956208*w - 13576654 , 2458548*w - 6001618 , -1097842*w + 2007138 , 72694*w + 191478 , 2570732*w +
    12361944 , -286434*w + 4525290 , -705822*w - 364322 , 6056120 , 1312792*w + 4384464 , -1593208*w + 1444408 , 909406*w +
    26395572 ],
[ 2487263*w + 629615 , 8673654*w + 2312926 , 3073066*w - 574952 , -1218416*w - 216608 , 10820*w + 247072 , -812090*w + 12661334 ,
-1181598*w + 2756614 , -428330*w - 1357846 , -1312792*w + 4384464 , 5168408 , -1467128*w - 1372168 , -5060180*w + 20420218 ],
[ -482724*w - 5108026 , -1650367*w - 17844995 , -980464*w - 5950448 , 263268*w + 2479148 , 67254*w - 87318 , 3812746*w - 1767178 ,
1097992*w + 1607816 , -271052*w + 1209628 , 1593208*w + 1444408 , 1467128*w - 1372168 , 3279584 , 7141514*w + 4626118 ],
[ 33972327*w - 54283999 , 115992681*w - 193315283 , 40324018*w - 76930266 , -5664842*w + 8131396 , 352296*w + 985180 , 9416630*w +
    62556774 , -2041223*w + 22183931 , -3110059*w - 1553391 , -909406*w + 26395572 , 5060180*w + 20420218 , -7141514*w + 4626118 ,
350838222 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 271 ***/
Grammatrix:=Matrix(S,[
[ 4648 , 831*w - 399 , -79*w + 609 , -383*w - 7 , -153*w - 7 , -144*w - 322 , -107*w - 329 , -516*w + 2380 , 300*w + 1162 , 73*w +
    203 , 1022*w + 1120 , -3099*w - 7357 ],
[ -831*w - 399 , 11060 , -4*w - 518 , -742*w + 896 , -276*w - 322 , 460*w + 322 , 322*w , -138*w , 0 , 0 , 0 , 2403*w - 2051 ],
[ 79*w + 609 , 4*w - 518 , 546 , -256*w - 196 , -96*w - 70 , -152*w - 14 , -122*w , 30*w , 0 , 0 , 0 , -399*w - 1169 ],
[ 383*w - 7 , 742*w + 896 , 256*w - 196 , 3724 , -68*w + 1120 , -76*w + 700 , -160*w + 448 , 2220*w + 1792 , 816*w - 2688 , 32*w -
    448 , 224*w - 6944 , 161*w - 511 ],
[ 153*w - 7 , 276*w - 322 , 96*w - 70 , 68*w + 1120 , 392 , -34*w + 182 , -52*w + 140 , 562*w + 448 , 204*w - 672 , 8*w - 112 ,
    56*w - 1736 , -121*w - 49 ],
[ 144*w - 322 , -460*w + 322 , 152*w - 14 , 76*w + 700 , 34*w + 182 , 826 , -18*w + 644 , 746*w - 1344 , -84*w - 1288 , -40*w -
    112 , -688*w - 1904 , -194*w - 84 ],
[ 107*w - 329 , -322*w , 122*w , 160*w + 448 , 52*w + 140 , 18*w + 644 , 546 , 504*w - 1834 , -234*w - 1050 , -52*w - 70 , -840*w
    - 1064 , -233*w - 217 ],
[ 516*w + 2380 , 138*w , -30*w , -2220*w + 1792 , -562*w + 448 , -746*w - 1344 , -504*w - 1834 , 21490 , 4176*w + 4438 , 592*w -
    154 , 8904*w - 4984 , 424*w + 5544 ],
[ -300*w + 1162 , 0 , 0 , -816*w - 2688 , -204*w - 672 , 84*w - 1288 , 234*w - 1050 , -4176*w + 4438 , 6636 , 156*w + 770 , 2826*w
    + 11130 , -1074*w + 1974 ],
[ -73*w + 203 , 0 , 0 , -32*w - 448 , -8*w - 112 , 40*w - 112 , 52*w - 70 , -592*w - 154 , -156*w + 770 , 126 , 68*w + 1764 ,
    -241*w - 217 ],
[ -1022*w + 1120 , 0 , 0 , -224*w - 6944 , -56*w - 1736 , 688*w - 1904 , 840*w - 1064 , -8904*w - 4984 , -2826*w + 11130 , -68*w +
    1764 , 27104 , -2646*w - 112 ],
[ 3099*w - 7357 , -2403*w - 2051 , 399*w - 1169 , -161*w - 511 , 121*w - 49 , 194*w - 84 , 233*w - 217 , -424*w + 5544 , 1074*w +
    1974 , 241*w - 217 , 2646*w - 112 , 33222 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 272 ***/
Grammatrix:=Matrix(S,[
[ 16252236 , -454691*w - 6477331 , 25995*w + 696591 , 34589*w + 66325 , 15746*w - 247856 , 14346*w - 48664 , 182522*w - 667296 ,
    10027*w - 826329 , 11527*w - 258195 , 51909*w + 159579 , 130435*w - 128233 , 1686358*w + 2772210 ],
[ 454691*w - 6477331 , 2717316 , 9520*w - 294784 , -11703*w - 42427 , -13647*w + 99687 , -8100*w + 16086 , -103981*w + 227213 ,
    -38357*w + 345401 , -15477*w + 105231 , -15323*w - 81599 , -60121*w + 16961 , -603964*w - 1470532 ],
[ -25995*w + 696591 , -9520*w - 294784 , 36162 , 1422*w + 6860 , 1227*w - 12565 , 1106*w - 1932 , 14209*w - 28203 , 5929*w - 44765
, 2322*w - 13468 , 1750*w + 10850 , 7860*w - 1176 , 71011*w + 149401 ],
[ -34589*w + 66325 , 11703*w - 42427 , -1422*w + 6860 , 3486 , 150*w - 1848 , 396*w + 84 , 4876*w - 672 , 4142*w - 8400 , 1396*w -
    2268 , -254*w + 3346 , 1962*w + 3066 , 3356*w + 43260 ],
[ -15746*w - 247856 , 13647*w + 99687 , -1227*w - 12565 , -150*w - 1848 , 15652 , -246*w + 2618 , -4748*w + 33768 , 3374*w + 33180
, 756*w + 10332 , -2760*w - 4200 , -4428*w + 9492 , -34618*w - 40656 ],
[ -14346*w - 48664 , 8100*w + 16086 , -1106*w - 1932 , -396*w + 84 , 246*w + 2618 , 896 , -90*w + 10388 , 2386*w + 8792 , 668*w +
    2884 , -1022*w - 462 , -946*w + 4158 , -9326*w + 2506 ],
[ -182522*w - 667296 , 103981*w + 227213 , -14209*w - 28203 , -4876*w - 672 , 4748*w + 33768 , 90*w + 10388 , 127288 , 28728*w +
    104636 , 7932*w + 34244 , -12000*w - 5600 , -11076*w + 49084 , -123412*w + 27034 ],
[ -10027*w - 826329 , 38357*w + 345401 , -5929*w - 44765 , -4142*w - 8400 , -3374*w + 33180 , -2386*w + 8792 , -28728*w + 104636 ,
133980 , -1224*w + 41608 , -8864*w - 24192 , -20736*w + 23296 , -108044*w - 163758 ],
[ -11527*w - 258195 , 15477*w + 105231 , -2322*w - 13468 , -1396*w - 2268 , -756*w + 10332 , -668*w + 2884 , -7932*w + 34244 ,
    1224*w + 41608 , 13160 , -3028*w - 7140 , -6336*w + 8624 , -35258*w - 43638 ],
[ -51909*w + 159579 , 15323*w - 81599 , -1750*w + 10850 , 254*w + 3346 , 2760*w - 4200 , 1022*w - 462 , 12000*w - 5600 , 8864*w -
    24192 , 3028*w - 7140 , 8848 , 5440*w + 5600 , 9134*w + 79338 ],
[ -130435*w - 128233 , 60121*w + 16961 , -7860*w - 1176 , -1962*w + 3066 , 4428*w + 9492 , 946*w + 4158 , 11076*w + 49084 ,
    20736*w + 23296 , 6336*w + 8624 , -5440*w + 5600 , 27104 , -43892*w + 88816 ],
[ -1686358*w + 2772210 , 603964*w - 1470532 , -71011*w + 149401 , -3356*w + 43260 , 34618*w - 40656 , 9326*w + 2506 , 123412*w +
    27034 , 108044*w - 163758 , 35258*w - 43638 , -9134*w + 79338 , 43892*w + 88816 , 1763944 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 273 ***/
Grammatrix:=Matrix(S,[
[ 5334 , -3250*w - 16996 , 843*w + 3311 , -6*w + 84 , -36*w + 168 , 250*w + 42 , 102*w + 14 , 181*w - 553 , -w + 189 , -58*w - 728
, 268*w + 140 , 224*w - 252 ],
[ 3250*w - 16996 , 207284 , 275*w - 42371 , 58*w - 294 , 435*w + 1715 , 2665*w - 5005 , 660*w - 2520 , 55*w - 8365 , 685*w + 1365
, -2785*w - 3535 , 2280*w - 5670 , -15577*w - 6293 ],
[ -843*w + 3311 , -275*w - 42371 , 9268 , -14*w - 154 , -87*w - 287 , -437*w + 1001 , -76*w + 504 , -27*w + 1673 , -137*w - 273 ,
557*w + 707 , -456*w + 1134 , 3101*w + 1351 ],
[ 6*w + 84 , -58*w - 294 , 14*w - 154 , 266 , -24*w - 70 , 12*w + 154 , -52*w + 56 , 138*w + 112 , -24*w + 56 , 64*w - 224 , 60*w
    + 252 , -46*w - 854 ],
[ 36*w + 168 , -435*w + 1715 , 87*w - 287 , 24*w - 70 , 140 , 92*w - 42 , 46*w , 38*w - 336 , 32*w + 112 , -156*w - 252 , 168*w -
    280 , -492*w - 56 ],
[ -250*w + 42 , -2665*w - 5005 , 437*w + 1001 , -12*w + 154 , -92*w - 42 , 1176 , -4*w + 308 , 362*w + 560 , -100*w + 140 , 302*w
    - 658 , 126*w + 1022 , 442*w - 3528 ],
[ -102*w + 14 , -660*w - 2520 , 76*w + 504 , 52*w + 56 , -46*w , 4*w + 308 , 196 , 112*w + 56 , -24*w + 56 , 64*w - 224 , 60*w +
    252 , 72*w - 812 ],
[ -181*w - 553 , -55*w - 8365 , 27*w + 1673 , -138*w + 112 , -38*w - 336 , -362*w + 560 , -112*w + 56 , 1820 , -160*w - 224 ,
    576*w + 448 , -384*w + 1344 , 1862*w - 1568 ],
[ w + 189 , -685*w + 1365 , 137*w - 273 , 24*w + 56 , -32*w + 112 , 100*w + 140 , 24*w + 56 , 160*w - 224 , 182 , -80*w - 560 ,
    248*w + 56 , -514*w - 1106 ],
[ 58*w - 728 , 2785*w - 3535 , -557*w + 707 , -64*w - 224 , 156*w - 252 , -302*w - 658 , -64*w - 224 , -576*w + 448 , 80*w - 560 ,
2128 , -768*w - 1008 , 1238*w + 5110 ],
[ -268*w + 140 , -2280*w - 5670 , 456*w + 1134 , -60*w + 252 , -168*w - 280 , -126*w + 1022 , -60*w + 252 , 384*w + 1344 , -248*w
    + 56 , 768*w - 1008 , 2464 , 1314*w - 5446 ],
[ -224*w - 252 , 15577*w - 6293 , -3101*w + 1351 , 46*w - 854 , 492*w - 56 , -442*w - 3528 , -72*w - 812 , -1862*w - 1568 , 514*w
    - 1106 , -1238*w + 5110 , -1314*w - 5446 , 20608 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 18 );
/***Gitter Nr. 274 ***/
Grammatrix:=Matrix(S,[
[ 2820818 , -49874*w - 2923578 , 44585*w + 327761 , -34924*w + 36736 , 17616*w - 40418 , -17502*w - 8218 , -12716*w - 91672 ,
    139638*w + 193172 , -119334*w + 458654 , -57024*w + 407232 , 130530*w + 291046 , -80030*w + 406490 ],
[ 49874*w - 2923578 , 3892378 , -45064*w - 415324 , 50884*w - 66878 , -24060*w + 51436 , 27264*w + 17948 , 27088*w + 134400 ,
    -233342*w - 211596 , 146944*w - 794416 , 52480*w - 674968 , -231314*w - 372890 , 309376*w - 265916 ],
[ -44585*w + 327761 , 45064*w - 415324 , 66682 , -5770*w + 1610 , 4227*w - 6811 , -2997*w + 1435 , 422*w - 8218 , 7076*w + 25466 ,
-13907*w + 23219 , -8688*w + 24122 , 5844*w + 30828 , -23440*w + 9030 ],
[ 34924*w + 36736 , -50884*w - 66878 , 5770*w + 1610 , 9310 , -924*w - 3500 , -912*w + 3150 , -3004*w + 1344 , 6680*w - 21952 ,
    11162*w + 26474 , 10128*w + 14000 , 8678*w - 21210 , -2895*w + 38465 ],
[ -17616*w - 40418 , 24060*w + 51436 , -4227*w - 6811 , 924*w - 3500 , 8036 , 652*w - 4942 , 1056*w - 616 , -754*w + 12544 ,
    -6656*w - 4368 , -5228*w + 308 , -1688*w + 13608 , 2349*w - 20223 ],
[ 17502*w - 8218 , -27264*w + 17948 , 2997*w + 1435 , 912*w + 3150 , -652*w - 4942 , 5796 , -410*w + 5656 , -5098*w - 19544 ,
    10818*w - 17374 , 6732*w - 18340 , -4418*w - 23730 , 6896*w + 18802 ],
[ 12716*w - 91672 , -27088*w + 134400 , -422*w - 8218 , 3004*w + 1344 , -1056*w - 616 , 410*w + 5656 , 12502 , -13548*w - 36834 ,
21156*w - 43134 , 12716*w - 43316 , -11564*w - 48076 , 18878*w + 25214 ],
[ -139638*w + 193172 , 233342*w - 211596 , -7076*w + 25466 , -6680*w - 21952 , 754*w + 12544 , 5098*w - 19544 , 13548*w - 36834 ,
241794 , -120464*w - 52290 , -95768*w + 23576 , -24968*w + 257096 , -21343*w - 237307 ],
[ 119334*w + 458654 , -146944*w - 794416 , 13907*w + 23219 , -11162*w + 26474 , 6656*w - 4368 , -10818*w - 17374 , -21156*w -
    43134 , 120464*w - 52290 , 444710 , 34136*w + 336840 , 136952*w + 29176 , -119697*w + 131663 ],
[ 57024*w + 407232 , -52480*w - 674968 , 8688*w + 24122 , -10128*w + 14000 , 5228*w + 308 , -6732*w - 18340 , -12716*w - 43316 ,
    95768*w + 23576 , -34136*w + 336840 , 274064 , 101760*w + 95984 , -100398*w + 34216 ],
[ -130530*w + 291046 , 231314*w - 372890 , -5844*w + 30828 , -8678*w - 21210 , 1688*w + 13608 , 4418*w - 23730 , 11564*w - 48076 ,
24968*w + 257096 , -136952*w + 29176 , -101760*w + 95984 , 298144 , -47668*w - 248822 ],
[ 80030*w + 406490 , -309376*w - 265916 , 23440*w + 9030 , 2895*w + 38465 , -2349*w - 20223 , -6896*w + 18802 , -18878*w + 25214 ,
21343*w - 237307 , 119697*w + 131663 , 100398*w + 34216 , 47668*w - 248822 , 596162 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 275 ***/
Grammatrix:=Matrix(S,[
[ 54166770 , 13008560*w - 740922 , 8686974*w - 11925088 , 1515722*w - 2625644 , -409364*w + 4725112 , 757108*w - 840140 ,
    1395638*w - 1255926 , 6701370*w + 18047456 , 10126816*w + 6247332 , 93454*w - 121184 , -1046398*w + 4975474 , 15181854*w +
    71560538 ],
[ -13008560*w - 740922 , 280720552 , 1131930*w + 178442236 , 81162*w + 30452338 , -168744*w + 9402946 , 295086*w - 2054906 ,
    484756*w - 94234 , 2700104*w + 6076056 , 3800628*w + 1352148 , 32066*w - 53634 , -318398*w + 1924510 , -59023466*w - 52848558
],
[ -8686974*w - 11925088 , -1131930*w + 178442236 , 116344592 , -45950*w + 19653004 , 49522*w + 5238842 , 76564*w - 1213870 ,
    136412*w - 179620 , 1058942*w + 1174880 , 1215360*w - 624960 , 5440*w - 31360 , -24320*w + 676480 , -42722286*w - 45310958 ],
[ -1515722*w - 2625644 , -81162*w + 30452338 , 45950*w + 19653004 , 4487728 , 80886*w + 191044 , -206768*w + 130228 , -392004*w +
    996716 , -2450792*w - 3893176 , -3105568*w + 242424 , -20600*w + 64400 , 161664*w - 1648752 , -4839086*w - 9092902 ],
[ 409364*w + 4725112 , 168744*w + 9402946 , -49522*w + 5238842 , -80886*w + 191044 , 2869566 , 328210*w - 899248 , 603078*w -
    1671348 , 4750280*w + 5060132 , 5470728*w - 2734508 , 32812*w - 123928 , -109136*w + 3035704 , -3958564*w + 1861650 ],
[ -757108*w - 840140 , -295086*w - 2054906 , -76564*w - 1213870 , 206768*w + 130228 , -328210*w - 899248 , 688100 , 51826*w +
    1340514 , -2635654*w + 3328290 , -1674376*w + 7134414 , 7650*w + 83412 , -439888*w - 1292452 , 773108*w - 4216338 ],
[ -1395638*w - 1255926 , -484756*w - 94234 , -136412*w - 179620 , 392004*w + 996716 , -603078*w - 1671348 , -51826*w + 1340514 ,
    2852430 , -5607624*w + 5328302 , -3948232*w + 13586874 , 10270*w + 176036 , -793032*w - 2861712 , 1740632*w - 9355318 ],
[ -6701370*w + 18047456 , -2700104*w + 6076056 , -1058942*w + 1174880 , 2450792*w - 3893176 , -4750280*w + 5060132 , 2635654*w +
    3328290 , 5607624*w + 5328302 , 89004650 , 19733312*w + 81447282 , 368562*w + 199444 , -7260784*w + 5685652 , -15714982*w -
    37466492 ],
[ -10126816*w + 6247332 , -3800628*w + 1352148 , -1215360*w - 624960 , 3105568*w + 242424 , -5470728*w - 2734508 , 1674376*w +
    7134414 , 3948232*w + 13586874 , -19733312*w + 81447282 , 105158956 , 293106*w + 754908 , -7904876*w - 6065710 , -5998598*w -
    58541252 ],
[ -93454*w - 121184 , -32066*w - 53634 , -5440*w - 31360 , 20600*w + 64400 , -32812*w - 123928 , -7650*w + 83412 , -10270*w +
    176036 , -368562*w + 199444 , -293106*w + 754908 , 11242 , -39820*w - 197736 , 132524*w - 500038 ],
[ 1046398*w + 4975474 , 318398*w + 1924510 , 24320*w + 676480 , -161664*w - 1648752 , 109136*w + 3035704 , 439888*w - 1292452 ,
    793032*w - 2861712 , 7260784*w + 5685652 , 7904876*w - 6065710 , 39820*w - 197736 , 4509428 , -4057228*w + 6564054 ],
[ -15181854*w + 71560538 , 59023466*w - 52848558 , 42722286*w - 45310958 , 4839086*w - 9092902 , 3958564*w + 1861650 , -773108*w -
    4216338 , -1740632*w - 9355318 , 15714982*w - 37466492 , 5998598*w - 58541252 , -132524*w - 500038 , 4057228*w + 6564054 ,
    280421708 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 276 ***/
Grammatrix:=Matrix(S,[
[ 615020 , 84376*w - 22610 , 414748*w + 1479646 , -413640*w - 1474186 , -376*w + 7378 , -3674*w - 56406 , 36012*w + 68586 ,
    -8314*w + 28140 , -12060*w - 23758 , -1808*w - 38556 , -8894*w - 6678 , 498280*w - 59234 ],
[ -84376*w - 22610 , 97636 , -241486*w + 437486 , 243276*w - 439166 , -129*w - 357 , 6726*w - 1036 , -4325*w + 33327 , -3723*w -
    3563 , 1568*w - 10752 , 3991*w - 4291 , 76*w - 7042 , 3917*w + 528143 ],
[ -414748*w + 1479646 , 241486*w + 437486 , 6438810 , 9416*w - 6475490 , -664*w + 4088 , 31191*w - 134869 , 75375*w + 287833 ,
    -31763*w + 57743 , -23341*w - 94969 , 9770*w - 108612 , -21138*w - 41902 , 1419971*w + 2440879 ],
[ 413640*w - 1474186 , -243276*w - 439166 , -9416*w - 6475490 , 6517168 , 438*w - 2562 , -31865*w + 131523 , -75687*w - 280637 ,
    30669*w - 58079 , 23303*w + 92267 , -9056*w + 106862 , 20922*w + 40502 , -1427377*w - 2439017 ],
[ 376*w + 7378 , 129*w - 357 , 664*w + 4088 , -438*w - 2562 , 700 , -568*w - 1610 , 1026*w + 2576 , -370*w + 560 , -356*w - 980 ,
12*w - 1204 , -288*w - 224 , 3060*w - 2086 ],
[ 3674*w - 56406 , -6726*w - 1036 , -31191*w - 134869 , 31865*w + 131523 , 568*w - 1610 , 13846 , -5560*w - 14574 , 1764*w - 2534
, 1646*w + 5628 , -294*w + 6426 , 1486*w + 1806 , -51326*w - 448 ],
[ -36012*w + 68586 , 4325*w + 33327 , -75375*w + 287833 , 75687*w - 280637 , -1026*w + 2576 , 5560*w - 14574 , 58114 , -4830*w -
    14 , 366*w - 17612 , 4392*w - 11704 , -1836*w - 10668 , 54622*w + 261450 ],
[ 8314*w + 28140 , 3723*w - 3563 , 31763*w + 57743 , -30669*w - 58079 , 370*w + 560 , -1764*w - 2534 , 4830*w - 14 , 5068 ,
    -1770*w + 378 , -1248*w - 3360 , -960*w + 896 , 26360*w - 36890 ],
[ 12060*w - 23758 , -1568*w - 10752 , 23341*w - 94969 , -23303*w + 92267 , 356*w - 980 , -1646*w + 5628 , -366*w - 17612 , 1770*w
    + 378 , 5810 , -1440*w + 3808 , 584*w + 3192 , -18480*w - 80570 ],
[ 1808*w - 38556 , -3991*w - 4291 , -9770*w - 108612 , 9056*w + 106862 , -12*w - 1204 , 294*w + 6426 , -4392*w - 11704 , 1248*w -
    3360 , 1440*w + 3808 , 5264 , 1200*w + 1344 , -33758*w - 22638 ],
[ 8894*w - 6678 , -76*w - 7042 , 21138*w - 41902 , -20922*w + 40502 , 288*w - 224 , -1486*w + 1806 , 1836*w - 10668 , 960*w + 896
, -584*w + 3192 , -1200*w + 1344 , 2464 , -3566*w - 59738 ],
[ -498280*w - 59234 , -3917*w + 528143 , -1419971*w + 2440879 , 1427377*w - 2439017 , -3060*w - 2086 , 51326*w - 448 , -54622*w +
    261450 , -26360*w - 36890 , 18480*w - 80570 , 33758*w - 22638 , 3566*w - 59738 , 3227644 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 277 ***/
Grammatrix:=Matrix(S,[
[ 2302244 , 17530*w + 822836 , 2992*w - 30520 , -17987*w + 67823 , 14351*w - 13489 , -120355*w + 51779 , 68889*w - 130459 ,
    34980*w + 228998 , 6874*w + 261940 , -158916*w - 427868 , 110572*w - 110880 , -421020*w - 742840 ],
[ -17530*w + 822836 , 300440 , 2294*w - 8526 , -6980*w + 24388 , 6326*w - 3136 , -43694*w + 13664 , 25494*w - 43540 , 11744*w +
    82824 , 1474*w + 94234 , -55424*w - 157696 , 40104*w - 36876 , -147304*w - 275814 ],
[ -2992*w - 30520 , -2294*w - 8526 , 5082 , -1742*w - 2226 , -758*w + 2170 , -1158*w - 868 , 514*w + 532 , 560*w + 420 , 516*w +
    532 , -1192*w + 1064 , 56*w - 1736 , 86*w + 994 ],
[ 17987*w + 67823 , 6980*w + 24388 , 1742*w - 2226 , 16646 , 1164*w + 4858 , -2150*w + 24500 , -614*w - 16884 , 5020*w + 1512 ,
    5160*w + 5320 , -11920*w + 10640 , 560*w - 17360 , -26681*w + 26145 ],
[ -14351*w - 13489 , -6326*w - 3136 , 758*w + 2170 , -1164*w + 4858 , 6342 , -134*w - 756 , 460*w - 112 , -754*w + 2786 , -1152*w
    - 1512 , 2628*w - 2898 , -126*w + 3906 , 1071*w - 12943 ],
[ 120355*w + 51779 , 43694*w + 13664 , 1158*w - 868 , 2150*w + 24500 , 134*w - 756 , 77714 , -8140*w - 45318 , 18768*w - 18886 ,
    21846*w + 4774 , -40048*w + 79226 , -5698*w - 67298 , -65996*w + 190078 ],
[ -68889*w - 130459 , -25494*w - 43540 , -514*w + 532 , 614*w - 16884 , -460*w - 112 , 8140*w - 45318 , 33488 , -13254*w - 5446 ,
-11972*w - 19012 , 31544*w - 14756 , -4004*w + 42812 , 60934*w - 61222 ],
[ -34980*w + 228998 , -11744*w + 82824 , -560*w + 420 , -5020*w + 1512 , 754*w + 2786 , -18768*w - 18886 , 13254*w - 5446 , 44296
, -6910*w + 35826 , -8968*w - 91182 , 18102*w + 8022 , -36690*w - 165102 ],
[ -6874*w + 261940 , -1474*w + 94234 , -516*w + 532 , -5160*w + 5320 , 1152*w - 1512 , -21846*w + 4774 , 11972*w - 19012 , 6910*w
    + 35826 , 48552 , -27572*w - 81592 , 20664*w - 17192 , -62015*w - 121513 ],
[ 158916*w - 427868 , 55424*w - 157696 , 1192*w + 1064 , 11920*w + 10640 , -2628*w - 2898 , 40048*w + 79226 , -31544*w - 14756 ,
    8968*w - 91182 , 27572*w - 81592 , 247884 , -44618*w - 53354 , 37582*w + 456470 ],
[ -110572*w - 110880 , -40104*w - 36876 , -56*w - 1736 , -560*w - 17360 , 126*w + 3906 , 5698*w - 67298 , 4004*w + 42812 ,
    -18102*w + 8022 , -20664*w - 17192 , 44618*w - 53354 , 67760 , 74112*w - 144046 ],
[ 421020*w - 742840 , 147304*w - 275814 , -86*w + 994 , 26681*w + 26145 , -1071*w - 12943 , 65996*w + 190078 , -60934*w - 61222 ,
36690*w - 165102 , 62015*w - 121513 , -37582*w + 456470 , -74112*w - 144046 , 965356 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 278 ***/
Grammatrix:=Matrix(S,[
[ 1346713396 , -111962506*w + 699280232 , 14667272*w - 53351410 , 6946562*w - 22112888 , -3637718*w - 19411098 , -30916756*w -
    1237432 , -108267156*w + 251161414 , -47391482*w + 177252390 , 11049794*w + 9102142 , -17746734*w - 29624378 , -14613032*w +
    129885042 , -306478846*w - 291019512 ],
[ 111962506*w + 699280232 , 517298950 , 1872556*w - 40883374 , 1110012*w - 19661978 , -4743062*w - 9042558 , -18955713*w +
    27993385 , -32614040*w + 252632086 , -5347278*w + 151517744 , 7920121*w - 4758817 , -14719800*w - 1519462 , 8351800*w +
    92540658 , -164798670*w + 80974278 ],
[ -14667272*w - 53351410 , -1872556*w - 40883374 , 6054146 , -68812*w + 2650998 , 672370*w + 822780 , 2515147*w - 4249231 ,
    3594246*w - 35722750 , 185236*w - 21057316 , -1077857*w + 870387 , 2043432*w - 174622 , -1501172*w - 12594190 , 16911670*w -
    19516840 ],
[ -6946562*w - 22112888 , -1110012*w - 19661978 , 68812*w + 2650998 , 1316952 , 370578*w + 403256 , 1261738*w - 2658222 ,
    1108662*w - 19644044 , -384588*w - 11259108 , -552386*w + 648172 , 1086576*w - 437920 , -1104774*w - 6472620 , 6732592*w -
    11830532 ],
[ 3637718*w - 19411098 , 4743062*w - 9042558 , -672370*w + 822780 , -370578*w + 403256 , 1009638 , 1292194*w + 2043118 , 6860640*w
    - 4164748 , 3580632*w - 4768736 , -409950*w - 1051820 , 524960*w + 2370480 , 1762650*w - 4825240 , 5217678*w + 8364146 ],
[ 30916756*w - 1237432 , 18955713*w + 27993385 , -2515147*w - 4249231 , -1261738*w - 2658222 , -1292194*w + 2043118 , 17549168 ,
    21502582*w + 58330328 , 14884906*w + 24423070 , 520926*w - 6456506 , -2119432*w + 10655624 , 10871490*w + 6200068 , -190243*w
    + 65407755 ],
[ 108267156*w + 251161414 , 32614040*w + 252632086 , -3594246*w - 35722750 , -1108662*w - 19644044 , -6860640*w - 4164748 ,
    -21502582*w + 58330328 , 379182524 , 19601462*w + 209416802 , 9689566*w - 17034570 , -20176118*w + 17235498 , 28580406*w +
    114315866 , -79649348*w + 223117664 ],
[ 47391482*w + 177252390 , 5347278*w + 151517744 , -185236*w - 21057316 , 384588*w - 11259108 , -3580632*w - 4768736 , -14884906*w
    + 24423070 , -19601462*w + 209416802 , 122761926 , 6235026*w - 5900608 , -12037094*w + 2211034 , 9870532*w + 73500000 ,
    -55504602*w + 95456942 ],
[ -11049794*w + 9102142 , -7920121*w - 4758817 , 1077857*w + 870387 , 552386*w + 648172 , 409950*w - 1051820 , -520926*w - 6456506
, -9689566*w - 17034570 , -6235026*w - 5900608 , 2504390 , 467560*w - 4390008 , -4211858*w - 29638 , -2399877*w - 24146535 ],
[ 17746734*w - 29624378 , 14719800*w - 1519462 , -2043432*w - 174622 , -1086576*w - 437920 , -524960*w + 2370480 , 2119432*w +
    10655624 , 20176118*w + 17235498 , 12037094*w + 2211034 , -467560*w - 4390008 , 8308944 , 7391126*w - 5454470 , 8531632*w +
    39143594 ],
[ 14613032*w + 129885042 , -8351800*w + 92540658 , 1501172*w - 12594190 , 1104774*w - 6472620 , -1762650*w - 4825240 , -10871490*w
    + 6200068 , -28580406*w + 114315866 , -9870532*w + 73500000 , 4211858*w - 29638 , -7391126*w - 5454470 , 49603708 ,
    -40386610*w + 27306272 ],
[ 306478846*w - 291019512 , 164798670*w + 80974278 , -16911670*w - 19516840 , -6732592*w - 11830532 , -5217678*w + 8364146 ,
    190243*w + 65407755 , 79649348*w + 223117664 , 55504602*w + 95456942 , 2399877*w - 24146535 , -8531632*w + 39143594 ,
    40386610*w + 27306272 , 635211136 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 279 ***/
Grammatrix:=Matrix(S,[
[ 11063976 , 278360*w - 1007440 , -5356354*w + 133700560 , -1817888*w - 30387980 , -9468876*w + 6559140 , -1448010*w + 954982 ,
    -1971566*w - 4928658 , 79488*w + 545692 , -1056452*w - 996856 , -32944*w + 492688 , -67384*w - 3045896 , 4922944*w + 24801490
],
[ -278360*w - 1007440 , 224140 , -2832904*w - 15157352 , 956328*w + 2958592 , 888820*w - 2436140 , 139246*w - 372414 , 466716*w +
    285698 , -28838*w - 60508 , 196226*w - 120876 , -12966*w - 82418 , 121856*w + 440524 , -1200508*w - 1802010 ],
[ 5356354*w + 133700560 , 2832904*w - 15157352 , 1698630150 , -37602266*w - 378840742 , -116059000*w + 116166050 , -17820735*w +
    17379439 , -31521843*w - 53264463 , 1551650*w + 6835892 , -15213440*w - 5531148 , 72734*w + 6842458 , -4105564*w - 40269880 ,
75674912*w + 292626278 ],
[ 1817888*w - 30387980 , -956328*w + 2958592 , 37602266*w - 378840742 , 90849724 , 28422866*w - 7752514 , 4353903*w - 1112307 ,
    6329587*w + 15448545 , -243282*w - 1728426 , 3333034*w + 2796416 , 84584*w - 1544494 , 328692*w + 9456944 , -10459334*w -
    76258434 ],
[ 9468876*w + 6559140 , -888820*w - 2436140 , 116059000*w + 116166050 , -28422866*w - 7752514 , 64302728 , -33778*w + 9855748 ,
    -6008302*w + 12101278 , 596268*w - 313096 , -1437462*w + 7276668 , 496804*w + 430696 , -3175508*w - 685356 , 25286292*w -
    16258816 ],
[ 1448010*w + 954982 , -139246*w - 372414 , 17820735*w + 17379439 , -4353903*w - 1112307 , 33778*w + 9855748 , 1512462 , -939531*w
    + 1958985 , 93970*w - 53522 , -218434*w + 1167208 , 79315*w + 63819 , -504328*w - 79618 , 3867348*w - 2613492 ],
[ 1971566*w - 4928658 , -466716*w + 285698 , 31521843*w - 53264463 , -6329587*w + 15448545 , 6008302*w + 12101278 , 939531*w +
    1958985 , 16963954 , 232054*w - 1131438 , 1373608*w + 6345892 , 359169*w - 762363 , -1701828*w + 5923134 , 2376784*w -
    22613710 ],
[ -79488*w + 545692 , 28838*w - 60508 , -1551650*w + 6835892 , 243282*w - 1728426 , -596268*w - 313096 , -93970*w - 53522 ,
    -232054*w - 1131438 , 100002 , -177954*w - 291984 , -13598*w + 85218 , 33030*w - 557354 , 128346*w + 1823248 ],
[ 1056452*w - 996856 , -196226*w - 120876 , 15213440*w - 5531148 , -3333034*w + 2796416 , 1437462*w + 7276668 , 218434*w + 1167208
, -1373608*w + 6345892 , 177954*w - 291984 , 3168704 , 196994*w - 82124 , -1121694*w + 1258418 , 2440564*w - 7475412 ],
[ 32944*w + 492688 , 12966*w - 82418 , -72734*w + 6842458 , -84584*w - 1544494 , -496804*w + 430696 , -79315*w + 63819 , -359169*w
    - 762363 , 13598*w + 85218 , -196994*w - 82124 , 87878 , -49148*w - 520828 , 400414*w + 1274896 ],
[ 67384*w - 3045896 , -121856*w + 440524 , 4105564*w - 40269880 , -328692*w + 9456944 , 3175508*w - 685356 , 504328*w - 79618 ,
    1701828*w + 5923134 , -33030*w - 557354 , 1121694*w + 1258418 , 49148*w - 520828 , 3279584 , -1686512*w - 9086448 ],
[ -4922944*w + 24801490 , 1200508*w - 1802010 , -75674912*w + 292626278 , 10459334*w - 76258434 , -25286292*w - 16258816 ,
    -3867348*w - 2613492 , -2376784*w - 22613710 , -128346*w + 1823248 , -2440564*w - 7475412 , -400414*w + 1274896 , 1686512*w -
    9086448 , 75615218 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 280 ***/
Grammatrix:=Matrix(S,[
[ 189390012 , -1243796*w + 43931958 , 1265968*w + 2952334 , 4718448*w - 5868688 , -5427*w - 53921 , 636144*w - 581924 , -2159150*w
    - 6224260 , -707667*w + 119553 , 7359486*w - 8484168 , 1932941*w - 4751257 , 2620672*w + 8914486 , -10557181*w - 41375943 ],
[ 1243796*w + 43931958 , 10411170 , 293372*w + 368914 , 1020436*w - 1535926 , 893*w - 37079 , 138376*w - 163576 , -493252*w -
    1298976 , -154485*w + 36057 , 1588728*w - 2005752 , 410019*w - 1079967 , 600048*w + 1901214 , -2721251*w - 8755159 ],
[ -1265968*w + 2952334 , -293372*w + 368914 , 714686 , 166464*w + 203126 , -4368*w + 35574 , 20142*w + 35952 , -13662*w - 341544 ,
-33036*w - 34020 , 348840*w + 54180 , 110160*w - 83160 , 35100*w + 480060 , 231910*w - 1539902 ],
[ -4718448*w - 5868688 , -1020436*w - 1535926 , -166464*w + 203126 , 2815260 , -5020*w - 34608 , -28620*w + 357126 , 830388*w -
    905520 , 5822*w - 504084 , 372832*w + 5344052 , 333632*w + 1550472 , -989732*w + 1196412 , 2118214*w + 554400 ],
[ 5427*w - 53921 , -893*w - 37079 , 4368*w + 35574 , 5020*w - 34608 , 4760 , 1204*w - 3486 , -17332*w + 5236 , -1078*w + 10080 ,
    2268*w - 108528 , -3720*w - 34272 , 21336*w - 10920 , -13568*w - 58184 ],
[ -636144*w - 581924 , -138376*w - 163576 , -20142*w + 35952 , 28620*w + 357126 , -1204*w - 3486 , 48076 , 93384*w - 181258 ,
    -5250*w - 62258 , 107304*w + 631274 , 59024*w + 165144 , -108814*w + 227234 , 281272*w - 56896 ],
[ 2159150*w - 6224260 , 493252*w - 1298976 , 13662*w - 341544 , -830388*w - 905520 , 17332*w + 5236 , -93384*w - 181258 , 2212560
, 169818*w + 173992 , -1877722*w - 869904 , -617364*w + 265650 , -72842*w - 2661274 , -849652*w + 3605294 ],
[ 707667*w + 119553 , 154485*w + 36057 , 33036*w - 34020 , -5822*w - 504084 , 1078*w + 10080 , 5250*w - 62258 , -169818*w + 173992
, 110208 , -89724*w - 1102472 , -72696*w - 315882 , 202050*w - 263886 , -323586*w - 62188 ],
[ -7359486*w - 8484168 , -1588728*w - 2005752 , -348840*w + 54180 , -372832*w + 5344052 , -2268*w - 108528 , -107304*w + 631274 ,
1877722*w - 869904 , 89724*w - 1102472 , 11720884 , 477632*w + 3631418 , -2272606*w + 1511762 , 3489164*w + 2872562 ],
[ -1932941*w - 4751257 , -410019*w - 1079967 , -110160*w - 83160 , -333632*w + 1550472 , 3720*w - 34272 , -59024*w + 165144 ,
    617364*w + 265650 , 72696*w - 315882 , -477632*w + 3631418 , 1261358 , -765724*w - 179900 , 965322*w + 1889790 ],
[ -2620672*w + 8914486 , -600048*w + 1901214 , -35100*w + 480060 , 989732*w + 1196412 , -21336*w - 10920 , 108814*w + 227234 ,
    72842*w - 2661274 , -202050*w - 263886 , 2272606*w + 1511762 , 765724*w - 179900 , 3279584 , 1009946*w - 4381118 ],
[ 10557181*w - 41375943 , 2721251*w - 8755159 , -231910*w - 1539902 , -2118214*w + 554400 , 13568*w - 58184 , -281272*w - 56896 ,
849652*w + 3605294 , 323586*w - 62188 , -3489164*w + 2872562 , -965322*w + 1889790 , -1009946*w - 4381118 , 16568846 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 432 );
/***Gitter Nr. 281 ***/
Grammatrix:=Matrix(S,[
[ 737352 , -45212*w - 112952 , 48269*w - 212989 , -64253*w - 447391 , 211667*w - 374843 , -877*w + 4305 , 102562*w - 140616 ,
    -10343*w + 384265 , 60939*w + 185185 , 190288*w + 56784 , 60796*w - 251594 , -486487*w + 932505 ],
[ 45212*w - 112952 , 94416 , -23689*w - 43883 , -58719*w + 45955 , -69329*w - 161665 , 1317*w - 1309 , -28028*w - 77154 , 54643*w
    - 13489 , 21997*w - 71533 , -4174*w - 189532 , -39020*w - 43456 , 282265*w + 292271 ],
[ -48269*w - 212989 , 23689*w - 43883 , 201180 , 84083*w + 437437 , -127405*w + 327243 , -461*w - 1813 , -63278*w + 119434 ,
    -17195*w - 206339 , -41147*w - 74627 , -102572*w + 39536 , -18650*w + 153440 , -56825*w - 941549 ],
[ 64253*w - 447391 , 58719*w + 45955 , -84083*w + 437437 , 1968246 , -643346*w + 485716 , -802*w - 7154 , -289892*w + 84280 ,
    133580*w - 668290 , -47278*w - 468482 , -321122*w - 532952 , -189726*w + 309456 , 308384*w - 2002798 ],
[ -211667*w - 374843 , 69329*w - 161665 , 127405*w + 327243 , 643346*w + 485716 , 2457350 , -6494*w - 8302 , -44988*w + 1076530 ,
-254242*w - 775320 , -252784*w - 66626 , -415716*w + 839944 , 58912*w + 799428 , -671752*w - 2344762 ],
[ 877*w + 4305 , -1317*w - 1309 , 461*w - 1813 , 802*w - 7154 , 6494*w - 8302 , 504 , 2934*w - 3360 , -2738*w + 12026 , 910*w +
    8666 , 5890*w + 9800 , 3502*w - 5712 , -7138*w + 30646 ],
[ -102562*w - 140616 , 28028*w - 77154 , 63278*w + 119434 , 289892*w + 84280 , 44988*w + 1076530 , -2934*w - 3360 , 480662 ,
    -125736*w - 308420 , -112376*w + 2702 , -167604*w + 422072 , 40376*w + 344092 , -325330*w - 939680 ],
[ 10343*w + 384265 , -54643*w - 13489 , 17195*w - 206339 , -133580*w - 668290 , 254242*w - 775320 , 2738*w + 12026 , 125736*w -
    308420 , 677348 , 117454*w + 302386 , 336620*w + 28028 , 93302*w - 464618 , -124278*w + 1464428 ],
[ -60939*w + 185185 , -21997*w - 71533 , 41147*w - 74627 , 47278*w - 468482 , 252784*w - 66626 , -910*w + 8666 , 112376*w + 2702 ,
-117454*w + 302386 , 278782 , 146046*w + 422394 , 122662*w - 94598 , -302758*w + 515382 ],
[ -190288*w + 56784 , 4174*w - 189532 , 102572*w + 39536 , 321122*w - 532952 , 415716*w + 839944 , -5890*w + 9800 , 167604*w +
    422072 , -336620*w + 28028 , -146046*w + 422394 , 1175832 , 235454*w + 306502 , -732120*w - 337078 ],
[ -60796*w - 251594 , 39020*w - 43456 , 18650*w + 153440 , 189726*w + 309456 , -58912*w + 799428 , -3502*w - 5712 , -40376*w +
    344092 , -93302*w - 464618 , -122662*w - 94598 , -235454*w + 306502 , 409948 , -122922*w - 1111740 ],
[ 486487*w + 932505 , -282265*w + 292271 , 56825*w - 941549 , -308384*w - 2002798 , 671752*w - 2344762 , 7138*w + 30646 , 325330*w
    - 939680 , 124278*w + 1464428 , 302758*w + 515382 , 732120*w - 337078 , 122922*w - 1111740 , 7843570 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 282 ***/
Grammatrix:=Matrix(S,[
[ 5252475928 , -1012280043*w + 7422899799 , -703705095*w + 5899112695 , 133020649*w - 828643025 , -8792652*w - 4365662 , 7244844*w
    - 70652876 , 778154*w - 38909654 , 9094976*w - 10701866 , -15501527*w + 64403801 , 5850207*w + 1086183 , -10196833*w + 40341 ,
-1222962404*w - 4927565244 ],
[ 1012280043*w + 7422899799 , 11863981640 , 142145863*w + 9292143483 , 28192349*w - 1347754905 , -13087946*w + 4786922 ,
    -2455573*w - 109242875 , -5907445*w - 56131467 , 10982536*w - 26592370 , -10448079*w + 110814123 , 8494591*w - 5795139 ,
    -14460995*w + 12849025 , -2680186208*w - 5314823766 ],
[ 703705095*w + 5899112695 , -142145863*w + 9292143483 , 7290139178 , 38417294*w - 1053715768 , -10336704*w + 2709112 , -734222*w
    - 86149168 , -4034060*w - 44630824 , 8939369*w - 20060621 , -9463845*w + 86373245 , 6748493*w - 3892455 , -11522569*w +
    8973013 , -2035343833*w - 4387735261 ],
[ -133020649*w - 828643025 , -28192349*w - 1347754905 , -38417294*w - 1053715768 , 155987580 , 1506580*w - 1301258 , 1181517*w +
    12515363 , 1143045*w + 6182575 , -1050051*w + 3668035 , 316574*w - 13323002 , -928790*w + 1141504 , 1558226*w - 2280236 ,
    316940904*w + 560962528 ],
[ 8792652*w - 4365662 , 13087946*w + 4786922 , 10336704*w + 2709112 , -1506580*w - 1301258 , 293804 , -267446*w - 31710 ,
    -138638*w + 60928 , -61550*w - 192192 , 264608*w + 201824 , -12328*w - 144872 , 28040*w + 245896 , -6932842*w + 18103988 ],
[ -7244844*w - 70652876 , 2455573*w - 109242875 , 734222*w - 86149168 , -1181517*w + 12515363 , 267446*w - 31710 , 2249044 ,
    89360*w + 1166032 , -223390*w + 512848 , 232016*w - 2186912 , -170186*w + 105126 , 288770*w - 235998 , 23093159*w + 52642401
],
[ -778154*w - 38909654 , 5907445*w - 56131467 , 4034060*w - 44630824 , -1143045*w + 6182575 , 138638*w + 60928 , -89360*w +
    1166032 , 630588 , -136276*w + 201124 , 208980*w - 1063748 , -92152*w + 5768 , 158772*w - 39340 , 9789569*w + 34263887 ],
[ -9094976*w - 10701866 , -10982536*w - 26592370 , -8939369*w - 20060621 , 1050051*w + 3668035 , 61550*w - 192192 , 223390*w +
    512848 , 136276*w + 201124 , 282996 , -171120*w - 684936 , -29684*w + 148092 , 44112*w - 265888 , 10799823*w - 5169003 ],
[ 15501527*w + 64403801 , 10448079*w + 110814123 , 9463845*w + 86373245 , -316574*w - 13323002 , -264608*w + 201824 , -232016*w -
    2186912 , -208980*w - 1063748 , 171120*w - 684936 , 2382520 , 161396*w - 232764 , -267600*w + 456736 , -29231718*w - 33273282
],
[ -5850207*w + 1086183 , -8494591*w - 5795139 , -6748493*w - 3892455 , 928790*w + 1141504 , 12328*w - 144872 , 170186*w + 105126 ,
92152*w + 5768 , 29684*w + 148092 , -161396*w - 232764 , 99344 , -4832*w - 171584 , 5077222*w - 10594780 ],
[ 10196833*w + 40341 , 14460995*w + 12849025 , 11522569*w + 8973013 , -1558226*w - 2280236 , -28040*w + 245896 , -288770*w -
    235998 , -158772*w - 39340 , -44112*w - 265888 , 267600*w + 456736 , 4832*w - 171584 , 298144 , -9305980*w + 16706802 ],
[ 1222962404*w - 4927565244 , 2680186208*w - 5314823766 , 2035343833*w - 4387735261 , -316940904*w + 560962528 , 6932842*w +
    18103988 , -23093159*w + 52642401 , -9789569*w + 34263887 , -10799823*w - 5169003 , 29231718*w - 33273282 , -5077222*w -
    10594780 , 9305980*w + 16706802 , 6620714856 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 283 ***/
Grammatrix:=Matrix(S,[
[ 5116608 , -377020*w + 18004 , -110237*w + 261905 , -10729*w - 150045 , -18954*w - 47768 , -11367*w + 30695 , -95116*w - 111286 ,
85595*w - 32249 , 19298*w + 219856 , 39609*w + 93639 , -2596*w - 13818 , -610002*w - 3218726 ],
[ 377020*w + 18004 , 417354 , 6039*w + 224763 , 13490*w + 72702 , 443*w + 46599 , 1422*w - 2058 , -1405*w + 88711 , -20587*w -
    70077 , 23391*w - 55041 , 4597*w - 50547 , -1140*w + 4634 , -311334*w + 246358 ],
[ 110237*w + 261905 , -6039*w + 224763 , 161966 , 18494*w + 40572 , 3098*w + 28798 , -1018*w - 3374 , 2560*w + 37184 , -13510*w -
    27230 , 8324*w - 32340 , 54*w - 24906 , -230*w + 2506 , -156181*w - 91021 ],
[ 10729*w - 150045 , -13490*w + 72702 , -18494*w + 40572 , 74018 , -2598*w + 26642 , 1106*w - 7280 , 7038*w + 28364 , -12392*w -
    24192 , 6992*w - 30688 , -388*w - 22820 , -144*w + 2352 , 64*w + 12404 ],
[ 18954*w - 47768 , -443*w + 46599 , -3098*w + 28798 , 2598*w + 26642 , 11508 , 210*w - 2758 , 3774*w + 12992 , -6200*w - 9184 ,
    2492*w - 14756 , -608*w - 10192 , 2*w + 1106 , -15311*w + 20125 ],
[ 11367*w + 30695 , -1422*w - 2058 , 1018*w - 3374 , -1106*w - 7280 , -210*w - 2758 , 1638 , -2724*w - 2590 , 2398*w + 378 , 454*w
    + 5432 , 860*w + 2380 , -98*w - 434 , -9806*w - 2870 ],
[ 95116*w - 111286 , 1405*w + 88711 , -2560*w + 37184 , -7038*w + 28364 , -3774*w + 12992 , 2724*w - 2590 , 53074 , -5916*w -
    39774 , 11334*w - 21672 , 3276*w - 20244 , -716*w + 2772 , -48455*w + 138257 ],
[ -85595*w - 32249 , 20587*w - 70077 , 13510*w - 27230 , 12392*w - 24192 , 6200*w - 9184 , -2398*w + 378 , 5916*w - 39774 , 43274
, -13842*w + 4088 , -6904*w + 14616 , 856*w - 1400 , 54243*w - 15505 ],
[ -19298*w + 219856 , -23391*w - 55041 , -8324*w - 32340 , -6992*w - 30688 , -2492*w - 14756 , -454*w + 5432 , -11334*w - 21672 ,
13842*w + 4088 , 34258 , 4552*w + 17640 , -248*w - 2296 , -1885*w - 149037 ],
[ -39609*w + 93639 , -4597*w - 50547 , -54*w - 24906 , 388*w - 22820 , 608*w - 10192 , -860*w + 2380 , -3276*w - 20244 , 6904*w +
    14616 , -4552*w + 17640 , 13552 , 144*w - 1344 , 19497*w - 76013 ],
[ 2596*w - 13818 , 1140*w + 4634 , 230*w + 2506 , 144*w + 2352 , -2*w + 1106 , 98*w - 434 , 716*w + 2772 , -856*w - 1400 , 248*w -
    2296 , -144*w - 1344 , 224 , -438*w + 10220 ],
[ 610002*w - 3218726 , 311334*w + 246358 , 156181*w - 91021 , -64*w + 12404 , 15311*w + 20125 , 9806*w - 2870 , 48455*w + 138257 ,
-54243*w - 15505 , 1885*w - 149037 , -19497*w - 76013 , 438*w + 10220 , 2742950 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 284 ***/
Grammatrix:=Matrix(S,[
[ 7041496 , -270838*w + 6570690 , 231320*w + 318192 , 160129*w + 80885 , 32853*w - 42231 , -15034*w - 358204 , -633988*w - 1136996
, 871301*w - 4461387 , 2417*w - 818461 , -1273816*w - 4426268 , 1272416*w - 583898 , 326071*w - 1522493 ],
[ 270838*w + 6570690 , 8281882 , 266956*w + 462098 , 191720*w - 36694 , 40968*w - 78680 , -11548*w - 322336 , -548692*w - 794192 ,
548642*w - 3862628 , -28108*w - 655620 , -1186218*w - 3252466 , 1005582*w - 790426 , -328796*w - 3055024 ],
[ -231320*w + 318192 , -266956*w + 462098 , 140812 , 6553*w + 50365 , 6999*w + 3689 , 19129*w - 16485 , 35362*w - 194894 ,
    202536*w + 133490 , 30751*w - 20447 , 140022*w - 454412 , 54078*w + 330246 , 78843*w - 250523 ],
[ -160129*w + 80885 , -191720*w - 36694 , -6553*w + 50365 , 80374 , 2880*w + 18326 , 7556*w - 16086 , -12994*w - 179480 , 165850*w
    - 183176 , 17032*w - 56392 , 7444*w - 503020 , 101552*w + 152768 , 39767*w - 131747 ],
[ -32853*w - 42231 , -40968*w - 78680 , -6999*w + 3689 , -2880*w + 18326 , 8036 , 1460*w + 3710 , 2564*w - 25704 , 27378*w + 4928
, 3800*w - 4984 , 13668*w - 68348 , 10232*w + 39032 , 12193*w - 2121 ],
[ 15034*w - 358204 , 11548*w - 322336 , -19129*w - 16485 , -7556*w - 16086 , -1460*w + 3710 , 33180 , 44406*w + 127596 , -103978*w
    + 329700 , -5906*w + 67690 , 74850*w + 430402 , -109842*w - 13874 , 12176*w + 156688 ],
[ 633988*w - 1136996 , 548692*w - 794192 , -35362*w - 194894 , 12994*w - 179480 , -2564*w - 25704 , -44406*w + 127596 , 1127014 ,
-1034788*w + 274638 , -146420*w + 242382 , -396112*w + 2901808 , -485524*w - 1393140 , -192656*w + 761418 ],
[ -871301*w - 4461387 , -548642*w - 3862628 , -202536*w + 133490 , -165850*w - 183176 , -27378*w + 4928 , 103978*w + 329700 ,
    1034788*w + 274638 , 6938834 , 202016*w + 1015322 , 2654976*w + 3239936 , -1419480*w + 2912280 , 635581*w + 1527449 ],
[ -2417*w - 818461 , 28108*w - 655620 , -30751*w - 20447 , -17032*w - 56392 , -3800*w - 4984 , 5906*w + 67690 , 146420*w + 242382
, -202016*w + 1015322 , 193606 , 298704*w + 1025248 , -295928*w + 140392 , 49243*w + 338219 ],
[ 1273816*w - 4426268 , 1186218*w - 3252466 , -140022*w - 454412 , -7444*w - 503020 , -13668*w - 68348 , -74850*w + 430402 ,
    396112*w + 2901808 , -2654976*w + 3239936 , -298704*w + 1025248 , 8687504 , -1790224*w - 2461088 , -268428*w + 2383164 ],
[ -1272416*w - 583898 , -1005582*w - 790426 , -54078*w + 330246 , -101552*w + 152768 , -10232*w + 39032 , 109842*w - 13874 ,
    485524*w - 1393140 , 1419480*w + 2912280 , 295928*w + 140392 , 1790224*w - 2461088 , 3279584 , 566814*w - 287140 ],
[ -326071*w - 1522493 , 328796*w - 3055024 , -78843*w - 250523 , -39767*w - 131747 , -12193*w - 2121 , -12176*w + 156688 ,
    192656*w + 761418 , -635581*w + 1527449 , -49243*w + 338219 , 268428*w + 2383164 , -566814*w - 287140 , 4575452 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 120 );
/***Gitter Nr. 285 ***/
Grammatrix:=Matrix(S,[
[ 7387744 , -697620*w + 4322668 , -55711*w + 452445 , 218064*w + 779254 , 30718*w + 20762 , 265210*w - 944118 , -161736*w +
    1185800 , 112192*w + 712320 , 217500*w + 103152 , 213174*w + 53508 , -103318*w + 842324 , -294899*w - 2031771 ],
[ 697620*w + 4322668 , 4847486 , 758*w + 693420 , 285670*w + 288470 , 33858*w - 7112 , 50918*w - 971684 , 62934*w + 992978 ,
    271324*w + 220052 , 146190*w - 319116 , 134980*w - 338702 , 148688*w + 666778 , -514898*w - 1322538 ],
[ 55711*w + 452445 , -758*w + 693420 , 125538 , 28192*w - 18368 , 4343*w - 8631 , -19587*w - 123249 , 29876*w + 100324 , 43817*w -
    19803 , 10375*w - 72597 , 8402*w - 72408 , 38824*w + 59696 , -88372*w - 152208 ],
[ -218064*w + 779254 , -285670*w + 288470 , -28192*w - 18368 , 444178 , -2034*w + 53018 , 167222*w + 74326 , -157842*w + 105504 ,
-35242*w + 312004 , 54120*w + 167020 , 57260*w + 153720 , -109180*w + 178080 , 172646*w - 333326 ],
[ -30718*w + 20762 , -33858*w - 7112 , -4343*w - 8631 , 2034*w + 53018 , 8008 , 22974*w + 12754 , -21044*w + 9156 , -3314*w +
    36036 , 6000*w + 18760 , 6440*w + 17360 , -12360*w + 20160 , 26969*w - 35819 ],
[ -265210*w - 944118 , -50918*w - 971684 , 19587*w - 123249 , -167222*w + 74326 , -22974*w + 12754 , 670348 , -70194*w - 608580 ,
-139386*w - 76650 , -74404*w + 172074 , -67970*w + 184884 , -84142*w - 340368 , 192571*w + 607971 ],
[ 161736*w + 1185800 , -62934*w + 992978 , -29876*w + 100324 , 157842*w + 105504 , 21044*w + 9156 , 70194*w - 608580 , 623350 ,
    112376*w + 198520 , 91256*w - 85778 , 86692*w - 103768 , 30660*w + 387800 , -107048*w - 699664 ],
[ -112192*w + 712320 , -271324*w + 220052 , -43817*w - 19803 , 35242*w + 312004 , 3314*w + 36036 , 139386*w - 76650 , -112376*w +
    198520 , 394604 , 87388*w + 121660 , 87280*w + 104496 , -91386*w + 314230 , 138207*w - 459585 ],
[ -217500*w + 103152 , -146190*w - 319116 , -10375*w - 72597 , -54120*w + 167020 , -6000*w + 18760 , 74404*w + 172074 , -91256*w -
    85778 , -87388*w + 121660 , 179326 , 4220*w + 173068 , -100994*w - 44226 , 148653*w + 40677 ],
[ -213174*w + 53508 , -134980*w - 338702 , -8402*w - 72408 , -57260*w + 153720 , -6440*w + 17360 , 67970*w + 184884 , -86692*w -
    103768 , -87280*w + 104496 , -4220*w + 173068 , 167888 , -96570*w - 59402 , 144200*w + 66584 ],
[ 103318*w + 842324 , -148688*w + 666778 , -38824*w + 59696 , 109180*w + 178080 , 12360*w + 20160 , 84142*w - 340368 , -30660*w +
    387800 , 91386*w + 314230 , 100994*w - 44226 , 96570*w - 59402 , 409948 , -12164*w - 607726 ],
[ 294899*w - 2031771 , 514898*w - 1322538 , 88372*w - 152208 , -172646*w - 333326 , -26969*w - 35819 , -192571*w + 607971 ,
    107048*w - 699664 , -138207*w - 459585 , -148653*w + 40677 , -144200*w + 66584 , 12164*w - 607726 , 1288868 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 286 ***/
Grammatrix:=Matrix(S,[
[ 83972 , -4848*w + 66584 , -8075*w + 12929 , 5962*w + 10556 , 2733*w + 9135 , -563*w + 1393 , 2087*w - 1813 , -159*w - 315 ,
    21862*w - 52472 , 21619*w - 53515 , -338*w - 280 , 1654*w + 46844 ],
[ 4848*w + 66584 , 106876 , -4967*w + 31129 , 4186*w + 2660 , -971*w - 4627 , -929*w - 931 , 3083*w - 3185 , -552*w - 2058 ,
    15113*w - 147427 , 15001*w - 150073 , -532*w - 1372 , 21448*w + 72800 ],
[ 8075*w + 12929 , 4967*w + 31129 , 18480 , 1654*w - 6468 , -448*w + 5656 , -264*w + 2758 , 256*w - 8918 , -1116*w + 420 , 2515*w
    - 55559 , 971*w - 57155 , -1160*w + 1288 , 9362*w + 22750 ],
[ -5962*w + 10556 , -4186*w + 2660 , -1654*w - 6468 , 6566 , -488*w - 1526 , -226*w - 1498 , 512*w + 4060 , 446*w - 308 , 3272*w +
    11956 , 3902*w + 12306 , 420*w - 700 , -3420*w + 84 ],
[ -2733*w + 9135 , 971*w - 4627 , 448*w + 5656 , 488*w - 1526 , 43764 , -204*w + 10962 , -1534*w - 21728 , -3038*w + 3836 , 5799*w
    + 20069 , 885*w + 17339 , -3276*w + 5460 , -5318*w - 2002 ],
[ 563*w + 1393 , 929*w - 931 , 264*w + 2758 , 226*w - 1498 , 204*w + 10962 , 2982 , -526*w - 6384 , -876*w + 1190 , 1361*w + 2415
, -81*w + 1617 , -966*w + 1610 , -802*w + 252 ],
[ -2087*w - 1813 , -3083*w - 3185 , -256*w - 8918 , -512*w + 4060 , 1534*w - 21728 , 526*w - 6384 , 22176 , 3740*w - 2688 ,
    -3275*w - 6195 , 1277*w + 693 , 3976*w - 2520 , 1658*w - 378 ],
[ 159*w - 315 , 552*w - 2058 , 1116*w + 420 , -446*w - 308 , 3038*w + 3836 , 876*w + 1190 , -3740*w - 2688 , 5180 , 2332*w - 2674
, 406*w + 1764 , -210*w + 5278 , -508*w + 2898 ],
[ -21862*w - 52472 , -15113*w - 147427 , -2515*w - 55559 , -3272*w + 11956 , -5799*w + 20069 , -1361*w + 2415 , 3275*w - 6195 ,
    -2332*w - 2674 , 289576 , -602*w + 279300 , -2510*w - 4998 , -51986*w - 104776 ],
[ -21619*w - 53515 , -15001*w - 150073 , -971*w - 57155 , -3902*w + 12306 , -885*w + 17339 , 81*w + 1617 , -1277*w + 693 , -406*w
    + 1764 , 602*w + 279300 , 278936 , -466*w + 630 , -50946*w - 100912 ],
[ 338*w - 280 , 532*w - 1372 , 1160*w + 1288 , -420*w - 700 , 3276*w + 5460 , 966*w + 1610 , -3976*w - 2520 , 210*w + 5278 ,
    2510*w - 4998 , 466*w + 630 , 6160 , -214*w + 3766 ],
[ -1654*w + 46844 , -21448*w + 72800 , -9362*w + 22750 , 3420*w + 84 , 5318*w - 2002 , 802*w + 252 , -1658*w - 378 , 508*w + 2898
, 51986*w - 104776 , 50946*w - 100912 , 214*w + 3766 , 103544 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 287 ***/
Grammatrix:=Matrix(S,[
[ 294 , -48*w + 112 , -2*w + 84 , -4*w , 0 , 0 , 0 , -20*w , 26*w , -6*w , 0 , -88*w - 238 ],
[ 48*w + 112 , 322 , 12*w , -2*w , 0 , 0 , 0 , -60*w , 78*w , -18*w , 0 , -128*w - 42 ],
[ 2*w + 84 , -12*w , 140 , 56 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 12*w - 28 ],
[ 4*w , 2*w , 56 , 84 , 28 , 48*w , -28*w , -8*w , 0 , 0 , 0 , -8*w + 28 ],
[ 0 , 0 , 0 , 28 , 140 , 72*w - 42 , 88*w , 14*w , 0 , 0 , 0 , -48*w - 56 ],
[ 0 , 0 , 0 , -48*w , -72*w - 42 , 462 , -34*w + 112 , -6*w , 0 , 0 , 0 , 30*w - 210 ],
[ 0 , 0 , 0 , 28*w , -88*w , 34*w + 112 , 728 , 140 , 0 , 0 , 0 , 48*w - 140 ],
[ 20*w , 60*w , 0 , 8*w , -14*w , 6*w , 140 , 378 , 70 , -60*w , 60*w - 210 , -104*w + 28 ],
[ -26*w , -78*w , 0 , 0 , 0 , 0 , 0 , 70 , 364 , -52*w - 70 , 52*w - 182 , -48*w - 252 ],
[ 6*w , 18*w , 0 , 0 , 0 , 0 , 0 , 60*w , 52*w - 70 , 126 , -64*w - 84 , -16*w + 210 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -60*w - 210 , -52*w - 182 , 64*w - 84 , 308 , 100*w - 84 ],
[ 88*w - 238 , 128*w - 42 , -12*w - 28 , 8*w + 28 , 48*w - 56 , -30*w - 210 , -48*w - 140 , 104*w + 28 , 48*w - 252 , 16*w + 210 ,
-100*w - 84 , 980 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 54 );
/***Gitter Nr. 288 ***/
Grammatrix:=Matrix(S,[
[ 11089478246 , 828586156*w + 9813726874 , -101329479*w - 693269017 , 6423463*w - 60848865 , 160937281*w + 12281857 , -218279473*w
    + 57837213 , 41343175*w + 35389823 , -24069238*w - 30709350 , -97335112*w - 1733326 , -49208524*w + 184107546 , 1721023*w -
    96376567 , -2240791274*w - 2466164190 ],
[ -828586156*w + 9813726874 , 9196071808 , -37763274*w - 649804610 , 7529476*w - 55619382 , 149338884*w + 30183706 , -204606359*w
    + 21917217 , 37322540*w + 37364964 , -21368202*w - 33365766 , -90497408*w - 25754778 , -52271571*w + 159284587 , 4978359*w -
    89317501 , -1814036948*w - 3332994392 ],
[ 101329479*w - 693269017 , 37763274*w - 649804610 , 53576334 , -1549930*w + 2316062 , -8083242*w - 24940006 , 12487130*w +
    28743316 , -1470914*w - 8182482 , 695819*w + 4886861 , 5123140*w + 12410440 , 5938790*w - 3481940 , -1839808*w + 4868528 ,
    114197088*w + 302353688 ],
[ -6423463*w - 60848865 , -7529476*w - 55619382 , 1549930*w + 2316062 , 1520148 , -3654322*w + 2812922 , 4627582*w - 4944954 ,
    -1006340*w + 109200 , 537522*w + 258076 , 1831430*w - 1031002 , 640844*w - 4014724 , 118028*w + 1841308 , 15596241*w + 6916623
],
[ -160937281*w + 12281857 , -149338884*w + 30183706 , 8083242*w - 24940006 , 3654322*w + 2812922 , 77257586 , -3546268*w -
    98463078 , -1654206*w + 19975452 , 1715576*w - 9245026 , 1172362*w - 33639718 , -8605548*w - 19251904 , 4790622*w + 1720446 ,
43563211*w - 258978797 ],
[ 218279473*w + 57837213 , 204606359*w + 21917217 , -12487130*w + 28743316 , -4627582*w - 4944954 , 3546268*w - 98463078 ,
    129111934 , 3179200*w - 24666796 , -2859110*w + 11787650 , -3537402*w + 46930758 , 11033750*w + 30388274 , -6636002*w -
    4254754 , -75068655*w + 329913017 ],
[ -41343175*w + 35389823 , -37322540*w + 37364964 , 1470914*w - 8182482 , 1006340*w + 109200 , 1654206*w + 19975452 , -3179200*w -
    24666796 , 5507460 , 185140*w - 2697296 , -744416*w - 8626240 , -2729356*w - 2952516 , 1244164*w - 592508 , 3978763*w -
    75390525 ],
[ 24069238*w - 30709350 , 21368202*w - 33365766 , -695819*w + 4886861 , -537522*w + 258076 , -1715576*w - 9245026 , 2859110*w +
    11787650 , -185140*w - 2697296 , 1672720 , 939080*w + 5556488 , 1980854*w + 994238 , -801164*w + 849044 , 249416*w + 46379984
],
[ 97335112*w - 1733326 , 90497408*w - 25754778 , -5123140*w + 12410440 , -1831430*w - 1031002 , -1172362*w - 33639718 , 3537402*w
    + 46930758 , 744416*w - 8626240 , -939080*w + 5556488 , 23424688 , 6364888*w + 11660488 , -3310096*w - 316400 , -25933598*w +
    153691524 ],
[ 49208524*w + 184107546 , 52271571*w + 159284587 , -5938790*w - 3481940 , -640844*w - 4014724 , 8605548*w - 19251904 ,
    -11033750*w + 30388274 , 2729356*w - 2952516 , -1980854*w + 994238 , -6364888*w + 11660488 , 17913896 , -1562088*w - 6455064 ,
-54740278*w + 27665596 ],
[ -1721023*w - 96376567 , -4978359*w - 89317501 , 1839808*w + 4868528 , -118028*w + 1841308 , -4790622*w + 1720446 , 6636002*w -
    4254754 , -1244164*w - 592508 , 801164*w + 849044 , 3310096*w - 316400 , 1562088*w - 6455064 , 3279584 , 22153375*w + 23379391
],
[ 2240791274*w - 2466164190 , 1814036948*w - 3332994392 , -114197088*w + 302353688 , -15596241*w + 6916623 , -43563211*w -
    258978797 , 75068655*w + 329913017 , -3978763*w - 75390525 , -249416*w + 46379984 , 25933598*w + 153691524 , 54740278*w +
    27665596 , -22153375*w + 23379391 , 3746979208 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 289 ***/
Grammatrix:=Matrix(S,[
[ 291662 , -1645486*w - 10405570 , 567898*w - 1145802 , 326133*w + 350091 , 129948*w - 422016 , -36253*w - 319305 , 7750*w -
    396200 , 14372*w + 23254 , -53393*w + 18893 , -146750*w + 151130 , 4568*w + 533330 , -263290*w + 425166 ],
[ 1645486*w - 10405570 , 719284188 , -31973786*w + 12559960 , -11071563*w - 46244905 , -3136092*w + 16371936 , 236019*w + 7897239
, -847348*w + 10068114 , -319336*w - 698278 , 1415965*w + 76433 , 4035994*w - 2355374 , 692424*w - 13876926 , 19042444*w +
    27157746 ],
[ -567898*w - 1145802 , 31973786*w + 12559960 , 15957662 , -2278970*w + 5050458 , -37934*w + 2866122 , 789388*w + 908726 ,
    661868*w + 1760668 , -116424*w + 92890 , 184122*w - 746074 , 335898*w - 2521372 , -999442*w - 2187402 , 732490*w - 7565432 ],
[ -326133*w + 350091 , 11071563*w - 46244905 , 2278970*w + 5050458 , 5214622 , 182364*w - 58590 , 286086*w - 279384 , 309490*w -
    94052 , -20880*w + 91392 , -36960*w - 282912 , -176448*w - 768432 , -426720*w + 218400 , -1107415*w - 4521755 ],
[ -129948*w - 422016 , 3136092*w + 16371936 , 37934*w + 2866122 , -182364*w - 58590 , 2541728 , 312824*w - 39718 , 298426*w +
    626892 , -33954*w + 92428 , 63760*w - 297808 , 76328*w - 978628 , -418000*w - 671440 , -305008*w - 259196 ],
[ 36253*w - 319305 , -236019*w + 7897239 , -789388*w + 908726 , -286086*w - 279384 , -312824*w - 39718 , 816550 , -84308*w +
    738444 , -25238*w - 90748 , 105728*w + 15680 , 320256*w - 132216 , 83664*w - 1075760 , 130999*w - 820925 ],
[ -7750*w - 396200 , 847348*w + 10068114 , -661868*w + 1760668 , -309490*w - 94052 , -298426*w + 626892 , 84308*w + 738444 ,
    849282 , -32444*w - 58366 , 114702*w - 62762 , 316318*w - 378462 , -32158*w - 1171422 , 11422*w - 1003758 ],
[ -14372*w + 23254 , 319336*w - 698278 , 116424*w + 92890 , 20880*w + 91392 , 33954*w + 92428 , 25238*w - 90748 , 32444*w - 58366
, 15904 , -10526*w - 24878 , -38094*w - 56476 , -42806*w + 95690 , -38968*w + 47208 ],
[ 53393*w + 18893 , -1415965*w + 76433 , -184122*w - 746074 , 36960*w - 282912 , -63760*w - 297808 , -105728*w + 15680 , -114702*w
    - 62762 , 10526*w - 24878 , 114030 , 27016*w + 329406 , 161140*w + 59556 , 129787*w + 72275 ],
[ 146750*w + 151130 , -4035994*w - 2355374 , -335898*w - 2521372 , 176448*w - 768432 , -76328*w - 978628 , -320256*w - 132216 ,
    -316318*w - 378462 , 38094*w - 56476 , -27016*w + 329406 , 1003772 , 454872*w + 444136 , 346316*w + 455084 ],
[ -4568*w + 533330 , -692424*w - 13876926 , 999442*w - 2187402 , 426720*w + 218400 , 418000*w - 671440 , -83664*w - 1075760 ,
    32158*w - 1171422 , 42806*w + 95690 , -161140*w + 59556 , -454872*w + 444136 , 1639792 , -56532*w + 1304114 ],
[ 263290*w + 425166 , -19042444*w + 27157746 , -732490*w - 7565432 , 1107415*w - 4521755 , 305008*w - 259196 , -130999*w - 820925
, -11422*w - 1003758 , 38968*w + 47208 , -129787*w + 72275 , -346316*w + 455084 , 56532*w + 1304114 , 8028160 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );
/***Gitter Nr. 290 ***/
Grammatrix:=Matrix(S,[
[ 2413726 , 4329*w - 24059 , -24040*w - 1970934 , 50334*w + 124670 , -57989*w - 224889 , -58228*w - 249004 , 150185*w - 113841 ,
    174482*w - 241262 , 49405*w + 25193 , 95436*w + 238812 , -94710*w + 55748 , -445736*w - 571704 ],
[ -4329*w - 24059 , 8134 , 3362*w + 23744 , -558*w - 1988 , 1002*w + 1764 , 2118*w + 4088 , -3018*w + 5362 , -2942*w + 8428 ,
    -1000*w + 378 , -2464*w - 3836 , 1920*w - 2408 , 5860*w - 448 ],
[ 24040*w - 1970934 , -3362*w + 23744 , 1621270 , -40508*w - 114338 , 50384*w + 193200 , 49328*w + 212786 , -128868*w + 85302 ,
    -148810*w + 190974 , -41372*w - 24206 , -78168*w - 205044 , 79732*w - 41748 , 361172*w + 490840 ],
[ -50334*w + 124670 , 558*w - 1988 , 40508*w - 114338 , 26754 , -3862*w - 36106 , -1812*w - 28966 , 16096*w + 16800 , 18702*w +
    10080 , 3600*w + 9072 , 2448*w + 27720 , -7344*w - 7560 , -15844*w - 89418 ],
[ 57989*w - 224889 , -1002*w + 1764 , -50384*w + 193200 , 3862*w - 36106 , 77280 , -196*w + 53578 , -22686*w - 30576 , -27866*w -
    15820 , -5400*w - 13608 , -3672*w - 41580 , 11016*w + 11340 , 36772*w + 138656 ],
[ 58228*w - 249004 , -2118*w + 4088 , -49328*w + 212786 , 1812*w - 28966 , 196*w + 53578 , 56168 , -23144*w - 30240 , -29922*w -
    14112 , -5308*w - 16212 , -4604*w - 54446 , 14484*w + 14910 , 37546*w + 140518 ],
[ -150185*w - 113841 , 3018*w + 5362 , 128868*w + 85302 , -16096*w + 16800 , 22686*w - 30576 , 23144*w - 30240 , 106330 , 9336*w +
    117894 , -4184*w + 29862 , -20680*w + 41972 , -1044*w - 50400 , 53316*w - 182952 ],
[ -174482*w - 241262 , 2942*w + 8428 , 148810*w + 190974 , -18702*w + 10080 , 27866*w - 15820 , 29922*w - 14112 , -9336*w + 117894
, 141666 , -7824*w + 30030 , -30080*w + 31864 , 5140*w - 61572 , 84528*w - 182952 ],
[ -49405*w + 25193 , 1000*w + 378 , 41372*w - 24206 , -3600*w + 9072 , 5400*w - 13608 , 5308*w - 16212 , 4184*w + 29862 , 7824*w +
    30030 , 10486 , -3592*w + 21616 , -3496*w - 14560 , 6176*w - 73276 ],
[ -95436*w + 238812 , 2464*w - 3836 , 78168*w - 205044 , -2448*w + 27720 , 3672*w - 41580 , 4604*w - 54446 , 20680*w + 41972 ,
    30080*w + 31864 , 3592*w + 21616 , 68152 , -15870*w - 27846 , -23444*w - 182910 ],
[ 94710*w + 55748 , -1920*w - 2408 , -79732*w - 41748 , 7344*w - 7560 , -11016*w + 11340 , -14484*w + 14910 , 1044*w - 50400 ,
    -5140*w - 61572 , 3496*w - 14560 , 15870*w - 27846 , 37268 , -32594*w + 113428 ],
[ 445736*w - 571704 , -5860*w - 448 , -361172*w + 490840 , 15844*w - 89418 , -36772*w + 138656 , -37546*w + 140518 , -53316*w -
    182952 , -84528*w - 182952 , -6176*w - 73276 , 23444*w - 182910 , 32594*w + 113428 , 727902 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 291 ***/
Grammatrix:=Matrix(S,[
[ 4662 , -97*w - 735 , -13*w - 273 , 75*w - 49 , -205*w + 161 , 109*w - 91 , -143*w - 35 , 185*w + 245 , 555*w - 1407 , -344*w -
    1498 , 736*w + 658 , -1057*w - 2317 ],
[ 97*w - 735 , 770 , -12*w - 98 , 160*w + 574 , -480*w - 70 , -158*w , -88*w , -30*w , -104*w + 420 , 114*w + 294 , -186*w - 42 ,
-31*w + 77 ],
[ 13*w - 273 , 12*w - 98 , 294 , -110*w - 238 , 40*w - 154 , -162*w - 56 , -58*w , 20*w , 0 , 0 , 0 , -29*w + 63 ],
[ -75*w - 49 , -160*w + 574 , 110*w - 238 , 1470 , -674*w - 1414 , -82*w + 168 , -114*w - 140 , 16*w , 0 , 0 , 0 , 95*w - 791 ],
[ 205*w + 161 , 480*w - 70 , -40*w - 154 , 674*w - 1414 , 5208 , 146*w + 1526 , 82*w + 1288 , -22*w - 252 , 0 , 0 , 0 , -739*w +
    1687 ],
[ -109*w - 91 , 158*w , 162*w - 56 , 82*w + 168 , -146*w + 1526 , 2310 , 20*w - 28 , 186*w + 588 , 1216*w + 2016 , 752*w - 2128 ,
-112*w + 3472 , 51*w - 147 ],
[ 143*w - 35 , 88*w , 58*w , 114*w - 140 , -82*w + 1288 , -20*w - 28 , 1512 , -348*w - 658 , -1154*w - 1834 , -628*w + 1862 , 98*w
    - 3038 , -467*w + 1757 ],
[ -185*w + 245 , 30*w , -20*w , -16*w , 22*w - 252 , -186*w + 588 , 348*w - 658 , 1778 , 560*w + 3920 , 1126*w - 854 , -842*w +
    2870 , 551*w - 679 ],
[ -555*w - 1407 , 104*w + 420 , 0 , 0 , 0 , -1216*w + 2016 , 1154*w - 1834 , -560*w + 3920 , 16282 , 4574*w + 2296 , -4964*w +
    6748 , 2269*w - 287 ],
[ 344*w - 1498 , -114*w + 294 , 0 , 0 , 0 , -752*w - 2128 , 628*w + 1862 , -1126*w - 854 , -4574*w + 2296 , 9492 , -2648*w - 8904
, 424*w + 4396 ],
[ -736*w + 658 , 186*w - 42 , 0 , 0 , 0 , 112*w + 3472 , -98*w - 3038 , 842*w + 2870 , 4964*w + 6748 , 2648*w - 8904 , 13552 ,
    832*w - 4998 ],
[ 1057*w - 2317 , 31*w + 77 , 29*w + 63 , -95*w - 791 , 739*w + 1687 , -51*w - 147 , 467*w + 1757 , -551*w - 679 , -2269*w - 287 ,
-424*w + 4396 , -832*w - 4998 , 5866 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );
/***Gitter Nr. 292 ***/
Grammatrix:=Matrix(S,[
[ 2968 , -132*w - 434 , -30*w + 56 , 121*w - 273 , 24*w - 42 , -186*w + 168 , -246*w , -182*w + 84 , -61*w - 105 , -42*w + 126 ,
    -198*w , 622*w + 1554 ],
[ 132*w - 434 , 462 , 4*w , -78*w , 24*w + 56 , 80*w , 88*w , 16*w , 0 , 0 , 0 , -84 ],
[ 30*w + 56 , -4*w , 42 , 18*w + 14 , -6*w - 14 , -20*w , -22*w , -4*w , 0 , 0 , 0 , 80*w - 14 ],
[ -121*w - 273 , 78*w , -18*w + 14 , 294 , -12*w - 98 , -8*w - 168 , -22*w - 84 , -4*w , 0 , 0 , 0 , 26*w + 126 ],
[ -24*w - 42 , -24*w + 56 , 6*w - 14 , 12*w - 98 , 98 , 24*w + 28 , 62*w + 28 , 16*w , 0 , 0 , 0 , -96*w - 28 ],
[ 186*w + 168 , -80*w , 20*w , 8*w - 168 , -24*w + 28 , 238 , -20*w + 280 , -6*w + 56 , 0 , 0 , 0 , 54*w - 420 ],
[ 246*w , -88*w , 22*w , 22*w - 84 , -62*w + 28 , 20*w + 280 , 602 , 574 , -42*w + 42 , 12*w + 84 , -126*w + 210 , 100*w - 714 ],
[ 182*w + 84 , -16*w , 4*w , 4*w , -16*w , 6*w + 56 , 574 , 2072 , -154*w + 224 , 74*w + 308 , -462*w + 770 , 204*w - 462 ],
[ 61*w - 105 , 0 , 0 , 0 , 0 , 0 , 42*w + 42 , 154*w + 224 , 126 , 38*w , 28*w + 364 , 12*w - 266 ],
[ 42*w + 126 , 0 , 0 , 0 , 0 , 0 , -12*w + 84 , -74*w + 308 , -38*w , 84 , -104*w + 56 , 88*w ],
[ 198*w , 0 , 0 , 0 , 0 , 0 , 126*w + 210 , 462*w + 770 , -28*w + 364 , 104*w + 56 , 1232 , 162*w - 574 ],
[ -622*w + 1554 , -84 , -80*w - 14 , -26*w + 126 , 96*w - 28 , -54*w - 420 , -100*w - 714 , -204*w - 462 , -12*w - 266 , -88*w ,
    -162*w - 574 , 3024 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 18 );
/***Gitter Nr. 293 ***/
Grammatrix:=Matrix(S,[
[ 297560481008 , 2732779379*w + 33085904565 , 2039953973*w + 19070346939 , 316642633*w + 6628247605 , 37958178*w + 1673194656 ,
    -170098202*w - 819989954 , -288951586*w + 471338364 , 39884957*w - 1560950909 , -236706166*w + 775479166 , -181019579*w +
    210973021 , -54714311*w + 658619087 , -52657149955*w - 119258430655 ],
[ -2732779379*w + 33085904565 , 3855964420 , 52423093*w + 2249428349 , -25885853*w + 757782725 , -10546849*w + 189797685 ,
    -11790504*w - 102595444 , -36641685*w + 34514179 , 18542631*w - 172268229 , -33491586*w + 71881222 , -22170681*w + 12183773 ,
-12071285*w + 70283003 , -4760211179*w - 16646494151 ],
[ -2039953973*w + 19070346939 , -52423093*w + 2249428349 , 1356214314 , -25486142*w + 437253208 , -16285922*w + 105767228 ,
    -1301246*w - 63414904 , -23157705*w + 7041881 , 19853482*w - 93855230 , -23364214*w + 29713432 , -13612663*w - 969423 ,
    -10727261*w + 36731793 , -2550799698*w - 10185117600 ],
[ -316642633*w + 6628247605 , 25885853*w + 757782725 , 25486142*w + 437253208 , 150824268 , -369043*w + 37680545 , -3256476*w -
    19406562 , -6900636*w + 9091936 , 2096493*w - 35061131 , -5939268*w + 16251970 , -4250466*w + 3791984 , -1742144*w + 14581518
, -1046637505*w - 3048487197 ],
[ -37958178*w + 1673194656 , 10546849*w + 189797685 , 16285922*w + 105767228 , 369043*w + 37680545 , 20725460 , -1766144*w -
    10406998 , -3449818*w + 5216512 , 685700*w - 18556944 , -2922590*w + 9063810 , -2174770*w + 2368030 , -722650*w + 7775670 ,
    -284428185*w - 724699437 ],
[ 170098202*w - 819989954 , 11790504*w - 102595444 , 1301246*w - 63414904 , 3256476*w - 19406562 , 1766144*w - 10406998 , 6353424
, 2200590*w - 476952 , -1980662*w + 8902712 , 2265754*w - 2750398 , 1300754*w + 154882 , 1049478*w - 3457034 , 78045330*w +
    545223308 ],
[ 288951586*w + 471338364 , 36641685*w + 34514179 , 23157705*w + 7041881 , 6900636*w + 9091936 , 3449818*w + 5216512 , -2200590*w
    - 476952 , 5694248 , -3057464*w - 5868940 , 783240*w + 6034392 , -179844*w + 3314892 , 1166524*w + 3012716 , -201572929*w +
    171282545 ],
[ -39884957*w - 1560950909 , -18542631*w - 172268229 , -19853482*w - 93855230 , -2096493*w - 35061131 , -685700*w - 18556944 ,
    1980662*w + 8902712 , 3057464*w - 5868940 , 17616060 , 2443640*w - 9213624 , 1971880*w - 2758840 , 413056*w - 7519456 ,
    295903085*w + 582648717 ],
[ 236706166*w + 775479166 , 33491586*w + 71881222 , 23364214*w + 29713432 , 5939268*w + 16251970 , 2922590*w + 9063810 ,
    -2265754*w - 2750398 , -783240*w + 6034392 , -2443640*w - 9213624 , 7193760 , -648276*w + 3358796 , 827776*w + 4333392 ,
    -234928630*w - 17371158 ],
[ 181019579*w + 210973021 , 22170681*w + 12183773 , 13612663*w - 969423 , 4250466*w + 3791984 , 2174770*w + 2368030 , -1300754*w +
    154882 , 179844*w + 3314892 , -1971880*w - 2758840 , 648276*w + 3358796 , 1978256 , 777536*w + 1501920 , -111188131*w +
    141552705 ],
[ 54714311*w + 658619087 , 12071285*w + 70283003 , 10727261*w + 36731793 , 1742144*w + 14581518 , 722650*w + 7775670 , -1049478*w
    - 3457034 , -1166524*w + 3012716 , -413056*w - 7519456 , -827776*w + 4333392 , -777536*w + 1501920 , 3279584 , -140203815*w -
    198355465 ],
[ 52657149955*w - 119258430655 , 4760211179*w - 16646494151 , 2550799698*w - 10185117600 , 1046637505*w - 3048487197 , 284428185*w
    - 724699437 , -78045330*w + 545223308 , 201572929*w + 171282545 , -295903085*w + 582648717 , 234928630*w - 17371158 ,
    111188131*w + 141552705 , 140203815*w - 198355465 , 113041559106 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );
/***Gitter Nr. 294 ***/
Grammatrix:=Matrix(S,[
[ 566236160 , 3693118*w + 446446 , 1384954*w - 201720526 , -18891486*w - 9369248 , -3280132*w - 1471988 , -4363198*w - 4465174 ,
    3233986*w + 6346760 , 509418*w + 29935262 , -7210032*w - 19589696 , 14510170*w + 7704536 , -5405748*w + 22445948 , -30472922*w
    - 148031814 ],
[ -3693118*w + 446446 , 229502 , 1312248*w - 42672 , 109460*w - 960470 , 17483*w - 163793 , 33755*w - 225561 , -50251*w + 177681 ,
-196424*w + 136864 , 103632*w - 412944 , 4112*w + 708848 , -170848*w - 167104 , 907085*w - 1511923 ],
[ -1384954*w - 201720526 , -1312248*w - 42672 , 72007740 , 6815552*w + 2796948 , 1182496*w + 425656 , 1578044*w + 1453788 ,
    -1193238*w - 2165492 , -336716*w - 10431876 , 2627284*w + 6587434 , -5117850*w - 2152990 , 1771560*w - 8055236 , 11281170*w +
    52022166 ],
[ 18891486*w - 9369248 , -109460*w - 960470 , -6815552*w + 2796948 , 5473342 , 3005*w + 949445 , -54173*w + 1261071 , 154755*w -
    1078945 , 847974*w - 1235892 , -310548*w + 2224866 , -316866*w - 3290574 , 865980*w + 276528 , -4315645*w + 9798117 ],
[ 3280132*w - 1471988 , -17483*w - 163793 , -1182496*w + 425656 , -3005*w + 949445 , 166418 , -10676*w + 218722 , 28313*w - 183393
, 155494*w - 211750 , -60509*w + 394065 , -49643*w - 595371 , 154780*w + 62874 , -767227*w + 1678439 ],
[ 4363198*w - 4465174 , -33755*w - 225561 , -1578044*w + 1453788 , 54173*w + 1261071 , 10676*w + 218722 , 330036 , 38335*w -
    284977 , 268734*w - 579306 , -57187*w + 816417 , -183375*w - 1089417 , 305868*w - 40278 , -926337*w + 3119193 ],
[ -3233986*w + 6346760 , 50251*w + 177681 , 1193238*w - 2165492 , -154755*w - 1078945 , -28313*w - 183393 , -38335*w - 284977 ,
    301840 , -92290*w + 802914 , -109491*w - 707357 , 348103*w + 599753 , -228960*w + 436226 , 397246*w - 3246152 ],
[ -509418*w + 29935262 , 196424*w + 136864 , 336716*w - 10431876 , -847974*w - 1235892 , -155494*w - 211750 , -268734*w - 579306 ,
92290*w + 802914 , 4463018 , -941874*w - 2996812 , 2044974*w + 1538530 , -868886*w + 3051034 , -1760174*w - 10977946 ],
[ 7210032*w - 19589696 , -103632*w - 412944 , -2627284*w + 6587434 , 310548*w + 2224866 , 60509*w + 394065 , 57187*w + 816417 ,
    109491*w - 707357 , 941874*w - 2996812 , 3416266 , -1052418*w - 4066398 , 1231294*w - 768530 , -1234815*w + 10206063 ],
[ -14510170*w + 7704536 , -4112*w + 708848 , 5117850*w - 2152990 , 316866*w - 3290574 , 49643*w - 595371 , 183375*w - 1089417 ,
    -348103*w + 599753 , -2044974*w + 1538530 , 1052418*w - 4066398 , 7110278 , -1702492*w - 1740508 , 4595971*w - 9439493 ],
[ 5405748*w + 22445948 , 170848*w - 167104 , -1771560*w - 8055236 , -865980*w + 276528 , -154780*w + 62874 , -305868*w - 40278 ,
    228960*w + 436226 , 868886*w + 3051034 , -1231294*w - 768530 , 1702492*w - 1740508 , 3279584 , -3387544*w - 5392030 ],
[ 30472922*w - 148031814 , -907085*w - 1511923 , -11281170*w + 52022166 , 4315645*w + 9798117 , 767227*w + 1678439 , 926337*w +
    3119193 , -397246*w - 3246152 , 1760174*w - 10977946 , 1234815*w + 10206063 , -4595971*w - 9439493 , 3387544*w - 5392030 ,
    53689328 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 324 );
/***Gitter Nr. 295 ***/
Grammatrix:=Matrix(S,[
[ 867846 , 115194*w + 439124 , 38971*w + 182665 , 215*w - 805 , 4650*w + 24696 , -4816*w - 8666 , 2881*w + 8911 , 4053*w - 9681 ,
5023*w + 77735 , 23316*w + 35224 , -12042*w + 23744 , 55957*w + 8883 ],
[ -115194*w + 439124 , 723324 , -14485*w + 271075 , -1241*w + 903 , -4554*w - 1092 , -8386*w + 8904 , 3979*w - 8673 , 223*w -
    13167 , 43291*w + 6279 , 31614*w - 82824 , 8370*w + 62412 , 38551*w + 89509 ],
[ -38971*w + 182665 , 14485*w + 271075 , 119420 , -439*w + 2821 , -4928*w + 910 , -2688*w + 2674 , 529*w - 2233 , 89*w - 4907 ,
    14379*w + 7119 , 11786*w - 24584 , 1930*w + 21812 , 20533*w + 30009 ],
[ -215*w - 805 , 1241*w + 903 , 439*w + 2821 , 406 , -574*w + 392 , 54*w - 14 , -124*w - 28 , -34*w , 0 , 0 , 0 , 634*w - 210 ],
[ -4650*w + 24696 , 4554*w - 1092 , 4928*w + 910 , 574*w + 392 , 10402 , 32*w - 1204 , 46*w + 924 , 8*w + 336 , 0 , 0 , 0 , 662*w
    - 6776 ],
[ 4816*w - 8666 , 8386*w + 8904 , 2688*w + 2674 , -54*w - 14 , -32*w - 1204 , 2954 , -28*w - 2156 , -606*w - 168 , 2600*w - 13440
, -1900*w - 13860 , 3100*w + 700 , -218*w - 1736 ],
[ -2881*w + 8911 , -3979*w - 8673 , -529*w - 2233 , 124*w - 28 , -46*w + 924 , 28*w - 2156 , 2226 , 480*w + 42 , -2080*w + 10990 ,
1520*w + 11130 , -2480*w - 560 , 800*w - 546 ],
[ -4053*w - 9681 , -223*w - 13167 , -89*w - 4907 , 34*w , -8*w + 336 , 606*w - 168 , -480*w + 42 , 1218 , -3276*w - 4606 , -3336*w
    + 3150 , 168*w - 5208 , -948*w + 1554 ],
[ -5023*w + 77735 , -43291*w + 6279 , -14379*w + 7119 , 0 , 0 , -2600*w - 13440 , 2080*w + 10990 , 3276*w - 4606 , 93772 , 24830*w
    + 62118 , -17654*w + 18746 , 6410*w + 4298 ],
[ -23316*w + 35224 , -31614*w - 82824 , -11786*w - 24584 , 0 , 0 , 1900*w - 13860 , -1520*w + 11130 , 3336*w + 3150 , -24830*w +
    62118 , 87402 , -16704*w - 20384 , 2492*w + 14014 ],
[ 12042*w + 23744 , -8370*w + 62412 , -1930*w + 21812 , 0 , 0 , -3100*w + 700 , 2480*w - 560 , -168*w - 5208 , 17654*w + 18746 ,
    16704*w - 20384 , 27104 , 2162*w - 6482 ],
[ -55957*w + 8883 , -38551*w + 89509 , -20533*w + 30009 , -634*w - 210 , -662*w - 6776 , 218*w - 1736 , -800*w - 546 , 948*w +
    1554 , -6410*w + 4298 , -2492*w + 14014 , -2162*w - 6482 , 43610 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 60 );
/***Gitter Nr. 296 ***/
Grammatrix:=Matrix(S,[
[ 1307894 , -10604*w - 512750 , -297202*w - 16856 , -289208*w - 9394 , 210096*w + 293608 , -125268*w + 233114 , 88142*w - 113218 ,
-3160*w + 32130 , -84822*w - 66346 , 209156*w - 495586 , -6350*w - 501760 , -432910*w - 219478 ],
[ 10604*w - 512750 , 209328 , 130140*w + 19054 , 131103*w + 8379 , -85540*w - 122976 , 50695*w - 105427 , -35592*w + 52794 , 817*w
    - 13447 , 36003*w + 21497 , -81902*w + 221676 , 7894*w + 208530 , 164629*w + 89061 ],
[ 297202*w - 16856 , -130140*w + 19054 , 2562000 , 18822*w + 2313752 , 48530*w - 395528 , 31954*w + 50050 , -17320*w - 35182 ,
    2494*w + 1092 , -3250*w + 53662 , -49818*w - 113064 , -43822*w + 19012 , 106662*w + 999222 ],
[ 289208*w - 9394 , -131103*w + 8379 , -18822*w + 2313752 , 2161572 , 48767*w - 354151 , 49597*w + 82579 , -28460*w - 57442 ,
    3705*w - 1477 , -373*w + 75985 , -77438*w - 130340 , -59154*w + 49266 , 97050*w + 951258 ],
[ -210096*w + 293608 , 85540*w - 122976 , -48530*w - 395528 , -48767*w - 354151 , 492688 , -88561*w - 85771 , 49978*w + 73528 ,
    -9529*w + 6783 , -14363*w - 173425 , 202512*w + 184380 , 124336*w - 197554 , -98541*w - 509761 ],
[ 125268*w + 233114 , -50695*w - 105427 , -31954*w + 50050 , -49597*w + 82579 , 88561*w - 85771 , 239106 , 5168*w - 153076 ,
    4380*w + 12544 , -34928*w + 70322 , -12796*w - 368494 , -77496*w - 142254 , -99371*w + 262983 ],
[ -88142*w - 113218 , 35592*w + 52794 , 17320*w - 35182 , 28460*w - 57442 , -49978*w + 73528 , -5168*w - 153076 , 101038 , -3178*w
    - 6342 , 18236*w - 52766 , 22794*w + 218778 , 52598*w + 63462 , 54982*w - 183162 ],
[ 3160*w + 32130 , -817*w - 13447 , -2494*w + 1092 , -3705*w - 1477 , 9529*w + 6783 , -4380*w + 12544 , 3178*w - 6342 , 2016 ,
    -4974*w - 1246 , 9498*w - 33810 , -2492*w - 27776 , -10569*w + 9191 ],
[ 84822*w - 66346 , -36003*w + 21497 , 3250*w + 53662 , 373*w + 75985 , 14363*w - 173425 , 34928*w + 70322 , -18236*w - 52766 ,
    4974*w - 1246 , 87934 , -90542*w - 145194 , -67934*w + 61054 , 24565*w + 188223 ],
[ -209156*w - 495586 , 81902*w + 221676 , 49818*w - 113064 , 77438*w - 130340 , -202512*w + 184380 , 12796*w - 368494 , -22794*w +
    218778 , -9498*w - 33810 , 90542*w - 145194 , 892696 , 175086*w + 389046 , 151908*w - 495082 ],
[ 6350*w - 501760 , -7894*w + 208530 , 43822*w + 19012 , 59154*w + 49266 , -124336*w - 197554 , 77496*w - 142254 , -52598*w +
    63462 , 2492*w - 27776 , 67934*w + 61054 , -175086*w + 389046 , 409948 , 162640*w - 7700 ],
[ 432910*w - 219478 , -164629*w + 89061 , -106662*w + 999222 , -97050*w + 951258 , 98541*w - 509761 , 99371*w + 262983 , -54982*w
    - 183162 , 10569*w + 9191 , -24565*w + 188223 , -151908*w - 495082 , -162640*w - 7700 , 1278606 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 297 ***/
Grammatrix:=Matrix(S,[
[ 136822 , -11502*w + 150402 , -2264*w + 28770 , -193*w + 1981 , 1698*w - 266 , 1107*w + 1911 , -9008*w + 15204 , 1864*w - 4634 , 1977*w + 30779 , -5203*w - 10311 , -6732*w + 13090 , 75903*w + 256613 ],
[ 11502*w + 150402 , 207284 , -449*w + 43253 , 493*w + 1421 , 2230*w - 6720 , 1345*w + 35 , -935*w + 44345 , -630*w - 9730 , 13240*w + 16310 , -7345*w + 7805 , 1110*w + 27300 , 128856*w + 301784 ],
[ 2264*w + 28770 , 449*w + 43253 , 10738 , 173*w - 147 , 242*w - 1960 , -63*w - 119 , 1703*w + 10717 , -596*w - 2114 , 3536*w + 70 , -1301*w + 3745 , 1338*w + 5712 , 27442*w + 62062 ],
[ 193*w + 1981 , -493*w + 1421 , -173*w - 147 , 266 , 128*w + 42 , 116*w , -874*w + 1064 , 168*w - 392 , 452*w + 2212 , -548*w - 420 , -428*w + 1652 , -85*w + 3815 ],
[ -1698*w - 266 , -2230*w - 6720 , -242*w - 1960 , -128*w + 42 , 1400 , 8*w + 602 , -1570*w - 4788 , 456*w + 868 , -2158*w + 2002 , 542*w - 3010 , -1218*w - 2898 , -7614*w - 1036 ],
[ -1107*w + 1911 , -1345*w + 35 , 63*w - 119 , -116*w , -8*w + 602 , 728 , -686*w - 2156 , 190*w + 420 , -818*w + 1022 , 162*w - 1246 , -530*w - 994 , -1973*w + 5607 ],
[ 9008*w + 15204 , 935*w + 44345 , -1703*w + 10717 , 874*w + 1064 , 1570*w - 4788 , 686*w - 2156 , 46256 , -936*w - 10220 , 13896*w + 9016 , -6664*w + 11928 , 3252*w + 26964 , 24910*w + 67200 ],
[ -1864*w - 4634 , 630*w - 9730 , 596*w - 2114 , -168*w - 392 , -456*w + 868 , -190*w + 420 , 936*w - 10220 , 2450 , -3120*w - 4634 , 1920*w - 1568 , -24*w - 7000 , -3958*w - 17724 ],
[ -1977*w + 30779 , -13240*w + 16310 , -3536*w + 70 , -452*w + 2212 , 2158*w + 2002 , 818*w + 1022 , -13896*w + 9016 , 3120*w - 4634 , 47782 , -7104*w - 20048 , -12168*w + 15176 , -12869*w + 68733 ],
[ 5203*w - 10311 , 7345*w + 7805 , 1301*w + 3745 , 548*w - 420 , -542*w - 3010 , -162*w - 1246 , 6664*w + 11928 , -1920*w - 1568 , 7104*w - 20048 , 16016 , 7472*w + 6496 , 15203*w - 11207 ],
[ 6732*w + 13090 , -1110*w + 27300 , -1338*w + 5712 , 428*w + 1652 , 1218*w - 2898 , 530*w - 994 , -3252*w + 26964 , 24*w - 7000 , 12168*w + 15176 , -7472*w + 6496 , 27104 , 10816*w + 47306 ],
[ -75903*w + 256613 , -128856*w + 301784 , -27442*w + 62062 , 85*w + 3815 , 7614*w - 1036 , 1973*w + 5607 , -24910*w + 67200 , 3958*w - 17724 , 12869*w + 68733 , -15203*w - 11207 , -10816*w + 47306 , 1012634 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 298 ***/
Grammatrix:=Matrix(S,[
[ 116614372 , 110626*w + 27628720 , -62788*w - 1267896 , 71108*w - 413938 , 191468*w + 508704 , -269444*w - 107660 , -311328*w + 39438 , -173974*w + 36848 , 4112*w - 229656 , -31984*w - 235438 , 110340*w + 132482 , -8465202*w - 16547958 ],
[ -110626*w + 27628720 , 6601686 , 82206*w - 322686 , 29764*w - 133868 , 654*w + 130242 , -50968*w - 27594 , -70926*w + 7714 , -40440*w + 7924 , 602*w - 51562 , -7044*w - 52990 , 24734*w + 30086 , -1977526*w - 4093334 ],
[ 62788*w - 1267896 , -82206*w - 322686 , 1621914 , 63446*w + 101640 , 2678*w - 787654 , -3190*w + 222040 , 398*w + 21280 , 348*w - 6300 , 116*w , -12*w , 0 , 322666*w + 500010 ],
[ -71108*w - 413938 , -29764*w - 133868 , -63446*w + 101640 , 68544 , 29228*w - 34244 , -7840*w + 6160 , -232*w + 1120 , 508*w , 116*w , -12*w , 0 , 51486*w + 109578 ],
[ -191468*w + 508704 , -654*w + 130242 , -2678*w - 787654 , -29228*w - 34244 , 415926 , 1370*w - 130956 , -8580*w + 14182 , -7574*w + 32172 , -12420*w - 68670 , -25380*w - 13230 , 27810*w - 45360 , -122234*w - 273602 ],
[ 269444*w - 107660 , 50968*w - 27594 , 3190*w + 222040 , 7840*w + 6160 , -1370*w - 130956 , 59360 , 2518*w + 17262 , 2178*w + 924 , 3588*w + 23898 , 7332*w + 3402 , -8034*w + 13104 , 700*w + 171262 ],
[ 311328*w + 39438 , 70926*w + 7714 , -398*w + 21280 , 232*w + 1120 , 8580*w + 14182 , -2518*w + 17262 , 136836 , 824*w + 112994 , -57700*w - 94276 , -60356*w + 55020 , 37618*w - 188720 , -27638*w + 204890 ],
[ 173974*w + 36848 , 40440*w + 7924 , -348*w - 6300 , -508*w , 7574*w + 32172 , -2178*w + 924 , -824*w + 112994 , 97538 , -51672*w - 90706 , -55232*w + 47054 , 35568*w - 169456 , -13620*w + 130690 ],
[ -4112*w - 229656 , -602*w - 51562 , -116*w , -116*w , 12420*w - 68670 , -3588*w + 23898 , 57700*w - 94276 , 51672*w - 90706 , 299292 , 82732*w + 169876 , -131646*w + 31640 , 31562*w - 83034 ],
[ 31984*w - 235438 , 7044*w - 52990 , 12*w , 12*w , 25380*w - 13230 , -7332*w + 3402 , 60356*w + 55020 , 55232*w + 47054 , -82732*w + 169876 , 257418 , -83768*w - 237496 , 51840*w + 14000 ],
[ -110340*w + 132482 , -24734*w + 30086 , 0 , 0 , -27810*w - 45360 , 8034*w + 13104 , -37618*w - 188720 , -35568*w - 169456 , 131646*w + 31640 , 83768*w - 237496 , 409948 , -41854*w - 131292 ],
[ 8465202*w - 16547958 , 1977526*w - 4093334 , -322666*w + 500010 , -51486*w + 109578 , 122234*w - 273602 , -700*w + 171262 , 27638*w + 204890 , 13620*w + 130690 , -31562*w - 83034 , -51840*w + 14000 , 41854*w - 131292 , 7013594 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 60 );
/***Gitter Nr. 299 ***/
Grammatrix:=Matrix(S,[
[ 6824636 , -434302*w - 476154 , 92348*w - 313334 , -55076*w - 170646 , 153220*w + 2487254 , 231318*w + 437318 , 381963*w - 908117 , -934366*w + 216944 , -1441037*w + 3910865 , 470406*w + 375942 , -723214*w - 658168 , -3131194*w - 1355116 ],
[ 434302*w - 476154 , 512750 , -52874*w + 103866 , 1730*w + 35518 , 141500*w - 58030 , 30868*w - 120596 , -49756*w - 195972 , 4520*w + 447020 , 248426*w + 723506 , 30184*w - 219408 , -51452*w + 335160 , 139590*w + 1553244 ],
[ -92348*w - 313334 , 52874*w + 103866 , 185332 , 7562*w - 22064 , -8070*w + 15288 , -6614*w + 4732 , -6816*w + 43022 , 24186*w + 13762 , 54496*w - 74158 , -10800*w - 22162 , 16646*w + 39606 , 146989*w - 268709 ],
[ 55076*w - 170646 , -1730*w + 35518 , -7562*w - 22064 , 16646 , 7436*w - 102858 , -3992*w - 26152 , -14446*w + 12348 , 25660*w + 22792 , 54440*w - 58520 , -10800*w - 24080 , 16240*w + 38640 , 72203*w + 212919 ],
[ -153220*w + 2487254 , -141500*w - 58030 , 8070*w + 15288 , -7436*w - 102858 , 1243718 , 96434*w + 234052 , 190854*w - 399658 , -419246*w + 2422 , -701588*w + 1587614 , 203400*w + 216566 , -311122*w - 370146 , -1118129*w - 910511 ],
[ -231318*w + 437318 , -30868*w - 120596 , 6614*w + 4732 , 3992*w - 26152 , -96434*w + 234052 , 107198 , 71122*w + 50526 , -77274*w - 244272 , -258850*w - 122528 , 19164*w + 157234 , -25718*w - 246246 , -170562*w - 819896 ],
[ -381963*w - 908117 , 49756*w - 195972 , 6816*w + 43022 , 14446*w + 12348 , -190854*w - 399658 , -71122*w + 50526 , 399476 , 144062*w - 481306 , -9502*w - 1353044 , -105244*w + 154546 , 167482*w - 218358 , 464953*w - 1109311 ],
[ 934366*w + 216944 , -4520*w + 447020 , -24186*w + 13762 , -25660*w + 22792 , 419246*w + 2422 , 77274*w - 244272 , -144062*w - 481306 , 1107736 , 603190*w + 1857716 , 82260*w - 539042 , -140770*w + 826798 , -257766*w + 2921982 ],
[ 1441037*w + 3910865 , -248426*w + 723506 , -54496*w - 74158 , -54440*w - 58520 , 701588*w + 1587614 , 258850*w - 122528 , 9502*w - 1353044 , -603190*w + 1857716 , 5429732 , 432424*w - 589904 , -688814*w + 849058 , -2004862*w + 3875578 ],
[ -470406*w + 375942 , -30184*w - 219408 , 10800*w - 22162 , 10800*w - 24080 , -203400*w + 216566 , -19164*w + 157234 , 105244*w + 154546 , -82260*w - 539042 , -432424*w - 589904 , 305508 , 7070*w - 476658 , -88108*w - 1550122 ],
[ 723214*w - 658168 , 51452*w + 335160 , -16646*w + 39606 , -16240*w + 38640 , 311122*w - 370146 , 25718*w - 246246 , -167482*w - 218358 , 140770*w + 826798 , 688814*w + 849058 , -7070*w - 476658 , 745360 , 170184*w + 2391788 ],
[ 3131194*w - 1355116 , -139590*w + 1553244 , -146989*w - 268709 , -72203*w + 212919 , 1118129*w - 910511 , 170562*w - 819896 , -464953*w - 1109311 , 257766*w + 2921982 , 2004862*w + 3875578 , 88108*w - 1550122 , -170184*w + 2391788 , 10489360 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 32 );
/***Gitter Nr. 300 ***/
Grammatrix:=Matrix(S,[
[ 71774236394 , 23357206*w + 21646288510 , -22506786*w - 98406546 , 248854956*w + 411709970 , 56692392*w - 24661882 , 14389954*w - 62862968 , -336126048*w + 997600968 , -50756090*w + 149459212 , -34319504*w - 27051640 , -202768908*w - 200573520 , 
-163236020*w + 284255748 , -3653631162*w - 7375238332 ],
[ -23357206*w + 21646288510 , 6530652660 , -7014926*w - 29039808 , 75490668*w + 122645180 , 17398148*w - 7889840 , 4541746*w - 19038838 , -102553774*w + 295325002 , -15480636*w + 44229318 , -10256076*w - 8529444 , -60528204*w - 62619312 , 
    -49483874*w + 83391154 , -1100091610*w - 2230845932 ],
[ 22506786*w - 98406546 , 7014926*w - 29039808 , 1971116 , -248646*w - 8012200 , -570144*w - 1307404 , -291208*w - 493024 , 4417088*w + 5942356 , 657500*w + 910504 , -2260*w + 940800 , -155212*w + 5659696 , 1476544*w + 3311028 , 4030744*w + 
    12262348 ],
[ -248854956*w + 411709970 , -75490668*w + 122645180 , 248646*w - 8012200 , 50293558 , 1361844*w + 11737908 , 762136*w + 2411738 , -11531818*w - 14626780 , -1717790*w - 2122176 , 42444*w - 2476180 , 633028*w - 14955080 , -3786660*w - 9186800 , 
    4746218*w - 113840972 ],
[ -56692392*w - 24661882 , -17398148*w - 7889840 , 570144*w - 1307404 , -1361844*w + 11737908 , 6705804 , -212086*w + 2302426 , 8662202*w - 22705172 , 1328284*w - 3309082 , 845064*w + 675738 , 4976616*w + 4918578 , 4000956*w - 6979560 , 4229676*w 
    - 29109430 ],
[ -14389954*w - 62862968 , -4541746*w - 19038838 , 291208*w - 493024 , -762136*w + 2411738 , 212086*w + 2302426 , 1182804 , 3098462*w - 16390304 , 483394*w - 2440046 , 493508*w - 23814 , 2969032*w + 376446 , 1683232*w - 5523560 , 1893998*w - 
    3106796 ],
[ 336126048*w + 997600968 , 102553774*w + 295325002 , -4417088*w + 5942356 , 11531818*w - 14626780 , -8662202*w - 22705172 , -3098462*w - 16390304 , 334000744 , -342628*w + 50298780 , -7937850*w + 10944430 , -49350772*w + 57348620 , -10464320*w + 
    125648516 , -23935760*w + 31832416 ],
[ 50756090*w + 149459212 , 15480636*w + 44229318 , -657500*w + 910504 , 1717790*w - 2122176 , -1328284*w - 3309082 , -483394*w - 2440046 , 342628*w + 50298780 , 7577990 , -1183834*w + 1704892 , -7371036*w + 8988770 , -1446436*w + 18991980 , 
    -3550196*w + 4489674 ],
[ 34319504*w - 27051640 , 10256076*w - 8529444 , 2260*w + 940800 , -42444*w - 2476180 , -845064*w + 675738 , -493508*w - 23814 , 7937850*w + 10944430 , 1183834*w + 1704892 , 1680434 , -254084*w + 10097136 , 2645510*w + 5862052 , 199200*w + 5322996
],
[ 202768908*w - 200573520 , 60528204*w - 62619312 , 155212*w + 5659696 , -633028*w - 14955080 , -4976616*w + 4918578 , -2969032*w + 376446 , 49350772*w + 57348620 , 7371036*w + 8988770 , 254084*w + 10097136 , 60939662 , 16782476*w + 32423328 , 
    2008242*w + 32177236 ],
[ 163236020*w + 284255748 , 49483874*w + 83391154 , -1476544*w + 3311028 , 3786660*w - 9186800 , -4000956*w - 6979560 , -1683232*w - 5523560 , 10464320*w + 125648516 , 1446436*w + 18991980 , -2645510*w + 5862052 , -16782476*w + 32423328 , 49603708
, -7809858*w + 21019782 ],
[ 3653631162*w - 7375238332 , 1100091610*w - 2230845932 , -4030744*w + 12262348 , -4746218*w - 113840972 , -4229676*w - 29109430 , -1893998*w - 3106796 , 23935760*w + 31832416 , 3550196*w + 4489674 , -199200*w + 5322996 , -2008242*w + 32177236 , 
    7809858*w + 21019782 , 2151370256 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 301 ***/
Grammatrix:=Matrix(S,[
[ 12846568 , -268028*w - 16334752 , 95622*w - 187600 , -16910*w - 292782 , 73672*w + 141708 , -7441*w + 96383 , -14986*w - 91182 , 3810*w - 37212 , -27205*w - 113687 , 1940*w + 64162 , -68822*w + 6258 , 3393065*w + 6718453 ],
[ 268028*w - 16334752 , 21354298 , -52096*w - 241682 , -12404*w + 418698 , -83262*w - 174216 , 19157*w - 108675 , 18610*w + 111762 , -4386*w + 42392 , 28643*w + 125853 , -2050*w - 71708 , 74164*w - 7784 , -4006512*w - 8589742 ],
[ -95622*w - 187600 , 52096*w - 241682 , 515074 , 19730*w - 50778 , -12906*w - 27636 , -7576*w - 8176 , 2362*w + 13580 , -298*w + 8050 , 6840*w + 26600 , -13300 , 17670*w + 3990 , -318787*w - 172403 ],
[ 16910*w - 292782 , 12404*w + 418698 , -19730*w - 50778 , 94794 , -11384*w - 22162 , 2284*w - 18886 , 4184*w + 140 , 592*w + 2394 , 3096*w + 12040 , -6020 , 7998*w + 1806 , -58812*w - 233716 ],
[ -73672*w + 141708 , 83262*w - 174216 , 12906*w - 27636 , 11384*w - 22162 , 35784 , -4058*w + 4718 , 1278*w - 7280 , 1276*w - 1302 , 2752*w - 17220 , -2780*w + 4760 , -5934*w - 23198 , 6831*w + 293853 ],
[ 7441*w + 96383 , -19157*w - 108675 , 7576*w - 8176 , -2284*w - 18886 , 4058*w + 4718 , 5684 , -1188*w - 3024 , -22*w - 1694 , -1680*w - 4452 , 324*w + 2800 , -3122*w + 1918 , 34390*w + 63224 ],
[ 14986*w - 91182 , -18610*w + 111762 , -2362*w + 13580 , -4184*w + 140 , -1278*w - 7280 , 1188*w - 3024 , 25844 , -1448*w + 7252 , 2208*w + 8568 , -1032*w - 6160 , 3324*w - 6244 , -25099*w - 82341 ],
[ -3810*w - 37212 , 4386*w + 42392 , 298*w + 8050 , -592*w + 2394 , -1276*w - 1302 , 22*w - 1694 , 1448*w + 7252 , 2674 , 1348*w + 1778 , -698*w - 1610 , 932*w - 3724 , -16701*w - 11473 ],
[ 27205*w - 113687 , -28643*w + 125853 , -6840*w + 26600 , -3096*w + 12040 , -2752*w - 17220 , 1680*w - 4452 , -2208*w + 8568 , -1348*w + 1778 , 12278 , 1152*w - 5600 , 5880*w + 7448 , -28511*w - 156541 ],
[ -1940*w + 64162 , 2050*w - 71708 , -13300 , -6020 , 2780*w + 4760 , -324*w + 2800 , 1032*w - 6160 , 698*w - 1610 , -1152*w - 5600 , 3640 , -3480*w + 1400 , 25517*w + 45815 ],
[ 68822*w + 6258 , -74164*w - 7784 , -17670*w + 3990 , -7998*w + 1806 , 5934*w - 23198 , 3122*w + 1918 , -3324*w - 6244 , -932*w - 3724 , -5880*w + 7448 , 3480*w + 1400 , 27104 , 49328*w - 205982 ],
[ -3393065*w + 6718453 , 4006512*w - 8589742 , 318787*w - 172403 , 58812*w - 233716 , -6831*w + 293853 , -34390*w + 63224 , 25099*w - 82341 , 16701*w - 11473 , 28511*w - 156541 , -25517*w + 45815 , -49328*w - 205982 , 10651088 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 302 ***/
Grammatrix:=Matrix(S,[
[ 5647138 , -225116*w + 1524628 , 284597*w - 1513337 , 198431*w - 2021299 , 2136826*w + 156898 , -448673*w + 354991 , -361748*w - 315532 , 191725*w + 3963575 , 160816*w - 1121274 , -1339331*w + 123543 , -701538*w + 2938712 , -1007615*w - 2722615
],
[ 225116*w + 1524628 , 627284 , 1004*w - 465038 , -37594*w - 518378 , 527921*w - 584059 , -95334*w + 206836 , -97202*w + 37128 , 199389*w + 908915 , -4657*w - 318913 , -319648*w + 394170 , -55863*w + 902419 , -454162*w - 166880 ],
[ -284597*w - 1513337 , -1004*w - 465038 , 726418 , 75208*w + 796880 , -701780*w + 981512 , 113094*w - 306530 , 144254*w - 77042 , -305740*w - 1109612 , 17952*w + 411152 , 398710*w - 624806 , 28554*w - 1198806 , 374179*w + 746627 ],
[ -198431*w - 2021299 , 37594*w - 518378 , -75208*w + 796880 , 985670 , -944738*w + 536704 , 178120*w - 269920 , 179922*w + 30268 , -227458*w - 1647632 , -30774*w + 523754 , 571258*w - 398090 , 193266*w - 1443582 , 348232*w + 1024772 ],
[ -2136826*w + 156898 , -527921*w - 584059 , 701780*w + 981512 , 944738*w + 536704 , 7362964 , -194626*w - 1451324 , 143620*w - 1244712 , -1819486*w + 882028 , 523272*w + 459704 , -139944*w - 4330424 , -1403344*w - 2089136 , 1143512*w - 1498070 ],
[ 448673*w + 354991 , 95334*w + 206836 , -113094*w - 306530 , -178120*w - 269920 , 194626*w - 1451324 , 378742 , -48326*w + 238938 , 477092*w + 195916 , -120336*w - 222880 , -100220*w + 1094184 , 279442*w + 819826 , -241693*w + 43463 ],
[ 361748*w - 315532 , 97202*w + 37128 , -144254*w - 77042 , -179922*w + 30268 , -143620*w - 1244712 , 48326*w + 238938 , 266364 , 319556*w - 229992 , -100480*w - 69328 , 53190*w + 775670 , 266416*w + 313712 , -146933*w + 431207 ],
[ -191725*w + 3963575 , -199389*w + 908915 , 305740*w - 1109612 , 227458*w - 1647632 , 1819486*w + 882028 , -477092*w + 195916 , -319556*w - 229992 , 4402552 , 219676*w - 1220100 , -1459382*w - 307454 , -901708*w + 2955316 , -143762*w - 1946714 ],
[ -160816*w - 1121274 , 4657*w - 318913 , -17952*w + 411152 , 30774*w + 523754 , -523272*w + 459704 , 120336*w - 222880 , 100480*w - 69328 , -219676*w - 1220100 , 419888 , 420048*w - 428736 , 101360*w - 1136464 , 141713*w + 429779 ],
[ 1339331*w + 123543 , 319648*w + 394170 , -398710*w - 624806 , -571258*w - 398090 , 139944*w - 4330424 , 100220*w + 1094184 , -53190*w + 775670 , 1459382*w - 307454 , -420048*w - 428736 , 3411576 , 1043688*w + 1887704 , -636302*w + 523334 ],
[ 701538*w + 2938712 , 55863*w + 902419 , -28554*w - 1198806 , -193266*w - 1443582 , 1403344*w - 2089136 , -279442*w + 819826 , -266416*w + 313712 , 901708*w + 2955316 , -101360*w - 1136464 , -1043688*w + 1887704 , 3279584 , -511069*w - 1077349 ],
[ 1007615*w - 2722615 , 454162*w - 166880 , -374179*w + 746627 , -348232*w + 1024772 , -1143512*w - 1498070 , 241693*w + 43463 , 146933*w + 431207 , 143762*w - 1946714 , -141713*w + 429779 , 636302*w + 523334 , 511069*w - 1077349 , 4657660 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 303 ***/
Grammatrix:=Matrix(S,[
[ 314020 , 50041*w - 114191 , 42161*w - 91595 , 1451*w - 3409 , 4636*w - 9240 , -1953*w - 6685 , 2580*w + 10766 , -933*w + 4823 , 17626*w + 19096 , 9227*w - 11907 , 5860*w - 34062 , 50344*w - 200550 ],
[ -50041*w - 114191 , 109200 , -1442*w + 87752 , -297*w + 483 , 758*w + 7056 , 1209*w - 329 , -3387*w + 5957 , -1452*w - 2128 , -5245*w + 33705 , 2791*w + 16667 , 8614*w + 11508 , 12960*w + 153916 ],
[ -42161*w - 91595 , 1442*w + 87752 , 72492 , -310*w + 2128 , 282*w + 6902 , 1470*w + 42 , -2208*w + 3724 , -830*w - 1442 , -4258*w + 22190 , 1650*w + 11858 , 5738*w + 8946 , 13863*w + 119749 ],
[ -1451*w - 3409 , 297*w + 483 , 310*w + 2128 , 1666 , -334*w + 1470 , 498*w + 252 , 282*w - 1568 , 348*w , -1028*w - 4900 , -888*w - 504 , -1172*w + 1484 , 1709*w - 2863 ],
[ -4636*w - 9240 , -758*w + 7056 , -282*w + 6902 , 334*w + 1470 , 3500 , 670*w - 826 , -610*w - 1652 , 148*w - 924 , -3378*w - 210 , -1040*w + 3472 , -10*w + 6118 , 78*w + 5446 ],
[ 1953*w - 6685 , -1209*w - 329 , -1470*w + 42 , -498*w + 252 , -670*w - 826 , 1652 , 384*w - 308 , 186*w + 504 , 434*w - 3710 , -308*w - 1652 , -902*w - 1078 , -513*w + 2261 ],
[ -2580*w + 10766 , 3387*w + 5957 , 2208*w + 3724 , -282*w - 1568 , 610*w - 1652 , -384*w - 308 , 5306 , -684*w + 812 , 4620*w + 12810 , 3108*w - 924 , 3132*w - 8036 , 4392*w + 11774 ],
[ 933*w + 4823 , 1452*w - 2128 , 830*w - 1442 , -348*w , -148*w - 924 , -186*w + 504 , 684*w + 812 , 1036 , 2280*w - 2520 , 432*w - 2688 , -432*w - 4032 , 2597*w - 1911 ],
[ -17626*w + 19096 , 5245*w + 33705 , 4258*w + 22190 , 1028*w - 4900 , 3378*w - 210 , -434*w - 3710 , -4620*w + 12810 , -2280*w - 2520 , 61894 , 8792*w + 16968 , 15144*w - 952 , 2834*w + 48608 ],
[ -9227*w - 11907 , -2791*w + 16667 , -1650*w + 11858 , 888*w - 504 , 1040*w + 3472 , 308*w - 1652 , -3108*w - 924 , -432*w - 2688 , -8792*w + 16968 , 14224 , 4560*w + 15456 , -4983*w + 19341 ],
[ -5860*w - 34062 , -8614*w + 11508 , -5738*w + 8946 , 1172*w + 1484 , 10*w + 6118 , 902*w - 1078 , -3132*w - 8036 , 432*w - 4032 , -15144*w - 952 , -4560*w + 15456 , 27104 , -12084*w + 9282 ],
[ -50344*w - 200550 , -12960*w + 153916 , -13863*w + 119749 , -1709*w - 2863 , -78*w + 5446 , 513*w + 2261 , -4392*w + 11774 , -2597*w - 1911 , -2834*w + 48608 , 4983*w + 19341 , 12084*w + 9282 , 242886 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8 );
/***Gitter Nr. 304 ***/
Grammatrix:=Matrix(S,[
[ 85242514 , -4008398*w - 20210848 , -1789928*w + 318836 , -1279524*w + 2659342 , -1785274*w + 1452920 , -1713386*w - 2543912 , 7294776*w + 35064792 , 2087582*w + 10822028 , -1025580*w + 3723328 , 5865770*w - 19811932 , 2264330*w + 24368722 ,
    -50482032*w - 50769152 ],
[ 4008398*w - 20210848 , 7060312 , 584364*w + 1320578 , 690220*w - 50582 , 459772*w + 323134 , -23254*w + 767480 , 1383384*w - 5028156 , 447980*w - 1504916 , 273916*w + 154112 , -1489838*w - 971292 , 1204846*w - 2492546 , 11626066*w + 26499900 ],
[ 1789928*w + 318836 , -584364*w + 1320578 , 14579138 , 785500*w + 8209418 , -33652*w + 4827270 , -873424*w - 1279376 , 6602262*w + 9213484 , 2002292*w + 2928856 , -26068*w + 2336880 , 292852*w - 12737032 , 3595504*w + 8451828 , -798880*w +
    2156966 ],
[ 1279524*w + 2659342 , -690220*w - 50582 , -785500*w + 8209418 , 7897386 , -222122*w + 3936632 , -135208*w - 1999998 , -831228*w + 11349828 , -273982*w + 3537128 , -521020*w + 412902 , 2863716*w - 2059470 , -1155096*w + 7209384 , -755688*w +
    7785568 ],
[ 1785274*w + 1452920 , -459772*w + 323134 , 33652*w + 4827270 , 222122*w + 3936632 , 2385684 , -234088*w - 327082 , 1664424*w + 2048676 , 503774*w + 696724 , -10076*w + 588308 , 93432*w - 3228036 , 898596*w + 2180080 , -1850560*w + 5796896 ],
[ 1713386*w - 2543912 , 23254*w + 767480 , 873424*w - 1279376 , 135208*w - 1999998 , 234088*w - 327082 , 1948366 , 2434446*w - 13358940 , 765994*w - 4044292 , 654748*w - 44464 , -3567336*w - 58128 , 2214612*w - 7369376 , -2246726*w + 4910178 ],
[ -7294776*w + 35064792 , -1383384*w - 5028156 , -6602262*w + 9213484 , 831228*w + 11349828 , -1664424*w + 2048676 , -2434446*w - 13358940 , 122937584 , -209850*w + 37512398 , -4827206*w + 6574918 , 26706992*w - 33585720 , -6491144*w + 76127436 ,
9312502*w - 55111910 ],
[ -2087582*w + 10822028 , -447980*w - 1504916 , -2002292*w + 2928856 , 273982*w + 3537128 , -503774*w + 696724 , -765994*w - 4044292 , 209850*w + 37512398 , 11451104 , -1462450*w + 2064790 , 8095900*w - 10572968 , -1851550*w + 23318400 , 2681128*w
    - 16613604 ],
[ 1025580*w + 3723328 , -273916*w + 154112 , 26068*w + 2336880 , 521020*w + 412902 , 10076*w + 588308 , -654748*w - 44464 , 4827206*w + 6574918 , 1462450*w + 2064790 , 1680434 , 109300*w - 9148202 , 2645510*w + 5862052 , -1590160*w - 5242776 ],
[ -5865770*w - 19811932 , 1489838*w - 971292 , -292852*w - 12737032 , -2863716*w - 2059470 , -93432*w - 3228036 , 3567336*w - 58128 , -26706992*w - 33585720 , -8095900*w - 10572968 , -109300*w - 9148202 , 49852922 , -14783520*w - 30708664 ,
    9030676*w + 27646472 ],
[ -2264330*w + 24368722 , -1204846*w - 2492546 , -3595504*w + 8451828 , 1155096*w + 7209384 , -898596*w + 2180080 , -2214612*w - 7369376 , 6491144*w + 76127436 , 1851550*w + 23318400 , -2645510*w + 5862052 , 14783520*w - 30708664 , 49603708 ,
    2644388*w - 35779212 ],
[ 50482032*w - 50769152 , -11626066*w + 26499900 , 798880*w + 2156966 , 755688*w + 7785568 , 1850560*w + 5796896 , 2246726*w + 4910178 , -9312502*w - 55111910 , -2681128*w - 16613604 , 1590160*w - 5242776 , -9030676*w + 27646472 , -2644388*w -
    35779212 , 295166970 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 40 );
/***Gitter Nr. 305 ***/
Grammatrix:=Matrix(S,[
[ 76584382 , 1769391*w - 4059839 , 395583*w - 114611 , 264472*w + 52556 , 100141*w + 228459 , 1020802*w - 1555708 , 867695*w - 1389605 , -144222*w - 1837864 , 16165*w - 264495 , 44825*w - 446131 , -49538*w - 530012 , -16012205*w - 44964087 ],
[ -1769391*w - 4059839 , 1409982 , 1697*w + 52269 , -25602*w + 10374 , 848*w - 7980 , -125491*w - 363279 , -58717*w - 285173 , -105590*w + 14140 , -15266*w - 9030 , -18923*w - 16205 , -21568*w + 8190 , 2467547*w + 832475 ],
[ -395583*w - 114611 , -1697*w + 52269 , 38150 , 826*w + 21224 , -984*w + 10304 , 48776*w + 65128 , 39506*w + 56658 , 30608*w - 44716 , 5226*w - 3038 , 7208*w - 5992 , 5582*w - 16226 , 229821*w - 409437 ],
[ -264472*w + 52556 , 25602*w + 10374 , -826*w + 21224 , 17738 , -1254*w + 4802 , 17676*w + 72366 , 12700*w + 54628 , 20850*w - 5040 , 3004*w + 1484 , 3832*w + 2520 , 4204*w - 2548 , 142108*w - 473466 ],
[ -100141*w + 228459 , -848*w - 7980 , 984*w + 10304 , 1254*w + 4802 , 5852 , 25320*w + 21210 , 21142*w + 20944 , 10982*w - 25032 , 2108*w - 2016 , 3552*w - 4256 , 2568*w - 9912 , -8378*w - 232330 ],
[ -1020802*w - 1555708 , 125491*w - 363279 , -48776*w + 65128 , -17676*w + 72366 , -25320*w + 21210 , 1075438 , -20898*w + 845558 , 199808*w + 375648 , 22880*w + 78470 , 35446*w + 106022 , 56098*w + 49826 , 612929*w - 1634437 ],
[ -867695*w - 1389605 , 58717*w - 285173 , -39506*w + 56658 , -12700*w + 54628 , -21142*w + 20944 , 20898*w + 845558 , 689276 , 158806*w + 252938 , 18590*w + 57386 , 31312*w + 82320 , 48356*w + 32340 , 497099*w - 1130773 ],
[ 144222*w - 1837864 , 105590*w + 14140 , -30608*w - 44716 , -20850*w - 5040 , -10982*w - 25032 , -199808*w + 375648 , -158806*w + 252938 , 431634 , -6174*w + 62300 , -7280*w + 77168 , 7592*w + 82152 , 396534*w + 512540 ],
[ -16165*w - 264495 , 15266*w - 9030 , -5226*w - 3038 , -3004*w + 1484 , -2108*w - 2016 , -22880*w + 78470 , -18590*w + 57386 , 6174*w + 62300 , 9842 , 448*w + 12320 , 2840*w + 10696 , 65240*w + 12894 ],
[ -44825*w - 446131 , 18923*w - 16205 , -7208*w - 5992 , -3832*w + 2520 , -3552*w - 4256 , -35446*w + 106022 , -31312*w + 82320 , 7280*w + 77168 , -448*w + 12320 , 20272 , 4544*w + 19824 , 111959*w + 21595 ],
[ 49538*w - 530012 , 21568*w + 8190 , -5582*w - 16226 , -4204*w - 2548 , -2568*w - 9912 , -56098*w + 49826 , -48356*w + 32340 , -7592*w + 82152 , -2840*w + 10696 , -4544*w + 19824 , 27104 , 108606*w + 194712 ],
[ 16012205*w - 44964087 , -2467547*w + 832475 , -229821*w - 409437 , -142108*w - 473466 , 8378*w - 232330 , -612929*w - 1634437 , -497099*w - 1130773 , -396534*w + 512540 , -65240*w + 12894 , -111959*w + 21595 , -108606*w + 194712 , 53702810 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );
/***Gitter Nr. 306 ***/
Grammatrix:=Matrix(S,[
[ 1191909684 , -120921118*w - 737701510 , -69993196*w - 570632384 , -13103970*w - 51525936 , -3986948*w - 37319842 , 3672664*w + 39392780 , 64116690*w - 66399354 , -33284226*w + 198033444 , -13941814*w + 52800426 , -3488824*w - 11020380 ,
    -17253938*w + 3116876 , 616122570*w + 1304234302 ],
[ 120921118*w - 737701510 , 714696136 , -2456740*w + 527734522 , 2099122*w + 9602432 , 344492*w + 17153570 , 293290*w - 320656 , -4546100*w + 3505362 , 2707584*w - 14031416 , 1112342*w - 3492958 , 231424*w + 853216 , 1223646*w + 14994 ,
    -222961594*w - 1285259626 ],
[ 69993196*w - 570632384 , 2456740*w + 527734522 , 425067832 , 2315710*w - 11121334 , 2368504*w + 7319522 , -8160764*w + 24582530 , 31761446*w + 59676960 , -46054902*w + 20639640 , -13824680*w - 866040 , 881560*w - 7857920 , -5999280*w - 20622560
, -190245412*w - 928759132 ],
[ 13103970*w - 51525936 , -2099122*w + 9602432 , -2315710*w - 11121334 , 74316438 , -3776522*w + 23409722 , 15189152*w - 42140812 , -75199182*w - 96934964 , 95634640*w - 84853692 , 29535908*w - 10494764 , -892004*w + 17511312 , 15412584*w +
    38605952 , -34583784*w - 47439112 ],
[ 3986948*w - 37319842 , -344492*w + 17153570 , -2368504*w + 7319522 , 3776522*w + 23409722 , 9218958 , 2168920*w - 19486432 , -29565338*w + 436968 , 25256332*w - 66416896 , 8731920*w - 15549576 , 753128*w + 5911360 , 7161888*w + 5846736 ,
    -18107632*w - 29033578 ],
[ -3672664*w + 39392780 , -293290*w - 320656 , 8160764*w + 24582530 , -15189152*w - 42140812 , -2168920*w - 19486432 , 58593710 , 76155572*w - 57018024 , -46864670*w + 219886604 , -18285284*w + 56816116 , -3568972*w - 13812876 , -20066652*w -
    1355312 , 17991336*w - 18135950 ],
[ -64116690*w - 66399354 , 4546100*w + 3505362 , -31761446*w + 59676960 , 75199182*w - 96934964 , 29565338*w + 436968 , -76155572*w - 57018024 , 771924468 , -246985048*w - 661334240 , -57671088*w - 228643492 , 22084736*w - 19496372 , 22059972*w -
    186762576 , -3911042*w + 251168274 ],
[ 33284226*w + 198033444 , -2707584*w - 14031416 , 46054902*w + 20639640 , -95634640*w - 84853692 , -25256332*w - 66416896 , 46864670*w + 219886604 , 246985048*w - 661334240 , 1119969690 , -23752622*w + 325087602 , -25162582*w - 32768680 ,
    -78665932*w + 110614056 , 81807868*w - 207122384 ],
[ 13941814*w + 52800426 , -1112342*w - 3492958 , 13824680*w - 866040 , -29535908*w - 10494764 , -8731920*w - 15549576 , 18285284*w + 56816116 , 57671088*w - 228643492 , 23752622*w + 325087602 , 97890926 , -7998882*w - 5775728 , -20488582*w +
    43786372 , 19603182*w - 72347408 ],
[ 3488824*w - 11020380 , -231424*w + 853216 , -881560*w - 7857920 , 892004*w + 17511312 , -753128*w + 5911360 , 3568972*w - 13812876 , -22084736*w - 19496372 , 25162582*w - 32768680 , 7998882*w - 5775728 , 4916142 , 4786804*w + 9135588 ,
    -7028306*w - 6857452 ],
[ 17253938*w + 3116876 , -1223646*w + 14994 , 5999280*w - 20622560 , -15412584*w + 38605952 , -7161888*w + 5846736 , 20066652*w - 1355312 , -22059972*w - 186762576 , 78665932*w + 110614056 , 20488582*w + 43786372 , -4786804*w + 9135588 , 49603708
, -6455572*w - 61014912 ],
[ -616122570*w + 1304234302 , 222961594*w - 1285259626 , 190245412*w - 928759132 , 34583784*w - 47439112 , 18107632*w - 29033578 , -17991336*w - 18135950 , 3911042*w + 251168274 , -81807868*w - 207122384 , -19603182*w - 72347408 , 7028306*w -
    6857452 , 6455572*w - 61014912 , 3784030516 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 307 ***/
Grammatrix:=Matrix(S,[
[ 15750000 , -381813*w + 2781051 , -743537*w - 2228359 , -197854*w - 832860 , 25938*w + 160510 , 33317*w + 447111 , 68921*w - 118853 , -169128*w - 175098 , -50739*w - 64575 , 279468*w - 285362 , -67034*w + 633556 , -4452888*w - 6257216 ],
[ 381813*w + 2781051 , 742224 , -241563*w + 4879 , -95362*w - 47642 , 8692*w + 10108 , 4961*w + 46081 , 5273*w - 5845 , -6776*w - 21700 , -3438*w - 13412 , 20142*w + 4746 , -11588*w + 33012 , -1004252*w - 710640 ],
[ 743537*w - 2228359 , 241563*w + 4879 , 2866136 , -53246*w + 855904 , 2356*w - 121002 , 114080*w + 65058 , 7160*w - 133574 , -127856*w + 254044 , -27304*w + 98980 , 28364*w - 669340 , 156416*w + 380240 , 93230*w + 1971718 ],
[ 197854*w - 832860 , 95362*w - 47642 , 53246*w + 855904 , 299180 , -452*w - 33362 , 35020*w - 4270 , 858*w - 42420 , -42094*w + 81830 , -8418*w + 38066 , 8556*w - 219408 , 51968*w + 123648 , 26626*w + 665224 ],
[ -25938*w + 160510 , -8692*w + 10108 , -2356*w - 121002 , 452*w - 33362 , 7140 , -114*w + 7728 , 1566*w + 168 , -1592*w - 17542 , -1902*w - 4158 , 9780*w + 13188 , -8232*w + 11256 , -27720*w - 97818 ],
[ -33317*w + 447111 , -4961*w + 46081 , -114080*w + 65058 , -35020*w - 4270 , 114*w + 7728 , 216454 , 36550*w - 5656 , -52346*w - 207172 , -26292*w - 62720 , 152856*w + 69692 , -94248*w + 238392 , -95422*w - 159880 ],
[ -68921*w - 118853 , -5273*w - 5845 , -7160*w - 133574 , -858*w - 42420 , -1566*w + 168 , -36550*w - 5656 , 49952 , 41700*w - 78680 , 10000*w - 35420 , -11616*w + 215236 , -49224*w - 127400 , 47798*w - 85666 ],
[ 169128*w - 175098 , 6776*w - 21700 , 127856*w + 254044 , 42094*w + 81830 , 1592*w - 17542 , 52346*w - 207172 , -41700*w - 78680 , 418628 , 21950*w + 121576 , -184706*w - 449204 , 206402*w - 110334 , -11594*w + 320208 ],
[ 50739*w - 64575 , 3438*w - 13412 , 27304*w + 98980 , 8418*w + 38066 , 1902*w - 4158 , 26292*w - 62720 , -10000*w - 35420 , -21950*w + 121576 , 50512 , -31802*w - 201390 , 67690*w + 42826 , 4909*w + 88529 ],
[ -279468*w - 285362 , -20142*w + 4746 , -28364*w - 669340 , -8556*w - 219408 , -9780*w + 13188 , -152856*w + 69692 , 11616*w + 215236 , 184706*w - 449204 , 31802*w - 201390 , 1056804 , -271250*w - 522018 , 144316*w - 361270 ],
[ 67034*w + 633556 , 11588*w + 33012 , -156416*w + 380240 , -51968*w + 123648 , 8232*w + 11256 , 94248*w + 238392 , 49224*w - 127400 , -206402*w - 110334 , -67690*w + 42826 , 271250*w - 522018 , 745360 , -161516*w - 73710 ],
[ 4452888*w - 6257216 , 1004252*w - 710640 , -93230*w + 1971718 , -26626*w + 665224 , 27720*w - 97818 , 95422*w - 159880 , -47798*w - 85666 , 11594*w + 320208 , -4909*w + 88529 , -144316*w - 361270 , 161516*w - 73710 , 12418042 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 308 ***/
Grammatrix:=Matrix(S,[
[ 27010102 , 137978*w - 11700724 , -991379*w + 3992821 , -17019745*w - 186757725 , -6014087*w - 48199193 , -2520752*w + 17796324 , -1065265*w + 2457189 , -1463225*w - 3128979 , 87521*w + 2421447 , 3242256*w - 6422444 , 1114690*w - 12591712 ,
    -17454484*w - 5668698 ],
[ -137978*w - 11700724 , 6199746 , 923564*w - 566636 , 11091634*w + 87083626 , 3461342*w + 22419012 , 1525624*w - 8692376 , 579166*w - 1080086 , 672662*w + 1743098 , 638*w - 1221654 , -1734896*w + 2795352 , -784460*w + 6144544 , 8768568*w +
    2380700 ],
[ 991379*w + 3992821 , -923564*w - 566636 , 12872636 , -11752492*w + 15729742 , -3810964*w + 6894202 , 8218280*w + 13983746 , 1040574*w + 4545422 , -2093244*w + 4318454 , 1248114*w + 472234 , -2302612*w - 13704012 , -6148280*w - 7933828 , 415060*w
    + 33113556 ],
[ 17019745*w - 186757725 , -11091634*w + 87083626 , 11752492*w + 15729742 , 1525724872 , 9615982*w + 406611506 , 54688788*w - 89374250 , 12913964*w - 1615992 , 3522694*w + 43599080 , 4455560*w - 18065768 , -36250824*w - 3263512 , -34474208*w +
    71409296 , 133619720*w + 205698836 ],
[ 6014087*w - 48199193 , -3461342*w + 22419012 , 3810964*w + 6894202 , -9615982*w + 406611506 , 110687234 , 18613584*w - 21595924 , 4120936*w + 937734 , 375438*w + 14174006 , 1702778*w - 5159546 , -11373842*w - 5273002 , -12062608*w + 18478796 ,
    36728270*w + 68540962 ],
[ 2520752*w + 17796324 , -1525624*w - 8692376 , -8218280*w + 13983746 , -54688788*w - 89374250 , -18613584*w - 21595924 , 74168948 , -2540318*w + 13727014 , -7160502*w - 6553792 , 1531926*w + 8619142 , 8822328*w - 35918498 , -2385162*w - 51315306
, -33167450*w + 58177266 ],
[ 1065265*w + 2457189 , -579166*w - 1080086 , -1040574*w + 4545422 , -12913964*w - 1615992 , -4120936*w + 937734 , 2540318*w + 13727014 , 3169292 , -1553336*w + 499198 , 579546*w + 1227982 , 405368*w - 8780688 , -2201802*w - 8947946 , -4041232*w +
    18836804 ],
[ 1463225*w - 3128979 , -672662*w + 1743098 , 2093244*w + 4318454 , -3522694*w + 43599080 , -375438*w + 14174006 , 7160502*w - 6553792 , 1553336*w + 499198 , 5424986 , 696852*w - 1798188 , -4251952*w - 2788506 , -4747804*w + 6155940 , 8523072*w +
    17071082 ],
[ -87521*w + 2421447 , -638*w - 1221654 , -1248114*w + 472234 , -4455560*w - 18065768 , -1702778*w - 5159546 , -1531926*w + 8619142 , -579546*w + 1227982 , -696852*w - 1798188 , 1223922 , 1768248*w - 2899022 , 783630*w - 6310962 , -5043636*w +
    1968148 ],
[ -3242256*w - 6422444 , 1734896*w + 2795352 , 2302612*w - 13704012 , 36250824*w - 3263512 , 11373842*w - 5273002 , -8822328*w - 35918498 , -405368*w - 8780688 , 4251952*w - 2788506 , -1768248*w - 2899022 , 24763914 , 7266016*w + 22886752 ,
    9017232*w - 55649636 ],
[ -1114690*w - 12591712 , 784460*w + 6144544 , 6148280*w - 7933828 , 34474208*w + 71409296 , 12062608*w + 18478796 , 2385162*w - 51315306 , 2201802*w - 8947946 , 4747804*w + 6155940 , -783630*w - 6310962 , -7266016*w + 22886752 , 36075424 ,
    24661808*w - 32918648 ],
[ 17454484*w - 5668698 , -8768568*w + 2380700 , -415060*w + 33113556 , -133619720*w + 205698836 , -36728270*w + 68540962 , 33167450*w + 58177266 , 4041232*w + 18836804 , -8523072*w + 17071082 , 5043636*w + 1968148 , -9017232*w - 55649636 ,
    -24661808*w - 32918648 , 175062692 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );
/***Gitter Nr. 309 ***/
Grammatrix:=Matrix(S,[
[ 443271108 , 80880896*w - 321712706 , -15583562*w + 72301404 , 152735164*w - 731362380 , -32402264*w + 145210450 , 121716*w - 288330 , 259298*w - 1750 , -355294*w + 1376256 , -187000*w - 906290 , 567668*w + 311080 , -671378*w + 959280 ,
    13329396*w + 96212172 ],
[ -80880896*w - 321712706 , 341676356 , -2008864*w - 74154206 , 24914424*w + 740525492 , -3136126*w - 150405570 , -37932*w + 485912 , -204284*w + 369110 , -161316*w - 3362450 , 815396*w + 341502 , -973032*w + 1563968 , 478066*w - 3794504 ,
    -27181598*w - 54167820 ],
[ 15583562*w + 72301404 , 2008864*w - 74154206 , 16714950 , -1377178*w - 165924696 , -227580*w + 33732650 , -11246*w - 89124 , 49174*w - 77140 , 24294*w + 705012 , -167882*w - 89782 , 208002*w - 305340 , -111524*w + 781494 , 5762846*w + 13259106
],
[ -152735164*w - 731362380 , -24914424*w + 740525492 , 1377178*w - 165924696 , 1665515124 , 4847834*w - 334932388 , -64498*w + 2094750 , -502140*w + 632730 , -687270*w - 10591350 , 2634468*w + 463120 , -2950782*w + 5293050 , 1269140*w - 12095790 ,
-54788122*w - 136082408 ],
[ 32402264*w + 145210450 , 3136126*w - 150405570 , 227580*w + 33732650 , -4847834*w - 334932388 , 68314708 , 1306*w - 249550 , 99216*w - 192122 , 103142*w + 1835190 , -453292*w - 147392 , 523074*w - 887754 , -241972*w + 2089374 , 11729614*w +
    26517400 ],
[ -121716*w - 288330 , 37932*w + 485912 , 11246*w - 89124 , 64498*w + 2094750 , -1306*w - 249550 , 161672 , -1164*w + 7504 , -182510*w - 466592 , 141776*w - 273028 , -69268*w + 553854 , -110520*w - 723212 , 127412*w - 598836 ],
[ -259298*w - 1750 , 204284*w + 369110 , -49174*w - 77140 , 502140*w + 632730 , -99216*w - 192122 , 1164*w + 7504 , 8386 , -18908*w - 26166 , 9344*w - 27468 , -1026*w + 49826 , -15164*w - 52878 , -72044*w - 18186 ],
[ 355294*w + 1376256 , 161316*w - 3362450 , -24294*w + 705012 , 687270*w - 10591350 , -103142*w + 1835190 , 182510*w - 466592 , 18908*w - 26166 , 3335402 , -858612*w - 399140 , 988090*w - 1255702 , -596636*w + 3542294 , -997860*w + 851998 ],
[ 187000*w - 906290 , -815396*w + 341502 , 167882*w - 89782 , -2634468*w + 463120 , 453292*w - 147392 , -141776*w - 273028 , -9344*w - 27468 , 858612*w - 399140 , 1596798 , -441706*w - 1630006 , 983444*w + 650650 , 301950*w + 1679636 ],
[ -567668*w + 311080 , 973032*w + 1563968 , -208002*w - 305340 , 2950782*w + 5293050 , -523074*w - 887754 , 69268*w + 553854 , 1026*w + 49826 , -988090*w - 1255702 , 441706*w - 1630006 , 2521974 , -824812*w - 2571072 , 117428*w - 2359126 ],
[ 671378*w + 959280 , -478066*w - 3794504 , 111524*w + 781494 , -1269140*w - 12095790 , 241972*w + 2089374 , 110520*w - 723212 , 15164*w - 52878 , 596636*w + 3542294 , -983444*w + 650650 , 824812*w - 2571072 , 4509428 , -894174*w + 2130688 ],
[ -13329396*w + 96212172 , 27181598*w - 54167820 , -5762846*w + 13259106 , 54788122*w - 136082408 , -11729614*w + 26517400 , -127412*w - 598836 , 72044*w - 18186 , 997860*w + 851998 , -301950*w + 1679636 , -117428*w - 2359126 , 894174*w + 2130688
, 28036932 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 310 ***/
Grammatrix:=Matrix(S,[
[ 277536840966 , 2288815588*w - 102161172148 , 1003500577*w + 12593869841 , -642781600*w + 6522075448 , -77861720*w + 2123011884 , -24096260*w + 252192332 , -86496396*w + 246928528 , -56617527*w + 117090981 , 219685902*w + 332948168 , -41699970*w
    + 19467098 , -95330262*w + 594894818 , -31028175419*w - 83081423663 ],
[ -2288815588*w - 102161172148 , 37738407784 , -475194078*w - 4574929296 , 183732893*w - 2438950843 , 10665470*w - 789064206 , 6751710*w - 94629752 , 29853429*w - 96425077 , 19921905*w - 46652991 , -84022332*w - 109899216 , 15243084*w - 9687594 ,
30145090*w - 225529024 , 12106913765*w + 28789466041 ],
[ -1003500577*w + 12593869841 , 475194078*w - 4574929296 , 652670998 , -52436314*w + 254791978 , -23497256*w + 90492234 , -3492198*w + 9854404 , -6199810*w + 6040286 , -3689114*w + 1720446 , 7044781*w + 29470903 , -2104543*w - 1815065 , -9891045*w
    + 21263739 , -1112323684*w - 4571927500 ],
[ 642781600*w + 6522075448 , -183732893*w - 2438950843 , 52436314*w + 254791978 , 176345260 , 8568408*w + 53465930 , 682512*w + 6795978 , -829769*w + 8454187 , -742301*w + 4628995 , 6678570*w + 293258 , -867150*w + 1865864 , 673664*w + 16945614 ,
-919574070*w - 1441010438 ],
[ 77861720*w + 2123011884 , -10665470*w - 789064206 , 23497256*w + 90492234 , -8568408*w + 53465930 , 36532188 , -228632*w + 4424686 , -1159534*w + 4346272 , -832010*w + 2243584 , 3844704*w + 4189920 , -668416*w + 565376 , -1064192*w + 10269056 ,
-264036886*w - 565124938 ],
[ 24096260*w + 252192332 , -6751710*w - 94629752 , 3492198*w + 9854404 , -682512*w + 6795978 , 228632*w + 4424686 , 547568 , -112396*w + 587720 , -87114*w + 311724 , 496956*w + 336532 , -78034*w + 99358 , -63338*w + 1303302 , -35776722*w -
    55382978 ],
[ 86496396*w + 246928528 , -29853429*w - 96425077 , 6199810*w + 6040286 , 829769*w + 8454187 , 1159534*w + 4346272 , 112396*w + 587720 , 885612 , -34844*w + 483812 , 644292*w - 350812 , -69244*w + 226996 , 199740*w + 1596588 , -53691885*w -
    4776611 ],
[ 56617527*w + 117090981 , -19921905*w - 46652991 , 3689114*w + 1720446 , 742301*w + 4628995 , 832010*w + 2243584 , 87114*w + 311724 , 34844*w + 483812 , 282996 , 347568*w - 378616 , -29684*w + 148092 , 177664*w + 840560 , -30082882*w + 10291022
],
[ -219685902*w + 332948168 , 84022332*w - 109899216 , -7044781*w + 29470903 , -6678570*w + 293258 , -3844704*w + 4189920 , -496956*w + 336532 , -644292*w - 350812 , -347568*w - 378616 , 3498936 , -142068*w - 453572 , -1271040*w + 401520 ,
    27354708*w - 273299810 ],
[ 41699970*w + 19467098 , -15243084*w - 9687594 , 2104543*w - 1815065 , 867150*w + 1865864 , 668416*w + 565376 , 78034*w + 99358 , 69244*w + 226996 , 29684*w + 148092 , 142068*w - 453572 , 99344 , 181248*w + 309344 , -14575678*w + 27383552 ],
[ 95330262*w + 594894818 , -30145090*w - 225529024 , 9891045*w + 21263739 , -673664*w + 16945614 , 1064192*w + 10269056 , 63338*w + 1303302 , -199740*w + 1596588 , -177664*w + 840560 , 1271040*w + 401520 , -181248*w + 309344 , 3279584 ,
    -95821926*w - 100651488 ],
[ 31028175419*w - 83081423663 , -12106913765*w + 28789466041 , 1112323684*w - 4571927500 , 919574070*w - 1441010438 , 264036886*w - 565124938 , 35776722*w - 55382978 , 53691885*w - 4776611 , 30082882*w + 10291022 , -27354708*w - 273299810 ,
    14575678*w + 27383552 , 95821926*w - 100651488 , 49163232006 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );
/***Gitter Nr. 311 ***/
Grammatrix:=Matrix(S,[
[ 42154 , 2104*w + 13384 , -5608*w + 18340 , 16482*w - 12138 , 6848*w - 120876 , -11835*w + 1449 , 6458*w - 5544 , -501*w - 36589 , -219*w - 23499 , 9410*w + 5768 , 9892*w - 5670 , -21934*w - 80038 ],
[ -2104*w + 13384 , 8988 , -6128*w + 8106 , 574*w + 7714 , 4278*w - 13790 , -400*w - 3024 , 484*w + 1974 , 1298*w + 1260 , 810*w + 714 , -480*w + 2184 , -84*w + 2604 , 620*w - 11662 ],
[ 5608*w + 18340 , 6128*w + 8106 , 63952 , -3144*w + 36554 , -1938*w + 1274 , 5202*w - 13748 , -1342*w + 8442 , 9254*w + 8540 , 6210*w + 5474 , -3680*w + 16744 , -644*w + 19964 , 3126*w + 7532 ],
[ -16482*w - 12138 , -574*w + 7714 , 3144*w + 36554 , 191422 , 76068*w + 158984 , 14424*w - 113904 , -916*w + 65198 , 48626*w + 25172 , 32598*w + 21966 , -19896*w + 87528 , -3444*w + 106764 , 95372*w - 27412 ],
[ -6848*w - 120876 , -4278*w - 13790 , 1938*w + 1274 , -76068*w + 158984 , 550578 , 61271*w - 54425 , -29681*w + 56063 , 24838*w + 202104 , 15646*w + 129752 , -55776*w + 10360 , -51016*w + 75376 , 131998*w + 330316 ],
[ 11835*w + 1449 , 400*w - 3024 , -5202*w - 13748 , -14424*w - 113904 , -61271*w - 54425 , 77714 , -4618*w - 40250 , -33242*w + 13356 , -22068*w + 4522 , 5690*w - 63532 , -5698*w - 67298 , -56890*w + 72842 ],
[ -6458*w - 5544 , -484*w + 1974 , 1342*w + 8442 , 916*w + 65198 , 29681*w + 56063 , 4618*w - 40250 , 23072 , 18062*w + 9450 , 11660*w + 7742 , -6762*w + 30268 , -1190*w + 36890 , 34910*w - 14476 ],
[ 501*w - 36589 , -1298*w + 1260 , -9254*w + 8540 , -48626*w + 25172 , -24838*w + 202104 , 33242*w + 13356 , -18062*w + 9450 , 125244 , -2188*w + 74942 , -26426*w - 29260 , -30702*w + 3122 , 31716*w + 182812 ],
[ 219*w - 23499 , -810*w + 714 , -6210*w + 5474 , -32598*w + 21966 , -15646*w + 129752 , 22068*w + 4522 , -11660*w + 7742 , 2188*w + 74942 , 48216 , -18836*w - 16072 , -20790*w + 7546 , 21974*w + 116732 ],
[ -9410*w + 5768 , 480*w + 2184 , 3680*w + 16744 , 19896*w + 87528 , 55776*w + 10360 , -5690*w - 63532 , 6762*w + 30268 , 26426*w - 29260 , 18836*w - 16072 , 61152 , 10822*w + 57526 , 40422*w - 95536 ],
[ -9892*w - 5670 , 84*w + 2604 , 644*w + 19964 , 3444*w + 106764 , 51016*w + 75376 , 5698*w - 67298 , 1190*w + 36890 , 30702*w + 3122 , 20790*w + 7546 , -10822*w + 57526 , 67760 , 54600*w - 42168 ],
[ 21934*w - 80038 , -620*w - 11662 , -3126*w + 7532 , -95372*w - 27412 , -131998*w + 330316 , 56890*w + 72842 , -34910*w - 14476 , -31716*w + 182812 , -21974*w + 116732 , -40422*w - 95536 , -54600*w - 42168 , 437976 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );
/***Gitter Nr. 312 ***/
Grammatrix:=Matrix(S,[
[ 1350034 , 15781*w - 16205 , 623473*w + 352219 , 258252*w + 119812 , -91773*w + 301721 , 37391*w + 50869 , -66626*w + 181244 , -14708*w + 9786 , -64167*w - 79513 , 111906*w - 384902 , 66492*w + 486458 , 921488*w - 665266 ],
[ -15781*w - 16205 , 9100 , -18719*w - 47761 , -6226*w - 17066 , -6741*w - 2233 , -1200*w + 2310 , -4326*w - 5082 , -498*w - 1260 , 900*w - 6048 , 5490*w + 7056 , -5562*w + 9072 , -27153*w + 60599 ],
[ -623473*w + 352219 , 18719*w - 47761 , 5789252 , 5920*w + 2322684 , -58514*w - 409304 , -16563*w + 40775 , -24508*w - 50232 , -1272*w - 10080 , 14745*w - 52773 , 38880*w + 120036 , -62952*w + 23982 , 1510913*w + 4585385 ],
[ -258252*w + 119812 , 6226*w - 17066 , -5920*w + 2322684 , 936138 , -27018*w - 176330 , -6936*w + 14896 , -12506*w - 25648 , -810*w - 5208 , 6538*w - 25410 , 19456*w + 53032 , -29136*w + 16044 , 597654*w + 1860222 ],
[ 91773*w + 301721 , 6741*w - 2233 , 58514*w - 409304 , 27018*w - 176330 , 197806 , 13895*w + 875 , -5962*w + 122990 , -3380*w + 15708 , -28547*w - 8477 , 12690*w - 178388 , 53710*w + 132566 , 49379*w - 593327 ],
[ -37391*w + 50869 , 1200*w + 2310 , 16563*w + 40775 , 6936*w + 14896 , -13895*w + 875 , 17696 , -8932*w - 12586 , -552*w - 3948 , 1852*w - 26628 , 22738*w + 29176 , -22866*w + 37296 , 33937*w + 113351 ],
[ 66626*w + 181244 , 4326*w - 5082 , 24508*w - 50232 , 12506*w - 25648 , 5962*w + 122990 , 8932*w - 12586 , 101038 , -2294*w + 15064 , -20004*w + 9954 , -7558*w - 141302 , 52598*w + 63462 , 79070*w - 304038 ],
[ 14708*w + 9786 , 498*w - 1260 , 1272*w - 10080 , 810*w - 5208 , 3380*w + 15708 , 552*w - 3948 , 2294*w + 15064 , 2982 , -1514*w + 6160 , -6742*w - 15498 , 9172*w - 7000 , 2496*w - 56196 ],
[ 64167*w - 79513 , -900*w - 6048 , -14745*w - 52773 , -6538*w - 25410 , 28547*w - 8477 , -1852*w - 26628 , 20004*w + 9954 , 1514*w + 6160 , 64414 , -53346*w - 42294 , 44606*w - 102606 , -64717*w - 179123 ],
[ -111906*w - 384902 , -5490*w + 7056 , -38880*w + 120036 , -19456*w + 53032 , -12690*w - 178388 , -22738*w + 29176 , 7558*w - 141302 , 6742*w - 15498 , 53346*w - 42294 , 363384 , -123058*w - 207242 , -146720*w + 503188 ],
[ -66492*w + 486458 , 5562*w + 9072 , 62952*w + 23982 , 29136*w + 16044 , -53710*w + 132566 , 22866*w + 37296 , -52598*w + 63462 , -9172*w - 7000 , -44606*w - 102606 , 123058*w - 207242 , 409948 , 255444*w + 60746 ],
[ -921488*w - 665266 , 27153*w + 60599 , -1510913*w + 4585385 , -597654*w + 1860222 , -49379*w - 593327 , -33937*w + 113351 , -79070*w - 304038 , -2496*w - 56196 , 64717*w - 179123 , 146720*w + 503188 , -255444*w + 60746 , 7929376 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );
/***Gitter Nr. 313 ***/
Grammatrix:=Matrix(S,[
[ 98 , -14*w - 28 , 46*w , 8*w , 0 , 0 , 0 , -16*w , 26*w , -6*w , 0 , -38*w - 70 ],
[ 14*w - 28 , 42 , -28*w - 28 , -6*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 56 ],
[ -46*w , 28*w - 28 , 476 , 112 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 4*w + 98 ],
[ -8*w , 6*w , 112 , 42 , 14 , 6*w , -2*w , -4*w , 0 , 0 , 0 , -14*w + 56 ],
[ 0 , 0 , 0 , 14 , 140 , -6*w + 42 , -50*w , -22*w , 0 , 0 , 0 , -2*w + 182 ],
[ 0 , 0 , 0 , -6*w , 6*w + 42 , 42 , -16*w + 28 , -6*w , 0 , 0 , 0 , 12*w ],
[ 0 , 0 , 0 , 2*w , 50*w , 16*w + 28 , 140 , 56 , 0 , 0 , 0 , 68*w - 14 ],
[ 16*w , 0 , 0 , 4*w , 22*w , 6*w , 56 , 252 , 56 , 24*w , 48*w - 168 , -44*w + 56 ],
[ -26*w , 0 , 0 , 0 , 0 , 0 , 0 , 56 , 364 , 26*w - 70 , 52*w - 182 , 26*w - 182 ],
[ 6*w , 0 , 0 , 0 , 0 , 0 , 0 , -24*w , -26*w - 70 , 42 , 20*w + 84 , -2*w ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -48*w - 168 , -52*w - 182 , -20*w + 84 , 308 , 52*w - 28 ],
[ 38*w - 70 , 56 , -4*w + 98 , 14*w + 56 , 2*w + 182 , -12*w , -68*w - 14 , 44*w + 56 , -26*w - 182 , 2*w , -52*w - 28 , 882 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 3402 );
/***Gitter Nr. 314 ***/
Grammatrix:=Matrix(S,[
[ 365205092 , 6763341*w - 13847575 , 2140822*w + 4575872 , 561078*w + 1722882 , -180828*w + 840378 , -404728*w + 5502434 , 321593*w - 514115 , 148085*w - 362537 , 221697*w + 1001917 , 923558*w - 43176 , 923458*w - 3226328 , 79805935*w + 201404175
],
[ -6763341*w - 13847575 , 4931094 , -249513*w + 2404199 , -103922*w + 626612 , 97290*w - 54068 , -16719*w - 115283 , 707*w + 18347 , -1512*w + 9226 , -5408*w - 7854 , -17966*w + 16534 , -9028*w + 79492 , -7524375*w + 3628597 ],
[ -2140822*w + 4575872 , 249513*w + 2404199 , 2866136 , -18102*w + 815584 , 42932*w + 147910 , -212944*w - 29274 , 7940*w + 87962 , 11836*w + 37324 , -61972*w + 50848 , -8404*w + 342692 , 156416*w + 380240 , -133758*w + 7066220 ],
[ -561078*w + 1722882 , 103922*w + 626612 , 18102*w + 815584 , 236292 , 9680*w + 33446 , -68780*w + 686 , 2208*w + 26082 , 3988*w + 11424 , -20538*w + 15638 , -2268*w + 113232 , 51968*w + 123648 , 103604*w + 2218384 ],
[ 180828*w + 840378 , -97290*w - 54068 , -42932*w + 147910 , -9680*w + 33446 , 72548 , -3766*w + 13552 , 1684*w + 9814 , 654*w + 336 , -834*w + 16926 , 8804*w + 9044 , 13720*w - 18760 , 320644*w + 28028 ],
[ 404728*w + 5502434 , 16719*w - 115283 , 212944*w - 29274 , 68780*w + 686 , 3766*w + 13552 , 878374 , 29378*w - 55076 , 18610*w - 57232 , 9204*w + 191716 , 165288*w + 65828 , 196728*w - 488040 , 1409762*w + 1508612 ],
[ -321593*w - 514115 , -707*w + 18347 , -7940*w + 87962 , -2208*w + 26082 , -1684*w + 9814 , -29378*w - 55076 , 22624 , 1060*w + 9660 , -9768*w + 8568 , -3578*w + 48874 , 20244*w + 63588 , -237700*w + 237706 ],
[ -148085*w - 362537 , 1512*w + 9226 , -11836*w + 37324 , -3988*w + 11424 , -654*w + 336 , -18610*w - 57232 , -1060*w + 9660 , 6860 , -5536*w - 9044 , -11264*w + 23926 , 182*w + 62118 , -136620*w + 81956 ],
[ -221697*w + 1001917 , 5408*w - 7854 , 61972*w + 50848 , 20538*w + 15638 , 834*w + 16926 , -9204*w + 191716 , 9768*w + 8568 , 5536*w - 9044 , 74704 , 52198*w + 33726 , 69580*w - 137732 , 127732*w + 631120 ],
[ -923558*w - 43176 , 17966*w + 16534 , 8404*w + 342692 , 2268*w + 113232 , -8804*w + 9044 , -165288*w + 65828 , 3578*w + 48874 , 11264*w + 23926 , -52198*w + 33726 , 285852 , 135310*w + 291102 , -309242*w + 1377572 ],
[ -923458*w - 3226328 , 9028*w + 79492 , -156416*w + 380240 , -51968*w + 123648 , -13720*w - 18760 , -196728*w - 488040 , -20244*w + 63588 , -182*w + 62118 , -69580*w - 137732 , -135310*w + 291102 , 745360 , -994674*w + 324618 ],
[ -79805935*w + 201404175 , 7524375*w + 3628597 , 133758*w + 7066220 , -103604*w + 2218384 , -320644*w + 28028 , -1409762*w + 1508612 , 237700*w + 237706 , 136620*w + 81956 , -127732*w + 631120 , 309242*w + 1377572 , 994674*w + 324618 , 236571804
]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 128 );
/***Gitter Nr. 315 ***/
Grammatrix:=Matrix(S,[
[ 8679375390 , -36984812*w - 1538331494 , -93374007*w + 505062159 , 36974428*w - 107183720 , -144641152*w - 49544922 , 94752968*w - 48402508 , -90825628*w + 260871254 , -69620664*w + 69593748 , 23049724*w - 33959464 , 32104720*w + 43099784 ,
    -37982028*w + 27608798 , -1722940328*w - 3277145942 ],
[ 36984812*w - 1538331494 , 281777720 , 19274640*w - 75145910 , -6374684*w + 15340878 , 24556908*w + 21077770 , -17651366*w - 243222 , 19419746*w - 37582118 , 12909420*w - 5716368 , -4444624*w + 3870062 , -4995126*w - 10297770 , 6906106*w -
    1383144 , 293499790*w + 632792132 ],
[ 93374007*w + 505062159 , -19274640*w - 75145910 , 54476422 , 2320042*w - 12759306 , -11978578*w + 21442960 , 5024697*w - 20566721 , 294630*w + 35052682 , -3525744*w + 17903228 , 848217*w - 6612599 , 3551518*w - 2445128 , -2198860*w + 8901522 ,
    -132323947*w - 61686149 ],
[ -36974428*w - 107183720 , 6374684*w + 15340878 , -2320042*w - 12759306 , 4465790 , 1459044*w - 10524808 , -6938*w + 6642048 , -2218014*w - 8014174 , -367694*w - 5862374 , 224140*w + 1954526 , -679336*w + 2236528 , -72804*w - 3137498 , 35045940*w
    - 8129828 ],
[ 144641152*w - 49544922 , -24556908*w + 21077770 , 11978578*w + 21442960 , -1459044*w - 10524808 , 61637156 , -3729580*w - 38862502 , 16965578*w + 33125554 , 5831392*w + 27155982 , -2527508*w - 8925378 , 1791200*w - 14436296 , 2569108*w +
    15166718 , -49593308*w + 205255764 ],
[ -94752968*w - 48402508 , 17651366*w - 243222 , -5024697*w - 20566721 , 6938*w + 6642048 , 3729580*w - 38862502 , 27902000 , -8822720*w - 29024002 , -1894954*w - 19324802 , 1047764*w + 6699210 , -1994256*w + 8159928 , -655716*w - 10478678 ,
    48200846*w - 106148602 ],
[ 90825628*w + 260871254 , -19419746*w - 37582118 , -294630*w + 35052682 , 2218014*w - 8014174 , -16965578*w + 33125554 , 8822720*w - 29024002 , 51062060 , -4396180*w + 25627168 , 1101970*w - 9666202 , 4919986*w - 4215470 , -2807054*w + 12990390 ,
-85299398*w + 12543090 ],
[ 69620664*w + 69593748 , -12909420*w - 5716368 , 3525744*w + 17903228 , 367694*w - 5862374 , -5831392*w + 27155982 , 1894954*w - 19324802 , 4396180*w + 25627168 , 15951334 , -270114*w - 5612124 , 2171926*w - 5199642 , -309810*w + 8439606 ,
    -40415102*w + 60802980 ],
[ -23049724*w - 33959464 , 4444624*w + 3870062 , -848217*w - 6612599 , -224140*w + 1954526 , 2527508*w - 8925378 , -1047764*w + 6699210 , -1101970*w - 9666202 , 270114*w - 5612124 , 2018870 , -852362*w + 1576806 , 250608*w - 2936108 , 15524136*w -
    15784930 ],
[ -32104720*w + 43099784 , 4995126*w - 10297770 , -3551518*w - 2445128 , 679336*w + 2236528 , -1791200*w - 14436296 , 1994256*w + 8159928 , -4919986*w - 4215470 , -2171926*w - 5199642 , 852362*w + 1576806 , 3767008 , -1048722*w - 3047646 ,
    5037186*w - 58055102 ],
[ 37982028*w + 27608798 , -6906106*w - 1383144 , 2198860*w + 8901522 , 72804*w - 3137498 , -2569108*w + 15166718 , 655716*w - 10478678 , 2807054*w + 12990390 , 309810*w + 8439606 , -250608*w - 2936108 , 1048722*w - 3047646 , 4509428 , -20216278*w
    + 37190664 ],
[ 1722940328*w - 3277145942 , -293499790*w + 632792132 , 132323947*w - 61686149 , -35045940*w - 8129828 , 49593308*w + 205255764 , -48200846*w - 106148602 , 85299398*w + 12543090 , 40415102*w + 60802980 , -15524136*w - 15784930 , -5037186*w -
    58055102 , 20216278*w + 37190664 , 3652100228 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 60 );


/***Gitter Nr. 316 ***/
Grammatrix:=Matrix(S,[
[ 27159496 , -31283058*w - 115488898 , -11545992*w - 22896174 , 4175763*w + 1838725 , -2174850*w + 75474 , -853435*w + 2093847 , 746991*w - 2208311 , 937591*w + 2144359 , -70563*w + 317457 , -528000*w - 378896 , -461138*w + 2618448 , -657036*w -
    9828182 ],
[ 31283058*w - 115488898 , 810286778 , 25885104*w + 210478996 , -18420351*w - 46221763 , 8713782*w + 2526202 , 3925907*w - 8270535 , -3586743*w + 8199765 , -3425597*w - 10303503 , 368901*w - 1210657 , 2112008*w + 2394980 , 2490534*w - 10167164 ,
    -18294866*w + 54188946 ],
[ 11545992*w - 22896174 , -25885104*w + 210478996 , 61663910 , -3380682*w - 17391416 , 2066570*w + 3060078 , 1289954*w - 1290912 , -1230758*w + 1386630 , -586210*w - 3648190 , 143442*w - 252588 , 499112*w + 1166942 , 1036022*w - 2187486 ,
    -7162646*w + 8931188 ],
[ -4175763*w + 1838725 , 18420351*w - 46221763 , 3380682*w - 17391416 , 6998796 , -310284*w - 2500512 , -463924*w - 280028 , 479736*w + 136192 , -45836*w + 1502872 , -64528*w + 26040 , -92272*w - 625688 , -497840*w + 254800 , 2799989*w + 1208473
],
[ 2174850*w + 75474 , -8713782*w + 2526202 , -2066570*w + 3060078 , 310284*w - 2500512 , 8229760 , 667176*w + 2914114 , -717940*w - 2041228 , 711750*w - 2234232 , 95176*w + 147700 , -116776*w + 1221836 , 886320*w + 1022000 , 1055548*w + 292880 ],
[ 853435*w + 2093847 , -3925907*w - 8270535 , -1289954*w - 1290912 , 463924*w - 280028 , -667176*w + 2914114 , 1898246 , -66006*w - 1684480 , 695738*w - 244076 , 22928*w + 197568 , -259264*w + 442960 , 242416*w + 1499120 , 710051*w + 1061655 ],
[ -746991*w - 2208311 , 3586743*w + 8199765 , 1230758*w + 1386630 , -479736*w + 136192 , 717940*w - 2041228 , 66006*w - 1684480 , 1586088 , -679688*w + 42112 , -16512*w - 199164 , 268424*w - 359212 , -173812*w - 1519476 , -588047*w - 1020887 ],
[ -937591*w + 2144359 , 3425597*w - 10303503 , 586210*w - 3648190 , 45836*w + 1502872 , -711750*w - 2234232 , -695738*w - 244076 , 679688*w + 42112 , 2089178 , -88404*w + 50148 , -151728*w - 836472 , -674130*w + 492590 , -406991*w + 1697311 ],
[ 70563*w + 317457 , -368901*w - 1210657 , -143442*w - 252588 , 64528*w + 26040 , -95176*w + 147700 , -22928*w + 197568 , 16512*w - 199164 , 88404*w + 50148 , 27902 , -39196*w + 24766 , 4412*w + 211708 , 66909*w + 148995 ],
[ 528000*w - 378896 , -2112008*w + 2394980 , -499112*w + 1166942 , 92272*w - 625688 , 116776*w + 1221836 , 259264*w + 442960 , -268424*w - 359212 , 151728*w - 836472 , 39196*w + 24766 , 412412 , 305800*w + 145992 , 280446*w - 481628 ],
[ 461138*w + 2618448 , -2490534*w - 10167164 , -1036022*w - 2187486 , 497840*w + 254800 , -886320*w + 1022000 , -242416*w + 1499120 , 173812*w - 1519476 , 674130*w + 492590 , -4412*w + 211708 , -305800*w + 145992 , 1639792 , 448028*w + 1291402 ],
[ 657036*w - 9828182 , 18294866*w + 54188946 , 7162646*w + 8931188 , -2799989*w + 1208473 , -1055548*w + 292880 , -710051*w + 1061655 , 588047*w - 1020887 , 406991*w + 1697311 , -66909*w + 148995 , -280446*w - 481628 , -448028*w + 1291402 ,
    15683136 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 60 );


/***Gitter Nr. 317 ***/
Grammatrix:=Matrix(S,[
[ 1955086 , -66331*w + 552475 , 21009*w - 102333 , 2249*w + 15477 , -3836*w + 35560 , -2167*w - 5061 , 12423*w - 116109 , 4508*w + 38710 , -39003*w + 11081 , 121320*w - 47474 , -34692*w + 170702 , 813256*w + 1441328 ],
[ 66331*w + 552475 , 209454 , -740*w - 37660 , 1368*w + 2142 , 912*w + 280 , -76*w - 4690 , 370*w - 39872 , 2854*w + 11648 , -12472*w + 13104 , 38324*w - 44128 , -5696*w + 64288 , 285933*w + 198611 ],
[ -21009*w - 102333 , 740*w - 37660 , 25844 , -1810*w + 476 , -3484*w - 980 , 62*w - 140 , 1016*w + 5054 , -106*w - 1456 , 1566*w - 1638 , -4792*w + 5516 , 712*w - 8036 , -72567*w - 37387 ],
[ -2249*w + 15477 , -1368*w + 2142 , 1810*w + 476 , 1414 , -24*w + 2898 , 54*w + 210 , 60*w - 756 , 18*w - 168 , 0 , 0 , 0 , 1539*w + 25837 ],
[ 3836*w + 35560 , -912*w + 280 , 3484*w - 980 , 24*w + 2898 , 10948 , -66*w + 3626 , -2398*w + 10864 , 398*w - 6888 , 5000*w + 2520 , -17100*w - 4340 , 6900*w - 20300 , 2340*w + 42056 ],
[ 2167*w - 5061 , 76*w - 4690 , -62*w - 140 , -54*w + 210 , 66*w + 3626 , 2492 , -1940*w + 10262 , 314*w - 5012 , 4000*w + 1820 , -13680*w - 3430 , 5520*w - 16240 , -8165*w - 3549 ],
[ -12423*w - 116109 , -370*w - 39872 , -1016*w + 5054 , -60*w - 756 , 2398*w + 10864 , 1940*w + 10262 , 82754 , -4144*w - 35224 , 27856*w - 21924 , -91680*w + 92974 , 15840*w - 150304 , -96183*w + 44415 ],
[ -4508*w + 38710 , -2854*w + 11648 , 106*w - 1456 , -18*w - 168 , -398*w - 6888 , -314*w - 5012 , 4144*w - 35224 , 17402 , -13276*w - 700 , 44806*w - 8008 , -14554*w + 60102 , 35962*w + 9198 ],
[ 39003*w + 11081 , 12472*w + 13104 , -1566*w - 1638 , 0 , -5000*w + 2520 , -4000*w + 1820 , -27856*w - 21924 , 13276*w - 700 , 72422 , -7474*w - 243488 , 47086*w + 77518 , 9367*w - 227199 ],
[ -121320*w - 47474 , -38324*w - 44128 , 4792*w + 5516 , 0 , 17100*w - 4340 , 13680*w - 3430 , 91680*w + 92974 , -44806*w - 8008 , 7474*w - 243488 , 826154 , -150720*w - 295456 , -41166*w + 749588 ],
[ 34692*w + 170702 , 5696*w + 64288 , -712*w - 8036 , 0 , -6900*w - 20300 , -5520*w - 16240 , -15840*w - 150304 , 14554*w + 60102 , -47086*w + 77518 , 150720*w - 295456 , 298144 , 150992*w - 216370 ],
[ -813256*w + 1441328 , -285933*w + 198611 , 72567*w - 37387 , -1539*w + 25837 , -2340*w + 42056 , 8165*w - 3549 , 96183*w + 44415 , -35962*w + 9198 , -9367*w - 227199 , 41166*w + 749588 , -150992*w - 216370 , 3818612 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );


/***Gitter Nr. 318 ***/
Grammatrix:=Matrix(S,[
[ 14 , 0 , 6*w , w - 7 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 28 , 4*w , -3*w + 21 , 0 , 7*w + 7 , 4*w , -6*w , 0 , 0 , 0 , 0 ],
[ -6*w , -4*w , 28 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ -w - 7 , 3*w + 21 , 0 , 28 , -w - 7 , 6*w , 0 , -7*w + 7 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , w - 7 , 14 , 0 , 6*w , 4*w , 0 , 0 , 0 , 0 ],
[ 0 , -7*w + 7 , 0 , -6*w , 0 , 28 , 2*w + 14 , -3*w - 21 , 0 , 0 , 0 , 0 ],
[ 0 , -4*w , 0 , 0 , -6*w , -2*w + 14 , 28 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 6*w , 0 , 7*w + 7 , -4*w , 3*w - 21 , 0 , 28 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , 0 , 6*w , 4*w ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , 4*w , -6*w ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -6*w , -4*w , 28 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -4*w , 6*w , 0 , 28 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1137991680 );


/***Gitter Nr. 319 ***/
Grammatrix:=Matrix(S,[
[ 866362 , -62550*w + 151312 , 37154*w - 73528 , 51166*w - 3612 , 74492*w + 748622 , -22781*w - 213745 , -11730*w + 25438 , -9693*w + 34685 , 6285*w + 1799 , -8092*w - 21266 , 6752*w + 3668 , -51526*w - 104762 ],
[ 62550*w + 151312 , 259742 , 9124*w - 78918 , 58856*w - 25382 , -171012*w + 607516 , 54681*w - 157549 , 2472*w + 13258 , -2271*w + 14567 , 2301*w - 1547 , -3656*w - 4298 , 2416*w - 1204 , -19016*w - 175756 ],
[ -37154*w - 73528 , -9124*w - 78918 , 120260 , -39422*w - 13272 , 112448*w - 89936 , -40832*w - 20790 , -14764*w - 21840 , -9156*w - 3360 , 1560*w + 9240 , 2160*w - 16800 , 1080*w + 10080 , 4742*w + 67788 ],
[ -51166*w - 3612 , -58856*w - 25382 , 39422*w - 13272 , 199458 , -170664*w - 681338 , 41032*w + 253134 , 3826*w + 33040 , 4568*w - 672 , -728*w - 4312 , -1008*w + 7840 , -504*w - 4704 , 61418*w - 896 ],
[ -74492*w + 748622 , 171012*w + 607516 , -112448*w - 89936 , 170664*w - 681338 , 5539548 , 70600*w - 1690486 , 2774*w - 131936 , -26470*w - 8680 , 2488*w + 25032 , 7216*w - 41888 , 1664*w + 27440 , -347212*w - 678496 ],
[ 22781*w - 213745 , -54681*w - 157549 , 40832*w - 20790 , -41032*w + 253134 , -70600*w - 1690486 , 567098 , 8122*w + 61936 , 15874*w + 3710 , -1520*w - 16100 , -3616*w + 28672 , -1658*w - 18452 , 102996*w + 167202 ],
[ 11730*w + 25438 , -2472*w + 13258 , 14764*w - 21840 , -3826*w + 33040 , -2774*w - 131936 , -8122*w + 61936 , 26908 , 3680*w + 14448 , 1292*w - 6608 , -4272*w + 5096 , 1476*w - 6552 , 4296*w - 4466 ],
[ 9693*w + 34685 , 2271*w + 14567 , 9156*w - 3360 , -4568*w - 672 , 26470*w - 8680 , -15874*w + 3710 , -3680*w + 14448 , 13748 , 1824*w - 2156 , -3752*w - 1960 , 2192*w - 2128 , -2182*w - 4592 ],
[ -6285*w + 1799 , -2301*w - 1547 , -1560*w + 9240 , 728*w - 4312 , -2488*w + 25032 , 1520*w - 16100 , -1292*w - 6608 , -1824*w - 2156 , 2758 , 640*w - 3472 , 164*w + 2660 , 1528*w - 1666 ],
[ 8092*w - 21266 , 3656*w - 4298 , -2160*w - 16800 , 1008*w + 7840 , -7216*w - 41888 , 3616*w + 28672 , 4272*w + 5096 , 3752*w - 1960 , -640*w - 3472 , 8008 , -902*w - 4466 , -1770*w + 2534 ],
[ -6752*w + 3668 , -2416*w - 1204 , -1080*w + 10080 , 504*w - 4704 , -1664*w + 27440 , 1658*w - 18452 , -1476*w - 6552 , -2192*w - 2128 , -164*w + 2660 , 902*w - 4466 , 3388 , 1636*w + 168 ],
[ 51526*w - 104762 , 19016*w - 175756 , -4742*w + 67788 , -61418*w - 896 , 347212*w - 678496 , -102996*w + 167202 , -4296*w - 4466 , 2182*w - 4592 , -1528*w - 1666 , 1770*w + 2534 , -1636*w + 168 , 263032 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );


/***Gitter Nr. 320 ***/
Grammatrix:=Matrix(S,[
[ 28 , 0 , 3*w - 21 , 2*w - 14 , 7*w + 7 , 0 , 6*w , 4*w , 0 , 0 , 0 , 0 ],
[ 0 , 28 , 2*w - 14 , -3*w + 21 , 0 , 7*w + 7 , 4*w , -6*w , 0 , 0 , 0 , 0 ],
[ -3*w - 21 , -2*w - 14 , 28 , 0 , -6*w , -4*w , -7*w + 7 , 0 , 0 , 0 , 0 , 0 ],
[ -2*w - 14 , 3*w + 21 , 0 , 28 , -4*w , 6*w , 0 , -7*w + 7 , 0 , 0 , 0 , 0 ],
[ -7*w + 7 , 0 , 6*w , 4*w , 28 , 0 , 3*w + 21 , 2*w + 14 , 0 , 0 , 0 , 0 ],
[ 0 , -7*w + 7 , 4*w , -6*w , 0 , 28 , 2*w + 14 , -3*w - 21 , 0 , 0 , 0 , 0 ],
[ -6*w , -4*w , 7*w + 7 , 0 , -3*w + 21 , -2*w + 14 , 28 , 0 , 0 , 0 , 0 , 0 ],
[ -4*w , 6*w , 0 , 7*w + 7 , -2*w + 14 , 3*w - 21 , 0 , 28 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , 0 , 6*w , 4*w ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , 4*w , -6*w ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -6*w , -4*w , 28 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -4*w , 6*w , 0 , 28 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1567641600 );


/***Gitter Nr. 321 ***/
Grammatrix:=Matrix(S,[
[ 39648518 , -951643*w + 8005837 , -99874*w - 3433710 , -333657*w - 387863 , 77917*w + 241171 , -130143*w + 560441 , -414100*w + 669900 , -157945*w - 987889 , -386640*w - 1995532 , -40436*w - 1072162 , -304576*w + 2504530 , -2047080*w - 5926928 ],
[ 951643*w + 8005837 , 1799532 , -104556*w - 659162 , -73285*w - 14259 , 19591*w + 30387 , -14621*w + 128653 , -66089*w + 189259 , -50104*w - 170086 , -114879*w - 334929 , -29130*w - 203350 , -9692*w + 530726 , -558037*w - 877471 ],
[ 99874*w - 3433710 , 104556*w - 659162 , 347718 , 32139*w + 26439 , -4971*w - 23849 , 11555*w - 50435 , 29040*w - 76874 , 18491*w + 81641 , 44250*w + 163142 , 8984*w + 93618 , 14312*w - 232890 , 153302*w + 524020 ],
[ 333657*w - 387863 , 73285*w - 14259 , -32139*w + 26439 , 51002 , -118*w - 18942 , 5782*w - 7112 , 21206*w + 15904 , -3200*w + 33852 , -7248*w + 69664 , -7908*w + 27132 , 27992*w - 39144 , -19681*w + 170653 ],
[ -77917*w + 241171 , -19591*w + 30387 , 4971*w - 23849 , 118*w - 18942 , 13160 , -2098*w + 9422 , -7908*w - 2436 , -1434*w - 14700 , -2752*w - 28336 , 668*w - 13636 , -6656*w + 28224 , -4819*w - 61299 ],
[ 130143*w + 560441 , 14621*w + 128653 , -11555*w - 50435 , -5782*w - 7112 , 2098*w + 9422 , 19404 , -7950*w + 23856 , -8722*w - 18844 , -18540*w - 34104 , -6050*w - 23618 , 4802*w + 67970 , -52107*w - 29855 ],
[ 414100*w + 669900 , 66089*w + 189259 , -29040*w - 76874 , -21206*w + 15904 , 7908*w - 2436 , 7950*w + 23856 , 90216 , -22908*w + 392 , -47112*w + 2156 , -20952*w - 21112 , 38668*w + 102284 , -94066*w + 89614 ],
[ 157945*w - 987889 , 50104*w - 170086 , -18491*w + 81641 , 3200*w + 33852 , 1434*w - 14700 , 8722*w - 18844 , 22908*w + 392 , 54404 , 3176*w + 108108 , -5552*w + 49616 , 30384*w - 95872 , 37367*w + 207039 ],
[ 386640*w - 1995532 , 114879*w - 334929 , -44250*w + 163142 , 7248*w + 69664 , 2752*w - 28336 , 18540*w - 34104 , 47112*w + 2156 , -3176*w + 108108 , 220150 , -14336*w + 98336 , 67832*w - 182280 , 64274*w + 441686 ],
[ 40436*w - 1072162 , 29130*w - 203350 , -8984*w + 93618 , 7908*w + 27132 , -668*w - 13636 , 6050*w - 23618 , 20952*w - 21112 , 5552*w + 49616 , 14336*w + 98336 , 50512 , 18432*w - 112560 , 57852*w + 167846 ],
[ 304576*w + 2504530 , 9692*w + 530726 , -14312*w - 232890 , -27992*w - 39144 , 6656*w + 28224 , -4802*w + 67970 , -38668*w + 102284 , -30384*w - 95872 , -67832*w - 182280 , -18432*w - 112560 , 298144 , -190870*w - 226352 ],
[ 2047080*w - 5926928 , 558037*w - 877471 , -153302*w + 524020 , 19681*w + 170653 , 4819*w - 61299 , 52107*w - 29855 , 94066*w + 89614 , -37367*w + 207039 , -64274*w + 441686 , -57852*w + 167846 , 190870*w - 226352 , 1676598 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );


/***Gitter Nr. 322 ***/
Grammatrix:=Matrix(S,[
[ 208936 , -3448*w + 2464 , 1024*w - 25200 , 3030*w + 14588 , 14811*w - 17143 , -16810*w - 20202 , -12742*w + 7350 , 5552*w - 4914 , 1932*w - 11732 , -27518*w - 5194 , 15396*w - 41412 , 19034*w + 266994 ],
[ 3448*w + 2464 , 2156 , -12*w - 2716 , -32*w + 420 , -859*w - 4683 , -12*w , 18*w , 12*w , 0 , 0 , 0 , 7068*w - 1008 ],
[ -1024*w - 25200 , 12*w - 2716 , 21602 , 3086*w - 8470 , 680*w + 5460 , 270*w + 4732 , 686*w + 2352 , -678*w - 882 , -450*w , 828*w + 6174 , -1836*w - 1890 , -9450*w - 6286 ],
[ -3030*w + 14588 , 32*w + 420 , -3086*w - 8470 , 13146 , -1185*w - 1897 , -198*w - 7042 , -1256*w - 3948 , 792*w + 1050 , 750*w , -1380*w - 10290 , 3060*w + 3150 , -4448*w - 6748 ],
[ -14811*w - 17143 , 859*w - 4683 , -680*w + 5460 , 1185*w - 1897 , 26362 , 497*w - 2023 , -68*w - 1526 , -21*w + 567 , 227*w + 245 , 178*w - 3780 , 786*w + 2254 , -33602*w - 19208 ],
[ 16810*w - 20202 , 12*w , -270*w + 4732 , 198*w - 7042 , -497*w - 2023 , 21728 , 2944*w + 11816 , -1254*w - 3962 , -2182*w + 252 , 4156*w + 32074 , -9588*w - 9870 , 17006*w - 34580 ],
[ 12742*w + 7350 , -18*w , -686*w + 2352 , 1256*w - 3948 , 68*w - 1526 , -2944*w + 11816 , 10052 , -180*w - 4200 , -1192*w - 1988 , -1860*w + 21168 , -3908*w - 13888 , 14644*w + 126 ],
[ -5552*w - 4914 , -12*w , 678*w - 882 , -792*w + 1050 , 21*w + 567 , 1254*w - 3962 , 180*w - 4200 , 2408 , 398*w + 770 , 566*w - 7798 , 1484*w + 4816 , -6084*w - 1806 ],
[ -1932*w - 11732 , 0 , 450*w , -750*w , -227*w + 245 , 2182*w + 252 , 1192*w - 1988 , -398*w + 770 , 1638 , 3488*w - 2408 , -1254*w + 6930 , -3234*w - 12656 ],
[ 27518*w - 5194 , 0 , -828*w + 6174 , 1380*w - 10290 , -178*w - 3780 , -4156*w + 32074 , 1860*w + 21168 , -566*w - 7798 , -3488*w - 2408 , 57456 , -13406*w - 29694 , 31710*w - 24178 ],
[ -15396*w - 41412 , 0 , 1836*w - 1890 , -3060*w + 3150 , -786*w + 2254 , 9588*w - 9870 , 3908*w - 13888 , -1484*w + 4816 , 1254*w + 6930 , 13406*w - 29694 , 37268 , -21996*w - 38472 ],
[ -19034*w + 266994 , -7068*w - 1008 , 9450*w - 6286 , 4448*w - 6748 , 33602*w - 19208 , -17006*w - 34580 , -14644*w + 126 , 6084*w - 1806 , 3234*w - 12656 , -31710*w - 24178 , 21996*w - 38472 , 478086 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );


/***Gitter Nr. 323 ***/
Grammatrix:=Matrix(S,[
[ 4182276 , 8491162*w - 18000346 , -2827273*w - 220745 , -15384957*w + 90536187 , -4290078*w + 23194990 , 2150685*w - 608867 , 206814*w + 322266 , -823814*w + 208208 , 121059*w - 746501 , -568368*w - 1285158 , 522340*w - 761586 , 439869*w +
    18628477 ],
[ -8491162*w - 18000346 , 344452066 , 30557007*w - 79179863 , -176640913*w - 964234999 , -42206336*w - 256912362 , -7315491*w + 66175431 , -2089130*w + 4873960 , 2761858*w - 25019806 , 2561437*w + 7547729 , 8203208*w - 9054976 , 241502*w +
    18805528 , -71803533*w - 125107031 ],
[ 2827273*w - 220745 , -30557007*w - 79179863 , 52890628 , 118616181*w + 108131555 , 30601428*w + 32960130 , -3874497*w - 12565609 , -54522*w - 1707790 , 1442132*w + 4798864 , -906593*w + 346143 , -446380*w + 5613762 , -1463238*w - 2466324 ,
    24772937*w - 19790099 ],
[ 15384957*w + 90536187 , 176640913*w - 964234999 , -118616181*w + 108131555 , 3403097096 , -13087664*w + 887931912 , 57910480*w - 152959422 , 8496920*w - 4927454 , -21877498*w + 57756482 , -2790488*w - 31036908 , -27892128*w - 7787934 ,
    10087442*w - 53037838 , 134758202*w + 612982272 ],
[ 4290078*w + 23194990 , 42206336*w - 256912362 , -30601428*w + 32960130 , 13087664*w + 887931912 , 232153082 , 14470092*w - 41107738 , 2187524*w - 1493128 , -5467972*w + 15527876 , -834272*w - 7975506 , -7258628*w - 1311646 , 2422840*w - 14004228
, 37512456*w + 155933120 ],
[ -2150685*w - 608867 , 7315491*w + 66175431 , 3874497*w - 12565609 , -57910480*w - 152959422 , -14470092*w - 41107738 , 21753550 , -445116*w + 2034774 , -24446*w - 8196132 , 1018702*w + 1720656 , 2167332*w - 4490262 , 656030*w + 5566750 ,
    -18605942*w - 19571090 ],
[ -206814*w + 322266 , 2089130*w + 4873960 , 54522*w - 1707790 , -8496920*w - 4927454 , -2187524*w - 1493128 , 445116*w + 2034774 , 272706 , -172772*w - 773346 , 125430*w + 15442 , 95088*w - 713188 , 174262*w + 390390 , -2117676*w + 930482 ],
[ 823814*w + 208208 , -2761858*w - 25019806 , -1442132*w + 4798864 , 21877498*w + 57756482 , 5467972*w + 15527876 , 24446*w - 8196132 , 172772*w - 773346 , 3097528 , -378838*w - 650944 , -809612*w + 1682338 , -246158*w - 2080078 , 7015540*w +
    7442946 ],
[ -121059*w - 746501 , -2561437*w + 7547729 , 906593*w + 346143 , 2790488*w - 31036908 , 834272*w - 7975506 , -1018702*w + 1720656 , -125430*w + 15442 , 378838*w - 650944 , 480438 , 386332*w + 388038 , -219460*w + 656460 , -530876*w - 7650580 ],
[ 568368*w - 1285158 , -8203208*w - 9054976 , 446380*w + 5613762 , 27892128*w - 7787934 , 7258628*w - 1311646 , -2167332*w - 4490262 , -95088*w - 713188 , 809612*w + 1682338 , -386332*w + 388038 , 2556092 , -724152*w - 721336 , 5886202*w - 8866032
],
[ -522340*w - 761586 , -241502*w + 18805528 , 1463238*w - 2466324 , -10087442*w - 53037838 , -2422840*w - 14004228 , -656030*w + 5566750 , -174262*w + 390390 , 246158*w - 2080078 , 219460*w + 656460 , 724152*w - 721336 , 1639792 , -4174736*w -
    9146760 ],
[ -439869*w + 18628477 , 71803533*w - 125107031 , -24772937*w - 19790099 , -134758202*w + 612982272 , -37512456*w + 155933120 , 18605942*w - 19571090 , 2117676*w + 930482 , -7015540*w + 7442946 , 530876*w - 7650580 , -5886202*w - 8866032 ,
    4174736*w - 9146760 , 160332354 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );


/***Gitter Nr. 324 ***/
Grammatrix:=Matrix(S,[
[ 7168980 , -190562*w - 73276 , 1214144*w - 926002 , 1016040*w - 9191700 , 304784*w - 1063734 , -132964*w + 485240 , -41398*w + 293118 , 51390*w - 118132 , 114670*w + 153286 , 58994*w + 35854 , 32208*w - 124740 , -1075556*w - 3129000 ],
[ 190562*w - 73276 , 868574 , 228516*w - 21070 , 439586*w + 947926 , 172743*w + 761887 , -235095*w - 428967 , 101298*w + 43288 , -43701*w - 47859 , 4315*w - 244965 , -8488*w - 112770 , -40348*w - 18480 , 91062*w + 229432 ],
[ -1214144*w - 926002 , -228516*w - 21070 , 3205412 , 1750046*w + 7661304 , 46272*w + 2143442 , -125456*w - 1433026 , 18772*w + 98224 , -11820*w - 9968 , 6136*w - 66248 , -32032 , -10608*w - 10920 , 1119978*w + 458038 ],
[ -1016040*w - 9191700 , -439586*w + 947926 , -1750046*w + 7661304 , 45967362 , -1093496*w + 8154314 , 301424*w - 6269396 , 137536*w + 416192 , -88314*w - 168280 , 75824*w - 542080 , 11664*w - 273056 , -86592*w - 123816 , 4445000*w + 12704258 ],
[ -304784*w - 1063734 , -172743*w + 761887 , -46272*w + 2143442 , 1093496*w + 8154314 , 2812138 , -244136*w - 1855980 , 149184*w + 197484 , -63124*w - 120806 , 38344*w - 461356 , -2388*w - 231112 , -78072*w - 83258 , 848568*w + 1564570 ],
[ 132964*w + 485240 , 235095*w - 428967 , 125456*w - 1433026 , -301424*w - 6269396 , 244136*w - 1855980 , 1493114 , -69310*w - 292572 , 23298*w + 146566 , -86464*w + 238756 , -29196*w + 138376 , 36168*w + 119042 , -499546*w - 1360268 ],
[ 41398*w + 293118 , -101298*w + 43288 , -18772*w + 98224 , -137536*w + 416192 , -149184*w + 197484 , 69310*w - 292572 , 139692 , 6200*w - 63784 , 52044*w - 15624 , 23496*w - 22792 , 912*w - 62636 , -60710*w + 67662 ],
[ -51390*w - 118132 , 43701*w - 47859 , 11820*w - 9968 , 88314*w - 168280 , 63124*w - 120806 , -23298*w + 146566 , -6200*w - 63784 , 33404 , -21952*w + 27608 , -8760*w + 19880 , 3720*w + 27944 , 42676*w - 65814 ],
[ -114670*w + 153286 , -4315*w - 244965 , -6136*w - 66248 , -75824*w - 542080 , -38344*w - 461356 , 86464*w + 238756 , -52044*w - 15624 , 21952*w + 27608 , 158662 , 6904*w + 76552 , 28068*w + 14644 , -16256*w - 229922 ],
[ -58994*w + 35854 , 8488*w - 112770 , -32032 , -11664*w - 273056 , 2388*w - 231112 , 29196*w + 138376 , -23496*w - 22792 , 8760*w + 19880 , -6904*w + 76552 , 39424 , 13046*w + 16170 , 2698*w - 109438 ],
[ -32208*w - 124740 , 40348*w - 18480 , 10608*w - 10920 , 86592*w - 123816 , 78072*w - 83258 , -36168*w + 119042 , -912*w - 62636 , -3720*w + 27944 , -28068*w + 14644 , -13046*w + 16170 , 37268 , 37574*w - 30772 ],
[ 1075556*w - 3129000 , -91062*w + 229432 , -1119978*w + 458038 , -4445000*w + 12704258 , -848568*w + 1564570 , 499546*w - 1360268 , 60710*w + 67662 , -42676*w - 65814 , 16256*w - 229922 , -2698*w - 109438 , -37574*w - 30772 , 7159082 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );


/***Gitter Nr. 325 ***/
Grammatrix:=Matrix(S,[
[ 1485525256068 , -1806204508*w - 312600774206 , 1592477854*w - 2203484668 , 200953710050*w - 554221173702 , -1257893116*w - 1491006300 , 76221511314*w - 210847403228 , 35288770884*w - 94249782368 , 524579582*w - 6405878906 , -3986334236*w +
    7497773948 , 81789314*w - 2541065688 , 923470622*w + 6091079736 , -97859837720*w - 403039142744 ],
[ 1806204508*w - 312600774206 , 65887196788 , -350894254*w + 384081838 , -42897783490*w + 114860027674 , 272058114*w + 321037976 , -16269718174*w + 43707011992 , -7534667046*w + 19520203892 , -108407298*w + 1350768482 , 857680622*w - 1596627074 ,
-16724424*w + 550541334 , -202359514*w - 1316630028 , 20115634002*w + 85665469862 ],
[ -1592477854*w - 2203484668 , 350894254*w + 384081838 , 92527596 , 186985194*w + 2199641808 , 5031276*w - 29024100 , 71809638*w + 828115232 , 25765432*w + 387386020 , 12419526*w - 531062 , -9733424*w - 87824716 , 8893680*w + 6889050 , -23446800*w
    + 11377800 , 560435540*w - 116806354 ],
[ -200953710050*w - 554221173702 , 42897783490*w + 114860027674 , -186985194*w + 2199641808 , 399872348904 , 558755636*w - 683049080 , 78690184*w + 151894916950 , -368382560*w + 69242390196 , 577119584*w + 2599328704 , 171921882*w - 6148831318 ,
    321540048*w + 734649230 , -1060590500*w - 704399920 , 91269665750*w + 57732627820 ],
[ 1257893116*w - 1491006300 , -272058114*w + 321037976 , -5031276*w - 29024100 , -558755636*w - 683049080 , 103203744 , -216202442*w - 254960566 , -81610750*w - 177030938 , -28412752*w + 98702996 , 82674438*w + 194113906 , -33043230*w + 22475110 ,
66113900*w - 152721590 , -278948834*w + 896499394 ],
[ -76221511314*w - 210847403228 , 16269718174*w + 43707011992 , -71809638*w + 828115232 , -78690184*w + 151894916950 , 216202442*w - 254960566 , 57700706588 , -155381422*w + 26296203052 , 221986804*w + 997637956 , 75937436*w - 2351422864 ,
    121950576*w + 288976408 , -406771674*w - 290936450 , 34657447732*w + 22079539048 ],
[ -35288770884*w - 94249782368 , 7534667046*w + 19520203892 , -25765432*w + 387386020 , 368382560*w + 69242390196 , 81610750*w - 177030938 , 155381422*w + 26296203052 , 12040671538 , 101026708*w + 363002500 , -48126244*w - 1091084288 , 71613370*w
    + 78495340 , -198988112*w + 38719926 , 15862104154*w + 9317482580 ],
[ -524579582*w - 6405878906 , 108407298*w + 1350768482 , -12419526*w - 531062 , -577119584*w + 2599328704 , 28412752*w + 98702996 , -221986804*w + 997637956 , -101026708*w + 363002500 , 167812890 , 134790690*w + 19336786 , -26744368*w + 86157036 ,
23813898*w - 279786038 , 501512842*w + 1462889358 ],
[ 3986334236*w + 7497773948 , -857680622*w - 1596627074 , 9733424*w - 87824716 , -171921882*w - 6148831318 , -82674438*w + 194113906 , -75937436*w - 2351422864 , 48126244*w - 1091084288 , -134790690*w + 19336786 , 869356124 , -83489468*w -
    146561058 , 255903654*w + 81468674 , -1573800280*w - 597557688 ],
[ -81789314*w - 2541065688 , 16724424*w + 550541334 , -8893680*w + 6889050 , -321540048*w + 734649230 , 33043230*w + 22475110 , -121950576*w + 288976408 , -71613370*w + 78495340 , 26744368*w + 86157036 , 83489468*w - 146561058 , 82455562 ,
    -36025116*w - 189489972 , 148460024*w + 719989732 ],
[ -923470622*w + 6091079736 , 202359514*w - 1316630028 , 23446800*w + 11377800 , 1060590500*w - 704399920 , -66113900*w - 152721590 , 406771674*w - 290936450 , 198988112*w + 38719926 , -23813898*w - 279786038 , -255903654*w + 81468674 , 36025116*w
    - 189489972 , 545640788 , -26364718*w - 2109607850 ],
[ 97859837720*w - 403039142744 , -20115634002*w + 85665469862 , -560435540*w - 116806354 , -91269665750*w + 57732627820 , 278948834*w + 896499394 , -34657447732*w + 22079539048 , -15862104154*w + 9317482580 , -501512842*w + 1462889358 ,
    1573800280*w - 597557688 , -148460024*w + 719989732 , 26364718*w - 2109607850 , 154761695312 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 56 );


/***Gitter Nr. 326 ***/
Grammatrix:=Matrix(S,[
[ 134683332 , 574369*w + 24849461 , -99187*w + 828639 , 38614*w - 449274 , 3854*w - 70182 , 72719*w - 373065 , -197966*w - 637840 , -1007450*w - 1975652 , 359516*w - 667170 , -45099*w + 644931 , 106024*w + 203490 , -6028366*w - 9505510 ],
[ -574369*w + 24849461 , 4712512 , -22933*w + 105777 , 10274*w - 87108 , -62*w - 20510 , 14039*w - 76853 , -35868*w - 138138 , -199678*w - 448028 , 79350*w - 124334 , -12791*w + 131467 , 20884*w + 45486 , -1055975*w - 1898449 ],
[ 99187*w + 828639 , 22933*w + 105777 , 28182 , -466*w - 3724 , 426*w + 2198 , 430*w - 742 , -2492*w + 2800 , -5140*w + 14028 , -1204*w - 4956 , 1466*w + 714 , 522*w - 1750 , -54649*w - 41643 ],
[ -38614*w - 449274 , -10274*w - 87108 , 466*w - 3724 , 3906 , 116*w + 924 , 140*w + 3318 , 2166*w + 2352 , 9726*w + 6552 , -2216*w + 6216 , -476*w - 4284 , -972*w - 140 , 24670*w + 16926 ],
[ -3854*w - 70182 , 62*w - 20510 , -426*w + 2198 , -116*w + 924 , 756 , -16*w + 1302 , 306*w + 1372 , 2400*w + 5908 , -1132*w + 1092 , 188*w - 1428 , -234*w - 490 , 3170*w - 560 ],
[ -72719*w - 373065 , -14039*w - 76853 , -430*w - 742 , -140*w + 3318 , 16*w + 1302 , 3766 , 1944*w + 3192 , 9190*w + 10682 , -2446*w + 5376 , -220*w - 4620 , -978*w - 658 , 23566*w - 1414 ],
[ 197966*w - 637840 , 35868*w - 138138 , 2492*w + 2800 , -2166*w + 2352 , -306*w + 1372 , -1944*w + 3192 , 13258 , 3546*w + 51156 , -5580*w - 3654 , 2516*w - 6636 , -764*w - 5180 , 15300*w + 114674 ],
[ 1007450*w - 1975652 , 199678*w - 448028 , 5140*w + 14028 , -9726*w + 6552 , -2400*w + 5908 , -9190*w + 10682 , -3546*w + 51156 , 223314 , -24234*w - 33348 , 12552*w - 19096 , -1352*w - 21448 , 24504*w + 466718 ],
[ -359516*w - 667170 , -79350*w - 124334 , 1204*w - 4956 , 2216*w + 6216 , 1132*w + 1092 , 2446*w + 5376 , 5580*w - 3654 , 24234*w - 33348 , 27090 , -3544*w - 8120 , -2056*w + 3192 , 52799*w - 69363 ],
[ 45099*w + 644931 , 12791*w + 131467 , -1466*w + 714 , 476*w - 4284 , -188*w - 1428 , 220*w - 4620 , -2516*w - 6636 , -12552*w - 19096 , 3544*w - 8120 , 7504 , 1424*w + 1792 , -32695*w - 32669 ],
[ -106024*w + 203490 , -20884*w + 45486 , -522*w - 1750 , 972*w - 140 , 234*w - 490 , 978*w - 658 , 764*w - 5180 , 1352*w - 21448 , 2056*w + 3192 , -1424*w + 1792 , 2464 , -1628*w - 50246 ],
[ 6028366*w - 9505510 , 1055975*w - 1898449 , 54649*w - 41643 , -24670*w + 16926 , -3170*w - 560 , -23566*w - 1414 , -15300*w + 114674 , -24504*w + 466718 , -52799*w - 69363 , 32695*w - 32669 , 1628*w - 50246 , 2632350 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 32 );


/***Gitter Nr. 327 ***/
Grammatrix:=Matrix(S,[
[ 1884048810 , 137497*w - 344214465 , -1032823*w + 18509001 , -108449*w + 35596015 , 147647*w - 40131 , 2736752*w - 2013942 , -1647855*w - 2040535 , 1174928*w + 3018204 , 4767947*w + 472395 , -1721708*w + 5824546 , 1408870*w + 5769260 ,
    -250445161*w - 462663075 ],
[ -137497*w - 344214465 , 64025472 , 176916*w - 2920316 , 18011*w - 6668151 , -23601*w - 1043 , -327432*w - 57344 , 154235*w + 369649 , -95370*w - 441714 , -472908*w - 397222 , 220854*w - 467390 , -91104*w - 657188 , 45685810*w + 83671378 ],
[ 1032823*w + 18509001 , -176916*w - 2920316 , 396718 , 16746*w + 287504 , 3774*w - 5852 , 60196*w - 167314 , -57694*w + 9576 , 48776*w + 33082 , 151080*w - 187894 , -22222*w + 258104 , 77878*w + 131138 , -2765131*w - 3818311 ],
[ 108449*w + 35596015 , -18011*w - 6668151 , -16746*w + 287504 , 698040 , 2572*w + 588 , 22698*w + 44086 , -4898*w - 41426 , 494*w + 39788 , 17806*w + 71456 , -16142*w - 476 , -4370*w + 37702 , -4741124*w - 8525104 ],
[ -147647*w - 40131 , 23601*w - 1043 , -3774*w - 5852 , -2572*w + 588 , 1652 , -994*w + 574 , 766*w + 406 , -560*w - 406 , -1946*w + 1526 , 456*w - 2912 , -812*w - 1932 , 42772*w - 126224 ],
[ -2736752*w - 2013942 , 327432*w - 57344 , -60196*w - 167314 , -22698*w + 44086 , 994*w + 574 , 870310 , 137020*w - 354508 , -152050*w + 180040 , -310738*w + 1196216 , -82362*w - 813876 , -288778*w - 59962 , 1173808*w - 1744680 ],
[ 1647855*w - 2040535 , -154235*w + 369649 , 57694*w + 9576 , 4898*w - 41426 , -766*w + 406 , -137020*w - 354508 , 300440 , 33736*w - 245756 , -69714*w - 847392 , 168794*w + 237664 , 128506*w - 311094 , -280446*w + 2163042 ],
[ -1174928*w + 3018204 , 95370*w - 441714 , -48776*w + 33082 , -494*w + 39788 , 560*w - 406 , 152050*w + 180040 , -33736*w - 245756 , 228368 , 152558*w + 640668 , -165302*w - 62244 , -70518*w + 356538 , -6926*w - 2053422 ],
[ -4767947*w + 472395 , 472908*w - 397222 , -151080*w - 187894 , -17806*w + 71456 , 1946*w + 1526 , 310738*w + 1196216 , 69714*w - 847392 , -152558*w + 640668 , 2584204 , -436430*w - 989310 , -454510*w + 686882 , 1541965*w - 4659991 ],
[ 1721708*w + 5824546 , -220854*w - 467390 , 22222*w + 258104 , 16142*w - 476 , -456*w - 2912 , 82362*w - 813876 , -168794*w + 237664 , 165302*w - 62244 , 436430*w - 989310 , 897624 , 290990*w + 275982 , -1376576*w - 299586 ],
[ -1408870*w + 5769260 , 91104*w - 657188 , -77878*w + 131138 , 4370*w + 37702 , 812*w - 1932 , 288778*w - 59962 , -128506*w - 311094 , 70518*w + 356538 , 454510*w + 686882 , -290990*w + 275982 , 745360 , -322058*w - 3279108 ],
[ 250445161*w - 462663075 , -45685810*w + 83671378 , 2765131*w - 3818311 , 4741124*w - 8525104 , -42772*w - 126224 , -1173808*w - 1744680 , 280446*w + 2163042 , 6926*w - 2053422 , -1541965*w - 4659991 , 1376576*w - 299586 , 322058*w - 3279108 ,
    347344592 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 144 );


/***Gitter Nr. 328 ***/
Grammatrix:=Matrix(S,[
[ 2548 , -55*w + 1015 , -393*w - 861 , 45*w + 273 , -22*w - 42 , 622*w + 28 , -27*w + 1603 , 5*w - 49 , -102*w - 168 , 496*w + 2058 , -592*w + 70 , 3680*w + 3934 ],
[ 55*w + 1015 , 6650 , -140*w - 2912 , -34*w + 210 , -4*w - 42 , 252*w + 210 , -120*w + 812 , 13*w - 7 , -39*w - 147 , 94*w + 1260 , -298*w - 266 , 1139*w + 2961 ],
[ 393*w - 861 , 140*w - 2912 , 3444 , 66*w - 420 , -56 , -272*w - 1120 , 440*w - 672 , 32*w , 16*w + 336 , 352*w - 1568 , 240*w + 1008 , -397*w - 6699 ],
[ -45*w + 273 , 34*w + 210 , -66*w - 420 , 98 , 0 , 100*w + 112 , -6*w + 308 , -2*w , -24*w - 56 , 90*w + 378 , -114*w + 14 , 369*w + 875 ],
[ 22*w - 42 , 4*w - 42 , -56 , 0 , 28 , -8*w + 14 , 2*w , -10*w , 0 , 0 , 0 , -38*w - 252 ],
[ -622*w + 28 , -252*w + 210 , 272*w - 1120 , -100*w + 112 , 8*w + 14 , 1624 , -488*w + 420 , -6*w , 4*w - 364 , -530*w + 1582 , -186*w - 1274 , -718*w + 6846 ],
[ 27*w + 1603 , 120*w + 812 , -440*w - 672 , 6*w + 308 , -2*w , 488*w + 420 , 2548 , 0 , -156*w - 420 , 728*w + 3192 , -932*w + 28 , 2999*w + 2289 ],
[ -5*w - 49 , -13*w - 7 , -32*w , 2*w , 10*w , 6*w , 0 , 28 , 0 , 0 , 0 , -66*w + 28 ],
[ 102*w - 168 , 39*w - 147 , -16*w + 336 , 24*w - 56 , 0 , -4*w - 364 , 156*w - 420 , 0 , 182 , 80*w - 784 , 152*w + 392 , -197*w - 1659 ],
[ -496*w + 2058 , -94*w + 1260 , -352*w - 1568 , -90*w + 378 , 0 , 530*w + 1582 , -728*w + 3192 , 0 , -80*w - 784 , 5712 , -1216*w - 1904 , 3028*w + 9352 ],
[ 592*w + 70 , 298*w - 266 , -240*w + 1008 , 114*w + 14 , 0 , 186*w - 1274 , 932*w + 28 , 0 , -152*w + 392 , 1216*w - 1904 , 2464 , 1010*w - 7532 ],
[ -3680*w + 3934 , -1139*w + 2961 , 397*w - 6699 , -369*w + 875 , 38*w - 252 , 718*w + 6846 , -2999*w + 2289 , 66*w + 28 , 197*w - 1659 , -3028*w + 9352 , -1010*w - 7532 , 46382 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );


/***Gitter Nr. 329 ***/
Grammatrix:=Matrix(S,[
[ 1278606 , 48695*w - 1909383 , -390193*w - 2314137 , -97050*w + 951258 , -98541*w + 509761 , 44389*w + 79821 , 33844*w + 164780 , -87691*w + 762083 , -431159*w - 1673469 , -314548*w - 502782 , 332980*w - 1123080 , 192351*w + 1046773 ],
[ -48695*w - 1909383 , 10381112 , -64075*w + 6132581 , 93459*w - 4619125 , 182600*w - 668080 , -14165*w - 82369 , 9294*w - 91896 , 165841*w - 358939 , 10699*w + 1429239 , 113272*w + 618310 , -361582*w + 327754 , -1869334*w - 2982168 ],
[ 390193*w - 2314137 , 64075*w + 6132581 , 9040150 , 229163*w - 2726647 , 491335*w - 824383 , -40474*w - 445018 , 57308*w - 672938 , 687166*w - 1684900 , 163504*w + 6271874 , 545100*w + 2647792 , -1554862*w + 1634598 , -330881*w - 1830927 ],
[ 97050*w + 951258 , -93459*w - 4619125 , -229163*w - 2726647 , 2161572 , -48767*w + 354151 , 21137*w + 25137 , 21050*w + 60396 , 2213*w + 302463 , -231941*w - 467005 , -136592*w - 81074 , 69042*w - 512610 , 943623*w + 1588531 ],
[ 98541*w + 509761 , -182600*w - 668080 , -491335*w - 824383 , 48767*w + 354151 , 492688 , 38583*w + 12243 , 30920*w + 87094 , 66981*w + 686917 , -621899*w - 726565 , -326848*w + 13174 , 51118*w - 1265460 , -135676*w + 456246 ],
[ -44389*w + 79821 , 14165*w - 82369 , 40474*w - 445018 , -21137*w + 25137 , -38583*w + 12243 , 33992 , -7572*w + 39634 , -65566*w + 76426 , 46686*w - 466704 , -14900*w - 228508 , 128588*w - 16702 , -50407*w - 56609 ],
[ -33844*w + 164780 , -9294*w - 91896 , -57308*w - 672938 , -21050*w + 60396 , -30920*w + 87094 , 7572*w + 39634 , 83734 , -29974*w + 223342 , -117082*w - 508732 , -89404*w - 159068 , 103138*w - 317478 , -68690*w + 246876 ],
[ 87691*w + 762083 , -165841*w - 358939 , -687166*w - 1684900 , -2213*w + 302463 , -66981*w + 686917 , 65566*w + 76426 , 29974*w + 223342 , 1398992 , -1053036*w - 2194248 , -626898*w - 398146 , 332016*w - 2352476 , -543959*w + 759381 ],
[ 431159*w - 1673469 , -10699*w + 1429239 , -163504*w + 6271874 , 231941*w - 467005 , 621899*w - 726565 , -46686*w - 466704 , 117082*w - 508732 , 1053036*w - 2194248 , 8993362 , 683734*w + 3929366 , -2292468*w + 1940176 , 1409957*w + 1695127 ],
[ 314548*w - 502782 , -113272*w + 618310 , -545100*w + 2647792 , 136592*w - 81074 , 326848*w + 13174 , 14900*w - 228508 , 89404*w - 159068 , 626898*w - 398146 , -683734*w + 3929366 , 2080736 , -1149166*w - 372386 , 486034*w + 1497160 ],
[ -332980*w - 1123080 , 361582*w + 327754 , 1554862*w + 1634598 , -69042*w - 512610 , -51118*w - 1265460 , -128588*w - 16702 , -103138*w - 317478 , -332016*w - 2352476 , 2292468*w + 1940176 , 1149166*w - 372386 , 4509428 , 742662*w - 2151898 ],
[ -192351*w + 1046773 , 1869334*w - 2982168 , 330881*w - 1830927 , -943623*w + 1588531 , 135676*w + 456246 , 50407*w - 56609 , 68690*w + 246876 , 543959*w + 759381 , -1409957*w + 1695127 , -486034*w + 1497160 , -742662*w - 2151898 , 7852334 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );


/***Gitter Nr. 330 ***/
Grammatrix:=Matrix(S,[
[ 83292902 , -65271*w + 23159465 , 92223*w - 467019 , -1536012*w - 2661190 , 202297*w - 582365 , -1474282*w - 1175454 , 2001254*w + 3901072 , 5884124*w + 5051522 , -45234*w - 7295344 , -532852*w + 478352 , 2014590*w + 2096150 , -3069386*w -
    15443750 ],
[ 65271*w + 23159465 , 6485388 , 28593*w - 190645 , -479558*w - 620354 , 43859*w - 140861 , -432344*w - 275464 , 588067*w + 1046787 , 1688808*w + 1285410 , -35827*w - 2061591 , -149624*w + 145922 , 577962*w + 552244 , -884940*w - 4539346 ],
[ -92223*w - 467019 , -28593*w - 190645 , 116046 , 65574*w - 192430 , 9582*w - 80780 , 24822*w + 34818 , 2191*w - 142471 , -25066*w - 417270 , -68997*w + 79065 , 10950*w + 31668 , -4122*w - 160440 , 93204*w + 144032 ],
[ 1536012*w - 2661190 , 479558*w - 620354 , -65574*w - 192430 , 2038302 , -65560*w + 149646 , 135458*w + 1204868 , 6860*w - 1808366 , -455370*w - 4159876 , -583456*w + 1068298 , 113114*w + 239120 , -111912*w - 1461236 , -962260*w - 882686 ],
[ -202297*w - 582365 , -43859*w - 140861 , -9582*w - 80780 , 65560*w + 149646 , 159432 , 67632*w - 168490 , -172385*w + 232967 , -338290*w + 1013264 , 219753*w + 230657 , 1966*w - 127078 , -124356*w + 352086 , -119716*w + 513506 ],
[ 1474282*w - 1175454 , 432344*w - 275464 , -24822*w + 34818 , -135458*w + 1204868 , -67632*w - 168490 , 1428476 , 333618*w - 2233070 , 195644*w - 5945674 , -970138*w + 596652 , 103608*w + 467586 , 129466*w - 2063894 , -577566*w - 1986460 ],
[ -2001254*w + 3901072 , -588067*w + 1046787 , -2191*w - 142471 , -6860*w - 1808366 , 172385*w + 232967 , -333618*w - 2233070 , 4172574 , 1151010*w + 9986816 , 1431114*w - 2665656 , -285844*w - 577738 , 305792*w + 3576832 , 1316908*w + 2430106 ],
[ -5884124*w + 5051522 , -1688808*w + 1285410 , 25066*w - 417270 , 455370*w - 4159876 , 338290*w + 1013264 , -195644*w - 5945674 , -1151010*w + 9986816 , 26328456 , 4212012*w - 3644886 , -532672*w - 1959160 , -252742*w + 9257962 , 2428746*w +
    8333836 ],
[ 45234*w - 7295344 , 35827*w - 2061591 , 68997*w + 79065 , 583456*w + 1068298 , -219753*w + 230657 , 970138*w + 596652 , -1431114*w - 2665656 , -4212012*w - 3644886 , 5234796 , 388108*w - 327964 , -1449642*w - 1561882 , -1659716*w + 1518678 ],
[ 532852*w + 478352 , 149624*w + 145922 , -10950*w + 31668 , -113114*w + 239120 , -1966*w - 127078 , -103608*w + 467586 , 285844*w - 577738 , 532672*w - 1959160 , -388108*w - 327964 , 222222 , 206624*w - 655424 , -10728*w - 949956 ],
[ -2014590*w + 2096150 , -577962*w + 552244 , 4122*w - 160440 , 111912*w - 1461236 , 124356*w + 352086 , -129466*w - 2063894 , -305792*w + 3576832 , 252742*w + 9257962 , 1449642*w - 1561882 , -206624*w - 655424 , 3279584 , 923474*w + 2739646 ],
[ 3069386*w - 15443750 , 884940*w - 4539346 , -93204*w + 144032 , 962260*w - 882686 , 119716*w + 513506 , 577566*w - 1986460 , -1316908*w + 2430106 , -2428746*w + 8333836 , 1659716*w + 1518678 , 10728*w - 949956 , -923474*w + 2739646 , 10732974 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 16 );


/***Gitter Nr. 331 ***/
Grammatrix:=Matrix(S,[
[ 368242 , 8330*w + 12992 , 36566*w + 236936 , -13910*w - 113666 , 17530*w + 380926 , 260784*w + 100954 , 89686*w - 7126 , 44932*w + 146678 , 20312*w - 35168 , 14440*w + 117264 , 77432*w - 186620 , -51981*w - 154161 ],
[ -8330*w + 12992 , 21070 , 202*w + 62482 , 574*w - 23464 , -15904*w + 48496 , 22262*w + 75404 , 9564*w + 21994 , 2062*w + 25032 , 1976*w - 742 , -1648*w + 12236 , 10928*w - 1904 , 7145*w - 11795 ],
[ -36566*w + 236936 , -202*w + 62482 , 493136 , -4418*w - 232120 , 7872*w + 561078 , 338246*w + 411670 , 120716*w + 88592 , 53710*w + 222712 , 21648*w - 36736 , 7216*w + 140056 , 101352*w - 165312 , 29800*w - 137662 ],
[ 13910*w - 113666 , -574*w - 23464 , 4418*w - 232120 , 114814 , -6438*w - 292516 , -164164*w - 207032 , -58404*w - 44044 , -25938*w - 107534 , -10428*w + 17696 , -3476*w - 67466 , -48822*w + 79632 , -13431*w + 56539 ],
[ -17530*w + 380926 , 15904*w + 48496 , -7872*w + 561078 , 6438*w - 292516 , 986412 , 486480*w + 640542 , 171918*w + 126644 , 65144*w + 355810 , 43460*w - 56000 , 11500*w + 236950 , 172010*w - 280560 , 12095*w - 117075 ],
[ -260784*w + 100954 , -22262*w + 75404 , -338246*w + 411670 , 164164*w - 207032 , -486480*w + 640542 , 2614360 , 52350*w + 865088 , -161678*w + 562086 , 61124*w + 129416 , -132916*w + 207998 , 281810*w + 527408 , 129022*w - 21952 ],
[ -89686*w - 7126 , -9564*w + 21994 , -120716*w + 88592 , 58404*w - 44044 , -171918*w + 126644 , -52350*w + 865088 , 296016 , -62896*w + 164640 , 16624*w + 48944 , -47304*w + 47404 , 79628*w + 212408 , 45679*w + 9135 ],
[ -44932*w + 146678 , -2062*w + 25032 , -53710*w + 222712 , 25938*w - 107534 , -65144*w + 355810 , 161678*w + 562086 , 62896*w + 164640 , 226786 , 26810*w - 15708 , -9240*w + 119504 , 99742*w - 61194 , 22640*w - 41146 ],
[ -20312*w - 35168 , -1976*w - 742 , -21648*w - 36736 , 10428*w + 17696 , -43460*w - 56000 , -61124*w + 129416 , -16624*w + 48944 , -26810*w - 15708 , 31262 , -17486*w - 12250 , 7258*w + 105574 , 5051*w + 3759 ],
[ -14440*w + 117264 , 1648*w + 12236 , -7216*w + 140056 , 3476*w - 67466 , -11500*w + 236950 , 132916*w + 207998 , 47304*w + 47404 , 9240*w + 119504 , 17486*w - 12250 , 81312 , 62666*w - 76342 , 2072*w - 42644 ],
[ -77432*w - 186620 , -10928*w - 1904 , -101352*w - 165312 , 48822*w + 79632 , -172010*w - 280560 , -281810*w + 527408 , -79628*w + 212408 , -99742*w - 61194 , -7258*w + 105574 , -62666*w - 76342 , 409948 , 31770*w + 49280 ],
[ 51981*w - 154161 , -7145*w - 11795 , -29800*w - 137662 , 13431*w + 56539 , -12095*w - 117075 , -129022*w - 21952 , -45679*w + 9135 , -22640*w - 41146 , -5051*w + 3759 , -2072*w - 42644 , -31770*w + 49280 , 192892 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 96 );
/***Gitter Nr. 332 ***/
Grammatrix:=Matrix(S,[
[ 27098624 , -8192226*w + 31450244 , -11184262*w + 243041232 , -2009968*w + 58932510 , -590046*w + 12040 , -699988*w + 506968 , 62362*w + 766948 , -104396*w + 461076 , 126250*w + 601804 , 1907138*w - 3210088 , -32734*w + 3982664 , -9193074*w -
    25836216 ],
[ 8192226*w + 31450244 , 57271438 , 60389310*w + 309475040 , 15560566*w + 73552360 , -516862*w + 1807652 , -368496*w + 2854446 , 374122*w + 445004 , 124762*w + 662158 , 355524*w + 86492 , 27630*w - 8154034 , 1698910*w + 3056578 , -18924378*w -
    10724266 ],
[ 11184262*w + 243041232 , -60389310*w + 309475040 , 2217493894 , 6468408*w + 535881430 , -4878398*w + 2213190 , -5410754*w + 7197792 , 916950*w + 6107416 , -606012*w + 4132800 , 1345728*w + 4469024 , 13847616*w - 33012896 , 1797408*w + 32505984 ,
-93749628*w - 204979712 ],
[ 2009968*w + 58932510 , -15560566*w + 73552360 , -6468408*w + 535881430 , 130434206 , -1102202*w + 297598 , -1213776*w + 1706670 , 200720*w + 1404284 , -141092*w + 920486 , 297610*w + 1023498 , 3154968*w - 7287644 , 361048*w + 7319830 ,
    -22014928*w - 51072854 ],
[ 590046*w + 12040 , 516862*w + 1807652 , 4878398*w + 2213190 , 1102202*w + 297598 , 676438 , -5386*w + 891632 , 109534*w - 44842 , 73846*w + 122178 , 92838*w - 130508 , -510380*w - 2145808 , 638228*w + 47558 , -743730*w + 879326 ],
[ 699988*w + 506968 , 368496*w + 2854446 , 5410754*w + 7197792 , 1213776*w + 1706670 , 5386*w + 891632 , 1280384 , 153008*w - 64582 , 104774*w + 165634 , 128850*w - 187432 , -736580*w - 2972116 , 895100*w + 22610 , -1064816*w + 526876 ],
[ -62362*w + 766948 , -374122*w + 445004 , -916950*w + 6107416 , -200720*w + 1404284 , -109534*w - 44842 , -153008*w - 64582 , 136682 , -26308*w + 80906 , 15990*w + 121940 , 407188*w - 466508 , -53260*w + 769454 , -104970*w - 1032430 ],
[ 104396*w + 461076 , -124762*w + 662158 , 606012*w + 4132800 , 141092*w + 920486 , -73846*w + 122178 , -104774*w + 165634 , 26308*w + 80906 , 83944 , 33106*w + 50806 , 152204*w - 830662 , 117436*w + 530838 , -229204*w - 416780 ],
[ -126250*w + 601804 , -355524*w + 86492 , -1345728*w + 4469024 , -297610*w + 1023498 , -92838*w - 130508 , -128850*w - 187432 , -15990*w + 121940 , -33106*w + 50806 , 122304 , 419896*w - 82250 , -138400*w + 645638 , 20424*w - 933562 ],
[ -1907138*w - 3210088 , -27630*w - 8154034 , -13847616*w - 33012896 , -3154968*w - 7287644 , 510380*w - 2145808 , 736580*w - 2972116 , -407188*w - 466508 , -152204*w - 830662 , -419896*w - 82250 , 10157406 , -2125776*w - 3764516 , 3040596*w +
    1087632 ],
[ 32734*w + 3982664 , -1698910*w + 3056578 , -1797408*w + 32505984 , -361048*w + 7319830 , -638228*w + 47558 , -895100*w + 22610 , 53260*w + 769454 , -117436*w + 530838 , 138400*w + 645638 , 2125776*w - 3764516 , 4509428 , -896782*w - 4862172 ],
[ 9193074*w - 25836216 , 18924378*w - 10724266 , 93749628*w - 204979712 , 22014928*w - 51072854 , 743730*w + 879326 , 1064816*w + 526876 , 104970*w - 1032430 , 229204*w - 416780 , -20424*w - 933562 , -3040596*w + 1087632 , 896782*w - 4862172 ,
    47455324 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );
/***Gitter Nr. 333 ***/
Grammatrix:=Matrix(S,[
[ 6985313412 , 5893078*w + 1343278454 , 8514795*w + 8525307 , -22282599*w + 7681023 , -17070729*w + 102958485 , -732204*w + 33467644 , -343522043*w + 651287805 , -75049561*w + 119247849 , 16507490*w - 30355850 , 9614728*w + 50280790 , -34078190*w
    - 87781260 , -267918107*w - 318718421 ],
[ -5893078*w + 1343278454 , 258627558 , 1676960*w + 1575602 , -4330290*w + 1599780 , -4114640*w + 19344640 , -388396*w + 6560988 , -63642080*w + 114381316 , -13957948*w + 20440252 , 1697864*w - 4424728 , 1703484*w + 10482416 , -6468496*w -
    18879896 , -51665036*w - 62949600 ],
[ -8514795*w + 8525307 , -1676960*w + 1575602 , 319802 , -54926*w - 315000 , 512642*w - 2027704 , 79478*w - 711774 , -820453*w + 4278911 , -30263*w + 959455 , 885255*w - 3379033 , -272480*w - 749028 , 780920*w + 1062572 , -98335*w - 4140129 ],
[ 22282599*w + 7681023 , 4330290*w + 1599780 , 54926*w - 315000 , 1057280 , -226986*w + 76048 , -28594*w + 181258 , 3360925*w - 2830947 , 602585*w - 615559 , -1035359*w + 1895859 , 143600*w + 378980 , -407600*w - 529200 , -1877647*w + 5222035 ],
[ 17070729*w + 102958485 , 4114640*w + 19344640 , -512642*w - 2027704 , 226986*w + 76048 , 47439966 , 1429320*w + 13473726 , -31155197*w + 7928571 , -8631617*w + 2862811 , 2833535*w + 53124043 , 6545056*w + 5746258 , -15406624*w + 389088 ,
    6162231*w + 17974985 ],
[ 732204*w + 33467644 , 388396*w + 6560988 , -79478*w - 711774 , 28594*w + 181258 , -1429320*w + 13473726 , 4220202 , -8119362*w - 6260604 , -2355464*w - 1405152 , -1052662*w + 16293200 , 1708452*w + 3076276 , -4452948*w - 3232404 , 1246828*w +
    5581492 ],
[ 343522043*w + 651287805 , 63642080*w + 114381316 , 820453*w + 4278911 , -3360925*w - 2830947 , 31155197*w + 7928571 , 8119362*w - 6260604 , 751362276 , 595806*w + 159814102 , 30619589*w - 134436169 , 3576910*w - 25526200 , -549080*w + 60853730 ,
-13623740*w + 47458432 ],
[ 75049561*w + 119247849 , 13957948*w + 20440252 , 30263*w + 959455 , -602585*w - 615559 , 8631617*w + 2862811 , 2355464*w - 1405152 , -595806*w + 159814102 , 34782384 , 9000991*w - 26037515 , 1196342*w - 7333592 , -517048*w + 17802106 ,
    -1462324*w + 8482852 ],
[ -16507490*w - 30355850 , -1697864*w - 4424728 , -885255*w - 3379033 , 1035359*w + 1895859 , -2833535*w + 53124043 , 1052662*w + 16293200 , -30619589*w - 134436169 , -9000991*w - 26037515 , 90498016 , 7484630*w + 8550150 , -18166500*w - 3753750 ,
9656311*w + 14138565 ],
[ -9614728*w + 50280790 , -1703484*w + 10482416 , 272480*w - 749028 , -143600*w + 378980 , -6545056*w + 5746258 , -1708452*w + 3076276 , -3576910*w - 25526200 , -1196342*w - 7333592 , -7484630*w + 8550150 , 7226282 , -1976448*w - 15275680 ,
    -2557120*w + 7166362 ],
[ 34078190*w - 87781260 , 6468496*w - 18879896 , -780920*w + 1062572 , 407600*w - 529200 , 15406624*w + 389088 , 4452948*w - 3232404 , 549080*w + 60853730 , 517048*w + 17802106 , 18166500*w - 3753750 , 1976448*w - 15275680 , 36075424 , 7362194*w -
    10244136 ],
[ 267918107*w - 318718421 , 51665036*w - 62949600 , 98335*w - 4140129 , 1877647*w + 5222035 , -6162231*w + 17974985 , -1246828*w + 5581492 , 13623740*w + 47458432 , 1462324*w + 8482852 , -9656311*w + 14138565 , 2557120*w + 7166362 , -7362194*w -
    10244136 , 119516068 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );
/***Gitter Nr. 334 ***/
Grammatrix:=Matrix(S,[
[ 340115426 , 7634324*w + 118619886 , -1855162*w - 9449006 , 392895*w + 1094135 , 347126*w + 1203412 , -778517*w + 4560731 , -1141891*w + 2199001 , -1662570*w - 16411500 , -4290507*w + 1215851 , -1007950*w - 2170392 , -679022*w + 7463120 ,
    -12913354*w - 24431372 ],
[ -7634324*w + 118619886 , 42740628 , -436841*w - 3615199 , 118052*w + 477666 , 103802*w + 502390 , -360104*w + 1523242 , -452568*w + 631428 , -288394*w - 6084876 , -1555000*w - 128940 , -319398*w - 907354 , -382074*w + 2575958 , -3981558*w -
    10448564 ],
[ 1855162*w - 9449006 , 436841*w - 3615199 , 341950 , -5149*w - 49609 , -7026*w - 52542 , 43372*w - 107030 , 47816*w - 19978 , -38229*w + 548345 , 133130*w + 125524 , 18118*w + 101934 , 60040*w - 194586 , 231782*w + 1170176 ],
[ -392895*w + 1094135 , -118052*w + 477666 , 5149*w - 49609 , 29274 , -500*w + 28714 , -7008*w + 39368 , -11818*w + 12544 , -16192*w - 133364 , -33868*w + 9156 , -8060*w - 17052 , -5128*w + 58296 , -31139*w - 154483 ],
[ -347126*w + 1203412 , -103802*w + 502390 , 7026*w - 52542 , 500*w + 28714 , 54488 , -9124*w + 63434 , -13578*w - 5460 , -3580*w - 137480 , -33350*w - 13510 , -6120*w - 21560 , -10430*w + 52290 , -34000*w - 178248 ],
[ 778517*w + 4560731 , 360104*w + 1523242 , -43372*w - 107030 , 7008*w + 39368 , 9124*w + 63434 , 150822 , -22710*w + 58128 , -95430*w - 336308 , -91698*w + 126728 , -29896*w - 24920 , 10118*w + 181958 , -260099*w - 102823 ],
[ 1141891*w + 2199001 , 452568*w + 631428 , -47816*w - 19978 , 11818*w + 12544 , 13578*w - 5460 , 22710*w + 58128 , 90216 , -118476*w - 79352 , -35232*w + 196084 , -23220*w + 22092 , 38668*w + 102284 , -179127*w + 222467 ],
[ 1662570*w - 16411500 , 288394*w - 6084876 , 38229*w + 548345 , 16192*w - 133364 , 3580*w - 137480 , 95430*w - 336308 , 118476*w - 79352 , 1524292 , 372088*w + 153524 , 66960*w + 244384 , 119568*w - 591584 , 635032*w + 1729434 ],
[ 4290507*w + 1215851 , 1555000*w - 128940 , -133130*w + 125524 , 33868*w + 9156 , 33350*w - 13510 , 91698*w + 126728 , 35232*w + 196084 , -372088*w + 153524 , 657734 , -53352*w + 140056 , 157816*w + 147112 , -366313*w + 1283443 ],
[ 1007950*w - 2170392 , 319398*w - 907354 , -18118*w + 101934 , 8060*w - 17052 , 6120*w - 21560 , 29896*w - 24920 , 23220*w + 22092 , -66960*w + 244384 , 53352*w + 140056 , 60144 , 45536*w - 58352 , 26180*w + 480186 ],
[ 679022*w + 7463120 , 382074*w + 2575958 , -60040*w - 194586 , 5128*w + 58296 , 10430*w + 52290 , -10118*w + 181958 , -38668*w + 102284 , -119568*w - 591584 , -157816*w + 147112 , -45536*w - 58352 , 298144 , -390136*w - 325486 ],
[ 12913354*w - 24431372 , 3981558*w - 10448564 , -231782*w + 1170176 , 31139*w - 154483 , 34000*w - 178248 , 260099*w - 102823 , 179127*w + 222467 , -635032*w + 1729434 , 366313*w + 1283443 , -26180*w + 480186 , 390136*w - 325486 , 5394032 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 108 );

/***Gitter Nr. 335 ***/
Grammatrix:=Matrix(S,[
[ 101763746 , 7844607*w - 9680251 , -729520*w - 1432452 , -12831666*w + 29176238 , 7080679*w - 15903629 , -30900*w + 3504228 , -949200*w - 5502266 , -73422*w + 1535016 , 39286*w - 757092 , -219316*w - 803992 , 368404*w + 70252 , 21994304*w + 
    57816808 ],
[ -7844607*w - 9680251 , 6705272 , 135978*w - 817670 , -868846*w - 11633510 , 385043*w + 5980947 , -159723*w - 94745 , 333739*w - 203427 , -81942*w - 74662 , 34701*w + 32557 , 48970*w - 52864 , -14814*w + 131082 , -6411533*w + 6019069 ],
[ 729520*w - 1432452 , -135978*w - 817670 , 273000 , 277620*w + 887460 , -126757*w - 314867 , -15482*w - 149940 , 44980*w + 207200 , 1470*w - 60368 , 2822*w + 29806 , 9682*w + 26082 , -14174*w + 3794 , 38742*w - 1760402 ],
[ 12831666*w + 29176238 , 868846*w - 11633510 , -277620*w + 887460 , 22254442 , 146440*w - 11777654 , 293738*w + 758632 , -744236*w - 518420 , 131490*w + 378392 , -59842*w - 175602 , -121150*w - 32074 , 84700*w - 223608 , 13468528*w - 2445492 ],
[ -7080679*w - 15903629 , -385043*w + 5980947 , 126757*w - 314867 , -146440*w - 11777654 , 6495188 , -217559*w - 614201 , 526704*w + 469798 , -88198*w - 279664 , 48467*w + 147007 , 88281*w + 25039 , -64360*w + 161042 , -7563863*w + 1551767 ],
[ 30900*w + 3504228 , 159723*w - 94745 , 15482*w - 149940 , -293738*w + 758632 , 217559*w - 614201 , 373254 , -83660*w - 540862 , -4946*w + 138390 , 1574*w - 99764 , -25276*w - 69356 , 37198*w - 1218 , 924454*w + 2182418 ],
[ 949200*w - 5502266 , -333739*w - 203427 , -44980*w + 207200 , 744236*w - 518420 , -526704*w + 469798 , 83660*w - 540862 , 942522 , 40080*w - 192010 , -21346*w + 144480 , 20284*w + 137340 , -53780*w - 55860 , -811012*w - 5125302 ],
[ 73422*w + 1535016 , 81942*w - 74662 , -1470*w - 60368 , -131490*w + 378392 , 88198*w - 279664 , 4946*w + 138390 , -40080*w - 192010 , 54194 , -78*w - 34524 , -10152*w - 25256 , 13960*w - 2968 , 424872*w + 827862 ],
[ -39286*w - 757092 , -34701*w + 32557 , -2822*w + 29806 , 59842*w - 175602 , -48467*w + 147007 , -1574*w - 99764 , 21346*w + 144480 , 78*w - 34524 , 34482 , 8328*w + 16184 , -10536*w + 3304 , -228286*w - 453894 ],
[ 219316*w - 803992 , -48970*w - 52864 , -9682*w + 26082 , 121150*w - 32074 , -88281*w + 25039 , 25276*w - 69356 , -20284*w + 137340 , 10152*w - 25256 , -8328*w + 16184 , 27216 , -7328*w - 18704 , -54884*w - 896448 ],
[ -368404*w + 70252 , 14814*w + 131082 , 14174*w + 3794 , -84700*w - 223608 , 64360*w + 161042 , -37198*w - 1218 , 53780*w - 55860 , -13960*w - 2968 , 10536*w + 3304 , 7328*w - 18704 , 27104 , -220210*w + 690746 ],
[ -21994304*w + 57816808 , 6411533*w + 6019069 , -38742*w - 1760402 , -13468528*w - 2445492 , 7563863*w + 1551767 , -924454*w + 2182418 , 811012*w - 5125302 , -424872*w + 827862 , 228286*w - 453894 , 54884*w - 896448 , 220210*w + 690746 , 67101720
]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 324);

/***Gitter Nr. 336 ***/
Grammatrix:=Matrix(S,[
[ 13922664 , 113495*w - 1126797 , -5624*w + 102704 , -80777*w + 555751 , -26043*w + 727965 , 507632*w - 76776 , -226712*w + 413238 , -162845*w - 67627 , 54612*w + 1045492 , -351834*w - 1225812 , -393160*w + 148064 , 2405306*w + 6264146 ],
[ -113495*w - 1126797 , 342188 , -3391*w + 19453 , -23061*w + 81851 , -8842*w + 95704 , 67477*w - 29771 , -17815*w + 44051 , -22943*w - 14133 , 5725*w + 92953 , -30445*w - 108633 , -34867*w + 11963 , -328192*w - 219646 ],
[ 5624*w + 102704 , 3391*w + 19453 , 15106 , 3016*w + 27776 , 4470*w + 21112 , 14074*w - 36358 , -1154*w + 18564 , -5304*w + 8316 , 7990*w + 18326 , -14960*w - 9044 , -7038*w + 20706 , 18256*w + 71274 ],
[ 80777*w + 555751 , 23061*w + 81851 , -3016*w + 27776 , 150472 , 19252*w + 134526 , 76656*w - 144536 , -15176*w + 101486 , -30960*w + 29624 , 37254*w + 126518 , -80528*w - 94080 , -48132*w + 96236 , 107740*w + 310632 ],
[ 26043*w + 727965 , 8842*w + 95704 , -4470*w + 21112 , -19252*w + 134526 , 152096 , 100698*w - 62482 , -33882*w + 88508 , -35518*w - 3668 , 18468*w + 178500 , -70448*w - 194096 , -67336*w + 46872 , 84678*w + 408016 ],
[ -507632*w - 76776 , -67477*w - 29771 , -14074*w - 36358 , -76656*w - 144536 , -100698*w - 62482 , 531958 , -50378*w - 198534 , 18728*w - 169736 , -131000*w + 26712 , 159596*w - 274008 , -8706*w - 343826 , -293209*w + 253827 ],
[ 226712*w + 413238 , 17815*w + 44051 , 1154*w + 18564 , 15176*w + 101486 , 33882*w + 88508 , 50378*w - 198534 , 143332 , -19084*w + 55720 , 69916*w + 87276 , -112568*w + 23408 , -32076*w + 185108 , 151092*w + 82292 ],
[ 162845*w - 67627 , 22943*w - 14133 , 5304*w + 8316 , 30960*w + 29624 , 35518*w - 3668 , -18728*w - 169736 , 19084*w + 55720 , 63952 , 42412*w - 24500 , -48418*w + 108934 , 8596*w + 112980 , 87221*w - 142639 ],
[ -54612*w + 1045492 , -5725*w + 92953 , -7990*w + 18326 , -37254*w + 126518 , -18468*w + 178500 , 131000*w + 26712 , -69916*w + 87276 , -42412*w - 24500 , 297584 , -81392*w - 379680 , -112496*w + 2576 , 62991*w + 574371 ],
[ 351834*w - 1225812 , 30445*w - 108633 , 14960*w - 9044 , 80528*w - 94080 , 70448*w - 194096 , -159596*w - 274008 , 112568*w + 23408 , 48418*w + 108934 , 81392*w - 379680 , 641256 , 144472*w + 212296 , 73124*w - 850822 ],
[ 393160*w + 148064 , 34867*w + 11963 , 7038*w + 20706 , 48132*w + 96236 , 67336*w + 46872 , 8706*w - 343826 , 32076*w + 185108 , -8596*w + 112980 , 112496*w + 2576 , -144472*w + 212296 , 298144 , 216355*w - 167139 ],
[ -2405306*w + 6264146 , 328192*w - 219646 , -18256*w + 71274 , -107740*w + 310632 , -84678*w + 408016 , 293209*w + 253827 , -151092*w + 82292 , -87221*w - 142639 , -62991*w + 574371 , -73124*w - 850822 , -216355*w - 167139 , 6090308 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72);

/***Gitter Nr. 337 ***/
Grammatrix:=Matrix(S,[
[ 8795487386 , 302733454*w + 948903536 , -3626890740*w - 19251166158 , -1488044414*w - 8834981582 , 168013462*w + 1639242822 , -49380604*w + 355533556 , 83817984*w - 650583724 , 78063734*w + 67118492 , 70482690*w - 126464590 , 42269578*w + 
    50799504 , -96159566*w - 184782262 , -3835468736*w - 1842780632 ],
[ -302733454*w + 948903536 , 239295126 , 211808789*w - 3018488949 , 117581009*w - 1320948195 , -34061005*w + 232036315 , -17262659*w + 42502593 , 30428784*w - 78568770 , 9387377*w + 25777997 , 13872645*w - 3894919 , 4625474*w + 16045428 , 
    -8502932*w - 46540578 , -364630250*w - 1041998062 ],
[ 3626890740*w - 19251166158 , -211808789*w - 3018488949 , 53637391724 , -367472433*w + 24060559383 , 318468501*w - 4118039597 , 269558619*w - 617274105 , -478802822*w + 1149137346 , -140228919*w - 396241811 , -211988905*w + 50962779 , -69309126*w
    - 246450526 , 126059016*w + 712061098 , 7841041514*w + 15300740000 ],
[ 1488044414*w - 8834981582 , -117581009*w - 1320948195 , 367472433*w + 24060559383 , 10820066306 , 114408420*w - 1860673794 , 116380248*w - 285689474 , -206466562*w + 531107388 , -64747934*w - 170477020 , -94042720*w + 31517682 , -32312050*w - 
    106773394 , 60338598*w + 311592778 , 3626068110*w + 6504025444 ],
[ -168013462*w + 1639242822 , 34061005*w + 232036315 , -318468501*w - 4118039597 , -114408420*w - 1860673794 , 336122108 , -17102732*w + 66389190 , 29850270*w - 122147942 , 14708396*w + 24756802 , 16998946*w - 16053394 , 7659150*w + 16392362 , 
    -16037358*w - 51509626 , -688712454*w - 847443198 ],
[ 49380604*w + 355533556 , 17262659*w + 42502593 , -269558619*w - 617274105 , -116380248*w - 285689474 , 17102732*w + 66389190 , 26095804 , -540974*w - 47154870 , 5523442*w - 288988 , 3380708*w - 12142998 , 3092712*w + 753690 , -7617724*w - 
    6102236 , -161682700*w + 104536264 ],
[ -83817984*w - 650583724 , -30428784*w - 78568770 , 478802822*w + 1149137346 , 206466562*w + 531107388 , -29850270*w - 122147942 , 540974*w - 47154870 , 85444366 , -9925328*w - 89824 , -6266676*w + 21519918 , -5548200*w - 1665902 , 13600884*w + 
    11746196 , 295108008*w - 171996608 ],
[ -78063734*w + 67118492 , -9387377*w + 25777997 , 140228919*w - 396241811 , 64747934*w - 170477020 , -14708396*w + 24756802 , -5523442*w - 288988 , 9925328*w - 89824 , 8599038 , 2622934*w + 5493810 , -221410*w + 4824750 , 1484694*w - 11808650 , 
    -18535064*w - 248577504 ],
[ -70482690*w - 126464590 , -13872645*w - 3894919 , 211988905*w + 50962779 , 94042720*w + 31517682 , -16998946*w - 16053394 , -3380708*w - 12142998 , 6266676*w + 21519918 , -2622934*w + 5493810 , 9152654 , -1615176*w + 2625014 , 4556820*w - 
    4403644 , 65187230*w - 199035970 ],
[ -42269578*w + 50799504 , -4625474*w + 16045428 , 69309126*w - 246450526 , 32312050*w - 106773394 , -7659150*w + 16392362 , -3092712*w + 753690 , 5548200*w - 1665902 , 221410*w + 4824750 , 1615176*w + 2625014 , 2753212 , 529848*w - 6905976 , 
    -16387172*w - 136838800 ],
[ 96159566*w - 184782262 , 8502932*w - 46540578 , -126059016*w + 712061098 , -60338598*w + 311592778 , 16037358*w - 51509626 , 7617724*w - 6102236 , -13600884*w + 11746196 , -1484694*w - 11808650 , -4556820*w - 4403644 , -529848*w - 6905976 , 
    18037712 , 67610866*w + 320849186 ],
[ 3835468736*w - 1842780632 , 364630250*w - 1041998062 , -7841041514*w + 15300740000 , -3626068110*w + 6504025444 , 688712454*w - 847443198 , 161682700*w + 104536264 , -295108008*w - 171996608 , 18535064*w - 248577504 , -65187230*w - 199035970 , 
    16387172*w - 136838800 , -67610866*w + 320849186 , 12453581504 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 108 );

/***Gitter Nr. 338 ***/
Grammatrix:=Matrix(S,[
[ 1594290082 , -2799539*w - 497542115 , 3334970*w + 4019652 , -510895*w - 3342017 , 1083119*w + 8569295 , -8428842*w - 7911484 , -54528749*w + 289511089 , -8114270*w + 92153838 , 92190109*w + 254421951 , 2350424*w + 64684690 , 20629748*w - 
    136470474 , -75061813*w - 71929291 ],
[ 2799539*w - 497542115 , 155360240 , -1027997*w - 1284185 , 149206*w + 1037806 , -327834*w - 2682204 , 2623846*w + 2540958 , 17354996*w - 90183450 , 2628852*w - 28764708 , -28586016*w - 80161732 , -674012*w - 20241760 , -6578810*w + 42537250 , 
    23235728*w + 23580704 ],
[ -3334970*w + 4019652 , 1027997*w - 1284185 , 140812 , 21443*w - 35609 , -31259*w + 36659 , 16233*w - 178409 , -977318*w - 862344 , -294789*w - 72149 , -669359*w + 2251613 , -194100*w + 124166 , 438402*w + 281946 , -256492*w - 1061046 ],
[ 510895*w - 3342017 , -149206*w + 1037806 , -21443*w - 35609 , 62342 , 552*w - 48034 , 24966*w + 45738 , 304940*w - 937776 , 61834*w - 312256 , -237972*w - 1111684 , 13396*w - 232988 , -117888*w + 431088 , 68328*w - 19460 ],
[ -1083119*w + 8569295 , 327834*w - 2682204 , 31259*w + 36659 , -552*w - 48034 , 125916 , -87708*w - 218246 , -1262918*w + 2991464 , -282170*w + 1075564 , 695772*w + 4505396 , -93884*w + 862372 , 526612*w - 1475852 , -231872*w + 477400 ],
[ 8428842*w - 7911484 , -2623846*w + 2540958 , -16233*w - 178409 , -24966*w + 45738 , 87708*w - 218246 , 905002 , 4609644*w + 1274728 , 1352352*w - 469014 , 2214296*w - 12182338 , 846644*w - 1092140 , -2130630*w - 128758 , 648543*w + 191751 ],
[ 54528749*w + 289511089 , -17354996*w - 90183450 , 977318*w - 862344 , -304940*w - 937776 , 1262918*w + 2991464 , -4609644*w + 1274728 , 171851484 , 4504288*w + 48922216 , 67198460*w + 61655132 , 7059116*w + 29252412 , -2730788*w - 78192212 , 
    343777*w + 25556965 ],
[ 8114270*w + 92153838 , -2628852*w - 28764708 , 294789*w - 72149 , -61834*w - 312256 , 282170*w + 1075564 , -1352352*w - 469014 , -4504288*w + 48922216 , 14773220 , 17553424*w + 29982260 , 1243824*w + 9649136 , 1281072*w - 22817760 , -563029*w + 
    7403333 ],
[ -92190109*w + 254421951 , 28586016*w - 80161732 , 669359*w + 2251613 , 237972*w - 1111684 , -695772*w + 4505396 , -2214296*w - 12182338 , -67198460*w + 61655132 , -17553424*w + 29982260 , 207128726 , -8953896*w + 29966440 , 29756216*w - 35694680
, -9963740*w + 10551016 ],
[ -2350424*w + 64684690 , 674012*w - 20241760 , 194100*w + 124166 , -13396*w - 232988 , 93884*w + 862372 , -846644*w - 1092140 , -7059116*w + 29252412 , -1243824*w + 9649136 , 8953896*w + 29966440 , 7044912 , 2761952*w - 14168560 , -984566*w + 
    4539794 ],
[ -20629748*w - 136470474 , 6578810*w + 42537250 , -438402*w + 281946 , 117888*w + 431088 , -526612*w - 1475852 , 2130630*w - 128758 , 2730788*w - 78192212 , -1281072*w - 22817760 , -29756216*w - 35694680 , -2761952*w - 14168560 , 36075424 , 
    198264*w - 11833374 ],
[ 75061813*w - 71929291 , -23235728*w + 23580704 , 256492*w - 1061046 , -68328*w - 19460 , 231872*w + 477400 , -648543*w + 191751 , -343777*w + 25556965 , 563029*w + 7403333 , 9963740*w + 10551016 , 984566*w + 4539794 , -198264*w - 11833374 , 
    50756034 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );


/***Gitter Nr. 339 ***/
Grammatrix:=Matrix(S,[
[ 761418 , -19159*w - 711599 , -2176*w - 76006 , -1482*w - 2184 , 21878*w - 50442 , -3788*w + 7658 , -3363*w - 62391 , -2195*w + 15225 , -11849*w - 3563 , 24436*w - 80542 , -9618*w - 57890 , -138495*w - 226569 ],
[ 19159*w - 711599 , 694540 , 67*w + 80409 , 897*w + 3185 , -18435*w + 33173 , 3449*w - 4473 , -1453*w + 49707 , 2629*w - 10143 , 8793*w + 10269 , -25533*w + 44667 , 1998*w + 49140 , 127963*w + 247443 ],
[ 2176*w - 76006 , -67*w + 80409 , 12586 , 29*w + 1029 , -1907*w + 2079 , 553*w - 203 , -1243*w + 4347 , 571*w - 455 , 665*w + 2317 , -3545*w + 511 , -894*w + 5208 , 14732*w + 26376 ],
[ 1482*w - 2184 , -897*w + 3185 , -29*w + 1029 , 266 , -392*w - 518 , 110*w + 56 , -522*w + 616 , 192*w + 112 , 176*w + 784 , -1232*w - 336 , -428*w + 1652 , 345*w + 1239 ],
[ -21878*w - 50442 , 18435*w + 33173 , 1907*w + 2079 , 392*w - 518 , 18620 , -62*w - 3430 , 4488*w + 6944 , -750*w - 3248 , 1736*w - 5096 , 2308*w + 21924 , 5152*w + 2912 , 11341*w - 18277 ],
[ 3788*w + 7658 , -3449*w - 4473 , -553*w - 203 , -110*w + 56 , 62*w - 3430 , 756 , -746*w - 1624 , 98*w + 672 , -400*w + 784 , -92*w - 4284 , -902*w - 1078 , -1719*w + 4319 ],
[ 3363*w - 62391 , 1453*w + 49707 , 1243*w + 4347 , 522*w + 616 , -4488*w + 6944 , 746*w - 1624 , 16912 , 896*w - 4284 , 3080*w + 1624 , -7252*w + 20300 , 2100*w + 16212 , 8359*w + 8617 ],
[ 2195*w + 15225 , -2629*w - 10143 , -571*w - 455 , -192*w + 112 , 750*w - 3248 , -98*w + 672 , -896*w - 4284 , 1652 , -672*w + 1204 , -144*w - 7952 , -1680*w - 2128 , -2051*w + 735 ],
[ 11849*w - 3563 , -8793*w + 10269 , -665*w + 2317 , -176*w + 784 , -1736*w - 5096 , 400*w + 784 , -3080*w + 1624 , 672*w + 1204 , 6454 , -6360*w - 13496 , -4536*w + 5096 , 179*w + 11893 ],
[ -24436*w - 80542 , 25533*w + 44667 , 3545*w + 511 , 1232*w - 336 , -2308*w + 21924 , 92*w - 4284 , 7252*w + 20300 , 144*w - 7952 , 6360*w - 13496 , 73808 , 14864*w + 21280 , 11377*w - 21021 ],
[ 9618*w - 57890 , -1998*w + 49140 , 894*w + 5208 , 428*w + 1652 , -5152*w + 2912 , 902*w - 1078 , -2100*w + 16212 , 1680*w - 2128 , 4536*w + 5096 , -14864*w + 21280 , 27104 , 7458*w + 10500 ],
[ 138495*w - 226569 , -127963*w + 247443 , -14732*w + 26376 , -345*w + 1239 , -11341*w - 18277 , 1719*w + 4319 , -8359*w + 8617 , 2051*w + 735 , -179*w + 11893 , -11377*w - 21021 , -7458*w + 10500 , 269206 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 32 );


/***Gitter Nr. 340 ***/
Grammatrix:=Matrix(S,[
[ 106162 , -975*w - 7623 , -849*w - 2303 , 10230*w + 644 , 2789*w - 3297 , -3389*w + 5229 , 737*w + 1869 , -280*w - 210 , 424*w - 1344 , 282*w + 2240 , -1314*w - 98 , 13702*w + 49966 ],
[ 975*w - 7623 , 714 , 44*w + 224 , -630*w - 364 , -232*w - 56 , 376*w , -40*w , -16*w , 0 , 0 , 0 , -415*w - 4221 ],
[ 849*w - 2303 , -44*w + 224 , 154 , -228*w - 1078 , -94*w - 602 , 186*w + 1400 , -104*w + 140 , -38*w - 140 , 138*w + 154 , -228*w + 196 , 28*w - 868 , 327*w - 917 ],
[ -10230*w + 644 , 630*w - 364 , 228*w - 1078 , 16142 , 924*w + 7546 , -1762*w - 11844 , 336*w + 280 , 186*w + 756 , -414*w - 462 , 684*w - 588 , -84*w + 2604 , -7572*w + 5082 ],
[ -2789*w - 3297 , 232*w - 56 , 94*w - 602 , -924*w + 7546 , 7644 , -632*w - 17276 , 1114*w - 2156 , 430*w + 1820 , -1794*w - 2002 , 2964*w - 2548 , -364*w + 11284 , -4507*w - 11221 ],
[ 3389*w + 5229 , -376*w , -186*w + 1400 , 1762*w - 11844 , 632*w - 17276 , 59878 , -4706*w + 13160 , -2166*w - 6524 , 9208*w + 9184 , -15128*w + 13216 , 1848*w - 57288 , 8157*w + 47439 ],
[ -737*w + 1869 , 40*w , 104*w + 140 , -336*w + 280 , -1114*w - 2156 , 4706*w + 13160 , 7728 , -1332*w - 140 , 3596*w - 3360 , -3196*w + 13440 , -4676*w - 17668 , 4681*w + 9961 ],
[ 280*w - 210 , 16*w , 38*w - 140 , -186*w + 756 , -430*w + 1820 , 2166*w - 6524 , 1332*w - 140 , 1708 , -652*w - 4186 , 2318*w + 3388 , -2814*w + 5922 , 1293*w - 6713 ],
[ -424*w - 1344 , 0 , -138*w + 154 , 414*w - 462 , 1794*w - 2002 , -9208*w + 9184 , -3596*w - 3360 , 652*w - 4186 , 14028 , -5268*w - 17724 , 11186*w - 7966 , -7321*w + 12229 ],
[ -282*w + 2240 , 0 , 228*w + 196 , -684*w - 588 , -2964*w - 2548 , 15128*w + 13216 , 3196*w + 13440 , -2318*w + 3388 , 5268*w - 17724 , 36596 , -17290*w - 19642 , 13792*w + 4312 ],
[ 1314*w - 98 , 0 , -28*w - 868 , 84*w + 2604 , 364*w + 11284 , -1848*w - 57288 , 4676*w - 17668 , 2814*w + 5922 , -11186*w - 7966 , 17290*w - 19642 , 67760 , -5312*w - 48090 ],
[ -13702*w + 49966 , 415*w - 4221 , -327*w - 917 , 7572*w + 5082 , 4507*w - 11221 , -8157*w + 47439 , -4681*w + 9961 , -1293*w - 6713 , 7321*w + 12229 , -13792*w + 4312 , 5312*w - 48090 , 81144 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );

/***Gitter Nr. 341 ***/
Grammatrix:=Matrix(S,[
[ 11110866032 , 295491762*w + 4201692054 , -77238800*w - 1079237432 , -17082866*w - 74229736 , 400945875*w + 770161 , -247801109*w - 220359097 , 77786237*w - 133375361 , -182129743*w - 254294733 , 44946792*w + 153175274 , -45769879*w + 33873693 , 
94805949*w + 217755321 , 410207438*w + 3193522822 ],
[ -295491762*w + 4201692054 , 1648788694 , 3416336*w - 420811104 , -3488454*w - 31577462 , 146934834*w + 109487140 , -82833044*w - 148830374 , 33238252*w - 29011500 , -56959423*w - 139608735 , 10740093*w + 67277847 , -17892852*w + 588070 , 
    26512821*w + 103534991 , 67493488*w + 1254370320 ],
[ 77238800*w - 1079237432 , -3416336*w - 420811104 , 138444586 , 1737600*w + 14991634 , -74230258*w - 41332998 , 43909813*w + 62030717 , -14242270*w + 13837432 , 25838801*w + 62098617 , -4816380*w - 29897210 , 7946730*w - 291480 , -11799968*w - 
    45968832 , 10488613*w - 356785807 ],
[ 17082866*w - 74229736 , 3488454*w - 31577462 , -1737600*w + 14991634 , 2538914 , -10885492*w - 15707160 , 5905850*w + 14812602 , -2289292*w + 214634 , 2632932*w + 12540304 , -134834*w - 5007086 , 1164316*w + 1018752 , -843482*w - 8281882 , 
    9714394*w - 27708492 ],
[ -400945875*w + 770161 , -146934834*w + 109487140 , 74230258*w - 41332998 , 10885492*w - 15707160 , 454259540 , 25951998*w - 296111466 , 14641670*w + 59558604 , 35791136*w - 146896218 , -19290382*w + 31888458 , -2425450*w - 38231074 , -28399836*w
    + 69760740 , -174586554*w - 129835524 ],
[ 247801109*w - 220359097 , 82833044*w - 148830374 , -43909813*w + 62030717 , -5905850*w + 14812602 , -25951998*w - 296111466 , 209684146 , -14144676*w - 26363512 , -10243582*w + 105907270 , 8818152*w - 28994084 , 4356884*w + 20931176 , 11157174*w
    - 55859594 , 115142697*w + 2724113 ],
[ -77786237*w - 133375361 , -33238252*w - 29011500 , 14242270*w + 13837432 , 2289292*w + 214634 , -14641670*w + 59558604 , 14144676*w - 26363512 , 19689292 , 13589208*w - 21894012 , -5695928*w + 1906576 , 960052*w - 9545844 , -9346828*w + 8292116 
, -27270908*w - 60774938 ],
[ 182129743*w - 254294733 , 56959423*w - 139608735 , -25838801*w + 62098617 , -2632932*w + 12540304 , -35791136*w - 146896218 , 10243582*w + 105907270 , -13589208*w - 21894012 , 94873772 , 5395958*w - 30847418 , 5679498*w + 16180010 , 5216300*w - 
    56686980 , 79536576*w - 78386476 ],
[ -44946792*w + 153175274 , -10740093*w + 67277847 , 4816380*w - 29897210 , 134834*w - 5007086 , 19290382*w + 31888458 , -8818152*w - 28994084 , 5695928*w + 1906576 , -5395958*w - 30847418 , 12224520 , -2779920*w - 3012296 , 1537576*w + 20600440 ,
-20918743*w + 56822731 ],
[ 45769879*w + 33873693 , 17892852*w + 588070 , -7946730*w - 291480 , -1164316*w + 1018752 , 2425450*w - 38231074 , -4356884*w + 20931176 , -960052*w - 9545844 , -5679498*w + 16180010 , 2779920*w - 3012296 , 5168408 , 4306424*w - 7525560 , 
    18032242*w + 19100550 ],
[ -94805949*w + 217755321 , -26512821*w + 103534991 , 11799968*w - 45968832 , 843482*w - 8281882 , 28399836*w + 69760740 , -11157174*w - 55859594 , 9346828*w + 8292116 , -5216300*w - 56686980 , -1537576*w + 20600440 , -4306424*w - 7525560 , 
    36075424 , -42183031*w + 77485289 ],
[ -410207438*w + 3193522822 , -67493488*w + 1254370320 , -10488613*w - 356785807 , -9714394*w - 27708492 , 174586554*w - 129835524 , -115142697*w + 2724113 , 27270908*w - 60774938 , -79536576*w - 78386476 , 20918743*w + 56822731 , -18032242*w + 
    19100550 , 42183031*w + 77485289 , 1252719888 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );

/***Gitter Nr. 342 ***/
Grammatrix:=Matrix(S,[
[ 736673770 , -463966*w + 88081028 , -16341064*w - 31357830 , -8241472*w - 14705040 , -10540788*w - 33655300 , 6921620*w + 169252958 , 1513126*w + 31976322 , -3400968*w - 19665968 , -52399338*w + 72842252 , -2960498*w - 170177756 , 41482258*w + 
    120142778 , 90368352*w + 120218 ],
[ 463966*w + 88081028 , 146196022 , -9724524*w - 118791008 , 1970272*w - 19837160 , 7571762*w - 5593000 , -45023866*w - 48295240 , -8280458*w - 8048992 , 6259144*w + 116900 , -2029558*w - 124711916 , 47354150*w + 52269364 , -46845654*w + 38213630 
, 137545018*w - 59049410 ],
[ 16341064*w - 31357830 , 9724524*w - 118791008 , 134912120 , -2885554*w + 18009922 , -4537162*w - 5200944 , 9496204*w + 93805306 , 1747886*w + 16182488 , -2769474*w - 9964654 , -28241128*w + 60321912 , -9404864*w - 101404478 , 30340412*w + 
    59248448 , -91770302*w - 184197230 ],
[ 8241472*w - 14705040 , -1970272*w - 19837160 , 2885554*w + 18009922 , 5748750 , -1479046*w + 6276676 , 12216056*w - 11426352 , 2253892*w - 2309888 , -1294512*w + 2798978 , 8241052*w + 24225936 , -12820116*w + 10301214 , 7032624*w - 28294476 , 
    -16444852*w + 44042418 ],
[ 10540788*w - 33655300 , -7571762*w - 5593000 , 4537162*w - 5200944 , 1479046*w + 6276676 , 17958486 , 18169612*w - 81574304 , 3364250*w - 15155840 , -847588*w + 11891068 , 33779896*w + 10662176 , -19561152*w + 83114612 , -4843184*w - 92653120 , 
14389290*w + 171678724 ],
[ -6921620*w + 169252958 , 45023866*w - 48295240 , -9496204*w + 93805306 , -12216056*w - 11426352 , -18169612*w - 81574304 , 547134462 , -63058*w + 101095932 , -9123466*w - 65874788 , -181253120*w + 214534236 , 3806280*w - 571383680 , 129230448*w 
    + 425626796 , -289452554*w - 787068254 ],
[ -1513126*w + 31976322 , 8280458*w - 8048992 , -1747886*w + 16182488 , -2253892*w - 2309888 , -3364250*w - 15155840 , 63058*w + 101095932 , 18692408 , -1692456*w - 12164852 , -33447882*w + 39764690 , 636984*w - 105522760 , 23914548*w + 78497580 ,
-53293712*w - 144119472 ],
[ 3400968*w - 19665968 , -6259144*w + 116900 , 2769474*w - 9964654 , 1294512*w + 2798978 , 847588*w + 11891068 , 9123466*w - 65874788 , 1692456*w - 12164852 , 9001958 , 25422250*w - 4658654 , -10001640*w + 68400626 , -8462228*w - 66392116 , 
    21573768*w + 129029880 ],
[ 52399338*w + 72842252 , 2029558*w - 124711916 , 28241128*w + 60321912 , -8241052*w + 24225936 , -33779896*w + 10662176 , 181253120*w + 214534236 , 33447882*w + 39764690 , -25422250*w - 4658654 , 505245944 , -188093580*w - 233245208 , 191980184*w
    - 132996402 , -377784498*w + 362053692 ],
[ 2960498*w - 170177756 , -47354150*w + 52269364 , 9404864*w - 101404478 , 12820116*w + 10301214 , 19561152*w + 83114612 , -3806280*w - 571383680 , -636984*w - 105522760 , 10001640*w + 68400626 , 188093580*w - 233245208 , 597842938 , -138139128*w 
    - 438896976 , 309198562*w + 817275690 ],
[ -41482258*w + 120142778 , 46845654*w + 38213630 , -30340412*w + 59248448 , -7032624*w - 28294476 , 4843184*w - 92653120 , -129230448*w + 425626796 , -23914548*w + 78497580 , 8462228*w - 66392116 , -191980184*w - 132996402 , 138139128*w - 
    438896976 , 545640788 , -38148404*w - 1100130626 ],
[ -90368352*w + 120218 , -137545018*w - 59049410 , 91770302*w - 184197230 , 16444852*w + 44042418 , -14389290*w + 171678724 , 289452554*w - 787068254 , 53293712*w - 144119472 , -21573768*w + 129029880 , 377784498*w + 362053692 , -309198562*w + 
    817275690 , 38148404*w - 1100130626 , 2672505458 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 576 );


/***Gitter Nr. 343 ***/
Grammatrix:=Matrix(S,[
[ 15188530 , -2408902*w - 3783626 , 322207*w + 340655 , 11806*w + 73234 , -55715*w + 33929 , 334029*w + 638785 , 47439*w + 480907 , 261778*w - 455756 , 91111*w + 133651 , 2564*w + 287714 , 18986*w + 77154 , -4639361*w - 9060583 ],
[ 2408902*w - 3783626 , 6714134 , 311841*w - 207907 , 90027*w + 84973 , -30605*w - 266301 , -268079*w - 637609 , -11395*w - 274631 , -218159*w + 227255 , -55277*w - 133413 , 9447*w - 209405 , -12584*w - 50358 , 93085*w + 7789495 ],
[ -322207*w + 340655 , -311841*w - 207907 , 584696 , -7602*w + 130354 , 28236*w - 124992 , -66662*w - 154504 , -18554*w - 47908 , -48970*w + 74102 , -15088*w - 27384 , -814*w - 52654 , -4146*w - 10514 , 112768*w - 364448 ],
[ -11806*w + 73234 , -90027*w + 84973 , 7602*w + 130354 , 32242 , 6182*w - 33222 , -17680*w - 49546 , -3264*w - 15372 , -15192*w + 16856 , -4060*w - 9324 , 512*w - 15120 , -954*w - 3514 , -2979*w + 61215 ],
[ 55715*w + 33929 , 30605*w - 266301 , -28236*w - 124992 , -6182*w - 33222 , 59780 , 47166*w + 41398 , 14670*w + 23352 , 17144*w - 62272 , 8772*w + 2940 , 4836*w + 25396 , 3630*w + 2926 , -77732*w - 34622 ],
[ -334029*w + 638785 , 268079*w - 637609 , 66662*w - 154504 , 17680*w - 49546 , -47166*w + 41398 , 393372 , -15024*w + 121912 , 84542*w + 94808 , 1368*w + 74760 , -24792*w + 55496 , -306*w + 26558 , 77162*w - 1354570 ],
[ -47439*w + 480907 , 11395*w - 274631 , 18554*w - 47908 , 3264*w - 15372 , -14670*w + 23352 , 15024*w + 121912 , 53074 , 28584*w - 3570 , 4782*w + 18816 , -4708*w + 25788 , 1340*w + 10556 , -104436*w - 464828 ],
[ -261778*w - 455756 , 218159*w + 227255 , 48970*w + 74102 , 15192*w + 16856 , -17144*w - 62272 , -84542*w + 94808 , -28584*w - 3570 , 163954 , -18174*w + 23100 , -18712*w - 27048 , -5896*w + 3080 , 369255*w - 242459 ],
[ -91111*w + 133651 , 55277*w - 133413 , 15088*w - 27384 , 4060*w - 9324 , -8772*w + 2940 , -1368*w + 74760 , -4782*w + 18816 , 18174*w + 23100 , 17906 , -5624*w + 10248 , -680*w + 4536 , 28290*w - 324898 ],
[ -2564*w + 287714 , -9447*w - 209405 , 814*w - 52654 , -512*w - 15120 , -4836*w + 25396 , 24792*w + 55496 , 4708*w + 25788 , 18712*w - 27048 , 5624*w + 10248 , 19824 , 1504*w + 4592 , -92403*w - 244895 ],
[ -18986*w + 77154 , 12584*w - 50358 , 4146*w - 10514 , 954*w - 3514 , -3630*w + 2926 , 306*w + 26558 , -1340*w + 10556 , 5896*w + 3080 , 680*w + 4536 , -1504*w + 4592 , 2464 , -8074*w - 102676 ],
[ 4639361*w - 9060583 , -93085*w + 7789495 , -112768*w - 364448 , 2979*w + 61215 , 77732*w - 34622 , -77162*w - 1354570 , 104436*w - 464828 , -369255*w - 242459 , -28290*w - 324898 , 92403*w - 244895 , 8074*w - 102676 , 15955212 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 108 );


/***Gitter Nr. 344 ***/
Grammatrix:=Matrix(S,[
[ 717592022 , 111907156*w + 251641208 , -59379352*w - 35603372 , 64467012*w + 58596846 , 21267094*w + 38235764 , -4635958*w + 9332190 , -4174790*w + 9220652 , 3396778*w + 13360466 , 2828264*w + 1516956 , -11208140*w + 31499090 , -5581442*w - 
    43487066 , -627845068*w - 1415986628 ],
[ -111907156*w + 251641208 , 247094568 , -18300399*w - 105836031 , 6578399*w + 104606257 , 135427*w + 36586529 , -2523863*w - 1815975 , -2567047*w - 1266615 , -842856*w + 7989730 , 731861*w + 3387447 , -8452280*w - 1128932 , 4608886*w - 20367564 ,
18861758*w - 1222433646 ],
[ 59379352*w - 35603372 , 18300399*w - 105836031 , 62719650 , 5956432*w - 64814974 , 2961320*w - 21040992 , 1029666*w + 2691052 , 1167922*w + 2067590 , 994588*w - 3743782 , -141446*w - 2083886 , 4321782*w + 4701956 , -3819842*w + 8345274 , 
    -101765789*w + 443402253 ],
[ -64467012*w + 58596846 , -6578399*w + 104606257 , -5956432*w - 64814974 , 237747916 , -10503474*w + 81671408 , -3799804*w - 14850598 , -4069436*w - 10342332 , -4144994*w + 11961572 , 48800*w + 7447328 , -14296712*w - 21300468 , 14714080*w - 
    24795680 , 40797131*w - 474200839 ],
[ -21267094*w + 38235764 , -135427*w + 36586529 , -2961320*w - 21040992 , 10503474*w + 81671408 , 40437754 , -2754390*w - 3646342 , -2757004*w - 2167564 , -1072138*w + 8504510 , 698796*w + 3728508 , -9064538*w - 2363942 , 5361650*w - 21272510 , 
    -1775541*w - 158058999 ],
[ 4635958*w + 9332190 , 2523863*w - 1815975 , -1029666*w + 2691052 , 3799804*w - 14850598 , 2754390*w - 3646342 , 1898246 , 66006*w + 1684480 , 718666*w - 46508 , 236336*w - 640528 , 467984*w + 4940320 , -1983952*w - 1301328 , -12050313*w + 
    11205593 ],
[ 4174790*w + 9220652 , 2567047*w - 1266615 , -1167922*w + 2067590 , 4069436*w - 10342332 , 2757004*w - 2167564 , -66006*w + 1684480 , 1586088 , 696200*w + 157052 , 251912*w - 558376 , 253012*w + 4917640 , -1867100*w - 1822268 , -11678913*w + 
    9488479 ],
[ -3396778*w + 13360466 , 842856*w + 7989730 , -994588*w - 3743782 , 4144994*w + 11961572 , 1072138*w + 8504510 , -718666*w - 46508 , -696200*w + 157052 , 2217376 , 279328*w + 733656 , -2200078*w + 1301188 , 635138*w - 6096622 , -5308416*w - 
    33555970 ],
[ -2828264*w + 1516956 , -731861*w + 3387447 , 141446*w - 2083886 , -48800*w + 7447328 , -698796*w + 3728508 , -236336*w - 640528 , -251912*w - 558376 , -279328*w + 733656 , 489846 , -891440*w - 1510278 , 978124*w - 1456084 , 2445933*w - 15972383 
],
[ 11208140*w + 31499090 , 8452280*w - 1128932 , -4321782*w + 4701956 , 14296712*w - 21300468 , 9064538*w - 2363942 , -467984*w + 4940320 , -253012*w + 4917640 , 2200078*w + 1301188 , 891440*w - 1510278 , 16046492 , -5676968*w - 7990136 , 
    -36473768*w + 16653420 ],
[ 5581442*w - 43487066 , -4608886*w - 20367564 , 3819842*w + 8345274 , -14714080*w - 24795680 , -5361650*w - 21272510 , 1983952*w - 1301328 , 1867100*w - 1822268 , -635138*w - 6096622 , -978124*w - 1456084 , 5676968*w - 7990136 , 18037712 , 
    24067464*w + 82162654 ],
[ 627845068*w - 1415986628 , -18861758*w - 1222433646 , 101765789*w + 443402253 , -40797131*w - 474200839 , 1775541*w - 158058999 , 12050313*w + 11205593 , 11678913*w + 9488479 , 5308416*w - 33555970 , -2445933*w - 15972383 , 36473768*w + 16653420
, -24067464*w + 82162654 , 6851455100 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 24 );


/***Gitter Nr. 345 ***/
Grammatrix:=Matrix(S,[
[ 1965782 , -670872*w + 63574 , 174862*w - 2412718 , 49514*w + 2796766 , 318696*w - 3336004 , -21886*w + 1608474 , -293144*w + 374234 , 1355470*w + 112350 , 605664*w + 4168626 , -850960*w - 639030 , 2279098*w - 614334 , -2419294*w + 809830 ],
[ 670872*w + 63574 , 12717950 , -1343568*w + 7773822 , 1910580*w - 8648430 , -4835998*w - 7954198 , 2214420*w + 1432032 , 345002*w + 3258346 , 1053164*w - 13155268 , 6235314*w - 3221470 , -1449428*w + 7932624 , 625156*w - 22751820 , 219398*w + 
    22890728 ],
[ -174862*w - 2412718 , 1343568*w + 7773822 , 17177650 , -55794*w - 17006486 , -3740688*w + 3233566 , 1326906*w - 3242876 , 845778*w + 851760 , -2319964*w - 7348124 , 2080828*w - 10660608 , 1035860*w + 5662160 , -4536144*w - 11005120 , 6726490*w +
    12114942 ],
[ -49514*w + 2796766 , -1910580*w - 8648430 , 55794*w - 17006486 , 18142572 , 4365844*w - 1612086 , -1553290*w + 2976386 , -995872*w - 1243452 , 2748654*w + 8681624 , -2464204*w + 12624192 , -1226636*w - 6707540 , 5371956*w + 13032880 , -7334684*w
    - 13863052 ],
[ -318696*w - 3336004 , 4835998*w - 7954198 , 3740688*w + 3233566 , -4365844*w - 1612086 , 29860446 , -903414*w - 11192944 , 1294318*w - 4100488 , -7051728*w + 4977644 , -5646000*w - 18955216 , 4778752*w - 316680 , -11390888*w + 12816160 , 
    12071968*w - 15642018 ],
[ 21886*w + 1608474 , -2214420*w + 1432032 , -1326906*w - 3242876 , 1553290*w + 2976386 , 903414*w - 11192944 , 4578728 , -665294*w + 1208298 , 3071590*w + 35252 , 1494948*w + 9338672 , -1950016*w - 1273706 , 5154218*w - 1855672 , -5618872*w + 
    2825522 ],
[ 293144*w + 374234 , -345002*w + 3258346 , -845778*w + 851760 , 995872*w - 1243452 , -1294318*w - 4100488 , 665294*w + 1208298 , 1132278 , 792316*w - 3735844 , 2012304*w + 582848 , -724864*w + 2050510 , 1004738*w - 6765136 , -941628*w + 7354746 
],
[ -1355470*w + 112350 , -1053164*w - 13155268 , 2319964*w - 7348124 , -2748654*w + 8681624 , 7051728*w + 4977644 , -3071590*w + 35252 , -792316*w - 3735844 , 17297700 , -7509444*w + 8430044 , 1024192*w - 10982020 , 1499360*w + 29020936 , 
    -2320756*w - 30556778 ],
[ -605664*w + 4168626 , -6235314*w - 3221470 , -2080828*w - 10660608 , 2464204*w + 12624192 , 5646000*w - 18955216 , -1494948*w + 9338672 , -2012304*w + 582848 , 7509444*w + 8430044 , 26931324 , -4268928*w - 8465324 , 13330782*w + 9587760 , 
    -14399808*w - 7840336 ],
[ 850960*w - 639030 , 1449428*w + 7932624 , -1035860*w + 5662160 , 1226636*w - 6707540 , -4778752*w - 316680 , 1950016*w - 1273706 , 724864*w + 2050510 , -1024192*w - 10982020 , 4268928*w - 8465324 , 7397642 , -2670496*w - 17805312 , 3283352*w + 
    18442396 ],
[ -2279098*w - 614334 , -625156*w - 22751820 , 4536144*w - 11005120 , -5371956*w + 13032880 , 11390888*w + 12816160 , -5154218*w - 1855672 , -1004738*w - 6765136 , -1499360*w + 29020936 , -13330782*w + 9587760 , 2670496*w - 17805312 , 49603708 , 
    -1245556*w - 52685794 ],
[ 2419294*w + 809830 , -219398*w + 22890728 , -6726490*w + 12114942 , 7334684*w - 13863052 , -12071968*w - 15642018 , 5618872*w + 2825522 , 941628*w + 7354746 , 2320756*w - 30556778 , 14399808*w - 7840336 , -3283352*w + 18442396 , 1245556*w - 
    52685794 , 59011288 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 12 );

/***Gitter Nr. 346 ***/
Grammatrix:=Matrix(S,[
[ 412384 , 18857*w - 85855 , 17574*w - 112224 , -71810*w + 346584 , 147842*w - 707420 , -14229*w + 41419 , 10422*w + 4914 , 9420*w - 1162 , -2633*w + 64659 , -2204*w + 6272 , -11166*w + 2352 , 48519*w + 352751 ],
[ -18857*w - 85855 , 60550 , 1118*w + 58198 , 1658*w - 109354 , -8*w + 234374 , -6775*w - 21399 , 1264*w + 2408 , -822*w + 2688 , -1032*w - 11746 , 280*w - 1428 , 1920*w - 2408 , -25198*w - 59542 ],
[ -17574*w - 112224 , -1118*w + 58198 , 60424 , 3890*w - 127428 , -4848*w + 269738 , -9090*w - 25802 , 1620*w - 2520 , -706*w - 1008 , 1512*w - 6384 , 348*w - 336 , 1224*w + 1260 , -32196*w - 83048 ],
[ 71810*w + 346584 , -1658*w - 109354 , -3890*w - 127428 , 538342 , -3448*w - 1101800 , 1152*w + 140994 , -400*w - 19404 , 542*w - 16072 , 19760*w + 7756 , 1978*w + 5152 , 516*w + 23450 , 124374*w + 372932 ],
[ -147842*w - 707420 , 8*w + 234374 , 4848*w + 269738 , 3448*w - 1101800 , 2272732 , -4194*w - 324030 , 6982*w + 49644 , 2984*w + 36008 , -44812*w + 6832 , -5174*w - 9128 , -5316*w - 51310 , -255052*w - 785722 ],
[ 14229*w + 41419 , 6775*w - 21399 , 9090*w - 25802 , -1152*w + 140994 , 4194*w - 324030 , 215194 , -24336*w - 54530 , -19480*w - 21448 , 38869*w - 134239 , 8448*w - 5474 , 26462*w + 32970 , 27041*w + 188489 ],
[ -10422*w + 4914 , -1264*w + 2408 , -1620*w - 2520 , 400*w - 19404 , -6982*w + 49644 , 24336*w - 54530 , 46438 , 2840*w + 29022 , -28084*w + 4970 , -3084*w - 5432 , -3292*w - 32984 , 13646*w - 33586 ],
[ -9420*w - 1162 , 822*w + 2688 , 706*w - 1008 , -542*w - 16072 , -2984*w + 36008 , 19480*w - 21448 , -2840*w + 29022 , 20370 , -19476*w - 14154 , -1576*w - 5712 , 636*w - 24556 , 8878*w - 13944 ],
[ 2633*w + 64659 , 1032*w - 11746 , -1512*w - 6384 , -19760*w + 7756 , 44812*w + 6832 , -38869*w - 134239 , 28084*w + 4970 , 19476*w - 14154 , 178990 , -5862*w + 19166 , -30098*w + 17794 , -19810*w - 45276 ],
[ 2204*w + 6272 , -280*w - 1428 , -348*w - 336 , -1978*w + 5152 , 5174*w - 9128 , -8448*w - 5474 , 3084*w - 5432 , 1576*w - 5712 , 5862*w + 19166 , 3416 , -2626*w + 8806 , -3476*w - 252 ],
[ 11166*w + 2352 , -1920*w - 2408 , -1224*w + 1260 , -516*w + 23450 , 5316*w - 51310 , -26462*w + 32970 , 3292*w - 32984 , -636*w - 24556 , 30098*w + 17794 , 2626*w + 8806 , 37268 , -9620*w + 19488 ],
[ -48519*w + 352751 , 25198*w - 59542 , 32196*w - 83048 , -124374*w + 372932 , 255052*w - 785722 , -27041*w + 188489 , -13646*w - 33586 , -8878*w - 13944 , 19810*w - 45276 , 3476*w - 252 , 9620*w + 19488 , 560406 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );


/***Gitter Nr. 347 ***/
Grammatrix:=Matrix(S,[
[ 21518 , 4424*w + 4536 , 2220*w - 2254 , -184*w + 1960 , 704*w - 1624 , 1780*w + 1120 , 2348*w - 2968 , -2778*w - 3276 , -842*w - 1876 , -1420*w + 1036 , 248*w - 3640 , -5068*w - 9044 ],
[ -4424*w + 4536 , 20524 , -40*w + 2506 , -22*w + 1876 , -360*w - 210 , 240*w , 510*w , 60*w , 0 , 0 , 0 , 3097*w - 5537 ],
[ -2220*w - 2254 , 40*w + 2506 , 14910 , -2*w - 1806 , -352*w + 1918 , -1932*w - 1610 , -1668*w - 6160 , -4358*w - 2520 , -1160*w - 1120 , -1120*w + 2240 , -360*w - 3360 , 154*w - 3724 ],
[ 184*w + 1960 , 22*w + 1876 , 2*w - 1806 , 882 , -64*w - 574 , 476*w - 70 , 524*w , 54*w , 0 , 0 , 0 , -596*w + 336 ],
[ -704*w - 1624 , 360*w - 210 , 352*w + 1918 , 64*w - 574 , 1204 , -532*w + 742 , -482*w + 728 , 374*w + 252 , 116*w + 112 , 112*w - 224 , 36*w + 336 , 758*w - 952 ],
[ -1780*w + 1120 , -240*w , 1932*w - 1610 , -476*w - 70 , 532*w + 742 , 3948 , -64*w + 5068 , 1464*w + 1162 , 406*w + 392 , 392*w - 784 , 126*w + 1176 , 284*w - 3752 ],
[ -2348*w - 2968 , -510*w , 1668*w - 6160 , -524*w , 482*w + 728 , 64*w + 5068 , 11004 , 4620*w + 2632 , 1476*w + 1372 , 1512*w - 3304 , 516*w + 4816 , 2594*w - 4494 ],
[ 2778*w - 3276 , -60*w , 4358*w - 2520 , -54*w , -374*w + 252 , -1464*w + 1162 , -4620*w + 2632 , 23338 , -378*w + 6552 , 2100*w + 5124 , -2394*w + 3066 , 1224*w + 12586 ],
[ 842*w - 1876 , 0 , 1160*w - 1120 , 0 , -116*w + 112 , -406*w + 392 , -1476*w + 1372 , 378*w + 6552 , 2170 , 866*w + 1442 , -812*w + 1456 , 715*w + 3941 ],
[ 1420*w + 1036 , 0 , 1120*w + 2240 , 0 , -112*w - 224 , -392*w - 784 , -1512*w - 3304 , -2100*w + 5124 , -866*w + 1442 , 3584 , -1186*w - 1470 , -1086*w + 4704 ],
[ -248*w - 3640 , 0 , 360*w - 3360 , 0 , -36*w + 336 , -126*w + 1176 , -516*w + 4816 , 2394*w + 3066 , 812*w + 1456 , 1186*w - 1470 , 3388 , 1968*w + 672 ],
[ 5068*w - 9044 , -3097*w - 5537 , -154*w - 3724 , 596*w + 336 , -758*w - 952 , -284*w - 3752 , -2594*w - 4494 , -1224*w + 12586 , -715*w + 3941 , 1086*w + 4704 , -1968*w + 672 , 28714 ]
]);

Include(~Erg,Grammatrix/d);
Append(~a, 48 );

/***Gitter Nr. 348 ***/
Grammatrix:=Matrix(S,[
[ 104463618 , -87988330*w - 316201340 , 40636162*w + 194783876 , -4194548*w + 6226710 , -4550600*w + 10212958 , 12140720*w - 35033390 , -13585870*w - 20510476 , 32022600*w + 37598890 , 2063928*w + 43917426 , 22370202*w + 56449148 , 18874692*w - 
    12336058 , 75277447*w + 38938445 ],
[ 87988330*w - 316201340 , 1604491014 , 41865420*w - 897159158 , 17295102*w + 11292610 , 21651104*w + 3937122 , -68278740*w + 6684594 , 12559766*w + 165025280 , -40539812*w - 356491856 , 45480138*w - 133510328 , 5828272*w - 331887388 , -64574976*w
    - 120273524 , -216806039*w - 577626595 ],
[ -40636162*w + 194783876 , -41865420*w - 897159158 , 510082510 , -9860460*w - 2437512 , -12032604*w + 2626638 , 37290000*w - 18397176 , -11782930*w - 87723300 , 32831128*w + 186543308 , -20917586*w + 82538470 , 6685312*w + 182866138 , 38922506*w 
    + 52378648 , 136695110*w + 285760020 ],
[ 4194548*w + 6226710 , -17295102*w + 11292610 , 9860460*w - 2437512 , 2588026 , 170692*w + 3190082 , -775506*w - 9081072 , -2358272*w + 2479288 , 4942962*w - 7395948 , 2311356*w + 3690764 , 4957908*w - 1848364 , 1302946*w - 7583870 , 4325903*w - 
    18814145 ],
[ 4550600*w + 10212958 , -21651104*w + 3937122 , 12032604*w + 2626638 , -170692*w + 3190082 , 4065208 , -375786*w - 11804800 , -3187638*w + 2040836 , 6830230*w - 7031360 , 2703340*w + 5837972 , 6470500*w + 21000 , 2188510*w - 9076046 , 6693728*w -
    19631220 ],
[ -12140720*w - 35033390 , 68278740*w + 6684594 , -37290000*w - 18397176 , 775506*w - 9081072 , 375786*w - 11804800 , 36281700 , 11246836*w - 3177286 , -24314810*w + 14465052 , -8193764*w - 23317028 , -22089452*w - 7985614 , -9059544*w + 28307006 
, -22755942*w + 53475954 ],
[ 13585870*w - 20510476 , -12559766*w + 165025280 , 11782930*w - 87723300 , 2358272*w + 2479288 , 3187638*w + 2040836 , -11246836*w - 3177286 , 32224066 , -1985392*w - 70192458 , 10490348*w - 20361922 , 5903764*w - 61625592 , -10359562*w - 
    29102598 , -13302817*w - 62443549 ],
[ -32022600*w + 37598890 , 40539812*w - 356491856 , -32831128*w + 186543308 , -4942962*w - 7395948 , -6830230*w - 7031360 , 24314810*w + 14465052 , 1985392*w - 70192458 , 154608482 , -24121544*w + 39926474 , -16655904*w + 131805240 , 20797188*w + 
    67900700 , 24399892*w + 146469554 ],
[ -2063928*w + 43917426 , -45480138*w - 133510328 , 20917586*w + 82538470 , -2311356*w + 3690764 , -2703340*w + 5837972 , 8193764*w - 23317028 , -10490348*w - 20361922 , 24121544*w + 39926474 , 36785350 , 16333748*w + 52407124 , 16023872*w - 
    5216736 , 28725205*w + 9761227 ],
[ -22370202*w + 56449148 , -5828272*w - 331887388 , -6685312*w + 182866138 , -4957908*w - 1848364 , -6470500*w + 21000 , 22089452*w - 7985614 , -5903764*w - 61625592 , 16655904*w + 131805240 , -16333748*w + 52407124 , 125441064 , 25147018*w + 
    42376082 , 36765338*w + 102911718 ],
[ -18874692*w - 12336058 , 64574976*w - 120273524 , -38922506*w + 52378648 , -1302946*w - 7583870 , -2188510*w - 9076046 , 9059544*w + 28307006 , 10359562*w - 29102598 , -20797188*w + 67900700 , -16023872*w - 5216736 , -25147018*w + 42376082 , 
    49603708 , -8218758*w + 86362528 ],
[ -75277447*w + 38938445 , 216806039*w - 577626595 , -136695110*w + 285760020 , -4325903*w - 18814145 , -6693728*w - 19631220 , 22755942*w + 53475954 , 13302817*w - 62443549 , -24399892*w + 146469554 , -28725205*w + 9761227 , -36765338*w + 
    102911718 , 8218758*w + 86362528 , 428156904 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 20 );


/***Gitter Nr. 349 ***/
Grammatrix:=Matrix(S,[
[ 168 , 32*w - 252 , 10*w - 70 , -29*w - 21 , -66*w + 14 , -7*w - 7 , 24*w , 4*w , -4*w , -6*w , 0 , -86*w + 126 ],
[ -32*w - 252 , 588 , 4*w + 84 , 45*w + 21 , 136*w - 140 , 23*w + 7 , -8*w + 28 , -6*w , 0 , 0 , 0 , 148*w - 350 ],
[ -10*w - 70 , -4*w + 84 , 140 , 28*w - 56 , 21*w - 35 , -8*w , -63*w + 63 , 14*w - 14 , 0 , 0 , 0 , -47*w - 175 ],
[ 29*w - 21 , -45*w + 21 , -28*w - 56 , 140 , 34*w + 154 , 6*w , 6*w - 182 , -3*w + 35 , 0 , 0 , 0 , 118*w + 98 ],
[ 66*w + 14 , -136*w - 140 , -21*w - 35 , -34*w + 154 , 518 , -10*w + 70 , 11*w - 63 , -2*w - 14 , 0 , 0 , 0 , 116*w + 560 ],
[ 7*w - 7 , -23*w + 7 , 8*w , -6*w , 10*w + 70 , 28 , 10*w + 70 , -3*w - 21 , 0 , 0 , 0 , 20*w + 112 ],
[ -24*w , 8*w + 28 , 63*w + 63 , -6*w - 182 , -11*w - 63 , -10*w + 70 , 476 , -112 , 0 , 0 , 0 , -99*w + 147 ],
[ -4*w , 6*w , -14*w - 14 , 3*w + 35 , 2*w - 14 , 3*w - 21 , -112 , 42 , 0 , 12*w - 14 , 8*w - 28 , 12*w - 84 ],
[ 4*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , 18*w , 12*w - 42 , -20*w ],
[ 6*w , 0 , 0 , 0 , 0 , 0 , 0 , -12*w - 14 , -18*w , 266 , 76*w + 196 , 18*w - 196 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -8*w - 28 , -12*w - 42 , -76*w + 196 , 308 , 80*w - 112 ],
[ 86*w + 126 , -148*w - 350 , 47*w - 175 , -118*w + 98 , -116*w + 560 , -20*w + 112 , 99*w + 147 , -12*w - 84 , 20*w , -18*w - 196 , -80*w - 112 , 1456 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1008 );


/***Gitter Nr. 350 ***/
Grammatrix:=Matrix(S,[
[ 38053442 , 2775670*w + 14395402 , 787401*w + 3601591 , 5428*w - 1362984 , -7327020*w - 21293384 , -7486638*w + 799638 , 5679504*w - 3113012 , 830572*w - 1798034 , -21601*w - 634543 , -938925*w + 201061 , 304914*w - 1880396 , 270624*w - 7695072 
],
[ -2775670*w + 14395402 , 19471438 , 274989*w + 4415369 , -267714*w - 883218 , -5066356*w - 11075736 , -7142419*w - 72883867 , 5991459*w + 71687609 , 401720*w - 992082 , -25961*w - 294049 , -475525*w + 314433 , 93810*w - 1031884 , 14609186*w + 
    19031292 ],
[ -787401*w + 3601591 , -274989*w + 4415369 , 1054592 , -42810*w - 277312 , -1163466*w - 3434858 , -278902*w - 16267440 , -6914*w + 15847468 , 123592*w - 238742 , -1660*w - 85988 , -131468*w + 28532 , 42326*w - 262794 , 2708650*w + 5863788 ],
[ -5428*w - 1362984 , 267714*w - 883218 , 42810*w - 277312 , 224392 , 817224*w + 1912652 , -1719278*w + 3126956 , 1894490*w - 2929612 , -57228*w + 190722 , 9618*w + 49896 , 87206*w - 88410 , -8522*w + 202230 , 265928*w - 3628884 ],
[ 7327020*w - 21293384 , 5066356*w - 11075736 , 1163466*w - 3434858 , -817224*w + 1912652 , 48110972 , -18166371*w + 12002837 , 19173687*w - 3977351 , -1522314*w + 55832 , -125604*w + 861952 , 1399136*w + 2013088 , -1084520*w + 1954904 , 8206394*w
    - 23705906 ],
[ 7486638*w + 799638 , 7142419*w - 72883867 , 278902*w - 16267440 , 1719278*w + 3126956 , 18166371*w + 12002837 , 404803308 , 3355237*w - 404835305 , -275663*w + 3273683 , 229655*w + 400575 , 800414*w - 2677360 , 439222*w + 2552270 , -71535415*w -
    155242955 ],
[ -5679504*w - 3113012 , -5991459*w + 71687609 , 6914*w + 15847468 , -1894490*w - 2929612 , -19173687*w - 3977351 , -3355237*w - 404835305 , 406401562 , 18633*w - 3545143 , -270759*w - 299943 , -624196*w + 3190250 , -646304*w - 2405368 , 
    73305929*w + 152160295 ],
[ -830572*w - 1798034 , -401720*w - 992082 , -123592*w - 238742 , 57228*w + 190722 , 1522314*w + 55832 , 275663*w + 3273683 , -18633*w - 3545143 , 408492 , 28654*w + 59430 , 82176*w - 270144 , 42176*w + 262640 , -563618*w - 1661898 ],
[ 21601*w - 634543 , 25961*w - 294049 , 1660*w - 85988 , -9618*w + 49896 , 125604*w + 861952 , -229655*w + 400575 , 270759*w - 299943 , -28654*w + 59430 , 32018 , 37408*w + 31808 , -23704*w + 61096 , 92106*w - 431438 ],
[ 938925*w + 201061 , 475525*w + 314433 , 131468*w + 28532 , -87206*w - 88410 , -1399136*w + 2013088 , -800414*w - 2677360 , 624196*w + 3190250 , -82176*w - 270144 , -37408*w + 31808 , 428176 , -120080*w - 163072 , 828324*w + 911736 ],
[ -304914*w - 1880396 , -93810*w - 1031884 , -42326*w - 262794 , 8522*w + 202230 , 1084520*w + 1954904 , -439222*w + 2552270 , 646304*w - 2405368 , -42176*w + 262640 , 23704*w + 61096 , 120080*w - 163072 , 298144 , -57660*w - 1946308 ],
[ -270624*w - 7695072 , -14609186*w + 19031292 , -2708650*w + 5863788 , -265928*w - 3628884 , -8206394*w - 23705906 , 71535415*w - 155242955 , -73305929*w + 152160295 , 563618*w - 1661898 , -92106*w - 431438 , -828324*w + 911736 , 57660*w - 
    1946308 , 150189620 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );


/***Gitter Nr. 351 ***/
Grammatrix:=Matrix(S,[
[ 78225504 , 1405381*w - 5292189 , 833600*w + 9674840 , -58045182*w + 1024621472 , 14275587*w - 257485879 , 5208890*w - 105586754 , 5495665*w - 53111583 , -643584*w - 937496 , 977908*w + 1233512 , 436842*w - 705250 , 172476*w - 1375360 , 
    231980821*w + 581402395 ],
[ -1405381*w - 5292189 , 929642 , -277033*w - 719985 , -21308230*w - 49805686 , 5365032*w + 12518632 , 2203462*w + 5311222 , 775756*w + 2772056 , 75019*w + 84917 , -109512*w - 110740 , -44657*w + 84035 , -14546*w + 151088 , -22498319*w + 14511833 
],
[ -833600*w + 9674840 , 277033*w - 719985 , 2596678 , -2357330*w + 66589264 , 598373*w - 17092859 , 21256*w - 7980616 , 1274541*w - 4121579 , -267332*w - 381696 , 370006*w + 564718 , 180390*w - 224042 , 88314*w - 519078 , 15734595*w + 35599683 ],
[ 58045182*w + 1024621472 , 21308230*w - 49805686 , 2357330*w + 66589264 , 19350742474 , -3375893*w - 4842504737 , 2842292*w - 1930610626 , -3449971*w - 928047295 , 1541380*w - 5656980 , -1645528*w + 484568 , -756824*w + 963536 , -210208*w + 
    2426648 , 4895900116*w + 9023833014 ],
[ -14275587*w - 257485879 , -5365032*w + 12518632 , -598373*w - 17092859 , 3375893*w - 4842504737 , 1211930160 , -958257*w + 483395591 , 478223*w + 232574377 , -317344*w + 1465730 , 307845*w - 175595 , 154319*w - 144683 , 49166*w - 464912 , 
    -1223629256*w - 2264297280 ],
[ -5208890*w - 105586754 , -2203462*w + 5311222 , -21256*w - 7980616 , -2842292*w - 1930610626 , 958257*w + 483395591 , 194319650 , -518031*w + 92066499 , -3280*w + 1297590 , -139544*w - 1135050 , -174634*w - 41566 , -166206*w + 252854 , 
    -489642564*w - 895707960 ],
[ -5495665*w - 53111583 , -775756*w + 2772056 , -1274541*w - 4121579 , 3449971*w - 928047295 , -478223*w + 232574377 , 518031*w + 92066499 , 50607158 , 310050*w - 903098 , -454695*w + 1517145 , 115227*w + 891849 , 324826*w + 509908 , -233493068*w 
    - 439265736 ],
[ 643584*w - 937496 , -75019*w + 84917 , 267332*w - 381696 , -1541380*w - 5656980 , 317344*w + 1465730 , 3280*w + 1297590 , -310050*w - 903098 , 471212 , -37898*w - 649782 , -107520*w - 116480 , -118304*w + 97440 , -2049399*w - 22561 ],
[ -977908*w + 1233512 , 109512*w - 110740 , -370006*w + 564718 , 1645528*w + 484568 , -307845*w - 175595 , 139544*w - 1135050 , 454695*w + 1517145 , 37898*w - 649782 , 1091986 , 173992*w + 282296 , 212184*w - 86296 , 717480*w - 2596888 ],
[ -436842*w - 705250 , 44657*w + 84035 , -180390*w - 224042 , 756824*w + 963536 , -154319*w - 144683 , 174634*w - 41566 , -115227*w + 891849 , 107520*w - 116480 , -173992*w + 282296 , 271376 , 69648*w + 216384 , 538959*w - 1061039 ],
[ -172476*w - 1375360 , 14546*w + 151088 , -88314*w - 519078 , 210208*w + 2426648 , -49166*w - 464912 , 166206*w + 252854 , -324826*w + 509908 , 118304*w + 97440 , -212184*w - 86296 , -69648*w + 216384 , 298144 , 708824*w + 519246 ],
[ -231980821*w + 581402395 , 22498319*w + 14511833 , -15734595*w + 35599683 , -4895900116*w + 9023833014 , 1223629256*w - 2264297280 , 489642564*w - 895707960 , 233493068*w - 439265736 , 2049399*w - 22561 , -717480*w - 2596888 , -538959*w - 
    1061039 , -708824*w + 519246 , 12879270334 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );


/***Gitter Nr. 352 ***/
Grammatrix:=Matrix(S,[
[ 45332 , -1236*w + 9744 , -1236*w + 3864 , -4812*w + 10598 , -2270*w + 4130 , 904*w - 700 , 1292*w - 1596 , -108*w + 3864 , 2130*w + 2128 , 1734*w - 6272 , 788*w - 9072 , 13424*w - 20706 ],
[ 1236*w + 9744 , 14378 , -156*w + 8274 , -654*w - 1890 , -214*w + 42 , 644*w - 252 , 462*w - 392 , -508*w + 2772 , 1308*w + 2604 , 1776*w - 3136 , 1348*w - 5488 , -7062*w - 8176 ],
[ 1236*w + 3864 , 156*w + 8274 , 5208 , -340*w - 994 , 228*w - 70 , 352*w - 182 , 30*w - 196 , -252*w + 1386 , 674*w + 1302 , 900*w - 1568 , 674*w - 2744 , -5268*w - 8400 ],
[ 4812*w + 10598 , 654*w - 1890 , 340*w - 994 , 11634 , -230*w + 2842 , 12*w - 1148 , 94*w - 560 , -8*w , 0 , 0 , 0 , -472*w - 15932 ],
[ 2270*w + 4130 , 214*w + 42 , -228*w - 70 , 230*w + 2842 , 3528 , 64*w - 826 , 72*w - 2100 , -10*w + 280 , 0 , 0 , 0 , 2218*w - 4746 ],
[ -904*w - 700 , -644*w - 252 , -352*w - 182 , -12*w - 1148 , -64*w - 826 , 1134 , 38*w + 1008 , -486*w - 504 , -352*w + 1904 , 704*w + 1904 , 1088*w + 1120 , -356*w - 3276 ],
[ -1292*w - 1596 , -462*w - 392 , -30*w - 196 , -94*w - 560 , -72*w - 2100 , -38*w + 1008 , 1876 , -570*w - 560 , -418*w + 2156 , 836*w + 2198 , 1292*w + 1330 , -2446*w - 1218 ],
[ 108*w + 3864 , 508*w + 2772 , 252*w + 1386 , 8*w , 10*w + 280 , 486*w - 504 , 570*w - 560 , 6608 , 3638*w + 3024 , 2804*w - 10864 , 1148*w - 15260 , -1388*w + 15204 ],
[ -2130*w + 2128 , -1308*w + 2604 , -674*w + 1302 , 0 , 0 , 352*w + 1904 , 418*w + 2156 , -3638*w + 3024 , 15736 , 7392*w + 5894 , 9088*w - 2702 , -8160*w + 560 ],
[ -1734*w - 6272 , -1776*w - 3136 , -900*w - 1568 , 0 , 0 , -704*w + 1904 , -836*w + 2198 , -2804*w - 10864 , -7392*w + 5894 , 26558 , 4672*w + 28924 , -3694*w - 27594 ],
[ -788*w - 9072 , -1348*w - 5488 , -674*w - 2744 , 0 , 0 , -1088*w + 1120 , -1292*w + 1330 , -1148*w - 15260 , -9088*w - 2702 , -4672*w + 28924 , 37268 , 594*w - 34174 ],
[ -13424*w - 20706 , 7062*w - 8176 , 5268*w - 8400 , 472*w - 15932 , -2218*w - 4746 , 356*w - 3276 , 2446*w - 1218 , 1388*w + 15204 , 8160*w + 560 , 3694*w - 27594 , -594*w - 34174 , 170800 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );


/***Gitter Nr. 353 ***/
Grammatrix:=Matrix(S,[
[ 9286677904 , -78138294*w - 1550877972 , -63915636*w + 49469294 , 52082842*w - 154780948 , -20245316*w + 3447738 , -391172955*w + 767517429 , -831266308*w + 1553982318 , 156921845*w + 191476887 , 8549043*w - 20642013 , 81942428*w + 165881016 , 
    -212723052*w + 101551576 , -5725279385*w - 12537109879 ],
[ 78138294*w - 1550877972 , 266209174 , 11643466*w - 5124546 , -7529498*w + 16259012 , 2401036*w + 123088 , 65053546*w - 117801698 , 135375356*w - 234734948 , -19811094*w - 22562638 , -3468374*w + 11182794 , -8654788*w - 24525144 , 26568064*w - 
    837088 , 851556042*w + 2397203256 ],
[ 63915636*w + 49469294 , -11643466*w - 5124546 , 7945322 , 223242*w - 1057280 , -149404*w - 1295560 , 9268626*w - 4045930 , 18149782*w - 8650040 , -985892*w + 2826782 , -2220822*w + 2308544 , 725440*w + 662144 , -1408788*w + 2043104 , 
    -111374912*w + 203683998 ],
[ -52082842*w - 154780948 , 7529498*w + 16259012 , -223242*w - 1057280 , 48649342 , 4429164*w - 6551062 , 29194998*w + 8557360 , 67939432*w - 16333884 , -41472312*w - 28378938 , -1798176*w - 55019902 , -24939792*w + 5845014 , 31768560*w - 
    110419344 , 204892916*w + 119055426 ],
[ 20245316*w + 3447738 , -2401036*w + 123088 , 149404*w - 1295560 , -4429164*w - 6551062 , 4579428 , -8226431*w + 25897263 , -14623236*w + 62101718 , 8663725*w - 24491117 , 5991521*w + 4244443 , 2675860*w - 16690030 , 5990740*w + 34507060 , 
    -47539107*w + 93252341 ],
[ 391172955*w + 767517429 , -65053546*w - 117801698 , -9268626*w - 4045930 , -29194998*w + 8557360 , 8226431*w + 25897263 , 768103686 , 22875712*w + 1563719150 , 6391020*w - 304231634 , 31672251*w - 150729369 , -9676194*w - 99569792 , 71893870*w +
    100845192 , -1038528513*w + 1018431337 ],
[ 831266308*w + 1553982318 , -135375356*w - 234734948 , -18149782*w - 8650040 , -67939432*w - 16333884 , 14623236*w + 62101718 , -22875712*w + 1563719150 , 3219062896 , 47197294*w - 644696822 , 75624544*w - 264623744 , -3289980*w - 237534360 , 
    143595620*w + 321668760 , -2209621794*w + 2181387586 ],
[ -156921845*w + 191476887 , 19811094*w - 22562638 , 985892*w + 2826782 , 41472312*w - 28378938 , -8663725*w - 24491117 , -6391020*w - 304231634 , -47197294*w - 644696822 , 288775354 , -46424141*w + 68788265 , 19926726*w + 144896010 , -112910890*w
    - 122804668 , 179809345*w - 1284042123 ],
[ -8549043*w - 20642013 , 3468374*w + 11182794 , 2220822*w + 2308544 , 1798176*w - 55019902 , -5991521*w + 4244443 , -31672251*w - 150729369 , -75624544*w - 264623744 , 46424141*w + 68788265 , 90498016 , 28848370*w - 1042650 , -40086750*w + 
    119658000 , -22335838*w - 209033356 ],
[ -81942428*w + 165881016 , 8654788*w - 24525144 , -725440*w + 662144 , 24939792*w + 5845014 , -2675860*w - 16690030 , 9676194*w - 99569792 , 3289980*w - 237534360 , -19926726*w + 144896010 , -28848370*w - 1042650 , 90425258 , -52922272*w - 
    127585472 , 82958622*w - 701503712 ],
[ 212723052*w + 101551576 , -26568064*w - 837088 , 1408788*w + 2043104 , -31768560*w - 110419344 , -5990740*w + 34507060 , -71893870*w + 100845192 , -143595620*w + 321668760 , 112910890*w - 122804668 , 40086750*w + 119658000 , 52922272*w - 
    127585472 , 396829664 , -527572362*w + 650149752 ],
[ 5725279385*w - 12537109879 , -851556042*w + 2397203256 , 111374912*w + 203683998 , -204892916*w + 119055426 , 47539107*w + 93252341 , 1038528513*w + 1018431337 , 2209621794*w + 2181387586 , -179809345*w - 1284042123 , 22335838*w - 209033356 , 
    -82958622*w - 701503712 , 527572362*w + 650149752 , 42309882594 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );


/***Gitter Nr. 354 ***/
Grammatrix:=Matrix(S,[
[ 127338232 , 18312449*w + 51175299 , -3008014*w + 11968180 , 3053298*w - 7890680 , 1182992*w - 20057996 , 174838*w - 3903242 , 1309198*w - 3341674 , 2831324*w - 24960600 , 2181067*w + 9994579 , 4531668*w - 3547026 , 1877150*w - 15780072 , 
    56137797*w + 93744483 ],
[ -18312449*w + 51175299 , 41687002 , -2901616*w - 443156 , 2025094*w - 250222 , 3093379*w - 8745359 , 598150*w - 1758960 , 1067294*w - 450534 , 4590476*w - 9606716 , -215003*w + 6869275 , 2685444*w + 2363620 , 2962166*w - 6062588 , 8846051*w + 
    93607381 ],
[ 3008014*w + 11968180 , 2901616*w - 443156 , 3600618 , 289720*w - 967932 , -55556*w - 534758 , -20114*w - 105756 , 7662*w - 158004 , -134152*w - 787696 , 129282*w + 92078 , 65180*w - 358876 , -98436*w - 444416 , 7726190*w - 339934 ],
[ -3053298*w - 7890680 , -2025094*w - 250222 , -289720*w - 967932 , 2111214 , 261026*w + 1584702 , 56368*w + 211680 , -40078*w + 379120 , 193758*w + 2117248 , -311094*w - 491554 , -270890*w + 733516 , 102552*w + 1333220 , -5981514*w + 3266508 ],
[ -1182992*w - 20057996 , -3093379*w - 8745359 , 55556*w - 534758 , -261026*w + 1584702 , 5159616 , 3796*w + 1034754 , -275316*w + 914186 , -404116*w + 6191808 , -629023*w - 2265529 , -1058960*w + 1153810 , -304726*w + 3939796 , -9433439*w - 
    10353581 ],
[ -174838*w - 3903242 , -598150*w - 1758960 , 20114*w - 105756 , -56368*w + 211680 , -3796*w + 1034754 , 217896 , -54498*w + 180166 , -82324*w + 1212470 , -121826*w - 446096 , -207744*w + 221830 , -61792*w + 769440 , -1767080*w - 2134888 ],
[ -1309198*w - 3341674 , -1067294*w - 450534 , -7662*w - 158004 , 40078*w + 379120 , 275316*w + 914186 , 54498*w + 180166 , 270872 , 268004*w + 1278452 , -239550*w - 165312 , -127924*w + 621908 , 164178*w + 832706 , -2354120*w + 1615852 ],
[ -2831324*w - 24960600 , -4590476*w - 9606716 , 134152*w - 787696 , -193758*w + 2117248 , 404116*w + 6191808 , 82324*w + 1212470 , -268004*w + 1278452 , 7905800 , -970366*w - 2445296 , -1223188*w + 2056012 , -48794*w + 5084534 , -12743634*w - 
    8966314 ],
[ -2181067*w + 9994579 , 215003*w + 6869275 , -129282*w + 92078 , 311094*w - 491554 , 629023*w - 2265529 , 121826*w - 446096 , 239550*w - 165312 , 970366*w - 2445296 , 1592150 , 631488*w + 416878 , 640534*w - 1532314 , 2774092*w + 13578684 ],
[ -4531668*w - 3547026 , -2685444*w + 2363620 , -65180*w - 358876 , 270890*w + 733516 , 1058960*w + 1153810 , 207744*w + 221830 , 127924*w + 621908 , 1223188*w + 2056012 , -631488*w + 416878 , 1863246 , 775808*w + 1377376 , -4705924*w + 11164440 
],
[ -1877150*w - 15780072 , -2962166*w - 6062588 , 98436*w - 444416 , -102552*w + 1333220 , 304726*w + 3939796 , 61792*w + 769440 , -164178*w + 832706 , 48794*w + 5084534 , -640534*w - 1532314 , -775808*w + 1377376 , 3279584 , -8107576*w - 5412428 
],
[ -56137797*w + 93744483 , -8846051*w + 93607381 , -7726190*w - 339934 , 5981514*w + 3266508 , 9433439*w - 10353581 , 1767080*w - 2134888 , 2354120*w + 1615852 , 12743634*w - 8966314 , -2774092*w + 13578684 , 4705924*w + 11164440 , 8107576*w - 
    5412428 , 243494076 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );


/***Gitter Nr. 355 ***/
Grammatrix:=Matrix(S,[
[ 259746084360 , -831223360*w + 47367680262 , -321087973*w - 1665224659 , -75500834*w - 364794626 , 93111130*w - 238412734 , -105373152*w + 72940952 , -56514716*w - 22652028 , -66377635*w + 53240971 , 24977857*w + 353811465 , 84075398*w + 25623934
, 89473160*w - 112132930 , -14383700688*w - 30429500290 ],
[ 831223360*w + 47367680262 , 8658371946 , -63868289*w - 298028311 , -14908213*w - 65079539 , 15669621*w - 44038043 , -18336080*w + 15200976 , -10037663*w - 2745253 , -11487384*w + 10881878 , 5643780*w + 61535390 , 14857848*w + 2422210 , 
    15316550*w - 21913262 , -2718968014*w - 5228268696 ],
[ 321087973*w - 1665224659 , 63868289*w - 298028311 , 14972678 , 19598*w + 3237864 , -222262*w - 1559768 , -79522*w + 1254568 , -125816*w + 548422 , -108356*w + 711032 , 354490*w + 757246 , 240696*w - 432600 , 142084*w - 812840 , 52946213*w + 
    321873293 ],
[ 75500834*w - 364794626 , 14908213*w - 65079539 , -19598*w + 3237864 , 729176 , -77460*w - 192724 , 26058*w + 205590 , -1658*w + 116130 , 8276*w + 115724 , 61568*w - 16940 , 8536*w - 102046 , -14738*w - 113274 , 11056505*w + 72399845 ],
[ -93111130*w - 238412734 , -15669621*w - 44038043 , 222262*w - 1559768 , 77460*w - 192724 , 13931204 , 2196378*w - 9152318 , 1766366*w - 2857134 , 1853658*w - 5506144 , -2889858*w - 11505690 , -3138780*w + 2533076 , -2553628*w + 7607908 , 
    26233655*w - 26425707 ],
[ 105373152*w + 72940952 , 18336080*w + 15200976 , 79522*w + 1254568 , -26058*w + 205590 , -2196378*w - 9152318 , 8513414 , -711008*w + 3882396 , -318876*w + 5748848 , 3819572*w + 4236876 , 1650868*w - 5317774 , 421190*w - 7988442 , -14835836*w + 
    46852862 ],
[ 56514716*w - 22652028 , 10037663*w - 2745253 , 125816*w + 548422 , 1658*w + 116130 , -1766366*w - 2857134 , 711008*w + 3882396 , 2196936 , 341094*w + 2831220 , 2122160*w - 317968 , 309228*w - 3434662 , -485086*w - 3935134 , -3445561*w + 30314935
],
[ 66377635*w + 53240971 , 11487384*w + 10881878 , 108356*w + 711032 , -8276*w + 115724 , -1853658*w - 5506144 , 318876*w + 5748848 , -341094*w + 2831220 , 4093908 , 2856102*w + 2032898 , 973352*w - 4181814 , 6636*w - 5762036 , -9151224*w + 
    29122310 ],
[ -24977857*w + 353811465 , -5643780*w + 61535390 , -354490*w + 757246 , -61568*w - 16940 , 2889858*w - 11505690 , -3819572*w + 4236876 , -2122160*w - 317968 , -2856102*w + 2032898 , 15131704 , 3437750*w + 2701566 , 4067672*w - 2869496 , 
    -22644538*w - 38785516 ],
[ -84075398*w + 25623934 , -14857848*w + 2422210 , -240696*w - 432600 , -8536*w - 102046 , 3138780*w + 2533076 , -1650868*w - 5317774 , -309228*w - 3434662 , -973352*w - 4181814 , -3437750*w + 2701566 , 5949972 , 1378118*w + 5957126 , 4553052*w - 
    42887964 ],
[ -89473160*w - 112132930 , -15316550*w - 21913262 , -142084*w - 812840 , 14738*w - 113274 , 2553628*w + 7607908 , -421190*w - 7988442 , 485086*w - 3935134 , -6636*w - 5762036 , -4067672*w - 2869496 , -1378118*w + 5957126 , 8198960 , 14501022*w - 
    35127358 ],
[ 14383700688*w - 30429500290 , 2718968014*w - 5228268696 , -52946213*w + 321873293 , -11056505*w + 72399845 , -26233655*w - 26425707 , 14835836*w + 46852862 , 3445561*w + 30314935 , 9151224*w + 29122310 , 22644538*w - 38785516 , -4553052*w - 
    42887964 , -14501022*w - 35127358 , 9169979574 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 36 );


/***Gitter Nr. 356 ***/
Grammatrix:=Matrix(S,[
[ 5866 , 357*w + 217 , 40*w + 126 , -43*w + 21 , 16*w - 224 , 38*w - 280 , 112*w - 168 , 45*w + 119 , 185*w - 147 , -46*w + 490 , 124*w + 182 , -282*w + 3444 ],
[ -357*w + 217 , 658 , -8*w - 140 , -2*w + 112 , -96*w + 56 , -184*w , 8*w , 20*w , 32*w , -12*w , 0 , -283*w + 105 ],
[ -40*w + 126 , 8*w - 140 , 490 , -140 , 24*w - 14 , 46*w , 6*w , -4*w , 0 , 0 , 0 , -230*w + 210 ],
[ 43*w + 21 , 2*w + 112 , -140 , 140 , -16*w - 56 , -100*w - 28 , -56*w , 20*w , 0 , 0 , 0 , 57*w - 189 ],
[ -16*w - 224 , 96*w + 56 , -24*w - 14 , 16*w - 56 , 588 , -18*w + 602 , 60*w - 112 , -14*w , 0 , 0 , 0 , -76*w + 56 ],
[ -38*w - 280 , 184*w , -46*w , 100*w - 28 , 18*w + 602 , 1162 , 22*w + 196 , -6*w - 112 , 0 , 0 , 0 , -204*w + 126 ],
[ -112*w - 168 , -8*w , -6*w , 56*w , -60*w - 112 , -22*w + 196 , 504 , -308 , -72*w + 56 , 120*w - 672 , -120*w - 504 , -144*w - 532 ],
[ -45*w + 119 , -20*w , 4*w , -20*w , 14*w , 6*w - 112 , -308 , 378 , 108*w + 28 , -180*w + 966 , 180*w + 756 , 7*w + 343 ],
[ -185*w - 147 , -32*w , 0 , 0 , 0 , 0 , 72*w + 56 , -108*w + 28 , 322 , -334*w - 392 , -242*w + 462 , -215*w - 301 ],
[ 46*w + 490 , 12*w , 0 , 0 , 0 , 0 , -120*w - 672 , 180*w + 966 , 334*w - 392 , 3626 , 960*w + 1568 , 202*w + 1288 ],
[ -124*w + 182 , 0 , 0 , 0 , 0 , 0 , 120*w - 504 , -180*w + 756 , 242*w + 462 , -960*w + 1568 , 2464 , -240*w + 826 ],
[ 282*w + 3444 , 283*w + 105 , 230*w + 210 , -57*w - 189 , 76*w + 56 , 204*w + 126 , 144*w - 532 , -7*w + 343 , 215*w - 301 , -202*w + 1288 , 240*w + 826 , 4438 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );


/***Gitter Nr. 357 ***/
Grammatrix:=Matrix(S,[
[ 1130668 , 113937*w + 522459 , 67437*w + 4459 , -6226*w + 21924 , -11332*w + 10962 , 6710*w + 7434 , 1305*w + 54775 , 758*w - 3052 , 17264*w + 75026 , 9447*w + 23065 , -17930*w + 26488 , 931953*w + 1087863 ],
[ -113937*w + 522459 , 365792 , -21591*w + 196175 , 6220*w - 29652 , -8024*w - 896 , 1380*w + 5824 , -5221*w + 19033 , 310*w - 308 , 258*w + 30716 , 1153*w + 11123 , -6508*w - 322 , 311538*w + 919660 ],
[ -67437*w + 4459 , 21591*w + 196175 , 1488802 , 4546*w - 381766 , -3572*w + 93352 , -5736*w - 24976 , -1794*w - 50820 , -2346*w + 9730 , 1980*w - 110880 , -4950*w - 43890 , 30690*w + 6930 , -636129*w - 665861 ],
[ 6226*w + 21924 , -6220*w - 29652 , -4546*w - 381766 , 109354 , -1604*w - 31752 , 2356*w + 10458 , 608*w + 19124 , 580*w - 3290 , -732*w + 40992 , 1830*w + 16226 , -11346*w - 2562 , 185290*w + 232862 ],
[ 11332*w + 10962 , 8024*w - 896 , 3572*w + 93352 , 1604*w - 31752 , 16772 , 134*w - 5838 , 1226*w + 980 , -78*w + 700 , 6504*w - 10248 , 1728*w - 6160 , 3384*w + 11256 , -29437*w - 121499 ],
[ -6710*w + 7434 , -1380*w + 5824 , 5736*w - 24976 , -2356*w + 10458 , -134*w - 5838 , 2884 , -1276*w + 2240 , 142*w - 238 , -2704*w + 8008 , -606*w + 3934 , -2154*w - 4858 , 10251*w + 79233 ],
[ -1305*w + 54775 , 5221*w + 19033 , 1794*w - 50820 , -608*w + 19124 , -1226*w + 980 , 1276*w + 2240 , 48020 , 1344*w - 3052 , 14696*w + 26824 , 5660*w + 6356 , -4212*w + 18284 , 64229*w + 62909 ],
[ -758*w - 3052 , -310*w - 308 , 2346*w + 9730 , -580*w - 3290 , 78*w + 700 , -142*w - 238 , -1344*w - 3052 , 532 , -1318*w + 546 , -446*w + 322 , -20*w - 1316 , -8167*w + 3003 ],
[ -17264*w + 75026 , -258*w + 30716 , -1980*w - 110880 , 732*w + 40992 , -6504*w - 10248 , 2704*w + 8008 , -14696*w + 26824 , 1318*w + 546 , 75950 , 3040*w + 26152 , -16448*w + 4592 , 107465*w + 209979 ],
[ -9447*w + 23065 , -1153*w + 11123 , 4950*w - 43890 , -1830*w + 16226 , -1728*w - 6160 , 606*w + 3934 , -5660*w + 6356 , 446*w + 322 , -3040*w + 26152 , 10024 , -5944*w - 3528 , 31059*w + 113701 ],
[ 17930*w + 26488 , 6508*w - 322 , -30690*w + 6930 , 11346*w - 2562 , -3384*w + 11256 , 2154*w - 4858 , 4212*w + 18284 , 20*w - 1316 , 16448*w + 4592 , 5944*w - 3528 , 27104 , 51098*w - 194236 ],
[ -931953*w + 1087863 , -311538*w + 919660 , 636129*w - 665861 , -185290*w + 232862 , 29437*w - 121499 , -10251*w + 79233 , -64229*w + 62909 , 8167*w + 3003 , -107465*w + 209979 , -31059*w + 113701 , -51098*w - 194236 , 8883392 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );


/***Gitter Nr. 358 ***/
Grammatrix:=Matrix(S,[
[ 46877684 , 17348*w - 10373062 , 30845*w + 5666353 , 51629*w + 549381 , -211626*w - 34468 , -411859*w + 624435 , 258761*w + 50421 , 103329*w + 725165 , -103802*w - 384790 , 18864*w + 1537830 , -270521*w - 365295 , -15104577*w - 30402743 ],
[ -17348*w - 10373062 , 2295748 , -8971*w - 1254225 , -11626*w - 122066 , 47009*w + 7525 , 91445*w - 139573 , -57530*w - 10850 , -23155*w - 160839 , 23154*w + 85302 , -4504*w - 341222 , 60099*w + 80675 , 3352967*w + 6686855 ],
[ -30845*w + 5666353 , 8971*w - 1254225 , 687876 , 5762*w + 68264 , -25875*w - 6209 , -52541*w + 74683 , 31852*w + 7448 , 12291*w + 89299 , -12466*w - 47642 , 1258*w + 188272 , -32849*w - 45997 , -1804614*w - 3743964 ],
[ -51629*w + 549381 , 11626*w - 122066 , -5762*w + 68264 , 10738 , -3336*w - 2576 , -8166*w + 9142 , 4420*w + 2716 , 1222*w + 12264 , -1440*w - 6944 , -1352*w + 24472 , -3868*w - 7868 , -138920*w - 468692 ],
[ 211626*w - 34468 , -47009*w + 7525 , 25875*w - 6209 , 3336*w - 2576 , 14924 , 5208*w + 30058 , 102*w - 15876 , 6624*w - 6104 , -3530*w + 6230 , 14180*w - 1708 , -3254*w + 17626 , -119254*w + 475776 ],
[ 411859*w + 624435 , -91445*w - 139573 , 52541*w + 74683 , 8166*w + 9142 , -5208*w + 30058 , 87388 , 6420*w - 33404 , 16874*w + 2492 , -10054*w + 4690 , 30552*w + 29736 , -12754*w + 29470 , -446465*w + 476189 ],
[ -258761*w + 50421 , 57530*w - 10850 , -31852*w + 7448 , -4420*w + 2716 , -102*w - 15876 , -6420*w - 33404 , 18508 , -7304*w + 8400 , 3840*w - 7840 , -15640*w + 3528 , 3324*w - 19796 , 145700*w - 588728 ],
[ -103329*w + 725165 , 23155*w - 160839 , -12291*w + 89299 , -1222*w + 12264 , -6624*w - 6104 , -16874*w + 2492 , 7304*w + 8400 , 25340 , -1384*w - 14840 , -5304*w + 46984 , -6784*w - 18144 , -157141*w - 672049 ],
[ 103802*w - 384790 , -23154*w + 85302 , 12466*w - 47642 , 1440*w - 6944 , 3530*w + 6230 , 10054*w + 4690 , -3840*w - 7840 , 1384*w - 14840 , 9296 , 5820*w - 25172 , 2880*w + 13328 , 52786*w + 461916 ],
[ -18864*w + 1537830 , 4504*w - 341222 , -1258*w + 188272 , 1352*w + 24472 , -14180*w - 1708 , -30552*w + 29736 , 15640*w + 3528 , 5304*w + 46984 , -5820*w - 25172 , 99120 , -17184*w - 24864 , -459762*w - 994406 ],
[ 270521*w - 365295 , -60099*w + 80675 , 32849*w - 45997 , 3868*w - 7868 , 3254*w + 17626 , 12754*w + 29470 , -3324*w - 19796 , 6784*w - 18144 , -2880*w + 13328 , 17184*w - 24864 , 27104 , -55726*w + 807366 ],
[ 15104577*w - 30402743 , -3352967*w + 6686855 , 1804614*w - 3743964 , 138920*w - 468692 , 119254*w + 475776 , 446465*w + 476189 , -145700*w - 588728 , 157141*w - 672049 , -52786*w + 461916 , 459762*w - 994406 , 55726*w + 807366 , 53919418 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 648 );


/***Gitter Nr. 359 ***/
Grammatrix:=Matrix(S,[
[ 4548824 , 2169448*w + 2026990 , 311598*w + 1467578 , 581152*w + 2381120 , -336482*w + 564522 , 1604526*w - 1002176 , -487486*w - 33628 , -141312*w + 259350 , 7318*w - 562030 , 122082*w - 305074 , 404356*w - 1734796 , 2605150*w - 11321576 ],
[ -2169448*w + 2026990 , 34554520 , -1003306*w - 5920628 , -1162954*w + 4607176 , 147902*w + 1171618 , -1078912*w + 2392796 , 390660*w - 424410 , 62016*w - 356650 , 97534*w + 433832 , -35122*w + 389116 , 16586*w + 1838074 , 9609228*w + 14820092 ],
[ -311598*w + 1467578 , 1003306*w - 5920628 , 4351270 , 142222*w + 1835484 , -177020*w - 600544 , 1090386*w + 2116072 , -271917*w - 825125 , -139342*w - 78134 , 130669*w - 319361 , 143848*w + 17822 , 639724*w - 360850 , 1568025*w - 5619635 ],
[ -581152*w + 2381120 , 1162954*w + 4607176 , -142222*w + 1835484 , 2916004 , -94380*w + 123564 , 670418*w + 1362746 , -165476*w - 503636 , -89310*w - 51156 , 86592*w - 206304 , 95952*w + 15288 , 426720*w - 218400 , 3588718*w - 2776928 ],
[ 336482*w + 564522 , -147902*w + 1171618 , 177020*w - 600544 , 94380*w + 123564 , 936656 , -62132*w - 2054290 , -60660*w + 540260 , 25198*w + 166516 , -74560*w - 42448 , -36424*w - 113372 , -222352*w - 417424 , -809306*w - 1352736 ],
[ -1604526*w - 1002176 , 1078912*w + 2392796 , -1090386*w + 2116072 , -670418*w + 1362746 , 62132*w - 2054290 , 7457926 , 218826*w - 2103304 , -103910*w - 699860 , 334800*w + 230048 , 143024*w + 610372 , 911752*w + 2278024 , 4920904*w + 6525190 ],
[ 487486*w - 33628 , -390660*w - 424410 , 271917*w - 825125 , 165476*w - 503636 , 60660*w + 540260 , -218826*w - 2103304 , 661192 , 50296*w + 185388 , -105208*w - 6832 , -56292*w - 157024 , -321652*w - 514164 , -1562368*w - 820176 ],
[ 141312*w + 259350 , -62016*w - 356650 , 139342*w - 78134 , 89310*w - 51156 , -25198*w + 166516 , 103910*w - 699860 , -50296*w + 185388 , 79856 , -29720*w - 59472 , -3790*w - 77056 , -51630*w - 327726 , -368222*w - 1117186 ],
[ -7318*w - 562030 , -97534*w + 433832 , -130669*w - 319361 , -86592*w - 206304 , 74560*w - 42448 , -334800*w + 230048 , 105208*w - 6832 , 29720*w - 59472 , 123046 , -26624*w + 68390 , -86316*w + 383572 , -156728*w + 1781822 ],
[ -122082*w - 305074 , 35122*w + 389116 , -143848*w + 17822 , -95952*w + 15288 , 36424*w - 113372 , -143024*w + 610372 , 56292*w - 157024 , 3790*w - 77056 , 26624*w + 68390 , 79772 , 34760*w + 349272 , 277616*w + 1249752 ],
[ -404356*w - 1734796 , -16586*w + 1838074 , -639724*w - 360850 , -426720*w - 218400 , 222352*w - 417424 , -911752*w + 2278024 , 321652*w - 514164 , 51630*w - 327726 , 86316*w + 383572 , -34760*w + 349272 , 1639792 , 687824*w + 6432524 ],
[ -2605150*w - 11321576 , -9609228*w + 14820092 , -1568025*w - 5619635 , -3588718*w - 2776928 , 809306*w - 1352736 , -4920904*w + 6525190 , 1562368*w - 820176 , 368222*w - 1117186 , 156728*w + 1781822 , -277616*w + 1249752 , -687824*w + 6432524 , 
49827316 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 96  );

/***Gitter Nr. 360 ***/
Grammatrix:=Matrix(S,[
[ 7558782 , -113077*w + 823095 , 27252*w - 49644 , 6179*w - 190407 , 119535*w + 1173053 , 1549343*w + 913801 , 347390*w + 478394 , -7709*w - 195559 , 67149*w - 1076313 , -276536*w - 976542 , 246603*w - 163373 , -2234605*w - 1857373 ],
[ 113077*w + 823095 , 3712156 , 7984*w - 358162 , 2088*w - 432726 , 163515*w + 621341 , 1059000*w - 1340038 , 306430*w - 119812 , -48231*w - 95333 , -115520*w - 573888 , -259076*w - 212982 , 95846*w - 301966 , -72093*w + 2090781 ],
[ -27252*w - 49644 , -7984*w - 358162 , 38066 , -46*w + 35742 , -14460*w - 10262 , -41338*w + 202146 , -16730*w + 42700 , 4656*w - 392 , 15506*w + 17402 , 17080*w - 17668 , -234*w + 26614 , -27477*w - 205387 ],
[ -6179*w - 190407 , -2088*w - 432726 , 46*w + 35742 , 64610 , -14586*w - 170044 , -227226*w - 42700 , -54432*w - 57652 , 3854*w + 29568 , 654*w + 137158 , 41384*w + 104916 , -28926*w + 33250 , 91445*w - 209335 ],
[ -119535*w + 1173053 , -163515*w + 621341 , 14460*w - 10262 , 14586*w - 170044 , 931490 , 1114522*w + 1414560 , 232586*w + 565376 , 3358*w - 166880 , 100844*w - 723212 , -139036*w - 770224 , 177414*w - 22890 , -790106*w + 34398 ],
[ -1549343*w + 913801 , -1059000*w - 1340038 , 41338*w + 202146 , 227226*w - 42700 , -1114522*w + 1414560 , 11850174 , -352796*w + 2902256 , 218364*w - 246876 , 1019784*w - 332752 , 684912*w - 2383444 , 311894*w + 1426502 , -1446961*w - 6828409 ],
[ -347390*w + 478394 , -306430*w - 119812 , 16730*w + 42700 , 54432*w - 57652 , -232586*w + 565376 , 352796*w + 2902256 , 837396 , 42508*w - 127008 , 214940*w - 237300 , 98820*w - 622132 , 98140*w + 264348 , -535833*w - 1320599 ],
[ 7709*w - 195559 , 48231*w - 95333 , -4656*w - 392 , -3854*w + 29568 , -3358*w - 166880 , -218364*w - 246876 , -42508*w - 127008 , 43512 , -1040*w + 128800 , 36510*w + 95606 , -26044*w + 29092 , 152018*w - 74886 ],
[ -67149*w - 1076313 , 115520*w - 573888 , -15506*w + 17402 , -654*w + 137158 , -100844*w - 723212 , -1019784*w - 332752 , -214940*w - 237300 , 1040*w + 128800 , 778064 , 240928*w + 593376 , -165632*w + 197792 , 683445*w - 680673 ],
[ 276536*w - 976542 , 259076*w - 212982 , -17080*w - 17668 , -41384*w + 104916 , 139036*w - 770224 , -684912*w - 2383444 , -98820*w - 622132 , -36510*w + 95606 , -240928*w + 593376 , 977928 , -188168*w - 209048 , 726745*w + 924245 ],
[ -246603*w - 163373 , -95846*w - 301966 , 234*w + 26614 , 28926*w + 33250 , -177414*w - 22890 , -311894*w + 1426502 , -98140*w + 264348 , 26044*w + 29092 , 165632*w + 197792 , 188168*w - 209048 , 298144 , 23033*w - 1174019 ],
[ 2234605*w - 1857373 , 72093*w + 2090781 , 27477*w - 205387 , -91445*w - 209335 , 790106*w + 34398 , 1446961*w - 6828409 , 535833*w - 1320599 , -152018*w - 74886 , -683445*w - 680673 , -726745*w + 924245 , -23033*w - 1174019 , 8456210 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 120 );

/***Gitter Nr. 361 ***/
Grammatrix:=Matrix(S,[
[ 77322 , -1058*w - 2562 , 23606*w - 205044 , -3058*w - 7336 , -18105*w + 200095 , 1384*w - 5474 , -3226*w - 3304 , 7270*w - 6496 , -5462*w + 40726 , 22257*w + 96327 , 28188*w - 6874 , 27613*w + 122269 ],
[ 1058*w - 2562 , 546 , -2976*w - 42 , -156*w + 1372 , 2632*w + 154 , 144*w + 42 , 24*w , -30*w , 0 , 0 , 0 , 1098*w - 3458 ],
[ -23606*w - 205044 , 2976*w - 42 , 858774 , 19378*w - 62286 , -9270*w - 798574 , -5368*w + 15624 , 9986*w + 4130 , -20336*w + 28070 , 9470*w - 129262 , -83354*w - 263690 , -83750*w + 54194 , -159796*w - 383404 ],
[ 3058*w - 7336 , 156*w + 1372 , -19378*w - 62286 , 28084 , 15244*w + 49714 , 888*w + 1078 , 260*w + 700 , -182*w , 0 , 0 , 0 , 20274*w + 1680 ],
[ 18105*w + 200095 , -2632*w + 154 , 9270*w - 798574 , -15244*w + 49714 , 763252 , 8080*w - 15078 , -9386*w - 10724 , 22766*w - 16520 , -20330*w + 125902 , 63194*w + 316610 , 89720*w - 6944 , 140446*w + 373702 ],
[ -1384*w - 5474 , -144*w + 42 , 5368*w + 15624 , -888*w + 1078 , -8080*w - 15078 , 9492 , 1880*w - 602 , -2216*w + 9730 , -3910*w - 25060 , -25500*w - 18760 , -11730*w + 34510 , -7694*w - 5894 ],
[ 3226*w - 3304 , -24*w , -9986*w + 4130 , -260*w + 700 , 9386*w - 10724 , -1880*w - 602 , 3808 , -2302*w - 5712 , 7044*w - 3346 , 8784*w - 43274 , -7138*w - 26530 , 5400*w - 18256 ],
[ -7270*w - 6496 , 30*w , 20336*w + 28070 , 182*w , -22766*w - 16520 , 2216*w + 9730 , 2302*w - 5712 , 19250 , -13138*w - 26740 , -41772*w + 27930 , -6004*w + 73836 , -19118*w + 11340 ],
[ 5462*w + 40726 , 0 , -9470*w - 129262 , 0 , 20330*w + 125902 , 3910*w - 25060 , -7044*w - 3346 , 13138*w - 26740 , 100688 , 77688*w + 161630 , 59110*w - 74522 , 33256*w + 72534 ],
[ -22257*w + 96327 , 0 , 83354*w - 263690 , 0 , -63194*w + 316610 , 25500*w - 18760 , -8784*w - 43274 , 41772*w + 27930 , -77688*w + 161630 , 679294 , 152436*w + 199668 , -1222*w + 296660 ],
[ -28188*w - 6874 , 0 , 83750*w + 54194 , 0 , -89720*w - 6944 , 11730*w + 34510 , 7138*w - 26530 , 6004*w + 73836 , -59110*w - 74522 , -152436*w + 199668 , 298144 , -67096*w + 85064 ],
[ -27613*w + 122269 , -1098*w - 3458 , 159796*w - 383404 , -20274*w + 1680 , -140446*w + 373702 , 7694*w - 5894 , -5400*w - 18256 , 19118*w + 11340 , -33256*w + 72534 , 1222*w + 296660 , 67096*w + 85064 , 392112 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );

/***Gitter Nr. 362 ***/
Grammatrix:=Matrix(S,[
[ 2212784 , -146024*w + 641004 , 66958*w - 2590 , 23506*w + 73024 , 228810*w + 360514 , 67625*w - 152159 , -217491*w + 1319479 , 164285*w - 442127 , 113389*w + 1082263 , -273110*w - 874230 , -355334*w + 652848 , 101726*w + 4878342 ],
[ 146024*w + 641004 , 295022 , 22118*w - 42140 , 8054*w + 34580 , 90284*w - 25494 , 6904*w - 72828 , 40084*w + 462364 , 4358*w - 203406 , 114978*w + 213178 , -139544*w - 70336 , -38460*w + 366072 , 363766*w + 1455440 ],
[ -66958*w - 2590 , -22118*w - 42140 , 62762 , -6108*w - 90496 , -9346*w + 108150 , 6886*w + 18340 , -53714*w - 50456 , 21908*w + 30072 , -39228*w + 55860 , 27384*w - 95256 , -34104*w - 81144 , -126606*w - 160384 ],
[ -23506*w + 73024 , -8054*w + 34580 , 6108*w - 90496 , 223776 , 4476*w - 78008 , 552*w - 14168 , 4564*w + 94654 , 3050*w + 22162 , -1840*w + 9940 , 1360*w - 8190 , -2030*w - 4830 , -83790*w + 442750 ],
[ -228810*w + 360514 , -90284*w - 25494 , 9346*w + 108150 , -4476*w - 78008 , 314174 , 31774*w + 26824 , -199730*w + 84182 , 90838*w + 59094 , -112396*w + 319144 , 54424*w - 416934 , -153734*w - 180726 , -450003*w + 574007 ],
[ -67625*w - 152159 , -6904*w - 72828 , -6886*w + 18340 , -552*w - 14168 , -31774*w + 26824 , 30394 , -30560*w - 170548 , -1446*w + 69972 , -43982*w - 66178 , 50452*w + 13062 , 9086*w - 132594 , -137783*w - 307839 ],
[ 217491*w + 1319479 , -40084*w + 462364 , 53714*w - 50456 , -4564*w + 94654 , 199730*w + 84182 , 30560*w - 170548 , 1195348 , 80988*w - 367500 , 175346*w + 684166 , -265412*w - 435750 , -186326*w + 667002 , 467739*w + 2675197 ],
[ -164285*w - 442127 , -4358*w - 203406 , -21908*w + 30072 , -3050*w + 22162 , -90838*w + 59094 , 1446*w + 69972 , -80988*w - 367500 , 266308 , -140586*w - 197358 , 161528*w + 34398 , 28182*w - 426426 , -293470*w - 929110 ],
[ -113389*w + 1082263 , -114978*w + 213178 , 39228*w + 55860 , 1840*w + 9940 , 112396*w + 319144 , 43982*w - 66178 , -175346*w + 684166 , 140586*w - 197358 , 713720 , -109572*w - 661976 , -261044*w + 232204 , -257480*w + 2129918 ],
[ 273110*w - 874230 , 139544*w - 70336 , -27384*w - 95256 , -1360*w - 8190 , -54424*w - 416934 , -50452*w + 13062 , 265412*w - 435750 , -161528*w + 34398 , 109572*w - 661976 , 732340 , 278110*w + 65422 , 572480*w - 1678362 ],
[ 355334*w + 652848 , 38460*w + 366072 , 34104*w - 81144 , 2030*w - 4830 , 153734*w - 180726 , -9086*w - 132594 , 186326*w + 667002 , -28182*w - 426426 , 261044*w + 232204 , -278110*w + 65422 , 745360 , 686496*w + 1387624 ],
[ -101726*w + 4878342 , -363766*w + 1455440 , 126606*w - 160384 , 83790*w + 442750 , 450003*w + 574007 , 137783*w - 307839 , -467739*w + 2675197 , 293470*w - 929110 , 257480*w + 2129918 , -572480*w - 1678362 , -686496*w + 1387624 , 12136796 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 96 );

/***Gitter Nr. 363 ***/
Grammatrix:=Matrix(S,[
[ 27888 , -683*w - 2541 , 241*w + 1183 , 895*w - 735 , 3408*w - 3752 , -1696*w + 2352 , 492*w - 196 , 551*w - 777 , -467*w + 3297 , 328*w - 406 , 850*w - 1512 , 9799*w + 13111 ],
[ 683*w - 2541 , 2282 , 6*w - 1400 , -110*w - 364 , -524*w + 28 , 292*w , -60*w , -72*w , 88*w , -12*w , 0 , -688*w - 3248 ],
[ -241*w + 1183 , -6*w - 1400 , 1918 , 162*w + 1806 , 2086*w - 14 , -1158*w - 84 , 46*w , 64*w , 0 , 0 , 0 , 52*w + 2380 ],
[ -895*w - 735 , 110*w - 364 , -162*w + 1806 , 5390 , 1988*w + 6930 , -1310*w - 2968 , 130*w - 252 , 104*w , 0 , 0 , 0 , -1192*w + 1008 ],
[ -3408*w - 3752 , 524*w + 28 , -2086*w - 14 , -1988*w + 6930 , 37940 , 122*w - 18830 , 12*w - 56 , 2*w + 700 , 0 , 0 , 0 , -5714*w - 966 ],
[ 1696*w + 2352 , -292*w , 1158*w - 84 , 1310*w - 2968 , -122*w - 18830 , 10052 , -10*w + 588 , 84*w - 140 , -450*w + 1610 , 240*w + 210 , 930*w + 210 , 2516*w - 308 ],
[ -492*w - 196 , 60*w , -46*w , -130*w - 252 , -12*w - 56 , 10*w + 588 , 3472 , 324*w + 1932 , -1620*w + 4564 , 864*w + 924 , 3348*w + 756 , -2228*w + 1050 ],
[ -551*w - 777 , 72*w , -64*w , -104*w , -2*w + 700 , -84*w - 140 , -324*w + 1932 , 1400 , -1398*w + 924 , 352*w + 1176 , 1652*w + 2996 , -1500*w - 448 ],
[ 467*w + 3297 , -88*w , 0 , 0 , 0 , 450*w + 1610 , 1620*w + 4564 , 1398*w + 924 , 15498 , 1968*w - 1946 , 6186*w - 11718 , -2468*w + 5768 ],
[ -328*w - 406 , 12*w , 0 , 0 , 0 , -240*w + 210 , -864*w + 924 , -352*w + 1176 , -1968*w - 1946 , 2058 , 768*w + 7168 , -626*w - 3598 ],
[ -850*w - 1512 , 0 , 0 , 0 , 0 , -930*w + 210 , -3348*w + 756 , -1652*w + 2996 , -6186*w - 11718 , -768*w + 7168 , 27104 , -458*w - 14602 ],
[ -9799*w + 13111 , 688*w - 3248 , -52*w + 2380 , 1192*w + 1008 , 5714*w - 966 , -2516*w - 308 , 2228*w + 1050 , 1500*w - 448 , 2468*w + 5768 , 626*w - 3598 , 458*w - 14602 , 44674 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );

/***Gitter Nr. 364 ***/
Grammatrix:=Matrix(S,[
[ 17444700 , -150750*w + 8496334 , -23106*w + 1023918 , -15680*w + 105756 , 70008*w + 11480 , 261346*w + 273336 , 199800*w + 462756 , -45076*w - 20986 , -104684*w - 70448 , 54572*w + 8218 , 28590*w - 130326 , 851070*w + 4793698 ],
[ 150750*w + 8496334 , 5037690 , 2082*w + 695380 , 35818*w + 161602 , 135676*w - 76468 , 147772*w + 75572 , 112728*w + 164808 , -23784*w - 3640 , -51862*w - 52206 , 26740*w + 10514 , 15548*w - 60424 , 528572*w + 2782500 ],
[ 23106*w + 1023918 , -2082*w + 695380 , 104412 , 8558*w + 32088 , 27752*w - 14588 , 19788*w + 7056 , 15940*w + 12264 , -2720*w - 280 , -3564*w - 5292 , 1984*w + 1064 , 1196*w - 4648 , 70660*w + 385308 ],
[ 15680*w + 105756 , -35818*w + 161602 , -8558*w + 32088 , 34132 , 17056*w + 43526 , 4160*w + 10318 , 4006*w + 7840 , -418*w - 672 , 140*w - 420 , -24*w + 84 , 0 , -14854*w + 101234 ],
[ -70008*w + 11480 , -135676*w - 76468 , -27752*w - 14588 , -17056*w + 43526 , 206430 , -434*w + 82012 , -21490*w + 69020 , -1448*w - 16268 , -360*w - 77280 , 1800*w + 35280 , 12240*w + 12600 , -131224*w + 23800 ],
[ -261346*w + 273336 , -147772*w + 75572 , -19788*w + 7056 , -4160*w + 10318 , 434*w + 82012 , 268198 , 5116*w + 221620 , 330*w - 29540 , 8484*w + 37632 , -2100*w - 11592 , -2856*w - 2940 , -237078*w - 15414 ],
[ -199800*w + 462756 , -112728*w + 164808 , -15940*w + 12264 , -4006*w + 7840 , 21490*w + 69020 , -5116*w + 221620 , 284186 , -4352*w - 17430 , -47278*w + 44016 , 22190*w - 20916 , 5612*w - 59990 , -168028*w - 6846 ],
[ 45076*w - 20986 , 23784*w - 3640 , 2720*w - 280 , 418*w - 672 , 1448*w - 16268 , -330*w - 29540 , 4352*w - 17430 , 5642 , -4106*w + 16128 , 1322*w - 8092 , -2092*w - 6538 , 29996*w - 7546 ],
[ 104684*w - 70448 , 51862*w - 52206 , 3564*w - 5292 , -140*w - 420 , 360*w - 77280 , -8484*w + 37632 , 47278*w + 44016 , 4106*w + 16128 , 209314 , -3052*w - 92190 , -29964*w - 37422 , -6496*w - 156898 ],
[ -54572*w + 8218 , -26740*w + 10514 , -1984*w + 1064 , 24*w + 84 , -1800*w + 35280 , 2100*w - 11592 , -22190*w - 20916 , -1322*w - 8092 , 3052*w - 92190 , 41118 , 12760*w + 19712 , -3026*w + 56798 ],
[ -28590*w - 130326 , -15548*w - 60424 , -1196*w - 4648 , 0 , -12240*w + 12600 , 2856*w - 2940 , -5612*w - 59990 , 2092*w - 6538 , 29964*w - 37422 , -12760*w + 19712 , 37268 , -17398*w + 10150 ],
[ -851070*w + 4793698 , -528572*w + 2782500 , -70660*w + 385308 , 14854*w + 101234 , 131224*w + 23800 , 237078*w - 15414 , 168028*w - 6846 , -29996*w - 7546 , 6496*w - 156898 , 3026*w + 56798 , 17398*w + 10150 , 2981146 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 365 ***/
Grammatrix:=Matrix(S,[
[ 186676 , -750*w + 125020 , 11916*w - 336 , -1824*w + 9688 , 624*w + 4298 , 444*w + 1568 , 17552*w - 63980 , -1024*w - 91826 , -7680*w + 11676 , -17328*w - 53046 , 17580*w - 10094 , 70553*w + 140833 ],
[ 750*w + 125020 , 153328 , 4640*w - 23464 , -704*w + 14448 , -760*w + 1820 , 348*w - 224 , 2990*w - 9408 , -590*w - 10500 , -744*w + 2086 , -2528*w - 4844 , 1920*w - 2408 , 67255*w + 140469 ],
[ -11916*w - 336 , -4640*w - 23464 , 26600 , -302*w - 5880 , 854*w + 2828 , -488*w + 210 , 12016*w - 5600 , 6518*w - 28980 , -3840*w - 2100 , -1320*w - 25620 , 6120*w + 6300 , -14228*w + 15554 ],
[ 1824*w + 9688 , 704*w + 14448 , 302*w - 5880 , 2086 , -230*w - 196 , 112*w - 28 , -1000*w + 532 , -594*w + 2898 , 384*w + 210 , 132*w + 2562 , -612*w - 630 , 6876*w + 6832 ],
[ -624*w + 4298 , 760*w + 1820 , -854*w + 2828 , 230*w - 196 , 1232 , -20*w - 322 , 2552*w - 1428 , 1354*w - 5908 , -768*w - 420 , -264*w - 5124 , 1224*w + 1260 , 326*w + 1638 ],
[ -444*w + 1568 , -348*w - 224 , 488*w + 210 , -112*w - 28 , 20*w - 322 , 308 , 406*w - 728 , 498*w - 2170 , -168*w - 42 , -84*w - 1974 , 476*w + 490 , 444*w + 1302 ],
[ -17552*w - 63980 , -2990*w - 9408 , -12016*w - 5600 , 1000*w + 532 , -2552*w - 1428 , -406*w - 728 , 98630 , 22624*w + 75138 , 4352*w - 26222 , 26696*w + 15596 , -12284*w + 36680 , -17170*w - 3668 ],
[ 1024*w - 91826 , 590*w - 10500 , -6518*w - 28980 , 594*w + 2898 , -1354*w - 5908 , -498*w - 2170 , -22624*w + 75138 , 137970 , 10912*w - 11886 , 24800*w + 83048 , -26666*w + 12558 , -14558*w - 32746 ],
[ 7680*w + 11676 , 744*w + 2086 , 3840*w - 2100 , -384*w + 210 , 768*w - 420 , 168*w - 42 , -4352*w - 26222 , -10912*w - 11886 , 8806 , -8608*w + 6776 , 1286*w - 15666 , 4621*w - 3381 ],
[ 17328*w - 53046 , 2528*w - 4844 , 1320*w - 25620 , -132*w + 2562 , 264*w - 5124 , 84*w - 1974 , -26696*w + 15596 , -24800*w + 83048 , 8608*w + 6776 , 81312 , -18334*w - 25998 , -2440*w - 38206 ],
[ -17580*w - 10094 , -1920*w - 2408 , -6120*w + 6300 , 612*w - 630 , -1224*w + 1260 , -476*w + 490 , 12284*w + 36680 , 26666*w + 12558 , -1286*w - 15666 , 18334*w - 25998 , 37268 , -7852*w + 16324 ],
[ -70553*w + 140833 , -67255*w + 140469 , 14228*w + 15554 , -6876*w + 6832 , -326*w + 1638 , -444*w + 1302 , 17170*w - 3668 , 14558*w - 32746 , -4621*w - 3381 , 2440*w - 38206 , 7852*w + 16324 , 385070 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 96 );
/***Gitter Nr. 366 ***/
Grammatrix:=Matrix(S,[
[ 60620 , -45971*w + 118167 , 9122*w - 30898 , -23649*w + 409339 , -10335*w + 126441 , 1718*w - 1932 , -1068*w + 3458 , 4097*w - 4907 , 1545*w + 34153 , 822*w - 16128 , -1673*w - 7581 , 19956*w + 28700 ],
[ 45971*w + 118167 , 577444 , -4955*w - 128485 , 284104*w + 990878 , 83172*w + 326816 , 924*w - 11536 , 2164*w + 9422 , 2390*w - 28476 , 27106*w + 40642 , -10558*w - 27342 , -7954*w - 2422 , 68602*w - 34958 ],
[ -9122*w - 30898 , 4955*w - 128485 , 30520 , -55368*w - 249662 , -15808*w - 80640 , -398*w + 2464 , -139*w - 2471 , -991*w + 6209 , -5644*w - 12362 , 2022*w + 7406 , 1782*w + 1386 , -16459*w + 3773 ],
[ 23649*w + 409339 , -284104*w + 990878 , 55368*w - 249662 , 2946202 , -19403*w + 922509 , 9570*w - 16016 , -5654*w + 23100 , 22959*w - 41811 , 22998*w + 204274 , -1346*w - 100814 , -13218*w - 41748 , 153611*w + 175007 ],
[ 10335*w + 126441 , -83172*w + 326816 , 15808*w - 80640 , 19403*w + 922509 , 291102 , 2722*w - 5432 , -1292*w + 6972 , 6509*w - 14105 , 8678*w + 59962 , -1286*w - 30282 , -4362*w - 11760 , 49069*w + 50351 ],
[ -1718*w - 1932 , -924*w - 11536 , 398*w + 2464 , -9570*w - 16016 , -2722*w - 5432 , 896 , -142*w - 868 , -38*w + 1904 , -2084*w - 1932 , 876*w + 1484 , 550*w - 154 , -212*w + 3752 ],
[ 1068*w + 3458 , -2164*w + 9422 , 139*w - 2471 , 5654*w + 23100 , 1292*w + 6972 , 142*w - 868 , 1736 , 312*w - 1708 , 1824*w + 3864 , -668*w - 2268 , -556*w - 364 , 524*w - 2982 ],
[ -4097*w - 4907 , -2390*w - 28476 , 991*w + 6209 , -22959*w - 41811 , -6509*w - 14105 , 38*w + 1904 , -312*w - 1708 , 4284 , -4600*w - 3528 , 1944*w + 2968 , 1184*w - 448 , -1030*w + 7602 ],
[ -1545*w + 34153 , -27106*w + 40642 , 5644*w - 12362 , -22998*w + 204274 , -8678*w + 59962 , 2084*w - 1932 , -1824*w + 3864 , 4600*w - 3528 , 38864 , 1588*w - 17724 , -1552*w - 8736 , 9172*w - 812 ],
[ -822*w - 16128 , 10558*w - 27342 , -2022*w + 7406 , 1346*w - 100814 , 1286*w - 30282 , -876*w + 1484 , 668*w - 2268 , -1944*w + 2968 , -1588*w - 17724 , 8624 , 1088*w + 3584 , -4304*w + 3192 ],
[ 1673*w - 7581 , 7954*w - 2422 , -1782*w + 1386 , 13218*w - 41748 , 4362*w - 11760 , -550*w - 154 , 556*w - 364 , -1184*w - 448 , 1552*w - 8736 , -1088*w + 3584 , 2464 , -2238*w - 2590 ],
[ -19956*w + 28700 , -68602*w - 34958 , 16459*w + 3773 , -153611*w + 175007 , -49069*w + 50351 , 212*w + 3752 , -524*w - 2982 , 1030*w + 7602 , -9172*w - 812 , 4304*w + 3192 , 2238*w - 2590 , 86212 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 96 );
/***Gitter Nr. 367 ***/
Grammatrix:=Matrix(S,[
[ 14810880 , 5345696*w - 34225940 , -7048988*w + 22916096 , -6345162*w - 229348 , -4517302*w - 11290202 , -2140676*w + 592074 , -2356776*w + 16675498 , -22931568*w + 10201450 , -4660962*w + 37415126 , -3508120*w + 39438714 , -17557646*w - 67062086
, 1395722*w + 53248930 ],
[ -5345696*w - 34225940 , 349750926 , 6405780*w - 306507544 , 16731492*w - 99753318 , 19798750*w - 4980066 , 3793930*w - 18204858 , -11954806*w - 49213150 , 35449186*w - 180139470 , -28028686*w - 107042418 , -32344828*w - 102963336 , 101811140*w +
    10908660 , -40500058*w - 16636326 ],
[ 7048988*w + 22916096 , -6405780*w - 306507544 , 282499714 , -11917758*w + 95778270 , -16838220*w + 8069824 , -2153382*w + 16754150 , 14399320*w + 37975112 , -17854394*w + 178992548 , 33052280*w + 80390716 , 36588256*w + 74422740 , -91407784*w +
    44356564 , 41806112*w - 20137600 ],
[ 6345162*w - 229348 , -16731492*w - 99753318 , 11917758*w + 95778270 , 48363028 , -6172672*w + 23997974 , 773170*w + 10960698 , 11218294*w + 7578984 , 10468910*w + 102656736 , 25107648*w + 14973224 , 26234116*w + 9388120 , -40682320*w + 91119672
, 29526780*w - 40150600 ],
[ 4517302*w - 11290202 , -19798750*w - 4980066 , 16838220*w + 8069824 , 6172672*w + 23997974 , 29860446 , 2197732*w + 7092456 , 8346046*w - 9078132 , 23989728*w + 51888004 , 18247760*w - 20538616 , 18003024*w - 25315640 , -9965616*w + 105368536 ,
17881818*w - 52487778 ],
[ 2140676*w + 592074 , -3793930*w - 18204858 , 2153382*w + 16754150 , -773170*w + 10960698 , -2197732*w + 7092456 , 3294410 , 2944568*w + 3695076 , 727206*w + 30038568 , 6643116*w + 7865256 , 7073808*w + 6494712 , -13208424*w + 19227432 ,
    10010794*w - 2380042 ],
[ 2356776*w + 16675498 , 11954806*w - 49213150 , -14399320*w + 37975112 , -11218294*w + 7578984 , -8346046*w - 9078132 , -2944568*w + 3695076 , 25901666 , -29357560*w + 44575132 , 776468*w + 57315454 , 2738300*w + 58539614 , -36775316*w - 68109790
, 15726840*w + 66286416 ],
[ 22931568*w + 10201450 , -35449186*w - 180139470 , 17854394*w + 178992548 , -10468910*w + 102656736 , -23989728*w + 51888004 , -727206*w + 30038568 , 29357560*w + 44575132 , 310259880 , 66422404*w + 92665944 , 71200820*w + 79190440 , -140767628*w
    + 174873510 , 102779202*w - 10732274 ],
[ 4660962*w + 37415126 , 28028686*w - 107042418 , -33052280*w + 80390716 , -25107648*w + 14973224 , -18247760*w - 20538616 , -6643116*w + 7865256 , -776468*w + 57315454 , -66422404*w + 92665944 , 127219134 , 4312324*w + 130354714 , -79482196*w -
    158725714 , 32997668*w + 150700634 ],
[ 3508120*w + 39438714 , 32344828*w - 102963336 , -36588256*w + 74422740 , -26234116*w + 9388120 , -18003024*w - 25315640 , -7073808*w + 6494712 , -2738300*w + 58539614 , -71200820*w + 79190440 , -4312324*w + 130354714 , 134591226 , -76061112*w -
    181497680 , 28714954*w + 162290464 ],
[ 17557646*w - 67062086 , -101811140*w + 10908660 , 91407784*w + 44356564 , 40682320*w + 91119672 , 9965616*w + 105368536 , 13208424*w + 19227432 , 36775316*w - 68109790 , 140767628*w + 174873510 , 79482196*w - 158725714 , 76061112*w - 181497680 ,
545640788 , 52991306*w - 332426276 ],
[ -1395722*w + 53248930 , 40500058*w - 16636326 , -41806112*w - 20137600 , -29526780*w - 40150600 , -17881818*w - 52487778 , -10010794*w - 2380042 , -15726840*w + 66286416 , -102779202*w - 10732274 , -32997668*w + 150700634 , -28714954*w +
    162290464 , -52991306*w - 332426276 , 278723844 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 756 );
/***Gitter Nr. 368 ***/
Grammatrix:=Matrix(S,[
[ 19368230 , -14542*w + 5060370 , -385922*w - 15939616 , 184214*w - 215138 , -85284*w - 255290 , -80080*w - 2534 , 69636*w + 35630 , -40970*w + 180530 , 51596*w - 220108 , 21462*w - 56070 , -19358*w - 391398 , 4447212*w + 7571508 ],
[ 14542*w + 5060370 , 1379994 , -110078*w - 4167604 , 45590*w - 25172 , -40737*w - 54257 , -25924*w - 910 , 15670*w + 12810 , -11694*w + 37758 , 14265*w - 45801 , 5316*w - 11172 , -510*w - 89460 , 1170358*w + 1990688 ],
[ 385922*w - 15939616 , 110078*w - 4167604 , 13176030 , -154356*w + 147140 , 67680*w + 212156 , 66606*w + 11200 , -56270*w - 39984 , 37714*w - 141512 , -47098*w + 171948 , -18848*w + 42392 , 6892*w + 323148 , -3510236*w - 6861092 ],
[ -184214*w - 215138 , -45590*w - 25172 , 154356*w + 147140 , 82950 , -1020*w + 35770 , -538*w - 2548 , -4514*w + 14616 , -4536*w - 17556 , 5676*w + 22176 , 660*w + 7392 , 13464*w + 13860 , -104692*w + 250810 ],
[ 85284*w - 255290 , 40737*w - 54257 , -67680*w + 212156 , 1020*w + 35770 , 73444 , 580*w + 18298 , -1928*w + 4830 , -1808*w - 5922 , 2322*w + 9072 , 270*w + 3024 , 5508*w + 5670 , -6421*w - 214333 ],
[ 80080*w - 2534 , 25924*w - 910 , -66606*w + 11200 , 538*w - 2548 , -580*w + 18298 , 8834 , 500*w - 2884 , 794*w + 3416 , -530*w - 3738 , -214*w - 1540 , -2652*w - 2730 , 36006*w - 126504 ],
[ -69636*w + 35630 , -15670*w + 12810 , 56270*w - 39984 , 4514*w + 14616 , 1928*w + 4830 , -500*w - 2884 , 6790 , -2674*w - 2772 , 2898*w + 3416 , 854*w + 2086 , 5334*w - 2730 , -16172*w + 126294 ],
[ 40970*w + 180530 , 11694*w + 37758 , -37714*w - 141512 , 4536*w - 17556 , 1808*w - 5922 , -794*w + 3416 , 2674*w - 2772 , 9338 , 556*w - 10514 , 480*w - 3584 , -3630*w - 15246 , 57696*w - 3360 ],
[ -51596*w - 220108 , -14265*w - 45801 , 47098*w + 171948 , -5676*w + 22176 , -2322*w + 9072 , 530*w - 3738 , -2898*w + 3416 , -556*w - 10514 , 13846 , -172*w + 4172 , 5542*w + 15022 , -71309*w + 10185 ],
[ -21462*w - 56070 , -5316*w - 11172 , 18848*w + 42392 , -660*w + 7392 , -270*w + 3024 , 214*w - 1540 , -854*w + 2086 , -480*w - 3584 , 172*w + 4172 , 1736 , 2302*w + 5110 , -21030*w + 14420 ],
[ 19358*w - 391398 , 510*w - 89460 , -6892*w + 323148 , -13464*w + 13860 , -5508*w + 5670 , 2652*w - 2730 , -5334*w - 2730 , 3630*w - 15246 , -5542*w + 15022 , -2302*w + 5110 , 37268 , -85574*w - 174762 ],
[ -4447212*w + 7571508 , -1170358*w + 1990688 , 3510236*w - 6861092 , 104692*w + 250810 , 6421*w - 214333 , -36006*w - 126504 , 16172*w + 126294 , -57696*w - 3360 , 71309*w + 10185 , 21030*w + 14420 , 85574*w - 174762 , 10180576 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 32 );
/***Gitter Nr. 369 ***/
Grammatrix:=Matrix(S,[
[ 3176404 , 175234*w + 771358 , 53618*w - 50652 , 1714*w + 118356 , -153402*w + 970452 , -98053*w + 255521 , -116863*w + 88501 , -127675*w - 557263 , 1189247*w + 410809 , -405050*w + 454510 , 138674*w + 1119552 , 1596511*w + 2898931 ],
[ -175234*w + 771358 , 286664 , 12136*w + 1974 , -10464*w + 19936 , -110898*w + 168700 , -46010*w + 11928 , -39386*w - 41188 , 5346*w - 202230 , 286534*w + 682542 , -138240*w - 74872 , -40084*w + 362208 , 213948*w + 1327368 ],
[ -53618*w - 50652 , -12136*w + 1974 , 49140 , -1750*w + 16800 , -4222*w - 13384 , 756*w - 1400 , 1956*w - 7070 , 9094*w + 23142 , -41408*w + 53858 , 9944*w - 36666 , -12586*w - 29946 , -49991*w + 172977 ],
[ -1714*w + 118356 , 10464*w + 19936 , 1750*w + 16800 , 16646 , 1292*w + 62678 , -2150*w + 24500 , -4406*w + 15372 , -10460*w - 14448 , 54440*w - 58520 , -13040*w + 45360 , 16240*w + 38640 , 69487*w + 135821 ],
[ 153402*w + 970452 , 110898*w + 168700 , 4222*w - 13384 , -1292*w + 62678 , 541254 , -32426*w + 182028 , -53310*w + 114842 , -93350*w - 213682 , 594980*w - 387170 , -161088*w + 412230 , 142870*w + 463302 , 617203*w + 450177 ],
[ 98053*w + 255521 , 46010*w + 11928 , -756*w - 1400 , 2150*w + 24500 , 32426*w + 182028 , 77714 , -10628*w + 64204 , -46770*w - 33208 , 178394*w - 400904 , -28652*w + 213822 , 78694*w + 94710 , 223263*w - 58275 ],
[ 116863*w + 88501 , 39386*w - 41188 , -1956*w - 7070 , 4406*w + 15372 , 53310*w + 114842 , 10628*w + 64204 , 66892 , -43392*w + 11592 , 93998*w - 512876 , 5620*w + 207606 , 79030*w + 2982 , 158795*w - 287721 ],
[ 127675*w - 557263 , -5346*w - 202230 , -9094*w + 23142 , 10460*w - 14448 , 93350*w - 213682 , 46770*w - 33208 , 43392*w + 11592 , 266308 , -361830*w - 658140 , 161528*w + 34398 , 28182*w - 426426 , -127634*w - 963074 ],
[ -1189247*w + 410809 , -286534*w + 682542 , 41408*w + 53858 , -54440*w - 58520 , -594980*w - 387170 , -178394*w - 400904 , -93998*w - 512876 , 361830*w - 658140 , 5429732 , -377280*w - 1725752 , -688814*w + 849058 , -978190*w + 4253970 ],
[ 405050*w + 454510 , 138240*w - 74872 , -9944*w - 36666 , 13040*w + 45360 , 161088*w + 412230 , 28652*w + 213822 , -5620*w + 207606 , -161528*w + 34398 , 377280*w - 1725752 , 732340 , 278110*w + 65422 , 608544*w - 863422 ],
[ -138674*w + 1119552 , 40084*w + 362208 , 12586*w - 29946 , -16240*w + 38640 , -142870*w + 463302 , -78694*w + 94710 , -79030*w + 2982 , -28182*w - 426426 , 688814*w + 849058 , -278110*w + 65422 , 745360 , 381082*w + 1551606 ],
[ -1596511*w + 2898931 , -213948*w + 1327368 , 49991*w + 172977 , -69487*w + 135821 , -617203*w + 450177 , -223263*w - 58275 , -158795*w - 287721 , 127634*w - 963074 , 978190*w + 4253970 , -608544*w - 863422 , -381082*w + 1551606 , 8423982 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 96 );
/***Gitter Nr. 370 ***/
Grammatrix:=Matrix(S,[
[ 4268768 , -894809*w + 2353085 , -811989*w + 8382675 , -720658*w + 6681458 , -419739*w + 4536833 , 636479*w + 1686601 , 544679*w + 318507 , 211532*w - 833560 , -178536*w + 2181858 , -547190*w - 1077818 , -988454*w - 244034 , 2918705*w + 2252677
],
[ 894809*w + 2353085 , 6272336 , 2141775*w - 3428901 , 2511476*w - 4260830 , 1627041*w - 3138331 , -411227*w - 2427159 , -496624*w - 1360730 , -348619*w + 553483 , 558649*w - 2136813 , 408410*w + 1823220 , 1028604*w + 1433530 , 1119915*w - 3637011
],
[ 811989*w + 8382675 , -2141775*w - 3428901 , 43513764 , -1892516*w + 40178040 , -809234*w + 27199480 , 5116008*w + 7068992 , 3493560*w + 287224 , 682056*w - 5946248 , 396084*w + 14363356 , -4129064*w - 4087888 , -6301232*w + 3225040 , 8607971*w +
    370251 ],
[ 720658*w + 6681458 , -2511476*w - 4260830 , 1892516*w + 40178040 , 38779384 , 527684*w + 26186048 , 5309966*w + 4892370 , 3456802*w - 1081500 , 356438*w - 6032712 , 1159236*w + 13765570 , -4222760*w - 2391970 , -5929154*w + 5513662 , 7554398*w -
    1512350 ],
[ 419739*w + 4536833 , -1627041*w - 3138331 , 809234*w + 27199480 , -527684*w + 26186048 , 17868942 , 3522568*w + 3936618 , 2417220*w - 283892 , 361202*w - 4047904 , 551592*w + 9510942 , -2836464*w - 2136162 , -4132338*w + 3044622 , 5175551*w -
    381129 ],
[ -636479*w + 1686601 , 411227*w - 2427159 , -5116008*w + 7068992 , -5309966*w + 4892370 , -3522568*w + 3936618 , 6639542 , 651074*w + 3494372 , 1011766*w - 536508 , -2014332*w + 3272248 , -228344*w - 5017684 , -1724828*w - 5779676 , 1369173*w +
    6898241 ],
[ -544679*w + 318507 , 496624*w - 1360730 , -3493560*w + 287224 , -3456802*w - 1081500 , -2417220*w - 283892 , -651074*w + 3494372 , 2577568 , 591206*w + 496958 , -1408752*w + 344036 , 377396*w - 2866976 , -352240*w - 4313008 , 18481*w + 4892167
],
[ -211532*w - 833560 , 348619*w + 553483 , -682056*w - 5946248 , -356438*w - 6032712 , -361202*w - 4047904 , -1011766*w - 536508 , -591206*w + 496958 , 1149204 , -343930*w - 2416988 , 786360*w + 143010 , 1019144*w - 1399608 , -1160924*w + 989058
],
[ 178536*w + 2181858 , -558649*w - 2136813 , -396084*w + 14363356 , -1159236*w + 13765570 , -551592*w + 9510942 , 2014332*w + 3272248 , 1408752*w + 344036 , 343930*w - 2416988 , 5910772 , -1641744*w - 1993320 , -2612722*w + 820750 , 2781238*w +
    525336 ],
[ 547190*w - 1077818 , -408410*w + 1823220 , 4129064*w - 4087888 , 4222760*w - 2391970 , 2836464*w - 2136162 , 228344*w - 5017684 , -377396*w - 2866976 , -786360*w + 143010 , 1641744*w - 1993320 , 3865092 , 1109318*w + 4803526 , -790288*w -
    5599160 ],
[ 988454*w - 244034 , -1028604*w + 1433530 , 6301232*w + 3225040 , 5929154*w + 5513662 , 4132338*w + 3044622 , 1724828*w - 5779676 , 352240*w - 4313008 , -1019144*w - 1399608 , 2612722*w + 820750 , -1109318*w + 4803526 , 8198960 , 623520*w -
    8536724 ],
[ -2918705*w + 2252677 , -1119915*w - 3637011 , -8607971*w + 370251 , -7554398*w - 1512350 , -5175551*w - 381129 , -1369173*w + 6898241 , -18481*w + 4892167 , 1160924*w + 989058 , -2781238*w + 525336 , 790288*w - 5599160 , -623520*w - 8536724 ,
    17690316 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );
/***Gitter Nr. 371 ***/
Grammatrix:=Matrix(S,[
[ 4866736 , -24734*w - 2348948 , 20407*w - 731101 , 95162*w - 37800 , 129671*w + 26285 , -187583*w - 134575 , 71006*w + 51156 , -135296*w + 237258 , 103863*w - 281505 , 236121*w + 810985 , 336676*w - 21826 , -266334*w + 1468810 ],
[ 24734*w - 2348948 , 1301986 , 39163*w + 464079 , -43628*w + 61376 , -59680*w + 11956 , 179404*w - 294560 , -62604*w + 88088 , 40352*w - 335888 , -10968*w + 320040 , -310592*w - 198576 , -212512*w + 473984 , 207126*w - 961520 ],
[ -20407*w - 731101 , -39163*w + 464079 , 430164 , -27964*w + 113232 , -26838*w + 132146 , 324613*w + 262591 , -103599*w - 77525 , 149682*w - 291158 , -111283*w + 340837 , -288908*w - 901194 , -387142*w + 72254 , 299091*w - 369173 ],
[ -95162*w - 37800 , 43628*w + 61376 , 27964*w + 113232 , 70490 , 192*w + 94934 , 102082*w + 33362 , -32462*w - 5040 , 34106*w - 118216 , -21160*w + 124712 , -113856*w - 193760 , -109892*w + 111580 , 67848*w - 208586 ],
[ -129671*w + 26285 , 59680*w + 11956 , 26838*w + 132146 , -192*w + 94934 , 140588 , 128880*w + 168322 , -40836*w - 44520 , 60938*w - 109424 , -45636*w + 131852 , -111220*w - 363412 , -153512*w + 19544 , 93977*w - 215103 ],
[ 187583*w - 134575 , -179404*w - 294560 , -324613*w + 262591 , -102082*w + 33362 , -128880*w + 168322 , 2778384 , -4558*w - 859964 , 430582*w + 865928 , -450926*w - 537782 , 709422*w - 2872114 , -395902*w - 2791054 , 508409*w + 1518867 ],
[ -71006*w + 51156 , 62604*w + 88088 , 103599*w - 77525 , 32462*w - 5040 , 40836*w - 44520 , 4558*w - 859964 , 267232 , -133112*w - 275548 , 139992*w + 173208 , -225952*w + 889280 , 119380*w + 875924 , -159136*w - 483854 ],
[ 135296*w + 237258 , -40352*w - 335888 , -149682*w - 291158 , -34106*w - 118216 , -60938*w - 109424 , -430582*w + 865928 , 133112*w - 275548 , 756546 , -58704*w - 674002 , 682768*w - 133392 , 315592*w - 1334648 , -73342*w + 1084944 ],
[ -103863*w - 281505 , 10968*w + 320040 , 111283*w + 340837 , 21160*w + 124712 , 45636*w + 131852 , 450926*w - 537782 , -139992*w + 173208 , 58704*w - 674002 , 632422 , -618800*w - 252224 , -384872*w + 1017800 , 150303*w - 927815 ],
[ -236121*w + 810985 , 310592*w - 198576 , 288908*w - 901194 , 113856*w - 193760 , 111220*w - 363412 , -709422*w - 2872114 , 225952*w + 889280 , -682768*w - 133392 , 618800*w - 252224 , 4341456 , 1150000*w + 2231712 , -971769*w - 673183 ],
[ -336676*w - 21826 , 212512*w + 473984 , 387142*w + 72254 , 109892*w + 111580 , 153512*w + 19544 , 395902*w - 2791054 , -119380*w + 875924 , -315592*w - 1334648 , 384872*w + 1017800 , -1150000*w + 2231712 , 3279584 , -321800*w - 2148650 ],
[ 266334*w + 1468810 , -207126*w - 961520 , -299091*w - 369173 , -67848*w - 208586 , -93977*w - 215103 , -508409*w + 1518867 , 159136*w - 483854 , 73342*w + 1084944 , -150303*w - 927815 , 971769*w - 673183 , 321800*w - 2148650 , 2462054 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 960 );
/***Gitter Nr. 372 ***/
Grammatrix:=Matrix(S,[
[ 5250 , -1275*w - 1043 , -139*w + 245 , -62*w - 28 , 105*w + 399 , -178*w + 392 , 237*w + 679 , -247*w - 63 , -36*w + 336 , -69*w + 357 , 126*w - 140 , 882*w + 9338 ],
[ 1275*w - 1043 , 3150 , 32*w + 378 , -18*w + 350 , 150*w - 84 , 42 , 126*w , -30*w , 0 , 0 , 0 , 2574*w - 3738 ],
[ 139*w + 245 , -32*w + 378 , 224 , -2*w + 70 , 90*w , 52*w + 14 , 86*w , -18*w , 0 , 0 , 0 , 337*w + 315 ],
[ 62*w - 28 , 18*w + 350 , 2*w + 70 , 322 , 140*w - 266 , -78*w - 196 , 54*w - 56 , -32*w - 112 , -28*w - 84 , -36*w - 28 , -12*w + 84 , 178*w ],
[ -105*w + 399 , -150*w - 84 , -90*w , -140*w - 266 , 1064 , 74*w + 322 , 58*w + 672 , 22*w + 84 , 56*w + 168 , 72*w + 56 , 24*w - 168 , -236*w + 56 ],
[ 178*w + 392 , 42 , -52*w + 14 , 78*w - 196 , -74*w + 322 , 1876 , 236*w + 280 , 12*w + 532 , 126*w + 378 , 162*w + 126 , 54*w - 378 , -117*w - 973 ],
[ -237*w + 679 , -126*w , -86*w , -54*w - 56 , -58*w + 672 , -236*w + 280 , 980 , -92*w - 336 , -60*w + 252 , -68*w + 84 , 124*w + 28 , 33*w + 231 ],
[ 247*w - 63 , 30*w , 18*w , 32*w - 112 , -22*w + 84 , -12*w + 532 , 92*w - 336 , 1064 , 86*w + 182 , 250*w + 434 , -60*w - 252 , -742 ],
[ 36*w + 336 , 0 , 0 , 28*w - 84 , -56*w + 168 , -126*w + 378 , 60*w + 252 , -86*w + 182 , 238 , 24*w + 224 , 64*w - 112 , 111*w - 399 ],
[ 69*w + 357 , 0 , 0 , 36*w - 28 , -72*w + 56 , -162*w + 126 , 68*w + 84 , -250*w + 434 , -24*w + 224 , 616 , 40*w - 168 , 167*w - 287 ],
[ -126*w - 140 , 0 , 0 , 12*w + 84 , -24*w - 168 , -54*w - 378 , -124*w + 28 , 60*w - 252 , -64*w - 112 , -40*w - 168 , 224 , 48*w + 378 ],
[ -882*w + 9338 , -2574*w - 3738 , -337*w + 315 , -178*w , 236*w + 56 , 117*w - 973 , -33*w + 231 , -742 , -111*w - 399 , -167*w - 287 , -48*w + 378 , 22764 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 192 );
/***Gitter Nr. 373 ***/
Grammatrix:=Matrix(S,[
[ 4076324 , 8142*w - 711886 , 41672*w + 225974 , 20476*w + 291606 , -144494*w - 287126 , -80312*w + 240534 , 41500*w - 102284 , 16416*w - 263088 , -9096*w - 383978 , -263428*w - 520898 , 179700*w - 213304 , -838180*w - 1546832 ],
[ -8142*w - 711886 , 127134 , -8836*w - 33362 , -22410*w - 54586 , 27104*w + 54152 , 13476*w - 45976 , -8324*w + 19180 , -3116*w + 50036 , 1532*w + 73136 , 49820*w + 100324 , -34336*w + 39788 , 147642*w + 269486 ],
[ -41672*w + 225974 , 8836*w - 33362 , 55132 , -62374*w + 76356 , 3328*w - 18368 , -5104*w + 3080 , -820*w + 896 , 424*w , 84*w , 36*w , 0 , -41590*w - 96418 ],
[ -20476*w + 291606 , 22410*w - 54586 , 62374*w + 76356 , 1796340 , 3640*w - 206360 , -2242*w + 82670 , -4*w + 8960 , 6*w - 6720 , -28*w , -12*w , 0 , 69096*w + 218316 ],
[ 144494*w - 287126 , -27104*w + 54152 , -3328*w - 18368 , -3640*w - 206360 , 480956 , 286*w - 32298 , -34548*w + 112168 , 2158*w + 161952 , 20520*w + 244440 , 191160*w + 279720 , -111240*w + 181440 , 56126*w + 194894 ],
[ 80312*w + 240534 , -13476*w - 45976 , 5104*w + 3080 , 2242*w + 82670 , -286*w - 32298 , 55384 , 9418*w - 19530 , -594*w - 48692 , -5586*w - 68502 , -52038*w - 76986 , 30282*w - 49392 , -93468*w + 12894 ],
[ -41500*w - 102284 , 8324*w + 19180 , 820*w + 896 , 4*w + 8960 , 34548*w + 112168 , -9418*w - 19530 , 64708 , 20708*w + 55300 , 36278*w + 67200 , 98770*w - 62524 , -16606*w + 154448 , 58582*w - 86842 ],
[ -16416*w - 263088 , 3116*w + 50036 , -424*w , -6*w - 6720 , -2158*w + 161952 , 594*w - 48692 , -20708*w + 55300 , 97804 , 10028*w + 143752 , 108368*w + 172200 , -65616*w + 99064 , 99056*w + 74032 ],
[ 9096*w - 383978 , -1532*w + 73136 , -84*w , 28*w , -20520*w + 244440 , 5586*w - 68502 , -36278*w + 67200 , -10028*w + 143752 , 219016 , 142018*w + 331828 , -106910*w + 98756 , 133614*w + 182546 ],
[ 263428*w - 520898 , -49820*w + 100324 , -36*w , 12*w , -191160*w + 279720 , 52038*w - 76986 , -98770*w - 62524 , -108368*w + 172200 , -142018*w + 331828 , 1147622 , -226064*w - 335748 , 80596*w + 874972 ],
[ -179700*w - 213304 , 34336*w + 39788 , 0 , 0 , 111240*w + 181440 , -30282*w - 49392 , 16606*w + 154448 , 65616*w + 99064 , 106910*w + 98756 , 226064*w - 335748 , 409948 , 149188*w - 366016 ],
[ 838180*w - 1546832 , -147642*w + 269486 , 41590*w - 96418 , -69096*w + 218316 , -56126*w + 194894 , 93468*w + 12894 , -58582*w - 86842 , -99056*w + 74032 , -133614*w + 182546 , -80596*w + 874972 , -149188*w - 366016 , 2088240 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 162 );
/***Gitter Nr. 374 ***/
Grammatrix:=Matrix(S,[
[ 204526 , -22812*w - 219856 , 17744*w + 181370 , 579*w - 105 , -1059*w - 1449 , 507*w + 1253 , -5955*w - 16331 , 8940*w + 588 , 1360*w + 434 , 149*w - 1533 , -1233*w - 6195 , 44121*w + 42959 ],
[ 22812*w - 219856 , 255514 , 995*w - 210385 , -640*w - 238 , 905*w + 2233 , -422*w - 1736 , 4525*w + 21959 , -9515*w - 7721 , -1370*w - 1596 , -316*w + 1554 , 668*w + 7672 , -42739*w - 81109 ],
[ -17744*w + 181370 , -995*w - 210385 , 176582 , 476*w - 252 , -664*w - 280 , 316*w + 952 , -2692*w - 14672 , 5867*w + 7819 , 633*w + 1519 , 205*w - 1043 , -272*w - 5362 , 33979*w + 63399 ],
[ -579*w - 105 , 640*w - 238 , -476*w - 252 , 98 , 10*w - 196 , -6*w + 56 , -102*w - 392 , 246*w - 140 , 62*w - 14 , 8*w - 28 , -30*w - 126 , 16*w + 1162 ],
[ 1059*w - 1449 , -905*w + 2233 , 664*w - 280 , -10*w - 196 , 966 , -30*w - 392 , 498*w + 3962 , -1720*w - 1106 , -376*w - 364 , -72*w + 140 , 74*w + 1050 , -904*w - 4004 ],
[ -507*w + 1253 , 422*w - 1736 , -316*w + 952 , 6*w + 56 , 30*w - 392 , 238 , 66*w - 2282 , 710*w + 1638 , 128*w + 420 , 40*w - 28 , 46*w - 546 , 360*w + 2380 ],
[ 5955*w - 16331 , -4525*w + 21959 , 2692*w - 14672 , 102*w - 392 , -498*w + 3962 , -66*w - 2282 , 27804 , -9404*w - 19600 , -1786*w - 4858 , -574*w + 434 , -640*w + 7168 , -4120*w - 27846 ],
[ -8940*w + 588 , 9515*w - 7721 , -5867*w + 7819 , -246*w - 140 , 1720*w - 1106 , -710*w + 1638 , 9404*w - 19600 , 37016 , -482*w + 7910 , 534*w + 1022 , 2868*w - 3724 , -6138*w + 28938 ],
[ -1360*w + 434 , 1370*w - 1596 , -633*w + 1519 , -62*w - 14 , 376*w - 364 , -128*w + 420 , 1786*w - 4858 , 482*w + 7910 , 2072 , 80*w + 280 , 472*w - 728 , -850*w + 5978 ],
[ -149*w - 1533 , 316*w + 1554 , -205*w - 1043 , -8*w - 28 , 72*w + 140 , -40*w - 28 , 574*w + 434 , -534*w + 1022 , -80*w + 280 , 168 , 152*w + 392 , -660*w - 168 ],
[ 1233*w - 6195 , -668*w + 7672 , 272*w - 5362 , 30*w - 126 , -74*w + 1050 , -46*w - 546 , 640*w + 7168 , -2868*w - 3724 , -472*w - 728 , -152*w + 392 , 2464 , -1702*w - 7182 ],
[ -44121*w + 42959 , 42739*w - 81109 , -33979*w + 63399 , -16*w + 1162 , 904*w - 4004 , -360*w + 2380 , 4120*w - 27846 , 6138*w + 28938 , 850*w + 5978 , 660*w - 168 , 1702*w - 7182 , 88018 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 375 ***/
Grammatrix:=Matrix(S,[
[ 8217874 , -2836652*w + 30538116 , -1296418*w + 13958574 , -2420675*w - 4363877 , -231931*w - 365491 , -1507547*w - 3765475 , 40235*w - 1991353 , -1092220*w + 7027202 , 699038*w + 6255942 , 267708*w - 1211406 , 1042232*w - 1969212 , -1661212*w + 
    8733102 ],
[ 2836652*w + 30538116 , 122733030 , -74426*w + 56802018 , -11231517*w - 10417295 , -1052555*w - 854455 , -7330007*w - 10300339 , -599843*w - 7577815 , -1643336*w + 29385160 , 4869744*w + 21989464 , 585384*w - 5260024 , 3254384*w - 10056704 , 
    -3443434*w + 38264842 ],
[ 1296418*w + 13958574 , 74426*w + 56802018 , 27157634 , -5387187*w - 4897683 , -508141*w - 518301 , -3521195*w - 4521923 , -419635*w - 3453163 , -216918*w + 12775476 , 2456250*w + 8892856 , 164536*w - 2326716 , 1232556*w - 4699100 , -1355592*w + 
    18751250 ],
[ 2420675*w - 4363877 , 11231517*w - 10417295 , 5387187*w - 4897683 , 9914562 , 8519*w + 960757 , -201093*w + 6432881 , -484340*w + 1435350 , 1976780*w - 1624770 , 992493*w - 3942099 , -378891*w + 167391 , -898920*w - 619542 , 4120404*w - 1623566 
],
[ 231931*w - 365491 , 1052555*w - 854455 , 508141*w - 518301 , -8519*w + 960757 , 112770 , -20838*w + 582624 , -29809*w + 130473 , 104522*w - 23618 , 64299*w - 176687 , -19743*w - 1225 , -43420*w - 53466 , 351156*w - 222278 ],
[ 1507547*w - 3765475 , 7330007*w - 10300339 , 3521195*w - 4521923 , 201093*w + 6432881 , 20838*w + 582624 , 4501056 , -407213*w + 1192415 , 1765778*w - 2698038 , 636653*w - 4316487 , -349335*w + 372393 , -909036*w - 93954 , 2927920*w - 1551158 ],
[ -40235*w - 1991353 , 599843*w - 7577815 , 419635*w - 3453163 , 484340*w + 1435350 , 29809*w + 130473 , 407213*w + 1192415 , 888216 , -78418*w - 3426934 , -733321*w - 2189551 , -20871*w + 628369 , -281912*w + 1326570 , 759262*w - 2661988 ],
[ 1092220*w + 7027202 , 1643336*w + 29385160 , 216918*w + 12775476 , -1976780*w - 1624770 , -104522*w - 23618 , -1765778*w - 2698038 , 78418*w - 3426934 , 16924810 , 3352306*w + 11232256 , 169652*w - 3060008 , 1518746*w - 6272182 , -2279232*w + 
    9864638 ],
[ -699038*w + 6255942 , -4869744*w + 21989464 , -2456250*w + 8892856 , -992493*w - 3942099 , -64299*w - 176687 , -636653*w - 4316487 , 733321*w - 2189551 , -3352306*w + 11232256 , 12107578 , 718904*w - 1796144 , 2251126*w - 2057818 , -3502322*w + 
    3467492 ],
[ -267708*w - 1211406 , -585384*w - 5260024 , -164536*w - 2326716 , 378891*w + 167391 , 19743*w - 1225 , 349335*w + 372393 , 20871*w + 628369 , -169652*w - 3060008 , -718904*w - 1796144 , 565278 , -211772*w + 1240932 , 313628*w - 1962198 ],
[ -1042232*w - 1969212 , -3254384*w - 10056704 , -1232556*w - 4699100 , 898920*w - 619542 , 43420*w - 53466 , 909036*w - 93954 , 281912*w + 1326570 , -1518746*w - 6272182 , -2251126*w - 2057818 , 211772*w + 1240932 , 3279584 , -47184*w - 5143236 
],
[ 1661212*w + 8733102 , 3443434*w + 38264842 , 1355592*w + 18751250 , -4120404*w - 1623566 , -351156*w - 222278 , -2927920*w - 1551158 , -759262*w - 2661988 , 2279232*w + 9864638 , 3502322*w + 3467492 , -313628*w - 1962198 , 47184*w - 5143236 , 
    16287068 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 376 ***/
Grammatrix:=Matrix(S,[
[ 31038 , -428534*w - 193004 , -105782*w - 38094 , 238*w - 13146 , 278*w + 7266 , 2444*w + 8624 , -5330*w - 34846 , 428*w - 12460 , 4362*w + 3122 , -14092*w + 19642 , 3078*w - 37338 , 70668*w - 199402 ],
[ 428534*w - 193004 , 99567342 , 15260*w + 24995516 , -65894*w + 100254 , 20814*w - 48510 , 76780*w - 244692 , -493242*w + 1085448 , -204904*w + 85848 , 16984*w - 501648 , 448152*w + 1469160 , -644664*w - 32424 , -7387470*w - 14409794 ],
[ 105782*w - 38094 , -15260*w + 24995516 , 6349588 , -22234*w + 3962 , 7930*w + 14434 , 20866*w - 47012 , -124130*w + 269962 , -51336*w + 21462 , 4272*w - 125412 , 112044*w + 367290 , -161166*w - 8106 , -1858130*w - 3616942 ],
[ -238*w - 13146 , 65894*w + 100254 , 22234*w + 3962 , 36274 , 706*w - 19306 , 604*w - 11620 , -246*w + 6720 , -32*w + 896 , 0 , 0 , 0 , -5638*w + 45262 ],
[ -278*w + 7266 , -20814*w - 48510 , -7930*w + 14434 , -706*w - 19306 , 14672 , -80*w + 8190 , 860*w - 11536 , 694*w - 2184 , 408*w + 1596 , -3048*w - 2772 , 2472*w - 4032 , -58*w - 13132 ],
[ -2444*w + 8624 , -76780*w - 244692 , -20866*w - 47012 , -604*w - 11620 , 80*w + 8190 , 10262 , 4570*w - 40852 , 3706*w - 8960 , 2176*w + 10332 , -16256*w - 14364 , 13184*w - 21504 , 18756*w - 12796 ],
[ 5330*w - 34846 , 493242*w + 1085448 , 124130*w + 269962 , 246*w + 6720 , -860*w - 11536 , -4570*w - 40852 , 451444 , -26882*w + 121590 , -32954*w - 81536 , 179086*w + 17010 , -107854*w + 319200 , -71838*w + 76090 ],
[ -428*w - 12460 , 204904*w + 85848 , 51336*w + 21462 , 32*w + 896 , -694*w - 2184 , -3706*w - 8960 , 26882*w + 121590 , 44142 , -13852*w - 8274 , 49430*w - 70784 , -9970*w + 131684 , -16370*w + 54740 ],
[ -4362*w + 3122 , -16984*w - 501648 , -4272*w - 125412 , 0 , -408*w + 1596 , -2176*w + 10332 , 32954*w - 81536 , 13852*w - 8274 , 32312 , -31686*w - 95438 , 43354*w - 3052 , 23502*w + 28924 ],
[ 14092*w + 19642 , -448152*w + 1469160 , -112044*w + 367290 , 0 , 3048*w - 2772 , 16256*w - 14364 , -179086*w + 17010 , -49430*w - 70784 , 31686*w - 95438 , 502698 , -131900*w - 290332 , -30160*w - 229908 ],
[ -3078*w - 37338 , 644664*w - 32424 , 161166*w - 8106 , 0 , -2472*w - 4032 , -13184*w - 21504 , 107854*w + 319200 , 9970*w + 131684 , -43354*w - 3052 , 131900*w - 290332 , 409948 , -42420*w + 189392 ],
[ -70668*w - 199402 , 7387470*w - 14409794 , 1858130*w - 3616942 , 5638*w + 45262 , 58*w - 13132 , -18756*w - 12796 , 71838*w + 76090 , 16370*w + 54740 , -23502*w + 28924 , 30160*w - 229908 , 42420*w + 189392 , 6076434 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 144 );
/***Gitter Nr. 377 ***/
Grammatrix:=Matrix(S,[
[ 57361444 , -1152951*w - 19558777 , 2312593*w + 15757385 , -2934000*w - 17194548 , 7119172*w + 16646994 , -3085124*w - 6830166 , 679850*w - 1563072 , -4087812*w + 9663346 , 2348280*w + 17525816 , -5515386*w - 1127252 , 1143786*w + 969556 , 
    -16982838*w - 34244770 ],
[ 1152951*w - 19558777 , 7410704 , -326682*w - 5887602 , 490539*w + 6468133 , -2435621*w - 7533771 , 1058090*w + 3096660 , -251859*w + 546455 , 1577588*w - 3022068 , -584789*w - 6424103 , 1930304*w + 937006 , -390400*w - 454496 , 5306921*w + 
    15563555 ],
[ -2312593*w + 15757385 , 326682*w - 5887602 , 6618542 , -139737*w - 7583919 , -139155*w + 6629315 , 31746*w - 2832354 , 271151*w - 93639 , -1375046*w + 370566 , -497715*w + 4468415 , -1058488*w - 2357502 , 178362*w + 640150 , -4064499*w - 
    15313221 ],
[ 2934000*w - 17194548 , -490539*w + 6468133 , 139737*w - 7583919 , 8761158 , 614896*w - 7625940 , -229432*w + 3277022 , -312308*w + 7896 , 1562400*w + 178094 , 833338*w - 4784136 , 1037932*w + 3093496 , -159918*w - 793254 , 4155998*w + 17697498 
],
[ -7119172*w + 16646994 , 2435621*w - 7533771 , 139155*w + 6629315 , -614896*w - 7625940 , 37523808 , -163046*w - 15823346 , 818240*w - 430500 , -5292362*w - 2423232 , -3724172*w + 15386868 , -2954112*w - 11944100 , 401684*w + 2926896 , -139440*w 
    - 26965204 ],
[ 3085124*w - 6830166 , -1058090*w + 3096660 , -31746*w - 2832354 , 229432*w + 3277022 , 163046*w - 15823346 , 6679904 , -346882*w + 156268 , 2222002*w + 1187074 , 1639560*w - 6375516 , 1193160*w + 5130930 , -156448*w - 1247302 , -37050*w + 
    11400214 ],
[ -679850*w - 1563072 , 251859*w + 546455 , -271151*w - 93639 , 312308*w + 7896 , -818240*w - 430500 , 346882*w + 156268 , 278488 , -26696*w - 1352260 , -615664*w - 567980 , 348984*w - 995988 , -92744*w + 163212 , 1165348*w - 43568 ],
[ 4087812*w + 9663346 , -1577588*w - 3022068 , 1375046*w + 370566 , -1562400*w + 178094 , 5292362*w - 2423232 , -2222002*w + 1187074 , 26696*w - 1352260 , 8515010 , 3822510*w + 4136888 , -2349128*w + 5955376 , 608630*w - 946946 , -6303472*w - 
    586614 ],
[ -2348280*w + 17525816 , 584789*w - 6424103 , 497715*w + 4468415 , -833338*w - 4784136 , 3724172*w + 15386868 , -1639560*w - 6375516 , 615664*w - 567980 , -3822510*w + 4136888 , 14024654 , -3815382*w - 4491298 , 720926*w + 1452962 , -2778388*w - 
    20034420 ],
[ 5515386*w - 1127252 , -1930304*w + 937006 , 1058488*w - 2357502 , -1037932*w + 3093496 , 2954112*w - 11944100 , -1193160*w + 5130930 , -348984*w - 995988 , 2349128*w + 5955376 , 3815382*w - 4491298 , 8705312 , 164406*w - 1838298 , -4575648*w + 
    11659522 ],
[ -1143786*w + 969556 , 390400*w - 454496 , -178362*w + 640150 , 159918*w - 793254 , -401684*w + 2926896 , 156448*w - 1247302 , 92744*w + 163212 , -608630*w - 946946 , -720926*w + 1452962 , -164406*w - 1838298 , 409948 , 743416*w - 3071222 ],
[ 16982838*w - 34244770 , -5306921*w + 15563555 , 4064499*w - 15313221 , -4155998*w + 17697498 , 139440*w - 26965204 , 37050*w + 11400214 , -1165348*w - 43568 , 6303472*w - 586614 , 2778388*w - 20034420 , 4575648*w + 11659522 , -743416*w - 3071222
, 67646810 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 120 );
/***Gitter Nr. 378 ***/
Grammatrix:=Matrix(S,[
[ 4884152 , 364088*w + 831474 , 19290*w + 953610 , 1959180*w + 4173428 , 934678*w + 1184876 , 187346*w + 435610 , -133868*w + 2004786 , 88058*w - 380464 , 2284*w + 796516 , -960390*w - 507822 , -809974*w + 960806 , -1575550*w - 2222486 ],
[ -364088*w + 831474 , 391664 , -39522*w + 240632 , -112852*w + 1857744 , -6190*w + 715036 , -13998*w + 187194 , -194774*w + 335762 , 45982*w - 30800 , -58806*w + 162162 , -155518*w - 604142 , -234916*w - 229768 , 36122*w - 1467578 ],
[ -19290*w + 953610 , 39522*w + 240632 , 613284 , 107090*w + 849758 , 61124*w + 34090 , 9104*w + 84784 , -171902*w + 598374 , 48044*w - 128800 , -29646*w + 307062 , -341378*w - 448042 , -341396*w + 142912 , 155920*w - 328076 ],
[ -1959180*w + 4173428 , 112852*w + 1857744 , -107090*w + 849758 , 12240186 , 182919*w + 5227103 , -4839*w + 1206513 , -728175*w + 2019577 , 182402*w - 176120 , -213970*w + 724290 , -730530*w - 2310350 , -998800*w - 688380 , -841483*w - 10052455
],
[ -934678*w + 1184876 , 6190*w + 715036 , -61124*w + 34090 , -182919*w + 5227103 , 2506238 , -18817*w + 512379 , -199220*w + 355782 , 42788*w + 55580 , -82229*w + 30681 , 9351*w - 731143 , -138248*w - 551166 , -525235*w - 4659123 ],
[ -187346*w + 435610 , 13998*w + 187194 , -9104*w + 84784 , 4839*w + 1206513 , 18817*w + 512379 , 119952 , -68533*w + 209993 , 17240*w - 19572 , -19077*w + 73549 , -76173*w - 212905 , -98580*w - 51058 , -87208*w - 1009806 ],
[ 133868*w + 2004786 , 194774*w + 335762 , 171902*w + 598374 , 728175*w + 2019577 , 199220*w + 355782 , 68533*w + 209993 , 2150918 , 19072*w - 508088 , 140473*w + 816697 , -1054569*w + 607173 , -659476*w + 1914542 , 91481*w - 2259551 ],
[ -88058*w - 380464 , -45982*w - 30800 , -48044*w - 128800 , -182402*w - 176120 , -42788*w + 55580 , -17240*w - 19572 , -19072*w - 508088 , 129514 , -42876*w - 195510 , 257616*w - 223440 , 146210*w - 523054 , -61366*w + 303674 ],
[ -2284*w + 796516 , 58806*w + 162162 , 29646*w + 307062 , 213970*w + 724290 , 82229*w + 30681 , 19077*w + 73549 , -140473*w + 816697 , 42876*w - 195510 , 395206 , -463896*w - 261212 , -394946*w + 451150 , 192217*w - 361263 ],
[ 960390*w - 507822 , 155518*w - 604142 , 341378*w - 448042 , 730530*w - 2310350 , -9351*w - 731143 , 76173*w - 212905 , 1054569*w + 607173 , -257616*w - 223440 , 463896*w - 261212 , 3986542 , 791076*w + 2948484 , -564919*w - 1239833 ],
[ 809974*w + 960806 , 234916*w - 229768 , 341396*w + 142912 , 998800*w - 688380 , 138248*w - 551166 , 98580*w - 51058 , 659476*w + 1914542 , -146210*w - 523054 , 394946*w + 451150 , -791076*w + 2948484 , 3279584 , -172628*w - 1707902 ],
[ 1575550*w - 2222486 , -36122*w - 1467578 , -155920*w - 328076 , 841483*w - 10052455 , 525235*w - 4659123 , 87208*w - 1009806 , -91481*w - 2259551 , 61366*w + 303674 , -192217*w - 361263 , 564919*w - 1239833 , 172628*w - 1707902 , 12604270 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 288 );
/***Gitter Nr. 379 ***/
Grammatrix:=Matrix(S,[
[ 6986 , -1312*w - 16226 , 2407*w + 8225 , -379*w - 77 , 416*w + 1442 , -819*w - 903 , -473*w + 637 , -379*w + 455 , -103*w + 1645 , 73*w + 7749 , -1760*w - 2310 , 1907*w + 6461 ],
[ 1312*w - 16226 , 66150 , -4174*w - 33642 , 1648*w + 420 , -3110*w - 6104 , 3320*w - 3794 , 2585*w - 3661 , 1908*w - 3948 , 41*w - 9513 , -3234*w - 41804 , 10362*w + 7854 , -10739*w - 44863 ],
[ -2407*w + 8225 , 4174*w - 33642 , 22414 , -786*w - 1134 , 1176*w + 2744 , -98*w - 1120 , -1501*w + 1155 , -882*w + 1162 , -339*w + 4151 , -350*w + 19096 , -4146*w - 6510 , 3463*w + 23541 ],
[ 379*w - 77 , -1648*w + 420 , 786*w - 1134 , 546 , 62*w - 854 , -68*w - 84 , 258*w + 896 , 200*w + 504 , 432*w - 112 , 1816*w - 1960 , -112*w + 3472 , 1984*w - 3724 ],
[ -416*w + 1442 , 3110*w - 6104 , -1176*w + 2744 , -62*w - 854 , 3612 , -1376*w + 1638 , -486*w - 1904 , -584*w - 840 , -924*w + 756 , -3756*w + 6468 , -306*w - 7938 , -3686*w + 9464 ],
[ 819*w - 903 , -3320*w - 3794 , 98*w - 1120 , 68*w - 84 , 1376*w + 1638 , 13944 , -558*w - 1148 , -302*w + 1512 , 68*w + 1876 , 756*w + 8036 , -2018*w - 1330 , 1020*w + 7966 ],
[ 473*w + 637 , -2585*w - 3661 , 1501*w + 1155 , -258*w + 896 , 486*w - 1904 , 558*w - 1148 , 2800 , 204*w + 1680 , 928*w + 1176 , 4548*w + 1988 , -1836*w + 6580 , 5751*w - 161 ],
[ 379*w + 455 , -1908*w - 3948 , 882*w + 1162 , -200*w + 504 , 584*w - 840 , 302*w + 1512 , -204*w + 1680 , 1442 , 568*w + 1414 , 3000*w + 3976 , -1800*w + 3528 , 3940*w + 3024 ],
[ 103*w + 1645 , -41*w - 9513 , 339*w + 4151 , -432*w - 112 , 924*w + 756 , -68*w + 1876 , -928*w + 1176 , -568*w + 1414 , 3094 , 1432*w + 12824 , -3320*w - 1624 , 2843*w + 14567 ],
[ -73*w + 7749 , 3234*w - 41804 , 350*w + 19096 , -1816*w - 1960 , 3756*w + 6468 , -756*w + 8036 , -4548*w + 1988 , -3000*w + 3976 , -1432*w + 12824 , 60144 , -13584*w - 18368 , 5352*w + 71918 ],
[ 1760*w - 2310 , -10362*w + 7854 , 4146*w - 6510 , 112*w + 3472 , 306*w - 7938 , 2018*w - 1330 , 1836*w + 6580 , 1800*w + 3528 , 3320*w - 1624 , 13584*w - 18368 , 27104 , 14590*w - 30394 ],
[ -1907*w + 6461 , 10739*w - 44863 , -3463*w + 23541 , -1984*w - 3724 , 3686*w + 9464 , -1020*w + 7966 , -5751*w - 161 , -3940*w + 3024 , -2843*w + 14567 , -5352*w + 71918 , -14590*w - 30394 , 92778 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 240 );
/***Gitter Nr. 380 ***/
Grammatrix:=Matrix(S,[
[ 13034 , 272*w + 1232 , 390*w + 1344 , -60*w + 1232 , 200*w + 728 , -496*w - 112 , 48*w + 392 , -394*w - 2408 , -82*w - 728 , -210*w - 112 , -528*w + 1232 , -2778*w - 7616 ],
[ -272*w + 1232 , 4494 , 52*w + 2800 , -6*w - 336 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -942*w - 1092 ],
[ -390*w + 1344 , -52*w + 2800 , 2044 , -168 , -96*w + 56 , -40*w , -40*w , 16*w , 0 , 0 , 0 , -734*w - 1652 ],
[ 60*w + 1232 , 6*w - 336 , -168 , 546 , 72*w - 70 , -178*w - 84 , -178*w , 40*w , 0 , 0 , 0 , -320*w - 1106 ],
[ -200*w + 728 , 0 , 96*w + 56 , -72*w - 70 , 476 , 34*w - 98 , 18*w - 112 , -2*w , 0 , 0 , 0 , -12*w - 476 ],
[ 496*w - 112 , 0 , 40*w , 178*w - 84 , -34*w - 98 , 490 , 28*w + 476 , -6*w - 112 , 0 , 0 , 0 , -438*w + 1162 ],
[ -48*w + 392 , 0 , 40*w , 178*w , -18*w - 112 , -28*w + 476 , 1372 , -224 , -96*w + 112 , 48*w - 336 , -144*w - 1344 , -478*w + 728 ],
[ 394*w - 2408 , 0 , -16*w , -40*w , 2*w , 6*w - 112 , -224 , 3192 , -108*w + 1456 , 54*w - 168 , -162*w - 1512 , -94*w + 1596 ],
[ 82*w - 728 , 0 , 0 , 0 , 0 , 0 , 96*w + 112 , 108*w + 1456 , 812 , -14*w - 196 , -326*w - 784 , -46*w + 826 ],
[ 210*w - 112 , 0 , 0 , 0 , 0 , 0 , -48*w - 336 , -54*w - 168 , 14*w - 196 , 182 , 184*w + 588 , -28*w - 84 ],
[ 528*w + 1232 , 0 , 0 , 0 , 0 , 0 , 144*w - 1344 , 162*w - 1512 , 326*w - 784 , -184*w + 588 , 3388 , 136*w - 714 ],
[ 2778*w - 7616 , 942*w - 1092 , 734*w - 1652 , 320*w - 1106 , 12*w - 476 , 438*w + 1162 , 478*w + 728 , 94*w + 1596 , 46*w + 826 , 28*w - 84 , -136*w - 714 , 12824 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 381 ***/
Grammatrix:=Matrix(S,[
[ 728 , 40*w - 140 , 50*w - 350 , -15*w + 105 , 105*w + 105 , 135*w + 35 , -50*w , -10*w , 34*w , 12*w - 42 , 0 , 231*w + 245 ],
[ -40*w - 140 , 364 , 10*w - 182 , 93*w + 21 , -3*w + 21 , -129*w + 147 , 18*w - 28 , -6*w , 0 , 0 , 0 , -25*w + 343 ],
[ -50*w - 350 , -10*w - 182 , 476 , -88*w - 112 , -82*w , 15*w - 35 , 21*w - 21 , 28*w - 28 , 0 , 0 , 0 , -147*w - 301 ],
[ 15*w + 105 , -93*w + 21 , 88*w - 112 , 476 , 22*w + 112 , -54*w - 420 , -3*w + 35 , -15*w - 49 , 0 , 0 , 0 , -113*w + 49 ],
[ -105*w + 105 , 3*w + 21 , 82*w , -22*w + 112 , 280 , 15*w + 189 , -14*w - 98 , -11*w - 77 , 0 , 0 , 0 , -12*w + 294 ],
[ -135*w + 35 , 129*w + 147 , -15*w - 35 , 54*w - 420 , -15*w + 189 , 868 , -5*w - 175 , -3*w - 21 , 0 , 0 , 0 , 147*w + 525 ],
[ 50*w , -18*w - 28 , -21*w - 21 , 3*w + 35 , 14*w - 98 , 5*w - 175 , 56 , 28 , 0 , 0 , 0 , -3*w - 147 ],
[ 10*w , 6*w , -28*w - 28 , 15*w - 49 , 11*w - 77 , 3*w - 21 , 28 , 378 , 70 , 0 , -30*w , -19*w + 91 ],
[ -34*w , 0 , 0 , 0 , 0 , 0 , 0 , 70 , 364 , 70*w + 140 , 14*w , -6*w + 266 ],
[ -12*w - 42 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -70*w + 140 , 154 , 8*w + 28 , -46*w + 98 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 30*w , -14*w , -8*w + 28 , 28 , 28 ],
[ -231*w + 245 , 25*w + 343 , 147*w - 301 , 113*w + 49 , 12*w + 294 , -147*w + 525 , 3*w - 147 , 19*w + 91 , 6*w + 266 , 46*w + 98 , 28 , 1288 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 882 );
/***Gitter Nr. 382 ***/
Grammatrix:=Matrix(S,[
[ 867102320 , -507540790*w - 1901714864 , 253914982*w + 838100410 , -1567002*w - 19999826 , -7183522*w + 8113742 , 11773126*w - 12128802 , -2749422*w - 546770 , -1871222*w - 5455730 , -4676300*w + 5370624 , -47606*w + 7129318 , 1658524*w + 6318970
, -348903846*w - 33168702 ],
[ 507540790*w - 1901714864 , 6364647534 , -66382390*w - 2934634598 , -8123286*w + 51024064 , 14179908*w + 17453688 , -20724916*w - 26115404 , 574088*w + 12546072 , -5051444*w + 23076116 , 14577528*w + 35397040 , 9678732*w - 10894016 , 5905268*w -
    25650492 , 748766062*w + 1518140190 ],
[ -253914982*w + 838100410 , 66382390*w - 2934634598 , 1358669214 , 4273046*w - 22842162 , -6237508*w - 9500456 , 8924502*w + 14296758 , 60612*w - 6318102 , 2737972*w - 11180078 , -6945346*w - 18334106 , -4879706*w + 4873778 , -3125268*w +
    12391890 , -328784378*w - 755877136 ],
[ 1567002*w - 19999826 , 8123286*w + 51024064 , -4273046*w - 22842162 , 502068 , 126764*w - 81942 , -212320*w + 152292 , 40388*w - 9268 , 5334*w + 56308 , 46014*w + 39704 , 17534*w - 49364 , 3540*w - 71988 , 8045926*w + 5210184 ],
[ 7183522*w + 8113742 , -14179908*w + 17453688 , 6237508*w - 9500456 , -126764*w - 81942 , 3560158 , 270544*w - 6218632 , -202578*w + 1950032 , -124892*w + 1868104 , 1124208*w + 919744 , 410184*w - 1245496 , 64144*w - 1784216 , -2223906*w +
    18126570 ],
[ -11773126*w - 12128802 , 20724916*w - 26115404 , -8924502*w + 14296758 , 212320*w + 152292 , -270544*w - 6218632 , 11616710 , 27688*w - 4070752 , -389710*w - 3877328 , -2501944*w + 1220268 , -314052*w + 3483368 , 553208*w + 3599148 , 2509160*w -
    29864660 ],
[ 2749422*w - 546770 , -574088*w + 12546072 , -60612*w - 6318102 , -40388*w - 9268 , 202578*w + 1950032 , -27688*w - 4070752 , 2030490 , 305080*w + 2545634 , 1761240*w - 1025290 , 193500*w - 2489270 , -421480*w - 2516500 , 1057700*w + 8555036 ],
[ 1871222*w - 5455730 , 5051444*w + 23076116 , -2737972*w - 11180078 , -5334*w + 56308 , 124892*w + 1868104 , 389710*w - 3877328 , -305080*w + 2545634 , 4041730 , 2779292*w + 721322 , 737112*w - 3419682 , -163304*w - 4239088 , 2607932*w + 8727390
],
[ 4676300*w + 5370624 , -14577528*w + 35397040 , 6945346*w - 18334106 , -46014*w + 39704 , -1124208*w + 919744 , 2501944*w + 1220268 , -1761240*w - 1025290 , -2779292*w + 721322 , 13558188 , 2492586*w + 2950206 , 2896940*w - 1547014 , -4662282*w +
    15468698 ],
[ 47606*w + 7129318 , -9678732*w - 10894016 , 4879706*w + 4873778 , -17534*w - 49364 , -410184*w - 1245496 , 314052*w + 3483368 , -193500*w - 2489270 , -737112*w - 3419682 , -2492586*w + 2950206 , 3849706 , 914772*w + 3391500 , -3839428*w -
    2594900 ],
[ -1658524*w + 6318970 , -5905268*w - 25650492 , 3125268*w + 12391890 , -3540*w - 71988 , -64144*w - 1784216 , -553208*w + 3599148 , 421480*w - 2516500 , 163304*w - 4239088 , -2896940*w - 1547014 , -914772*w + 3391500 , 4509428 , -2752598*w -
    8687364 ],
[ 348903846*w - 33168702 , -748766062*w + 1518140190 , 328784378*w - 755877136 , -8045926*w + 5210184 , 2223906*w + 18126570 , -2509160*w - 29864660 , -1057700*w + 8555036 , -2607932*w + 8727390 , 4662282*w + 15468698 , 3839428*w - 2594900 ,
    2752598*w - 8687364 , 996346610 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 48 );
/***Gitter Nr. 383 ***/
Grammatrix:=Matrix(S,[
[ 504 , -69*w - 49 , -27*w - 21 , -3*w + 203 , 8*w , -46*w + 336 , -12*w - 168 , 20*w + 504 , 5*w + 21 , 10*w - 42 , -124*w - 182 , -545*w + 105 ],
[ 69*w - 49 , 308 , -14*w + 70 , 22*w , -14 , 56*w , -34*w , -12*w , -4*w , -12*w , 0 , 376*w + 1106 ],
[ 27*w - 21 , 14*w + 70 , 70 , 24*w - 28 , -14 , 56*w , -18*w , -4*w , 0 , 0 , 0 , 66*w + 14 ],
[ 3*w + 203 , -22*w , -24*w - 28 , 700 , 8*w - 56 , 40*w + 728 , -56*w - 112 , -24*w , 0 , 0 , 0 , 78*w + 224 ],
[ -8*w , -14 , -14 , -8*w - 56 , 28 , -62*w - 14 , 32*w , 10*w , 0 , 0 , 0 , -6*w - 42 ],
[ 46*w + 336 , -56*w , -56*w , -40*w + 728 , 62*w - 14 , 1722 , -14*w - 588 , -6*w - 140 , 0 , 0 , 0 , -62*w + 364 ],
[ 12*w - 168 , 34*w , 18*w , 56*w - 112 , -32*w , 14*w - 588 , 336 , 60*w - 308 , -28 , -12*w , 60*w + 252 , 116*w - 154 ],
[ -20*w + 504 , 12*w , 4*w , 24*w , -10*w , 6*w - 140 , -60*w - 308 , 5222 , 50*w + 336 , 154*w , -1090*w - 2114 , 400*w + 238 ],
[ -5*w + 21 , 4*w , 0 , 0 , 0 , 0 , -28 , -50*w + 336 , 28 , 10*w + 14 , -50*w - 210 , 42*w + 28 ],
[ -10*w - 42 , 12*w , 0 , 0 , 0 , 0 , 12*w , -154*w , -10*w + 14 , 42 , 64*w - 224 , 62*w + 42 ],
[ 124*w - 182 , 0 , 0 , 0 , 0 , 0 , -60*w + 252 , 1090*w - 2114 , 50*w - 210 , -64*w - 224 , 2464 , -82*w - 602 ],
[ 545*w + 105 , -376*w + 1106 , -66*w + 14 , -78*w + 224 , 6*w - 42 , 62*w + 364 , -116*w - 154 , -400*w + 238 , -42*w + 28 , -62*w + 42 , 82*w - 602 , 11130 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 324 );
/***Gitter Nr. 384 ***/
Grammatrix:=Matrix(S,[
[ 74942 , 5331*w + 16681 , 14578*w - 92442 , 13923*w - 92953 , -5765*w + 3745 , -7914*w - 20090 , 3423*w + 2849 , 2376*w - 20734 , 760*w + 11942 , -6329*w - 6377 , -2362*w + 980 , -16681*w - 96705 ],
[ -5331*w + 16681 , 14728 , 14060*w + 4088 , 14184*w + 1610 , 502*w - 854 , -1924*w - 5376 , -22*w + 686 , 920*w - 5740 , 20*w + 3472 , -1778*w - 2478 , -624*w + 28 , 8186*w - 29022 ],
[ -14578*w - 92442 , -14060*w + 4088 , 198884 , 2442*w + 198310 , 8702*w - 7602 , 11124*w + 20300 , -4964*w - 3654 , -176*w + 24598 , -2248*w - 12768 , 7496*w + 1946 , 2754*w - 2786 , 54688*w + 127008 ],
[ -13923*w - 92953 , -14184*w + 1610 , -2442*w + 198310 , 199346 , 8230*w - 8344 , 12842*w + 21938 , -4930*w - 3486 , 154*w + 27734 , -2656*w - 14224 , 8440*w + 1722 , 3090*w - 3346 , 54060*w + 133322 ],
[ 5765*w + 3745 , -502*w - 854 , -8702*w - 7602 , -8230*w - 8344 , 15512 , -3924*w + 6062 , 680*w - 6300 , -3062*w - 2464 , 1764*w - 728 , -840*w + 5712 , -24*w + 2856 , -10392*w + 6930 ],
[ 7914*w - 20090 , 1924*w - 5376 , -11124*w + 20300 , -12842*w + 21938 , 3924*w + 6062 , 50148 , -1746*w - 9030 , -10814*w + 17682 , 4074*w - 15624 , 3976*w + 24122 , 3276*w + 6860 , -8378*w + 50204 ],
[ -3423*w + 2849 , 22*w + 686 , 4964*w - 3654 , 4930*w - 3486 , -680*w - 6300 , 1746*w - 9030 , 3794 , 2644*w - 826 , -1276*w + 2100 , -36*w - 5418 , -376*w - 2072 , 4198*w - 11424 ],
[ -2376*w - 20734 , -920*w - 5740 , 176*w + 24598 , -154*w + 27734 , 3062*w - 2464 , 10814*w + 17682 , -2644*w - 826 , 24346 , -2082*w - 12432 , 7184*w + 2114 , 2692*w - 2492 , 8062*w + 31864 ],
[ -760*w + 11942 , -20*w + 3472 , 2248*w - 12768 , 2656*w - 14224 , -1764*w - 728 , -4074*w - 15624 , 1276*w + 2100 , 2082*w - 12432 , 7616 , -3486*w - 5432 , -1602*w - 322 , -1262*w - 21560 ],
[ 6329*w - 6377 , 1778*w - 2478 , -7496*w + 1946 , -8440*w + 1722 , 840*w + 5712 , -3976*w + 24122 , 36*w - 5418 , -7184*w + 2114 , 3486*w - 5432 , 15246 , 1012*w + 5236 , -8962*w + 19866 ],
[ 2362*w + 980 , 624*w + 28 , -2754*w - 2786 , -3090*w - 3346 , 24*w + 2856 , -3276*w + 6860 , 376*w - 2072 , -2692*w - 2492 , 1602*w - 322 , -1012*w + 5236 , 2464 , -4514*w + 2534 ],
[ 16681*w - 96705 , -8186*w - 29022 , -54688*w + 127008 , -54060*w + 133322 , 10392*w + 6930 , 8378*w + 50204 , -4198*w - 11424 , -8062*w + 31864 , 1262*w - 21560 , 8962*w + 19866 , 4514*w + 2534 , 202860 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 144 );
/***Gitter Nr. 385 ***/
Grammatrix:=Matrix(S,[
[ 326466 , 606060*w - 968030 , -734056*w + 1303162 , 94972*w - 187516 , -15732*w - 1442 , 105102*w - 425656 , -12938*w + 127428 , -62680*w - 25536 , -30718*w + 19824 , 19122*w - 176680 , 51614*w + 101402 , 219116*w - 3676470 ],
[ -606060*w - 968030 , 15436708 , -284146*w - 19392744 , 79096*w + 2634590 , 86424*w - 197722 , 822636*w - 599130 , -198388*w + 129500 , 8198*w - 144480 , -160*w - 121240 , 91450*w + 187460 , -91560*w + 144900 , 8856020*w + 19305286 ],
[ 734056*w + 1303162 , 284146*w - 19392744 , 24511242 , -53438*w - 3332126 , -125392*w + 282534 , -1009684*w + 824418 , 241176*w - 174580 , -5990*w + 158088 , 760*w + 138488 , -105506*w - 217084 , 105936*w - 166572 , -10765998*w - 25327162 ],
[ -94972*w - 187516 , -79096*w + 2634590 , 53438*w - 3332126 , 457380 , 20172*w - 36554 , 140300*w - 109340 , -31100*w + 22204 , -4640*w - 6804 , -900*w - 8624 , 7118*w + 14812 , -7188*w + 10836 , 1408566*w + 3598182 ],
[ 15732*w - 1442 , -86424*w - 197722 , 125392*w + 282534 , -20172*w - 36554 , 62454 , -52*w - 4060 , -4578*w + 4200 , 10912*w - 28112 , 1584*w - 20832 , 14832*w + 30240 , -14832*w + 24192 , -196914*w + 121828 ],
[ -105102*w - 425656 , -822636*w - 599130 , 1009684*w + 824418 , -140300*w - 109340 , 52*w - 4060 , 3519110 , -57468*w - 699944 , 136490*w - 644532 , 19756*w - 306488 , 184988*w + 384160 , -184988*w + 301728 , -1398476*w + 2761192 ],
[ 12938*w + 127428 , 198388*w + 129500 , -241176*w - 174580 , 31100*w + 22204 , 4578*w + 4200 , 57468*w - 699944 , 168658 , -54880*w + 50680 , -22824*w + 44520 , -5128*w - 159194 , 53640*w + 39872 , 339634*w - 729680 ],
[ 62680*w - 25536 , -8198*w - 144480 , 5990*w + 158088 , 4640*w - 6804 , -10912*w - 28112 , -136490*w - 644532 , 54880*w + 50680 , 414778 , 35342*w + 173600 , -164466*w + 13272 , 49250*w - 382816 , -162066*w - 79688 ],
[ 30718*w + 19824 , 160*w - 121240 , -760*w + 138488 , 900*w - 8624 , -1584*w - 20832 , -19756*w - 306488 , 22824*w + 44520 , -35342*w + 173600 , 95634 , -71702*w - 96208 , 55026*w - 133532 , -108476*w - 170870 ],
[ -19122*w - 176680 , -91450*w + 187460 , 105506*w - 217084 , -7118*w + 14812 , -14832*w + 30240 , -184988*w + 384160 , 5128*w - 159194 , 164466*w + 13272 , 71702*w - 96208 , 475146 , -156148*w - 155260 , 21102*w + 835268 ],
[ -51614*w + 101402 , 91560*w + 144900 , -105936*w - 166572 , 7188*w + 10836 , 14832*w + 24192 , 184988*w + 301728 , -53640*w + 39872 , -49250*w - 382816 , -55026*w - 133532 , 156148*w - 155260 , 409948 , 265124*w - 327614 ],
[ -219116*w - 3676470 , -8856020*w + 19305286 , 10765998*w - 25327162 , -1408566*w + 3598182 , 196914*w + 121828 , 1398476*w + 2761192 , -339634*w - 729680 , 162066*w - 79688 , 108476*w - 170870 , -21102*w + 835268 , -265124*w - 327614 , 59927252
]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 144 );
/***Gitter Nr. 386 ***/
Grammatrix:=Matrix(S,[
[ 1603630 , -31319*w - 850591 , -50476*w + 83748 , 31829*w + 4991 , 4899*w - 13181 , -112155*w + 198569 , 15736*w + 137858 , 48587*w - 14357 , 103623*w + 508053 , -7134*w + 130788 , 67028*w - 277872 , -523568*w - 1232854 ],
[ 31319*w - 850591 , 588770 , 19094*w - 154742 , -19612*w + 18914 , -8680*w + 5544 , 27900*w - 19068 , 1916*w - 27860 , -9320*w - 4746 , -10520*w - 101766 , 3232*w - 22708 , -16264*w + 42448 , 240289*w + 640787 ],
[ 50476*w + 83748 , -19094*w - 154742 , 175056 , 6772*w - 46774 , 5314*w + 4200 , 75044*w + 658 , -2082*w - 70896 , -26366*w - 28728 , -3648*w - 254296 , 12160*w - 48944 , -46968*w + 76608 , -73308*w + 239442 ],
[ -31829*w + 4991 , 19612*w + 18914 , -6772*w - 46774 , 19558 , -1342*w + 1974 , -19424*w - 5236 , 1914*w + 12096 , 6780*w + 6636 , 240*w + 39872 , -1808*w + 7840 , 7416*w - 12096 , 29009*w - 114387 ],
[ -4899*w - 13181 , 8680*w + 5544 , -5314*w + 4200 , 1342*w + 1974 , 3472 , 6194*w - 2534 , 578*w - 8512 , -2062*w - 2744 , -528*w - 29092 , 1424*w - 5544 , -5356*w + 8736 , 10165*w + 11753 ],
[ 112155*w + 198569 , -27900*w - 19068 , -75044*w + 658 , 19424*w - 5236 , -6194*w - 2534 , 521724 , 63140*w + 11984 , 26550*w - 170730 , 242568*w + 33390 , 43368*w + 91308 , -62070*w - 328608 , -336273*w + 28539 ],
[ -15736*w + 137858 , -1916*w - 27860 , 2082*w - 70896 , -1914*w + 12096 , -578*w - 8512 , -63140*w + 11984 , 89068 , 23616*w + 27020 , 28200*w + 311192 , -11232*w + 68264 , 51372*w - 123592 , -39004*w - 272720 ],
[ -48587*w - 14357 , 9320*w - 4746 , 26366*w - 28728 , -6780*w + 6636 , 2062*w - 2744 , -26550*w - 170730 , -23616*w + 27020 , 68572 , -82016*w + 112448 , -21106*w - 8162 , 44358*w + 76902 , 101935*w - 138901 ],
[ -103623*w + 508053 , 10520*w - 101766 , 3648*w - 254296 , -240*w + 39872 , 528*w - 29092 , -242568*w + 33390 , -28200*w + 311192 , 82016*w + 112448 , 1255590 , -66014*w + 230146 , 237570*w - 345702 , -114681*w - 1217279 ],
[ 7134*w + 130788 , -3232*w - 22708 , -12160*w - 48944 , 1808*w + 7840 , -1424*w - 5544 , -43368*w + 91308 , 11232*w + 68264 , 21106*w - 8162 , 66014*w + 230146 , 66584 , 25398*w - 150878 , -82606*w - 181384 ],
[ -67028*w - 277872 , 16264*w + 42448 , 46968*w + 76608 , -7416*w - 12096 , 5356*w + 8736 , 62070*w - 328608 , -51372*w - 123592 , -44358*w + 76902 , -237570*w - 345702 , -25398*w - 150878 , 409948 , 260192*w + 188160 ],
[ 523568*w - 1232854 , -240289*w + 640787 , 73308*w + 239442 , -29009*w - 114387 , -10165*w + 11753 , 336273*w + 28539 , 39004*w - 272720 , -101935*w - 138901 , 114681*w - 1217279 , 82606*w - 181384 , -260192*w + 188160 , 2795842 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 240 );
/***Gitter Nr. 387 ***/
Grammatrix:=Matrix(S,[
[ 2656010 , 89027*w + 579369 , -3287*w - 264075 , 122240*w + 208852 , 20074*w + 53900 , -354410*w + 52164 , 795*w + 57967 , -105718*w + 682934 , 39302*w - 73696 , 33838*w + 99190 , 36342*w - 97860 , 54576*w - 108948 ],
[ -89027*w + 579369 , 180670 , 8567*w - 58751 , 23926*w + 117236 , 410*w + 23926 , -97692*w - 192472 , -3647*w + 15127 , -83969*w + 125867 , 16578*w + 1960 , 688*w + 44968 , 17382*w - 5474 , 36970*w + 104160 ],
[ 3287*w - 264075 , -8567*w - 58751 , 26712 , -11250*w - 21644 , -1884*w - 6006 , 38800*w + 3430 , 209*w - 6069 , 13747*w - 71883 , -4528*w + 7154 , -3346*w - 11298 , -4206*w + 9870 , -8653*w + 5761 ],
[ -122240*w + 208852 , -23926*w + 117236 , 11250*w - 21644 , 182602 , -3510*w + 23744 , -75524*w - 230930 , -4960*w + 17472 , -90160*w + 66864 , 15392*w + 11536 , -3980*w + 41524 , 16346*w + 6314 , 42521*w + 168343 ],
[ -20074*w + 53900 , -410*w + 23926 , 1884*w - 6006 , 3510*w + 23744 , 6244 , -29392*w - 34174 , -804*w + 4200 , -18194*w + 46368 , 4248*w - 2520 , 1136*w + 10416 , 4012*w - 4340 , 20556*w + 16128 ],
[ 354410*w + 52164 , 97692*w - 192472 , -38800*w + 3430 , 75524*w - 230930 , 29392*w - 34174 , 1332576 , 27174*w + 6076 , 370698*w + 409360 , -41052*w - 149604 , 47656*w - 116760 , -51754*w - 124474 , -14994*w - 892262 ],
[ -795*w + 57967 , 3647*w + 15127 , -209*w - 6069 , 4960*w + 17472 , 804*w + 4200 , -27174*w + 6076 , 4648 , -7332*w + 53872 , 2940*w - 6244 , 2544*w + 6608 , 2436*w - 7756 , 16656*w - 2842 ],
[ 105718*w + 682934 , 83969*w + 125867 , -13747*w - 71883 , 90160*w + 66864 , 18194*w + 46368 , -370698*w + 409360 , 7332*w + 53872 , 858340 , 29388*w - 127932 , 47748*w + 54852 , 18240*w - 141456 , 248377*w - 290941 ],
[ -39302*w - 73696 , -16578*w + 1960 , 4528*w + 7154 , -15392*w + 11536 , -4248*w - 2520 , 41052*w - 149604 , -2940*w - 6244 , -29388*w - 127932 , 26208 , -8916*w + 3612 , 2240*w + 25424 , -27099*w + 102053 ],
[ -33838*w + 99190 , -688*w + 44968 , 3346*w - 11298 , 3980*w + 41524 , -1136*w + 10416 , -47656*w - 116760 , -2544*w + 6608 , -47748*w + 54852 , 8916*w + 3612 , 24080 , 9536*w - 1344 , 32308*w + 73178 ],
[ -36342*w - 97860 , -17382*w - 5474 , 4206*w + 9870 , -16346*w + 6314 , -4012*w - 4340 , 51754*w - 124474 , -2436*w - 7756 , -18240*w - 141456 , -2240*w + 25424 , -9536*w - 1344 , 27104 , -33447*w + 84091 ],
[ -54576*w - 108948 , -36970*w + 104160 , 8653*w + 5761 , -42521*w + 168343 , -20556*w + 16128 , 14994*w - 892262 , -16656*w - 2842 , -248377*w - 290941 , 27099*w + 102053 , -32308*w + 73178 , 33447*w + 84091 , 791924 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 64 );
/***Gitter Nr. 388 ***/
Grammatrix:=Matrix(S,[
[ 175516880 , 5801701*w + 11092123 , 2407940*w + 3939404 , -507850369*w - 10338797 , -169103291*w - 3632601 , -135732202*w - 7651714 , -32709981*w - 2225769 , -611738*w + 1191554 , 188900*w + 316540 , -111894*w - 120414 , 175708*w - 697984 ,
    135004009*w - 699529047 ],
[ -5801701*w + 11092123 , 3250562 , 166139*w + 1641115 , -22389482*w - 126421666 , -7413500*w - 41959092 , -6258544*w - 35260036 , -1223405*w - 8916019 , -138390*w + 475412 , 93723*w + 62223 , -51337*w - 34461 , 44694*w - 368872 , 29323695*w +
    2393279 ],
[ -2407940*w + 3939404 , -166139*w + 1641115 , 1113182 , -3960805*w - 45863223 , -1308177*w - 15099441 , -1313602*w - 13673142 , -16749*w - 3460849 , -139504*w + 412412 , 83224*w + 75936 , -45322*w - 41370 , 51562*w - 324534 , 9026687*w + 5503967
],
[ 507850369*w - 10338797 , 22389482*w - 126421666 , 3960805*w - 45863223 , 10893066212 , -1848175*w + 3628624657 , -5902015*w + 2897084995 , -206442*w + 713060894 , -125588*w + 7201852 , 534096*w + 124950 , -184991*w + 225883 , 125498*w - 1649760
, -2142642653*w - 2935799153 ],
[ 169103291*w - 3632601 , 7413500*w - 41959092 , 1308177*w - 15099441 , 1848175*w + 3628624657 , 1208790492 , -1579147*w + 964731817 , 100481*w + 237407821 , -65684*w + 2515044 , 200740*w + 46746 , -74065*w + 71309 , 47354*w - 641060 ,
    -714413937*w - 975636053 ],
[ 135732202*w - 7651714 , 6258544*w - 35260036 , 1313602*w - 13673142 , 5902015*w + 2897084995 , 1579147*w + 964731817 , 776679358 , -398515*w + 190061417 , 503310*w + 1161874 , -102850*w - 535276 , 72452*w + 395724 , -332714*w + 476350 ,
    -569809906*w - 769859958 ],
[ 32709981*w - 2225769 , 1223405*w - 8916019 , 16749*w - 3460849 , 206442*w + 713060894 , -100481*w + 237407821 , 398515*w + 190061417 , 47625662 , -66392*w - 205394 , -57246*w + 154140 , 36043*w - 62895 , 79978*w + 271012 , -139571266*w -
    193550014 ],
[ 611738*w + 1191554 , 138390*w + 475412 , 139504*w + 412412 , 125588*w + 7201852 , 65684*w + 2515044 , -503310*w + 1161874 , 66392*w - 205394 , 530642 , 84966*w - 66668 , -44568*w + 31752 , -26584*w - 345240 , -2074300*w - 931154 ],
[ -188900*w + 316540 , -93723*w + 62223 , -83224*w + 75936 , -534096*w + 124950 , -200740*w + 46746 , 102850*w - 535276 , 57246*w + 154140 , -84966*w - 66668 , 125426 , 2312*w - 65912 , 72552*w + 19880 , 65383*w - 1519245 ],
[ 111894*w - 120414 , 51337*w - 34461 , 45322*w - 41370 , 184991*w + 225883 , 74065*w + 71309 , -72452*w + 395724 , -36043*w - 62895 , 44568*w + 31752 , -2312*w - 65912 , 35728 , -38768*w - 448 , -67179*w + 583667 ],
[ -175708*w - 697984 , -44694*w - 368872 , -51562*w - 324534 , -125498*w - 1649760 , -47354*w - 641060 , 332714*w + 476350 , -79978*w + 271012 , 26584*w - 345240 , -72552*w + 19880 , 38768*w - 448 , 298144 , 773006*w - 28028 ],
[ -135004009*w - 699529047 , -29323695*w + 2393279 , -9026687*w + 5503967 , 2142642653*w - 2935799153 , 714413937*w - 975636053 , 569809906*w - 769859958 , 139571266*w - 193550014 , 2074300*w - 931154 , -65383*w - 1519245 , 67179*w + 583667 ,
    -773006*w - 28028 , 3754292304 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 144 );
/***Gitter Nr. 389 ***/
Grammatrix:=Matrix(S,[
[ 84 , 5*w - 63 , 9*w - 63 , -9*w - 49 , 28*w + 28 , w - 7 , -12*w , 22*w , -2*w , 6*w , 0 , 37*w - 105 ],
[ -5*w - 63 , 588 , -8*w - 84 , 57*w + 21 , 95*w - 35 , -137*w + 147 , 37*w - 35 , -6*w , 0 , 0 , 0 , -73*w + 525 ],
[ -9*w - 63 , 8*w - 84 , 140 , 4*w + 56 , -78*w , 44*w - 28 , 7*w - 7 , -14*w + 14 , 0 , 0 , 0 , 26*w + 42 ],
[ 9*w - 49 , -57*w + 21 , -4*w + 56 , 140 , -26*w + 56 , -18*w - 168 , 17*w + 63 , -11*w - 21 , 0 , 0 , 0 , -109*w - 35 ],
[ -28*w + 28 , -95*w - 35 , 78*w , 26*w + 56 , 728 , -52*w - 504 , 0 , 13*w + 91 , 0 , 0 , 0 , -59*w - 203 ],
[ -w - 7 , 137*w + 147 , -44*w - 28 , 18*w - 168 , 52*w - 504 , 588 , w - 105 , -3*w - 21 , 0 , 0 , 0 , 151*w + 427 ],
[ 12*w , -37*w - 35 , -7*w - 7 , -17*w + 63 , 0 , -w - 105 , 56 , -28 , 0 , 0 , 0 , -67*w - 133 ],
[ -22*w , 6*w , 14*w + 14 , 11*w - 21 , -13*w + 91 , 3*w - 21 , -28 , 154 , 42 , 90*w , 36*w - 126 , 13*w + 91 ],
[ 2*w , 0 , 0 , 0 , 0 , 0 , 0 , 42 , 28 , 50*w - 14 , 20*w - 70 , -6*w - 14 ],
[ -6*w , 0 , 0 , 0 , 0 , 0 , 0 , -90*w , -50*w - 14 , 714 , 132*w + 308 , 6*w - 56 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -36*w - 126 , -20*w - 70 , -132*w + 308 , 308 , 20*w - 28 ],
[ -37*w - 105 , 73*w + 525 , -26*w + 42 , 109*w - 35 , 59*w - 203 , -151*w + 427 , 67*w - 133 , -13*w + 91 , 6*w - 14 , -6*w - 56 , -20*w - 28 , 1148 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 108 );
/***Gitter Nr. 390 ***/
Grammatrix:=Matrix(S,[
[ 18659816 , -832807*w + 1355403 , -66378*w - 1492890 , 18726*w - 289856 , 9920*w - 252518 , 117944*w - 1696366 , -174625*w + 703479 ,
    -34906*w + 165872 , -65292*w - 201054 , -477952*w + 111174 , -215116*w + 885808 , -12642049*w - 42803355 ],
[ 832807*w + 1355403 , 870856 , -298410*w - 1219456 , -59790*w - 375130 , -16544*w + 19236 , -3398*w - 110516 , -2107*w + 48111 , -2102*w
    + 3248 , -252*w - 9030 , -14730*w - 22302 , -12612*w + 14420 , -2705888*w - 1548848 ],
[ 66378*w - 1492890 , 298410*w - 1219456 , 4683126 , -65066*w + 1086624 , 51822*w + 200704 , -355628*w - 58352 , 135650*w + 219142 ,
    41488*w + 85344 , -61796*w + 96432 , -26548*w + 904036 , 208384*w + 503888 , -36600*w + 6972630 ],
[ -18726*w - 289856 , 59790*w - 375130 , 65066*w + 1086624 , 299180 , 11260*w - 5250 , -82426*w + 22974 , 32698*w + 34636 , 10920*w +
    23632 , -15358*w + 24066 , -5780*w + 225008 , 51968*w + 123648 , -43452*w + 1902628 ],
[ -9920*w - 252518 , 16544*w + 19236 , -51822*w + 200704 , -11260*w - 5250 , 72548 , -4668*w + 14280 , 3518*w + 616 , 2674*w - 7644 ,
    782*w + 10542 , 17204*w + 19684 , 13720*w - 18760 , 299254*w + 67550 ],
[ -117944*w - 1696366 , 3398*w - 110516 , 355628*w - 58352 , 82426*w + 22974 , 4668*w + 14280 , 1369718 , 93030*w - 558936 , 54470*w -
    115472 , 36548*w + 203700 , 406088*w + 172424 , 245224*w - 609112 , 1672192*w + 1864968 ],
[ 174625*w + 703479 , 2107*w + 48111 , -135650*w + 219142 , -32698*w + 34636 , -3518*w + 616 , -93030*w - 558936 , 278432 , -11500*w +
    72380 , -30000*w - 58800 , -170496*w + 153300 , -47768*w + 369544 , -852195*w - 36295 ],
[ 34906*w + 165872 , 2102*w + 3248 , -41488*w + 85344 , -10920*w + 23632 , -2674*w - 7644 , -54470*w - 115472 , 11500*w + 72380 , 36820 ,
-14950*w - 13230 , -59732*w + 120806 , -868*w + 162428 , -180049*w + 53683 ],
[ 65292*w - 201054 , 252*w - 9030 , 61796*w + 96432 , 15358*w + 24066 , -782*w + 10542 , -36548*w + 203700 , 30000*w - 58800 , 14950*w -
    13230 , 48832 , 72750*w + 131446 , 68740*w - 57484 , 104441*w + 621061 ],
[ 477952*w + 111174 , 14730*w - 22302 , 26548*w + 904036 , 5780*w + 225008 , -17204*w + 19684 , -406088*w + 172424 , 170496*w + 153300 ,
    59732*w + 120806 , -72750*w + 131446 , 1113028 , 270830*w + 562142 , -628694*w + 2825312 ],
[ 215116*w + 885808 , 12612*w + 14420 , -208384*w + 503888 , -51968*w + 123648 , -13720*w - 18760 , -245224*w - 609112 , 47768*w + 369544
, 868*w + 162428 , -68740*w - 57484 , -270830*w + 562142 , 745360 , -1017300*w + 332178 ],
[ 12642049*w - 42803355 , 2705888*w - 1548848 , 36600*w + 6972630 , 43452*w + 1902628 , -299254*w + 67550 , -1672192*w + 1864968 ,
    852195*w - 36295 , 180049*w + 53683 , -104441*w + 621061 , 628694*w + 2825312 , 1017300*w + 332178 , 175820750 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 336 );
/***Gitter Nr. 391 ***/
Grammatrix:=Matrix(S,[
[ 25452 , 490*w + 2534 , 78*w - 546 , -304*w - 336 , -70*w - 70 , 280*w - 112 , 228*w , 112*w , 104*w , -78*w , 0 , -1422*w - 1316 ],
[ -490*w + 2534 , 490 , 13*w + 49 , -8*w - 84 , -11*w - 21 , 14*w + 42 , 27*w + 35 , 28*w , 24*w , -18*w , 0 , -112*w - 378 ],
[ -78*w - 546 , -13*w + 49 , 728 , 52*w - 140 , -78*w , -40*w + 14 , 133*w - 133 , 35*w - 35 , 0 , 0 , 0 , 4*w - 168 ],
[ 304*w - 336 , 8*w - 84 , -52*w - 140 , 140 , 16*w - 56 , -6*w - 84 , -18*w + 98 , -3*w + 35 , 0 , 0 , 0 , 45*w + 175 ],
[ 70*w - 70 , 11*w - 21 , 78*w , -16*w - 56 , 140 , -2*w + 42 , -33*w - 231 , -8*w - 56 , 0 , 0 , 0 , -27*w + 77 ],
[ -280*w - 112 , -14*w + 42 , 40*w + 14 , 6*w - 84 , 2*w + 42 , 84 , -14*w - 42 , -3*w - 21 , 0 , 0 , 0 , -3*w - 133 ],
[ -228*w , -27*w + 35 , -133*w - 133 , 18*w + 98 , 33*w - 231 , 14*w - 42 , 476 , 112 , 0 , 0 , 0 , 69*w - 119 ],
[ -112*w , -28*w , -35*w - 35 , 3*w + 35 , 8*w - 56 , 3*w - 21 , 112 , 84 , -28 , -36*w , -24*w + 84 , 48*w - 98 ],
[ -104*w , -24*w , 0 , 0 , 0 , 0 , 0 , -28 , 70 , 42*w - 28 , 28*w - 98 , -18*w + 42 ],
[ 78*w , 18*w , 0 , 0 , 0 , 0 , 0 , 36*w , -42*w - 28 , 266 , 76*w + 196 , -62*w - 154 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 24*w + 84 , -28*w - 98 , -76*w + 196 , 308 , 10*w - 252 ],
[ 1422*w - 1316 , 112*w - 378 , -4*w - 168 , -45*w + 175 , 27*w + 77 , 3*w - 133 , -69*w - 119 , -48*w - 98 , 18*w + 42 , 62*w - 154 ,
    -10*w - 252 , 994 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 648 );
/***Gitter Nr. 392 ***/
Grammatrix:=Matrix(S,[
[ 137494 , -44728*w + 415478 , 9088*w - 93100 , -2456*w + 5222 , 1416*w - 12950 , -700*w + 1946 , -976*w - 462 , -3364*w + 6930 , -670*w -
    13860 , 3648*w + 6020 , -3280*w + 2086 , -16360*w - 46130 ],
[ 44728*w + 415478 , 3633560 , -3038*w - 765310 , 17006*w - 74970 , -980*w + 125440 , 2366*w - 16730 , 6850*w + 5320 , 40954*w - 92120 ,
    16652*w + 153930 , -43534*w - 56280 , 36170*w - 34580 , -148392*w - 363692 ],
[ -9088*w - 93100 , 3038*w - 765310 , 161602 , -3054*w + 14994 , 80*w - 25046 , -356*w + 3318 , -1388*w - 1064 , -8226*w + 18424 , -3348*w
    - 30786 , 8702*w + 11256 , -7234*w + 6916 , 31266*w + 77140 ],
[ 2456*w + 5222 , -17006*w - 74970 , 3054*w + 14994 , 18928 , -2066*w - 15428 , 128*w + 5012 , 508*w + 700 , -72*w , 0 , 0 , 0 , 2976*w +
    5110 ],
[ -1416*w - 12950 , 980*w + 125440 , -80*w - 25046 , 2066*w - 15428 , 29708 , 126*w - 4326 , -4*w - 5320 , 2*w + 672 , 0 , 0 , 0 , -3166*w
    - 8638 ],
[ 700*w + 1946 , -2366*w - 16730 , 356*w + 3318 , -128*w + 5012 , -126*w - 4326 , 1610 , 38*w - 84 , -806*w - 504 , 400*w - 2408 , 288*w +
    1736 , -544*w - 560 , 184*w + 2212 ],
[ 976*w - 462 , -6850*w + 5320 , 1388*w - 1064 , -508*w + 700 , 4*w - 5320 , -38*w - 84 , 4900 , 5500*w + 434 , -2750*w + 15400 , -1980*w
    - 12250 , 3740*w + 3850 , 1596*w - 8778 ],
[ 3364*w + 6930 , -40954*w - 92120 , 8226*w + 18424 , 72*w , -2*w + 672 , 806*w - 504 , -5500*w + 434 , 71162 , -29200*w - 29582 , 21552*w
    - 29106 , -5776*w + 48860 , 17330*w + 16604 ],
[ 670*w - 13860 , -16652*w + 153930 , 3348*w - 30786 , 0 , 0 , -400*w - 2408 , 2750*w + 15400 , 29200*w - 29582 , 97720 , -21288*w - 50190
, 22744*w - 3990 , -624*w - 55006 ],
[ -3648*w + 6020 , 43534*w - 56280 , -8702*w + 11256 , 0 , 0 , -288*w + 1736 , 1980*w - 12250 , -21552*w - 29106 , 21288*w - 50190 , 58366
, -12576*w - 32676 , -11650*w + 30044 ],
[ 3280*w + 2086 , -36170*w - 34580 , 7234*w + 6916 , 0 , 0 , 544*w - 560 , -3740*w + 3850 , 5776*w + 48860 , -22744*w - 3990 , 12576*w -
    32676 , 37268 , 12994*w + 924 ],
[ 16360*w - 46130 , 148392*w - 363692 , -31266*w + 77140 , -2976*w + 5110 , 3166*w - 8638 , -184*w + 2212 , -1596*w - 8778 , -17330*w +
    16604 , 624*w - 55006 , 11650*w + 30044 , -12994*w + 924 , 96754 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 864 );
/***Gitter Nr. 393 ***/
Grammatrix:=Matrix(S,[
[ 3241014 , 35410*w - 39102 , -5456*w - 23170 , -7604*w - 43022 , 7424*w + 52990 , 3552*w - 56322 , -4982*w + 340900 , -15494*w + 8148 ,
    -36698*w - 112756 , -39052*w - 75600 , 178180*w - 177030 , 649828*w + 1141196 ],
[ -35410*w - 39102 , 20748 , 3220*w + 1232 , 15322*w - 2240 , -16080*w + 504 , -5128*w , 1432*w , 56*w , 16*w , -24*w , 0 , -10716*w +
    92708 ],
[ 5456*w - 23170 , -3220*w + 1232 , 7812 , 12*w + 15960 , 42*w - 17192 , 408*w - 4480 , -364*w + 420 , -52*w , 0 , 0 , 0 , -10062*w + 98
],
[ 7604*w - 43022 , -15322*w - 2240 , -12*w + 15960 , 107408 , 1506*w - 110516 , 564*w - 38920 , -64*w + 11844 , -4*w + 1344 , 0 , 0 , 0 ,
-53622*w + 12950 ],
[ -7424*w + 52990 , 16080*w + 504 , -42*w - 17192 , -1506*w - 110516 , 114268 , -38*w + 40306 , -286*w - 15624 , 146*w - 1288 , 448*w +
    896 , 448*w + 616 , -1648*w + 2688 , 57690*w - 18466 ],
[ -3552*w - 56322 , 5128*w , -408*w - 4480 , -564*w - 38920 , 38*w + 40306 , 21098 , -1868*w - 38780 , 1514*w - 1568 , 4256*w + 8792 ,
    4256*w + 5432 , -15656*w + 25536 , 8364*w - 42728 ],
[ 4982*w + 340900 , -1432*w , 364*w + 420 , 64*w + 11844 , 286*w - 15624 , 1868*w - 38780 , 201250 , -9060*w + 1260 , -21936*w - 60130 ,
    -22968*w - 41202 , 98910*w - 113568 , 31494*w + 184338 ],
[ 15494*w + 8148 , -56*w , 52*w , 4*w + 1344 , -146*w - 1288 , -1514*w - 1568 , 9060*w + 1260 , 3066 , -2860*w + 6664 , -2000*w + 7154 ,
    -4660*w - 32200 , 9928*w - 7350 ],
[ 36698*w - 112756 , -16*w , 0 , 0 , -448*w + 896 , -4256*w + 8792 , 21936*w - 60130 , 2860*w + 6664 , 35182 , 2408*w + 30226 , -42506*w -
    42112 , 8152*w - 85988 ],
[ 39052*w - 75600 , 24*w , 0 , 0 , -448*w + 616 , -4256*w + 5432 , 22968*w - 41202 , 2000*w + 7154 , -2408*w + 30226 , 27146 , -33648*w -
    56560 , 13712*w - 68292 ],
[ -178180*w - 177030 , 0 , 0 , 0 , 1648*w + 2688 , 15656*w + 25536 , -98910*w - 113568 , 4660*w - 32200 , 42506*w - 42112 , 33648*w -
    56560 , 409948 , -113318*w + 30058 ],
[ -649828*w + 1141196 , 10716*w + 92708 , 10062*w + 98 , 53622*w + 12950 , -57690*w - 18466 , -8364*w - 42728 , -31494*w + 184338 ,
    -9928*w - 7350 , -8152*w - 85988 , -13712*w - 68292 , 113318*w + 30058 , 1582056 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 72 );
/***Gitter Nr. 394 ***/
Grammatrix:=Matrix(S,[
[ 154 , -28*w + 56 , w - 105 , -5*w + 35 , 320*w + 840 , 14*w + 14 , 76*w + 168 , 6*w , 4*w , 6*w , 0 , 40*w + 28 ],
[ 28*w + 56 , 140 , 5*w - 7 , -3*w + 21 , 370*w - 490 , 7*w + 7 , 80*w - 98 , -6*w , 0 , 0 , 0 , -98 ],
[ -w - 105 , -5*w - 7 , 280 , 12*w , 42*w + 434 , -18*w , -12*w + 112 , 21*w - 21 , 0 , 0 , 0 , 37*w - 133 ],
[ 5*w + 35 , 3*w + 21 , -12*w , 196 , 146*w + 546 , 6*w , 20*w + 112 , 9*w + 7 , 0 , 0 , 0 , 57*w - 49 ],
[ -320*w + 840 , -370*w - 490 , -42*w + 434 , -146*w + 546 , 22344 , -10*w + 350 , -32*w + 4718 , 296*w - 210 , 60*w , 90*w , 0 , 798*w +
    910 ],
[ -14*w + 14 , -7*w + 7 , 18*w , -6*w , 10*w + 350 , 28 , 5*w + 91 , -3*w - 21 , 0 , 0 , 0 , -7*w + 7 ],
[ -76*w + 168 , -80*w - 98 , 12*w + 112 , -20*w + 112 , 32*w + 4718 , -5*w + 91 , 1022 , 60*w - 70 , 12*w , 18*w , 0 , 150*w + 140 ],
[ -6*w , 6*w , -21*w - 21 , -9*w + 7 , -296*w - 210 , 3*w - 21 , -60*w - 70 , 154 , 0 , 60*w + 42 , -24*w + 84 , 36*w + 84 ],
[ -4*w , 0 , 0 , 0 , -60*w , 0 , -12*w , 0 , 14 , -30*w , 12*w - 42 , -18*w + 42 ],
[ -6*w , 0 , 0 , 0 , -90*w , 0 , -18*w , -60*w + 42 , 30*w , 714 , -148*w - 252 , 84*w + 378 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 24*w + 84 , -12*w - 42 , 148*w - 252 , 308 , 42*w - 252 ],
[ -40*w + 28 , -98 , -37*w - 133 , -57*w - 49 , -798*w + 910 , 7*w + 7 , -150*w + 140 , -36*w + 84 , 18*w + 42 , -84*w + 378 , -42*w - 252
, 686 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 3402 );
/***Gitter Nr. 395 ***/
Grammatrix:=Matrix(S,[
[ 235428256 , -5240256*w - 24332336 , 7114172*w + 2150988 , 358666*w + 1844024 , -3885093*w + 1494003 , 11060992*w - 61484850 , -587883*w
    - 3703133 , -2091762*w - 32964372 , -8832399*w - 32364969 , -12713738*w + 2765854 , -3101318*w + 6203344 , 15963889*w + 36617315 ],
[ 5240256*w - 24332336 , 6023836 , -373099*w - 554645 , -74060*w - 722330 , 251812*w + 54530 , -2066778*w + 3113684 , -75309*w + 490777 ,
-525950*w + 2416624 , -86230*w + 3335934 , 873762*w + 1619044 , 323676*w + 37016 , -312552*w - 4654006 ],
[ -7114172*w + 2150988 , 373099*w - 554645 , 2605134 , -15374*w - 178108 , -163658*w - 1264746 , 3009332*w + 931770 , 93064*w - 541870 ,
    1485062*w - 1714566 , 1239234*w - 3944024 , -534346*w - 4098444 , -388638*w - 827106 , -1113744*w + 5584684 ],
[ -358666*w + 1844024 , 74060*w - 722330 , 15374*w - 178108 , 223776 , -6132*w + 120512 , -22268*w - 487438 , -10664*w - 138978 , 8570*w -
    7658 , 5920*w - 34510 , -5470*w - 25900 , -2030*w - 4830 , 82410*w + 178920 ],
[ 3885093*w + 1494003 , -251812*w + 54530 , 163658*w - 1264746 , 6132*w + 120512 , 748664 , -1488824*w - 2255316 , -118410*w + 110558 ,
    -819526*w + 92820 , -861682*w + 1253854 , -33812*w + 2195956 , 126476*w + 578508 , 920148*w - 2281230 ],
[ -11060992*w - 61484850 , 2066778*w + 3113684 , -3009332*w + 931770 , 22268*w - 487438 , 1488824*w - 2255316 , 31619574 , 843332*w +
    2332344 , 2355750*w + 12368496 , 5053248*w + 10062444 , 4946836*w - 5258960 , 940716*w - 3467604 , -7728390*w - 7698432 ],
[ 587883*w - 3703133 , 75309*w + 490777 , -93064*w - 541870 , 10664*w - 138978 , 118410*w + 110558 , -843332*w + 2332344 , 790580 ,
    -398466*w + 703234 , -278758*w + 1390312 , 251666*w + 1137416 , 129962*w + 185850 , -53310*w - 1849092 ],
[ 2091762*w - 32964372 , 525950*w + 2416624 , -1485062*w - 1714566 , -8570*w - 7658 , 819526*w + 92820 , -2355750*w + 12368496 , 398466*w
    + 703234 , 7873936 , 1611318*w + 8399496 , 3000814*w + 608944 , 811314*w - 1123038 , -2800490*w - 8434902 ],
[ 8832399*w - 32364969 , 86230*w + 3335934 , -1239234*w - 3944024 , -5920*w - 34510 , 861682*w + 1253854 , -5053248*w + 10062444 ,
    278758*w + 1390312 , -1611318*w + 8399496 , 11276636 , 3078140*w + 4950988 , 1095374*w - 35938 , -1288042*w - 13031088 ],
[ 12713738*w + 2765854 , -873762*w + 1619044 , 534346*w - 4098444 , 5470*w - 25900 , 33812*w + 2195956 , -4946836*w - 5258960 , -251666*w
    + 1137416 , -3000814*w + 608944 , -3078140*w + 4950988 , 8055740 , 490798*w + 2077614 , 2993466*w - 8167740 ],
[ 3101318*w + 6203344 , -323676*w + 37016 , 388638*w - 827106 , 2030*w - 4830 , -126476*w + 578508 , -940716*w - 3467604 , -129962*w +
    185850 , -811314*w - 1123038 , -1095374*w - 35938 , -490798*w + 2077614 , 745360 , 1269410*w - 818398 ],
[ -15963889*w + 36617315 , 312552*w - 4654006 , 1113744*w + 5584684 , -82410*w + 178920 , -920148*w - 2281230 , 7728390*w - 7698432 ,
    53310*w - 1849092 , 2800490*w - 8434902 , 1288042*w - 13031088 , -2993466*w - 8167740 , -1269410*w - 818398 , 17588578 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 288 );
/***Gitter Nr. 396 ***/
Grammatrix:=Matrix(S,[
[ 146115200 , 4195171*w + 27782783 , -1049235*w + 1016281 , 510961*w + 2329089 , -1574490*w - 1374996 , -2397894*w - 7259966 , -2835917*w
    + 7784483 , 848263*w + 4443271 , 614012*w + 5148668 , 229403*w - 408961 , 445828*w - 168546 , 3580768*w - 55582786 ],
[ -4195171*w + 27782783 , 7714644 , -409470*w + 837984 , 215311*w + 237237 , -142576*w - 341796 , -179940*w - 1163274 , -514726*w + 686182
, 31756*w + 683298 , -855*w + 733033 , 35575*w - 37219 , 56720*w + 20622 , 3105196*w - 11075554 ],
[ 1049235*w + 1016281 , 409470*w + 837984 , 877646 , 76438*w - 479024 , 118760*w + 45836 , 149796*w + 393890 , 170668*w - 336154 ,
    -31578*w - 274498 , -20356*w - 307804 , -14998*w + 25690 , -24228*w + 7644 , -360974*w - 2751238 ],
[ -510961*w + 2329089 , -215311*w + 237237 , -76438*w - 479024 , 404250 , -118194*w + 20440 , -209824*w - 318570 , -115836*w + 486276 ,
    58540*w + 217420 , 58244*w + 278852 , 15482*w - 37814 , 25794*w - 38766 , 397086*w + 865410 ],
[ 1574490*w - 1374996 , 142576*w - 341796 , -118760*w + 45836 , 118194*w + 20440 , 370356 , -136248*w + 647654 , 231888*w + 372680 ,
    104418*w - 202020 , 125916*w - 192220 , -17820*w - 40796 , -15760*w - 74816 , -122584*w + 309918 ],
[ 2397894*w - 7259966 , 179940*w - 1163274 , -149796*w + 393890 , 209824*w - 318570 , 136248*w + 647654 , 1602510 , 525906*w - 28840 ,
    91724*w - 571942 , 139950*w - 662648 , -50058*w - 41818 , -65654*w - 90454 , -190944*w + 1159550 ],
[ 2835917*w + 7784483 , 514726*w + 686182 , -170668*w - 336154 , 115836*w + 486276 , -231888*w + 372680 , -525906*w - 28840 , 1550080 ,
    267936*w + 243012 , 265016*w + 377244 , 5656*w - 102984 , 39372*w - 130564 , -439238*w - 1698466 ],
[ -848263*w + 4443271 , -31756*w + 683298 , 31578*w - 274498 , -58540*w + 217420 , -104418*w - 202020 , -91724*w - 571942 , -267936*w +
    243012 , 380604 , -19458*w + 379582 , 16896*w - 19488 , 24592*w + 21728 , 245004*w - 661192 ],
[ -614012*w + 5148668 , 855*w + 733033 , 20356*w - 307804 , -58244*w + 278852 , -125916*w - 192220 , -139950*w - 662648 , -265016*w +
    377244 , 19458*w + 379582 , 417074 , 21632*w - 20832 , 33576*w + 8456 , 147234*w - 755020 ],
[ -229403*w - 408961 , -35575*w - 37219 , 14998*w + 25690 , -15482*w - 37814 , 17820*w - 40796 , 50058*w - 41818 , -5656*w - 102984 ,
    -16896*w - 19488 , -21632*w - 20832 , 14448 , -208*w + 16128 , 10558*w + 17934 ],
[ -445828*w - 168546 , -56720*w + 20622 , 24228*w + 7644 , -25794*w - 38766 , 15760*w - 74816 , 65654*w - 90454 , -39372*w - 130564 ,
    -24592*w + 21728 , -33576*w + 8456 , 208*w + 16128 , 27104 , 72122*w - 41146 ],
[ -3580768*w - 55582786 , -3105196*w - 11075554 , 360974*w - 2751238 , -397086*w + 865410 , 122584*w + 309918 , 190944*w + 1159550 ,
    439238*w - 1698466 , -245004*w - 661192 , -147234*w - 755020 , -10558*w + 17934 , -72122*w - 41146 , 32207756 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 756 );
/***Gitter Nr. 397 ***/
Grammatrix:=Matrix(S,[
[ 21761586 , -1626311*w - 8819797 , 66827*w + 806449 , 45595*w - 168147 , -36185*w - 1380015 , 140752*w + 1345946 , 207663*w + 1433313 ,
    436974*w - 596932 , -1165231*w + 2593745 , 298122*w - 1556520 , -866864*w - 1472786 , -7187620*w - 14081648 ],
[ 1626311*w - 8819797 , 4540830 , 35700*w - 405342 , -26248*w + 112924 , -71294*w + 731710 , 43860*w - 493164 , 30262*w - 485618 ,
    -157772*w - 10990 , 475420*w - 237020 , -174000*w + 306152 , 151950*w + 762622 , 1850140*w + 8879864 ],
[ -66827*w + 806449 , -35700*w - 405342 , 85820 , -4932*w - 45654 , -48520*w - 219758 , 9048*w + 51226 , 34*w + 16030 , 4654*w - 3136 ,
    -14166*w + 15694 , 4644*w - 12544 , -6612*w - 21056 , -157144*w - 493220 ],
[ -45595*w - 168147 , 26248*w + 112924 , 4932*w - 45654 , 78680 , 4934*w + 314076 , -24952*w + 73934 , -30328*w + 181216 , 59238*w + 60480
, -199200*w - 60480 , 83600*w - 66640 , -26000*w - 355600 , 137516*w - 610960 ],
[ 36185*w - 1380015 , 71294*w + 731710 , 48520*w - 219758 , -4934*w + 314076 , 1776446 , -72110*w + 51310 , -91128*w + 539546 , 177638*w +
    194208 , -597600*w - 188090 , 250800*w - 198870 , -78000*w - 1066800 , 510528*w - 1529738 ],
[ -140752*w + 1345946 , -43860*w - 493164 , -9048*w + 51226 , 24952*w + 73934 , 72110*w + 51310 , 466284 , 25670*w + 639618 , 199434*w -
    90538 , -588420*w + 674450 , 191910*w - 536900 , -285510*w - 877590 , -351364*w - 2503536 ],
[ -207663*w + 1433313 , -30262*w - 485618 , -34*w + 16030 , 30328*w + 181216 , 91128*w + 539546 , -25670*w + 639618 , 1003548 , 315968*w -
    46942 , -958476*w + 787948 , 332538*w - 751114 , -389466*w - 1492106 , -289736*w - 3818962 ],
[ -436974*w - 596932 , 157772*w - 10990 , -4654*w - 3136 , -59238*w + 60480 , -177638*w + 194208 , -199434*w - 90538 , -315968*w - 46942 ,
699930 , -203916*w - 2151282 , 221338*w + 768320 , 488198*w - 790314 , 1237666*w - 425194 ],
[ 1165231*w + 2593745 , -475420*w - 237020 , 14166*w + 15694 , 199200*w - 60480 , 597600*w - 188090 , 588420*w + 674450 , 958476*w +
    787948 , 203916*w - 2151282 , 7032732 , -456810*w - 2815162 , -1732278*w + 1434426 , -3886452*w - 1189160 ],
[ -298122*w - 1556520 , 174000*w + 306152 , -4644*w - 12544 , -83600*w - 66640 , -250800*w - 198870 , -191910*w - 536900 , -332538*w -
    751114 , -221338*w + 768320 , 456810*w - 2815162 , 1334634 , 786624*w + 213472 , 1474716*w + 2238334 ],
[ 866864*w - 1472786 , -151950*w + 762622 , 6612*w - 21056 , 26000*w - 355600 , 78000*w - 1066800 , 285510*w - 877590 , 389466*w - 1492106
, -488198*w - 790314 , 1732278*w + 1434426 , -786624*w + 213472 , 3279584 , -1084318*w + 6433238 ],
[ 7187620*w - 14081648 , -1850140*w + 8879864 , 157144*w - 493220 , -137516*w - 610960 , -510528*w - 1529738 , 351364*w - 2503536 ,
    289736*w - 3818962 , -1237666*w - 425194 , 3886452*w - 1189160 , -1474716*w + 2238334 , 1084318*w + 6433238 , 33049352 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 192 );
/***Gitter Nr. 398 ***/
Grammatrix:=Matrix(S,[
[ 70223930 , -9894400*w + 27406386 , 27188704*w + 76627922 , 8718790*w + 42135814 , 994836*w - 2898014 , -2407018*w - 6477702 , 186852*w +
    5477836 , 4759954*w + 7433986 , -53628*w + 2443742 , -979858*w + 1504132 , -701116*w + 3194954 , -16712286*w - 9731582 ],
[ 9894400*w + 27406386 , 25507426 , 21895276*w - 10508680 , 9482854*w + 3174626 , -199044*w - 1449056 , -1536886*w + 1566362 , 898922*w +
    652918 , 1930198*w - 4156306 , 365180*w + 450786 , 87860*w + 1295504 , 392136*w + 1244908 , -6963134*w + 15845340 ],
[ -27188704*w + 76627922 , -21895276*w - 10508680 , 194729878 , -6738089*w + 82386199 , 2645568*w - 2353344 , -1122493*w - 18322423 ,
    -1962178*w + 10214624 , 5292167*w + 27158075 , -1072613*w + 4118821 , -2363206*w - 117264 , -2552452*w + 3694656 , -17423792*w -
    64316714 ],
[ -8718790*w + 42135814 , -9482854*w + 3174626 , 6738089*w + 82386199 , 37356284 , 1130672*w - 1551648 , -1041077*w - 7650307 , -576698*w
    + 4708564 , 2946415*w + 10642331 , -364053*w + 1962135 , -1012478*w + 345380 , -1003120*w + 2006648 , -9820629*w - 22977045 ],
[ -994836*w - 2898014 , 199044*w - 1449056 , -2645568*w - 2353344 , -1130672*w - 1551648 , 432124 , 334516*w - 79618 , -135342*w - 323022
, -478572*w + 268842 , -52200*w - 186340 , 34898*w - 249592 , -20310*w - 325080 , 981858*w - 1383438 ],
[ 2407018*w - 6477702 , 1536886*w + 1566362 , 1122493*w - 18322423 , 1041077*w - 7650307 , -334516*w - 79618 , 3263008 , 277196*w -
    1407714 , -700338*w - 3799390 , 158856*w - 463708 , 299054*w + 23352 , 325118*w - 450688 , 1827637*w + 7457205 ],
[ -186852*w + 5477836 , -898922*w + 652918 , 1962178*w + 10214624 , 576698*w + 4708564 , 135342*w - 323022 , -277196*w - 1407714 , 945028
, 768048*w + 1480164 , -19668*w + 379456 , -168144*w + 232148 , -125850*w + 517706 , -1734924*w - 2232160 ],
[ -4759954*w + 7433986 , -1930198*w - 4156306 , -5292167*w + 27158075 , -2946415*w + 10642331 , 478572*w + 268842 , 700338*w - 3799390 ,
    -768048*w + 1480164 , 6690628 , -340764*w + 482944 , -451964*w - 595980 , -618602*w + 91574 , -892061*w - 13377343 ],
[ 53628*w + 2443742 , -365180*w + 450786 , 1072613*w + 4118821 , 364053*w + 1962135 , 52200*w - 186340 , -158856*w - 463708 , 19668*w +
    379456 , 340764*w + 482944 , 165522 , -65456*w + 115976 , -43160*w + 229600 , -766627*w - 605871 ],
[ 979858*w + 1504132 , -87860*w + 1295504 , 2363206*w - 117264 , 1012478*w + 345380 , -34898*w - 249592 , -299054*w + 23352 , 168144*w +
    232148 , 451964*w - 595980 , 65456*w + 115976 , 271992 , 62690*w + 289786 , -808052*w + 1644510 ],
[ 701116*w + 3194954 , -392136*w + 1244908 , 2552452*w + 3694656 , 1003120*w + 2006648 , 20310*w - 325080 , -325118*w - 450688 , 125850*w
    + 517706 , 618602*w + 91574 , 43160*w + 229600 , -62690*w + 289786 , 409948 , -1240440*w + 457296 ],
[ 16712286*w - 9731582 , 6963134*w + 15845340 , 17423792*w - 64316714 , 9820629*w - 22977045 , -981858*w - 1383438 , -1827637*w + 7457205
, 1734924*w - 2232160 , 892061*w - 13377343 , 766627*w - 605871 , 808052*w + 1644510 , 1240440*w + 457296 , 35023422 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 648 );
/***Gitter Nr. 399 ***/
Grammatrix:=Matrix(S,[
[ 3123509872 , 19916902*w + 357655956 , -27294518*w - 218838116 , 307180982*w + 2094657180 , 58133764*w + 425524918 , -213484424*w -
    7726501146 , 488492*w + 9765042 , 2769936*w - 9082192 , 669254*w - 6347180 , -1306828*w - 7880222 , 7817928*w + 39121516 ,
    1483939966*w + 2556712270 ],
[ -19916902*w + 357655956 , 47185670 , -1810002*w - 25198264 , 20782890*w + 242751404 , 3989152*w + 48794550 , 29287550*w - 843091410 ,
    145196*w + 1109724 , 223316*w - 1175258 , 37276*w - 720104 , -205532*w - 802074 , 1163034*w + 3904502 , 142862966*w + 345943164 ],
[ 27294518*w - 218838116 , 1810002*w - 25198264 , 17564358 , -3470656*w - 169007692 , -377706*w - 34237112 , -51039330*w + 566913774 ,
    -128890*w - 1015196 , -206562*w + 1072568 , -29662*w + 640024 , 184624*w + 725466 , -1046984*w - 3528896 , -84716748*w - 272900138 ],
[ -307180982*w + 2094657180 , -20782890*w + 242751404 , 3470656*w - 169007692 , 1665515124 , -3341414*w + 333034198 , 616491398*w -
    5519313828 , 1189410*w + 9958620 , 1947198*w - 10128230 , 316314*w - 5756170 , -1681642*w - 6802740 , 9557510*w + 33075560 ,
    780715136*w + 2807799162 ],
[ -58133764*w + 425524918 , -3989152*w + 48794550 , 377706*w - 34237112 , 3341414*w + 333034198 , 67237450 , 112131624*w - 1109598910 ,
    145634*w + 1589728 , 378842*w - 1526896 , 94736*w - 968072 , -232532*w - 1192464 , 1355812*w + 5873728 , 161144982*w + 549143238 ],
[ 213484424*w - 7726501146 , -29287550*w - 843091410 , 51039330*w + 566913774 , -616491398*w - 5519313828 , -112131624*w - 1109598910 ,
    20035302826 , -4298248*w - 41238498 , -8555366*w + 42424900 , -947128*w + 24419192 , 7096812*w + 28519106 , -40437702*w - 138661726 ,
-3650486996*w - 7349335658 ],
[ -488492*w + 9765042 , -145196*w + 1109724 , 128890*w - 1015196 , -1189410*w + 9958620 , -145634*w + 1589728 , 4298248*w - 41238498 ,
    3291456 , 868176*w - 2882628 , 137796*w - 1632484 , -375264*w - 2283540 , 2265816*w + 11261432 , 6182844*w + 24316894 ],
[ -2769936*w - 9082192 , -223316*w - 1175258 , 206562*w + 1072568 , -1947198*w - 10128230 , -378842*w - 1526896 , 8555366*w + 42424900 ,
    -868176*w - 2882628 , 4133920 , 312228*w + 1688050 , 933192*w + 1307236 , -4966560*w - 5678232 , -12068174*w - 7445466 ],
[ -669254*w - 6347180 , -37276*w - 720104 , 29662*w + 640024 , -316314*w - 5756170 , -94736*w - 968072 , 947128*w + 24419192 , -137796*w -
    1632484 , -312228*w + 1688050 , 858760 , 283074*w + 1028454 , -1603158*w - 4951268 , -5078396*w - 9535638 ],
[ 1306828*w - 7880222 , 205532*w - 802074 , -184624*w + 725466 , 1681642*w - 6802740 , 232532*w - 1192464 , -7096812*w + 28519106 ,
    375264*w - 2283540 , -933192*w + 1307236 , -283074*w + 1028454 , 1889258 , -288732*w - 9650396 , -2340498*w - 22299046 ],
[ -7817928*w + 39121516 , -1163034*w + 3904502 , 1046984*w - 3528896 , -9557510*w + 33075560 , -1355812*w + 5873728 , 40437702*w -
    138661726 , -2265816*w + 11261432 , 4966560*w - 5678232 , 1603158*w - 4951268 , 288732*w - 9650396 , 49603708 , 8716096*w + 116402902
],
[ -1483939966*w + 2556712270 , -142862966*w + 345943164 , 84716748*w - 272900138 , -780715136*w + 2807799162 , -161144982*w + 549143238 ,
3650486996*w - 7349335658 , -6182844*w + 24316894 , 12068174*w - 7445466 , 5078396*w - 9535638 , 2340498*w - 22299046 , -8716096*w +
    116402902 , 7356338990 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 2592 );
/***Gitter Nr. 400 ***/
Grammatrix:=Matrix(S,[
[ 282492 , 35879*w + 27223 , -6426*w - 4494 , -1902*w + 28700 , -28314*w + 8204 , 27416*w - 53984 , -14908*w + 16156 , -19161*w - 2303 ,
    -3107*w + 17311 , -9294*w - 43428 , 12696*w + 11928 , 103609*w + 67963 ],
[ -35879*w + 27223 , 279132 , 70*w - 56798 , 5274*w - 27734 , 39208*w + 24738 , -32136*w - 105000 , -11210*w + 14560 , -31292*w - 23520 ,
-4320*w + 22400 , -11680*w - 58240 , 16320*w + 16800 , -12771*w + 207949 ],
[ 6426*w - 4494 , -70*w - 56798 , 12180 , -1246*w + 4956 , -7696*w - 7056 , 6032*w + 26320 , 3160*w - 3640 , 7784*w + 5880 , 1080*w - 5600
, 2920*w + 14560 , -4080*w - 4200 , 4164*w - 35854 ],
[ 1902*w + 28700 , -5274*w - 27734 , 1246*w + 4956 , 15162 , -10296*w + 15666 , 9952*w - 11032 , -3038*w + 1428 , -2112*w - 1764 , -324*w
    + 1680 , -876*w - 4368 , 1224*w + 1260 , 2226*w - 13132 ],
[ 28314*w + 8204 , -39208*w + 24738 , 7696*w - 7056 , 10296*w + 15666 , 107324 , 3740*w - 124754 , -8496*w + 20006 , -14132*w - 12278 ,
    -1998*w + 10360 , -5402*w - 26936 , 7548*w + 7770 , -26542*w - 68950 ],
[ -27416*w - 53984 , 32136*w - 105000 , -6032*w + 26320 , -9952*w - 11032 , -3740*w - 124754 , 220556 , 20008*w - 37394 , 38874*w + 29330
, 6570*w - 33880 , 17390*w + 88200 , -24820*w - 25550 , 31134*w + 68768 ],
[ 14908*w + 16156 , 11210*w + 14560 , -3160*w - 3640 , 3038*w + 1428 , 8496*w + 20006 , -20008*w - 37394 , 29078 , -10182*w + 36246 ,
    3030*w + 11676 , -13962*w - 322 , 7570*w - 16870 , -3254*w - 518 ],
[ 19161*w - 2303 , 31292*w - 23520 , -7784*w + 5880 , 2112*w - 1764 , 14132*w - 12278 , -38874*w + 29330 , 10182*w + 36246 , 82180 ,
    9774*w + 5838 , -19452*w + 46620 , 2226*w - 48678 , 5363*w + 27041 ],
[ 3107*w + 17311 , 4320*w + 22400 , -1080*w - 5600 , 324*w + 1680 , 1998*w + 10360 , -6570*w - 33880 , -3030*w + 11676 , -9774*w + 5838 ,
10738 , -8666*w - 16254 , 7516*w - 2128 , -4001*w + 3759 ],
[ 9294*w - 43428 , 11680*w - 58240 , -2920*w + 14560 , 876*w - 4368 , 5402*w - 26936 , -17390*w + 88200 , 13962*w - 322 , 19452*w + 46620
, 8666*w - 16254 , 73584 , -13098*w - 39242 , 9220*w + 16870 ],
[ -12696*w + 11928 , -16320*w + 16800 , 4080*w - 4200 , -1224*w + 1260 , -7548*w + 7770 , 24820*w - 25550 , -7570*w - 16870 , -2226*w -
    48678 , -7516*w - 2128 , 13098*w - 39242 , 37268 , -1800*w - 20300 ],
[ -103609*w + 67963 , 12771*w + 207949 , -4164*w - 35854 , -2226*w - 13132 , 26542*w - 68950 , -31134*w + 68768 , 3254*w - 518 , -5363*w +
    27041 , 4001*w + 3759 , -9220*w + 16870 , 1800*w - 20300 , 469686 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 576 );
/***Gitter Nr. 401 ***/
Grammatrix:=Matrix(S,[
[ 207956 , 490*w + 132860 , -183501*w - 934633 , -9809*w + 10031 , -9683*w - 8897 , 3049*w + 1617 , 13774*w - 37394 , 12996*w - 21756 ,
    -3254*w + 15246 , -973*w - 20895 , 8060*w + 20454 , -364088*w - 162022 ],
[ -490*w + 132860 , 91644 , -120876*w - 596316 , -9053*w + 7805 , -7101*w - 6825 , 2083*w + 1337 , 11759*w - 29029 , 10981*w - 16387 ,
    -2995*w + 11795 , -381*w - 17381 , 6220*w + 17962 , -235665*w - 97727 ],
[ 183501*w - 934633 , 120876*w - 596316 , 5562914 , 57636*w + 98154 , 33424*w + 140518 , -12766*w - 32900 , -114799*w - 5467 , -84577*w -
    58289 , 36821*w - 21455 , -28960*w + 90230 , 1446*w - 166222 , 1548310*w + 3140746 ],
[ 9809*w + 10031 , 9053*w + 7805 , -57636*w + 98154 , 54026 , -768*w + 25494 , -662*w - 5096 , -13062*w - 45304 , -5872*w - 36400 , 5596*w
    + 14812 , -7888*w - 784 , 9172*w - 17164 , -8924*w + 182756 ],
[ 9683*w - 8897 , 7101*w - 6825 , -33424*w + 140518 , 768*w + 25494 , 17724 , -426*w - 3962 , -10188*w - 25424 , -5930*w - 22120 , 3848*w
    + 7784 , -5372*w + 2212 , 5216*w - 14560 , 19048*w + 153286 ],
[ -3049*w + 1617 , -2083*w + 1337 , 12766*w - 32900 , 662*w - 5096 , 426*w - 3962 , 1148 , 1638*w + 6384 , 838*w + 5124 , -662*w - 1946 ,
1100*w + 140 , -1262*w + 2338 , -1580*w - 44884 ],
[ -13774*w - 37394 , -11759*w - 29029 , 114799*w - 5467 , 13062*w - 45304 , 10188*w - 25424 , -1638*w + 6384 , 85456 , -4800*w + 62244 ,
    -1032*w - 29568 , 10044*w + 21084 , -17844*w - 532 , 70847*w - 237517 ],
[ -12996*w - 21756 , -10981*w - 16387 , 84577*w - 58289 , 5872*w - 36400 , 5930*w - 22120 , -838*w + 5124 , 4800*w + 62244 , 48524 ,
    -2314*w - 20538 , 8688*w + 11984 , -13328*w + 6608 , 36013*w - 209433 ],
[ 3254*w + 15246 , 2995*w + 11795 , -36821*w - 21455 , -5596*w + 14812 , -3848*w + 7784 , 662*w - 1946 , 1032*w - 29568 , 2314*w - 20538 ,
11074 , -3304*w - 7896 , 6200*w + 1400 , -29649*w + 62293 ],
[ 973*w - 20895 , 381*w - 17381 , 28960*w + 90230 , 7888*w - 784 , 5372*w + 2212 , -1100*w + 140 , -10044*w + 21084 , -8688*w + 11984 ,
    3304*w - 7896 , 14224 , -4560*w - 15456 , 44600*w - 2758 ],
[ -8060*w + 20454 , -6220*w + 17962 , -1446*w - 166222 , -9172*w - 17164 , -5216*w - 14560 , 1262*w + 2338 , 17844*w - 532 , 13328*w +
    6608 , -6200*w + 1400 , 4560*w - 15456 , 27104 , -49652*w - 101416 ],
[ 364088*w - 162022 , 235665*w - 97727 , -1548310*w + 3140746 , 8924*w + 182756 , -19048*w + 153286 , 1580*w - 44884 , -70847*w - 237517 ,
-36013*w - 209433 , 29649*w + 62293 , -44600*w - 2758 , 49652*w - 101416 , 4799410 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 216 );
/***Gitter Nr. 402 ***/
Grammatrix:=Matrix(S,[
[ 6860 , -1630*w + 5306 , -133*w + 1155 , -47*w - 1183 , 507*w - 5033 , -203*w + 791 , 100*w + 658 , 166*w + 1778 , -462*w - 1148 , 104*w
    + 266 , -56*w - 112 , 3964*w + 5236 ],
[ 1630*w + 5306 , 14084 , 523*w + 3143 , -281*w + 539 , 409*w - 1309 , -291*w + 399 , -205*w + 203 , -146*w + 140 , 0 , 0 , 0 , 2359*w -
    3633 ],
[ 133*w + 1155 , -523*w + 3143 , 1176 , -120*w + 364 , 172*w + 1428 , -93*w - 329 , -62*w - 98 , -43*w - 21 , 0 , 0 , 0 , 221*w - 903 ],
[ 47*w - 1183 , 281*w + 539 , 120*w + 364 , 1148 , 314*w + 3640 , -59*w - 567 , -11*w - 21 , 7*w + 105 , 0 , 0 , 0 , -1420*w - 2170 ],
[ -507*w - 5033 , -409*w - 1309 , -172*w + 1428 , -314*w + 3640 , 15680 , 19*w - 2863 , 12*w - 476 , 23*w + 161 , 0 , 0 , 0 , -5069*w -
    8113 ],
[ 203*w + 791 , 291*w + 399 , 93*w - 329 , 59*w - 567 , -19*w - 2863 , 574 , -w + 133 , -3*w + 7 , 0 , 0 , 0 , 860*w + 1036 ],
[ -100*w + 658 , 205*w + 203 , 62*w - 98 , 11*w - 21 , -12*w - 476 , w + 133 , 1456 , 1148 , -140 , -120*w , 120*w - 420 , 164*w + 1176 ],
[ -166*w + 1778 , 146*w + 140 , 43*w - 21 , -7*w + 105 , -23*w + 161 , 3*w + 7 , 1148 , 4074 , -840*w - 2842 , 234*w + 420 , -24*w + 84 ,
1340*w + 2618 ],
[ 462*w - 1148 , 0 , 0 , 0 , 0 , 0 , -140 , 840*w - 2842 , 3948 , -162*w - 980 , 204*w - 98 , -662*w - 4410 ],
[ -104*w + 266 , 0 , 0 , 0 , 0 , 0 , 120*w , -234*w + 420 , 162*w - 980 , 378 , -100*w - 112 , 92*w + 1232 ],
[ 56*w - 112 , 0 , 0 , 0 , 0 , 0 , -120*w - 420 , 24*w + 84 , -204*w - 98 , 100*w - 112 , 308 , 122*w - 476 ],
[ -3964*w + 5236 , -2359*w - 3633 , -221*w - 903 , 1420*w - 2170 , 5069*w - 8113 , -860*w + 1036 , -164*w + 1176 , -1340*w + 2618 , 662*w
    - 4410 , -92*w + 1232 , -122*w - 476 , 28140 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 144 );
/***Gitter Nr. 403 ***/
Grammatrix:=Matrix(S,[
[ 140 , 4*w + 14 , -28*w , -10*w , 0 , 0 , 0 , 24*w , -8*w , -12*w , 0 , -34*w - 14 ],
[ -4*w + 14 , 126 , -22*w + 56 , -6*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -18*w - 112 ],
[ 28*w , 22*w + 56 , 280 , 84 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -8*w - 70 ],
[ 10*w , 6*w , 84 , 252 , 56 , -120*w , -40*w , -16*w , 0 , 0 , 0 , -52*w + 182 ],
[ 0 , 0 , 0 , 56 , 28 , -10*w + 14 , -38*w , -10*w , 0 , 0 , 0 , -12*w + 70 ],
[ 0 , 0 , 0 , 120*w , 10*w + 14 , 714 , -28*w - 140 , -6*w , 0 , 0 , 0 , 76*w + 252 ],
[ 0 , 0 , 0 , 40*w , 38*w , 28*w - 140 , 476 , 112 , 0 , 0 , 0 , 84*w + 56 ],
[ -24*w , 0 , 0 , 16*w , 10*w , 6*w , 112 , 84 , 0 , -32*w - 28 , 16*w - 56 , 16*w - 28 ],
[ 8*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , -24*w , 12*w - 42 , -12*w + 14 ],
[ 12*w , 0 , 0 , 0 , 0 , 0 , 0 , 32*w - 28 , 24*w , 462 , -120*w - 196 , 210 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -16*w - 56 , -12*w - 42 , 120*w - 196 , 308 , 48*w - 84 ],
[ 34*w - 14 , 18*w - 112 , 8*w - 70 , 52*w + 182 , 12*w + 70 , -76*w + 252 , -84*w + 56 , -16*w - 28 , 12*w + 14 , 210 , -48*w - 84 , 602
]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 15876 );
/***Gitter Nr. 404 ***/
Grammatrix:=Matrix(S,[
[ 65562 , -1505*w + 244349 , -3321*w + 111055 , -272*w + 2184 , -56*w - 84 , -148*w - 28 , -452*w + 476 , 510*w - 840 , -14*w - 1050 ,
    -36*w - 1106 , -176*w + 616 , -39410*w - 93800 ],
[ 1505*w + 244349 , 987210 , -16624*w + 433174 , -1702*w + 14322 , -667*w - 651 , 1227*w + 805 , -2003*w + 2751 , 2118*w - 5334 , -702*w -
    4508 , -988*w - 5026 , -1436*w + 3794 , -159228*w - 378350 ],
[ 3321*w + 111055 , 16624*w + 433174 , 206780 , 468*w + 3444 , -361*w + 399 , 239*w - 1841 , -781*w + 1995 , 280*w - 3332 , -644*w - 1050
, -920*w - 756 , -140*w + 4494 , -79086*w - 147980 ],
[ 272*w + 2184 , 1702*w + 14322 , -468*w + 3444 , 1666 , -70 , 112*w - 14 , -32*w , 150*w , 48*w - 224 , 72*w - 336 , -120*w - 504 ,
    -2214*w - 4634 ],
[ 56*w - 84 , 667*w - 651 , 361*w + 399 , -70 , 378 , 104*w - 182 , 26*w + 28 , -4*w - 28 , -12*w + 56 , -18*w + 84 , 30*w + 126 , -452*w
    + 840 ],
[ 148*w - 28 , -1227*w + 805 , -239*w - 1841 , -112*w - 14 , -104*w - 182 , 1358 , -4*w - 224 , 234*w + 336 , 96*w - 448 , 144*w - 672 ,
    -240*w - 1008 , 722*w - 2478 ],
[ 452*w + 476 , 2003*w + 2751 , 781*w + 1995 , 32*w , -26*w + 28 , 4*w - 224 , 308 , -140*w - 336 , -112*w + 168 , -140*w + 280 , 140*w +
    588 , -1472*w + 1512 ],
[ -510*w - 840 , -2118*w - 5334 , -280*w - 3332 , -150*w , 4*w - 28 , -234*w + 336 , 140*w - 336 , 1134 , 284*w + 238 , 406*w + 252 ,
    260*w - 1372 , 2410*w + 252 ],
[ 14*w - 1050 , 702*w - 4508 , 644*w - 1050 , -48*w - 224 , 12*w + 56 , -96*w - 448 , 112*w + 168 , -284*w + 238 , 574 , 20*w + 798 ,
    402*w + 210 , 458*w + 3948 ],
[ 36*w - 1106 , 988*w - 5026 , 920*w - 756 , -72*w - 336 , 18*w + 84 , -144*w - 672 , 140*w + 280 , -406*w + 252 , -20*w + 798 , 1134 ,
    576*w + 448 , 360*w + 5068 ],
[ 176*w + 616 , 1436*w + 3794 , 140*w + 4494 , 120*w - 504 , -30*w + 126 , 240*w - 1008 , -140*w + 588 , -260*w - 1372 , -402*w + 210 ,
    -576*w + 448 , 2464 , -2298*w + 546 ],
[ 39410*w - 93800 , 159228*w - 378350 , 79086*w - 147980 , 2214*w - 4634 , 452*w + 840 , -722*w - 2478 , 1472*w + 1512 , -2410*w + 252 ,
    -458*w + 3948 , -360*w + 5068 , 2298*w + 546 , 333004 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 864 );
/***Gitter Nr. 405 ***/
Grammatrix:=Matrix(S,[
[ 4503911832 , -15765365*w + 1079477189 , -631211316*w + 1110427164 , -112613994*w + 57352554 , 150312002*w - 497841456 , 170944618*w +
    265220774 , 59393825*w - 273124621 , 35211398*w + 109403672 , 227283029*w + 1347315403 , 327831566*w + 168692832 , 398695532*w -
    589892086 , 635985724*w + 275653826 ],
[ 15765365*w + 1079477189 , 263990314 , -134789082*w + 263092648 , -23046902*w + 14949676 , 31416920*w - 120156316 , 42911354*w + 63468636
, 14226336*w - 68567408 , 8933510*w + 26788818 , 58981312*w + 331572752 , 81728904*w + 37565500 , 97897028*w - 151745972 , 159711888*w +
    54089756 ],
[ 631211316*w + 1110427164 , 134789082*w + 263092648 , 1507138024 , -28528346*w + 310843218 , -25300336*w - 393555890 , 46470508*w -
    103357996 , -23105266*w - 72399838 , 15238276*w - 16333380 , 166533614*w - 33664498 , 51029572*w - 227588872 , -22691268*w - 356967744
, 150321198*w - 376225094 ],
[ 112613994*w + 57352554 , 23046902*w + 14949676 , 28528346*w + 310843218 , 82240942 , -10167138*w - 70120610 , -1151964*w - 24586478 ,
    -5343916*w + 2275070 , 438058*w - 6684328 , 11299264*w - 60190340 , -7270146*w - 35363230 , -19400140*w - 19950504 , 5538218*w -
    47599216 ],
[ -150312002*w - 497841456 , -31416920*w - 120156316 , 25300336*w - 393555890 , 10167138*w - 70120610 , 115731994 , -21153902*w + 7868910
, 1765140*w + 33453434 , -5669074*w - 2878512 , -52560046*w - 74200014 , -31824756*w + 42646240 , -18997970*w + 118912570 , -72466366*w +
    77866348 ],
[ -170944618*w + 265220774 , -42911354*w + 63468636 , -46470508*w - 103357996 , 1151964*w - 24586478 , 21153902*w + 7868910 , 74168948 ,
    16861322*w - 619430 , -2564724*w + 19303634 , -45643566*w + 170973348 , 15977814*w + 118027420 , 56085630*w + 85934478 , 36675868*w +
    201839610 ],
[ -59393825*w - 273124621 , -14226336*w - 68567408 , 23105266*w - 72399838 , 5343916*w + 2275070 , -1765140*w + 33453434 , -16861322*w -
    619430 , 26866028 , -4366414*w - 4243988 , -38519430*w - 74156894 , -26993694*w + 24449502 , -20030886*w + 88609738 , -46225464*w +
    57339562 ],
[ -35211398*w + 109403672 , -8933510*w + 26788818 , -15238276*w - 16333380 , -438058*w - 6684328 , 5669074*w - 2878512 , 2564724*w +
    19303634 , 4366414*w - 4243988 , 5651156 , -5960812*w + 55554282 , 8243534*w + 26845266 , 17570774*w + 8775494 , 16554398*w + 43494598
],
[ -227283029*w + 1347315403 , -58981312*w + 331572752 , -166533614*w - 33664498 , -11299264*w - 60190340 , 52560046*w - 74200014 ,
    45643566*w + 170973348 , 38519430*w - 74156894 , 5960812*w + 55554282 , 591331552 , 109572882*w + 203447846 , 182350218*w - 43550374 ,
209718662*w + 305371150 ],
[ -327831566*w + 168692832 , -81728904*w + 37565500 , -51029572*w - 227588872 , 7270146*w - 35363230 , 31824756*w + 42646240 , -15977814*w
    + 118027420 , 26993694*w + 24449502 , -8243534*w + 26845266 , -109572882*w + 203447846 , 212122218 , 70807488*w + 221541152 ,
    15568310*w + 377077582 ],
[ -398695532*w - 589892086 , -97897028*w - 151745972 , 22691268*w - 356967744 , 19400140*w - 19950504 , 18997970*w + 118912570 ,
    -56085630*w + 85934478 , 20030886*w + 88609738 , -17570774*w + 8775494 , -182350218*w - 43550374 , -70807488*w + 221541152 , 396829664
, -109612720*w + 430194856 ],
[ -635985724*w + 275653826 , -159711888*w + 54089756 , -150321198*w - 376225094 , -5538218*w - 47599216 , 72466366*w + 77866348 ,
    -36675868*w + 201839610 , 46225464*w + 57339562 , -16554398*w + 43494598 , -209718662*w + 305371150 , -15568310*w + 377077582 ,
    109612720*w + 430194856 , 730363158 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 192 );
/***Gitter Nr. 406 ***/
Grammatrix:=Matrix(S,[
[ 29386 , -786*w - 6916 , -365*w - 4025 , -177*w - 175 , -37*w - 77 , -826*w - 980 , -2009*w + 959 , 618*w - 560 , -1084*w + 784 , 1340*w
    - 5670 , 540*w + 4578 , 14548*w + 30198 ],
[ 786*w - 6916 , 4116 , 220*w - 1330 , 18*w + 420 , -314*w - 154 , -962*w , -46*w , -60*w , 88*w , 24*w , 0 , -1384*w - 8120 ],
[ 365*w - 4025 , -220*w - 1330 , 7224 , 12*w - 420 , 458*w + 434 , 2266*w + 7168 , 838*w - 896 , -16*w + 896 , 140*w - 3136 , 2412*w +
    9408 , -2976*w - 672 , -3017*w - 6657 ],
[ 177*w - 175 , -18*w + 420 , -12*w - 420 , 2100 , -132*w - 700 , -1588*w - 168 , -684*w , 80*w , 0 , 0 , 0 , 599*w - 1365 ],
[ 37*w - 77 , 314*w - 154 , -458*w + 434 , 132*w - 700 , 756 , 568*w + 3024 , 242*w + 784 , -22*w - 28 , 6*w - 196 , 150*w + 588 , -186*w
    - 42 , 5*w - 1351 ],
[ 826*w - 980 , 962*w , -2266*w + 7168 , 1588*w - 168 , -568*w + 3024 , 30534 , 50*w + 4200 , 186*w + 1148 , 192*w - 6272 , 4800*w + 18816
, -5952*w - 1344 , 380*w - 10542 ],
[ 2009*w + 959 , 46*w , -838*w - 896 , 684*w , -242*w + 784 , -50*w + 4200 , 8120 , -104*w - 2436 , -104*w + 4424 , -2600*w - 9912 ,
    3224*w + 728 , 2233*w - 8841 ],
[ -618*w - 560 , 60*w , 16*w + 896 , -80*w , 22*w - 28 , -186*w + 1148 , 104*w - 2436 , 966 , 198*w - 2030 , 912*w + 5698 , -1584*w - 1232
, -824*w + 2002 ],
[ 1084*w + 784 , -88*w , -140*w - 3136 , 0 , -6*w - 196 , -192*w - 6272 , 104*w + 4424 , -198*w - 2030 , 5488 , -4038*w - 13426 , 4554*w +
    154 , 1406*w - 3304 ],
[ -1340*w - 5670 , -24*w , -2412*w + 9408 , 0 , -150*w + 588 , -4800*w + 18816 , 2600*w - 9912 , -912*w + 5698 , 4038*w - 13426 , 55146 ,
-11328*w - 24416 , -4358*w - 364 ],
[ -540*w + 4578 , 0 , 2976*w - 672 , 0 , 186*w - 42 , 5952*w - 1344 , -3224*w + 728 , 1584*w - 1232 , -4554*w + 154 , 11328*w - 24416 ,
    27104 , 1952*w + 6426 ],
[ -14548*w + 30198 , 1384*w - 8120 , 3017*w - 6657 , -599*w - 1365 , -5*w - 1351 , -380*w - 10542 , -2233*w - 8841 , 824*w + 2002 ,
    -1406*w - 3304 , 4358*w - 364 , -1952*w + 6426 , 88214 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 96 );
/***Gitter Nr. 407 ***/
Grammatrix:=Matrix(S,[
[ 2786 , 95*w - 385 , 68*w - 476 , -100*w + 462 , 25*w + 21 , 296*w + 672 , -219*w - 455 , -110*w - 490 , 137*w + 161 , -262*w + 294 ,
    -34*w + 504 , 659*w + 2373 ],
[ -95*w - 385 , 210 , -28*w - 140 , -94*w + 56 , -20*w - 28 , 0 , 20*w , 8*w , 0 , 0 , 0 , -176*w - 154 ],
[ -68*w - 476 , 28*w - 140 , 2618 , 636*w - 126 , 86*w + 266 , 16*w - 448 , -110*w + 112 , -44*w , 0 , 0 , 0 , -458*w - 336 ],
[ 100*w + 462 , 94*w + 56 , -636*w - 126 , 1652 , -64*w + 210 , 246*w + 462 , -110*w - 448 , -18*w - 140 , 0 , 0 , 0 , 268*w - 364 ],
[ -25*w + 21 , 20*w - 28 , -86*w + 266 , 64*w + 210 , 84 , -2*w + 196 , -10*w - 238 , 24*w - 154 , -6*w + 98 , -116*w - 140 , -84*w + 140
, -50*w - 210 ],
[ -296*w + 672 , 0 , -16*w - 448 , -246*w + 462 , 2*w + 196 , 2870 , -28*w - 2324 , 274*w - 1428 , -60*w + 980 , -1160*w - 1400 , -840*w +
    1400 , -98*w - 882 ],
[ 219*w - 455 , -20*w , 110*w + 112 , 110*w - 448 , 10*w - 238 , 28*w - 2324 , 2296 , -308*w + 1708 , 30*w - 1162 , 1462*w + 1708 , 1050*w
    - 1750 , 230*w + 1610 ],
[ 110*w - 490 , -8*w , 44*w , 18*w - 140 , -24*w - 154 , -274*w - 1428 , 308*w + 1708 , 1904 , -202*w - 1106 , 1634*w - 84 , 686*w - 2786
, 584*w + 1218 ],
[ -137*w + 161 , 0 , 0 , 0 , 6*w + 98 , 60*w + 980 , -30*w - 1162 , 202*w - 1106 , 840 , -948*w - 1120 , -672*w + 1120 , -269*w - 1169 ],
[ 262*w + 294 , 0 , 0 , 0 , 116*w - 140 , 1160*w - 1400 , -1462*w + 1708 , -1634*w - 84 , 948*w - 1120 , 10276 , 2478*w + 4494 , -1324*w +
    3430 ],
[ 34*w + 504 , 0 , 0 , 0 , 84*w + 140 , 840*w + 1400 , -1050*w - 1750 , -686*w - 2786 , 672*w + 1120 , -2478*w + 4494 , 6160 , -1422*w -
    812 ],
[ -659*w + 2373 , 176*w - 154 , 458*w - 336 , -268*w - 364 , 50*w - 210 , 98*w - 882 , -230*w + 1610 , -584*w + 1218 , 269*w - 1169 ,
    1324*w + 3430 , 1422*w - 812 , 6678 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 360 );
/***Gitter Nr. 408 ***/
Grammatrix:=Matrix(S,[
[ 8208999610 , 985057698*w + 5870820914 , 102827432*w - 120806014 , -133506908*w - 348249804 , -21152992*w - 90985342 , 52233352*w +
    279507816 , 276243300*w + 330887676 , -58860346*w - 183366260 , -19982238*w + 169905764 , 9162334*w - 19834472 , 25596294*w +
    108737944 , -2182723252*w - 1029911484 ],
[ -985057698*w + 5870820914 , 5358812130 , 86966688*w + 33291286 , -57058364*w - 388993542 , -5301180*w - 102832114 , 4360806*w +
    303102142 , 199624310*w + 582134952 , -26971572*w - 225113322 , -42409336*w + 134033438 , 11180856*w - 8813378 , 7671042*w + 124489540
, -1538936650*w - 2807200074 ],
[ -102827432*w - 120806014 , -86966688*w + 33291286 , 14610218 , 5969641*w - 9173535 , 1343885*w - 2271857 , -4194789*w + 6211793 ,
    -3812097*w + 30164561 , 2323198*w - 6846168 , -2529355*w - 1080009 , 338250*w + 808024 , -1411064*w + 3186204 , 34031252*w - 197328026
],
[ 133506908*w - 348249804 , 57058364*w - 388993542 , -5969641*w - 9173535 , 32878188 , -758627*w + 8496943 , 3017483*w - 24059623 ,
    -9098973*w - 59962595 , -352994*w + 19127290 , 4643413*w - 7015407 , -942682*w - 153804 , 730992*w - 10019156 , 81666203*w + 318898797
],
[ 21152992*w - 90985342 , 5301180*w - 102832114 , -1343885*w - 2271857 , 758627*w + 8496943 , 3535896 , 232900*w - 10106334 , -5752696*w -
    19383476 , 645630*w + 6780788 , 1325888*w - 3753120 , -333952*w + 226240 , -166152*w - 3685192 , 26431719*w + 67255391 ],
[ -52233352*w + 279507816 , -4360806*w + 303102142 , 4194789*w + 6211793 , -3017483*w - 24059623 , -232900*w - 10106334 , 29645168 ,
    18585454*w + 53788056 , -2584890*w - 19627706 , -3551600*w + 12067580 , 971630*w - 905240 , 864476*w + 10842650 , -84310257*w -
    175084819 ],
[ -276243300*w + 330887676 , -199624310*w + 582134952 , 3812097*w + 30164561 , 9098973*w - 59962595 , 5752696*w - 19383476 , -18585454*w +
    53788056 , 183012368 , 7849392*w - 48904184 , -14598928*w + 6696480 , 2427964*w + 2747752 , -5462144*w + 24483172 , -57044041*w -
    720758213 ],
[ 58860346*w - 183366260 , 26971572*w - 225113322 , -2323198*w - 6846168 , 352994*w + 19127290 , -645630*w + 6780788 , 2584890*w -
    19627706 , -7849392*w - 48904184 , 15658118 , 3678372*w - 6268850 , -779244*w - 16100 , 429230*w - 8319962 , 49718398*w + 178276434 ],
[ 19982238*w + 169905764 , 42409336*w + 134033438 , 2529355*w - 1080009 , -4643413*w - 7015407 , -1325888*w - 3753120 , 3551600*w +
    12067580 , 14598928*w + 6696480 , -3678372*w - 6268850 , 8561490 , 316216*w - 1275120 , 1783072*w + 4040904 , -61846207*w + 11282733
],
[ -9162334*w - 19834472 , -11180856*w - 8813378 , -338250*w + 808024 , 942682*w - 153804 , 333952*w + 226240 , -971630*w - 905240 ,
    -2427964*w + 2747752 , 779244*w - 16100 , -316216*w - 1275120 , 271992 , -415166*w - 140742 , 8692344*w - 17610558 ],
[ -25596294*w + 108737944 , -7671042*w + 124489540 , 1411064*w + 3186204 , -730992*w - 10019156 , 166152*w - 3685192 , -864476*w +
    10842650 , 5462144*w + 24483172 , -429230*w - 8319962 , -1783072*w + 4040904 , 415166*w - 140742 , 4509428 , -31506084*w - 84041328 ],
[ 2182723252*w - 1029911484 , 1538936650*w - 2807200074 , -34031252*w - 197328026 , -81666203*w + 318898797 , -26431719*w + 67255391 ,
    84310257*w - 175084819 , 57044041*w - 720758213 , -49718398*w + 178276434 , 61846207*w + 11282733 , -8692344*w - 17610558 , 31506084*w
    - 84041328 , 4579427916 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 96 );
/***Gitter Nr. 409 ***/
Grammatrix:=Matrix(S,[
[ 154 , -2*w + 56 , 5*w - 49 , 10*w + 98 , -45*w - 77 , -2*w + 14 , 16*w , -24*w , 8*w , -6*w , 0 , -20*w + 28 ],
[ 2*w + 56 , 56 , -w + 7 , -26*w + 14 , 9*w - 7 , -w + 7 , 8*w , -6*w , 0 , 0 , 0 , 9*w - 21 ],
[ -5*w - 49 , w + 7 , 56 , -30*w + 70 , 42*w - 98 , -6*w , -14*w + 14 , 7*w - 7 , 0 , 0 , 0 , -4*w - 98 ],
[ -10*w + 98 , 26*w + 14 , 30*w + 70 , 1036 , 18*w - 1050 , 12*w , 28 , -54*w - 14 , 40*w , -30*w , 0 , -224*w - 308 ],
[ 45*w - 77 , -9*w - 7 , -42*w - 98 , -18*w - 1050 , 1204 , 2*w , 6*w - 98 , 53*w + 63 , -40*w , 30*w , 0 , 246*w + 308 ],
[ 2*w + 14 , w + 7 , 6*w , -12*w , -2*w , 84 , 4*w + 84 , -3*w - 21 , 0 , 0 , 0 , -21*w - 63 ],
[ -16*w , -8*w , 14*w + 14 , 28 , -6*w - 98 , -4*w + 84 , 140 , -56 , 0 , 0 , 0 , -44*w - 70 ],
[ 24*w , 6*w , -7*w - 7 , 54*w - 14 , -53*w + 63 , 3*w - 21 , -56 , 154 , 42 , -54*w , 36*w - 126 , -31*w + 105 ],
[ -8*w , 0 , 0 , -40*w , 40*w , 0 , 0 , 42 , 70 , -42*w - 28 , 28*w - 98 , -16*w - 56 ],
[ 6*w , 0 , 0 , 30*w , -30*w , 0 , 0 , 54*w , 42*w - 28 , 266 , -92*w - 140 , 4*w + 196 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -36*w - 126 , -28*w - 98 , 92*w - 140 , 308 , 48*w - 112 ],
[ 20*w + 28 , -9*w - 21 , 4*w - 98 , 224*w - 308 , -246*w + 308 , 21*w - 63 , 44*w - 70 , 31*w + 105 , 16*w - 56 , -4*w + 196 , -48*w -
    112 , 644 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1728 );
/***Gitter Nr. 410 ***/
Grammatrix:=Matrix(S,[
[ 329041776 , -9734679*w - 151137497 , -61453093*w + 161362061 , -19890503*w + 3417883 , 16565355*w + 3045399 , 2370113*w + 4595633 ,
    -10924562*w - 58796010 , 8844921*w + 27241333 , -3723494*w + 11710398 , 3199943*w + 66399851 , -14035110*w - 46511808 , 317503957*w +
    646369325 ],
[ 9734679*w - 151137497 , 72151898 , 33312812*w - 62782678 , 9324970*w + 2360204 , -7647175*w - 5174771 , -875179*w - 2747395 , 2842909*w
    + 32872847 , -3264056*w - 16469502 , 2382822*w - 4730348 , 1289110*w - 34333502 , 5020916*w + 27649664 , -126904609*w - 366043881 ],
[ 61453093*w + 161362061 , -33312812*w - 62782678 , 180871810 , -9150494*w + 33212900 , 8563107*w - 23727837 , 2085117*w - 1606899 ,
    -15696771*w - 9528015 , 8756610*w - 284480 , 646504*w + 9762984 , 13766880*w + 23451624 , -14554556*w - 967372 , 275914107*w -
    91585641 ],
[ 19890503*w + 3417883 , -9324970*w + 2360204 , 9150494*w + 33212900 , 9936794 , 299095*w - 8076341 , 347237*w - 1192947 , -3688267*w +
    6423907 , 1590528*w - 4672388 , 847718*w + 1468320 , 4286008*w - 2872212 , -2753356*w + 7424228 , 42204119*w - 126905835 ],
[ -16565355*w + 3045399 , 7647175*w - 5174771 , -8563107*w - 23727837 , -299095*w - 8076341 , 7196770 , -352630*w + 1107736 , 3872943*w -
    8910223 , -1519687*w + 6188707 , -1072400*w - 1293306 , -4729865*w + 5345991 , 2658266*w - 9844240 , -29566986*w + 120468684 ],
[ -2370113*w + 4595633 , 875179*w - 2747395 , -2085117*w - 1606899 , -347237*w - 1192947 , 352630*w + 1107736 , 397488 , -290797*w -
    3398269 , 360323*w + 1624819 , -236662*w + 488208 , -95377*w + 3438785 , -528070*w - 2728712 , 434376*w + 25376232 ],
[ 10924562*w - 58796010 , -2842909*w + 32872847 , 15696771*w - 9528015 , 3688267*w + 6423907 , -3872943*w - 8910223 , 290797*w - 3398269 ,
45286486 , -2842823*w - 23889761 , 3547912*w - 4482450 , 4859447*w - 43572655 , 3918092*w + 39027982 , -40661999*w - 207716845 ],
[ -8844921*w + 27241333 , 3264056*w - 16469502 , -8756610*w - 284480 , -1590528*w - 4672388 , 1519687*w + 6188707 , -360323*w + 1624819 ,
2842823*w - 23889761 , 13872908 , -2155518*w + 808150 , -5303328*w + 20883184 , 380796*w - 22340388 , 10511771*w + 125629903 ],
[ 3723494*w + 11710398 , -2382822*w - 4730348 , -646504*w + 9762984 , -847718*w + 1468320 , 1072400*w - 1293306 , 236662*w + 488208 ,
    -3547912*w - 4482450 , 2155518*w + 808150 , 2393748 , 2937210*w + 6992272 , -3451434*w - 1719690 , 20610206*w - 3210116 ],
[ -3199943*w + 66399851 , -1289110*w - 34333502 , -13766880*w + 23451624 , -4286008*w - 2872212 , 4729865*w + 5345991 , 95377*w + 3438785
, -4859447*w - 43572655 , 5303328*w + 20883184 , -2937210*w + 6992272 , 45659558 , -7972844*w - 34673100 , 64884105*w + 166157299 ],
[ 14035110*w - 46511808 , -5020916*w + 27649664 , 14554556*w - 967372 , 2753356*w + 7424228 , -2658266*w - 9844240 , 528070*w - 2728712 ,
-3918092*w + 39027982 , -380796*w - 22340388 , 3451434*w - 1719690 , 7972844*w - 34673100 , 36075424 , -20238518*w - 205554720 ],
[ -317503957*w + 646369325 , 126904609*w - 366043881 , -275914107*w - 91585641 , -42204119*w - 126905835 , 29566986*w + 120468684 ,
    -434376*w + 25376232 , 40661999*w - 207716845 , -10511771*w + 125629903 , -20610206*w - 3210116 , -64884105*w + 166157299 , 20238518*w
    - 205554720 , 3435848766 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 648 );
/***Gitter Nr. 411 ***/
Grammatrix:=Matrix(S,[
[ 140 , 100*w - 28 , 164*w + 672 , 4*w , -48*w - 224 , 0 , 0 , 4*w , 20*w , -6*w , 0 , -68*w + 14 ],
[ -100*w - 28 , 714 , -436*w + 1400 , -6*w , 144*w - 420 , 0 , 0 , 0 , 0 , 0 , 0 , -24*w - 336 ],
[ -164*w + 672 , 436*w + 1400 , 10486 , -60*w - 252 , 30*w - 3402 , 0 , 0 , 36*w , 180*w , -54*w , 0 , -696*w - 966 ],
[ -4*w , 6*w , 60*w - 252 , 28 , -20*w + 84 , 0 , 0 , 0 , 0 , 0 , 0 , 8*w + 56 ],
[ 48*w - 224 , -144*w - 420 , -30*w - 3402 , 20*w + 84 , 1232 , 60*w + 42 , 24*w , -30*w , -60*w , 18*w , 0 , 212*w + 364 ],
[ 0 , 0 , 0 , 0 , -60*w + 42 , 714 , 8*w - 140 , -6*w , 0 , 0 , 0 , 52*w + 168 ],
[ 0 , 0 , 0 , 0 , -24*w , -8*w - 140 , 140 , -56 , 0 , 0 , 0 , -56*w - 126 ],
[ -4*w , 0 , -36*w , 0 , 30*w , 6*w , -56 , 42 , -14 , -18*w , -12*w + 42 , 32*w + 14 ],
[ -20*w , 0 , -180*w , 0 , 60*w , 0 , 0 , -14 , 238 , 66*w - 56 , 44*w - 154 , -44*w - 98 ],
[ 6*w , 0 , 54*w , 0 , -18*w , 0 , 0 , 18*w , -66*w - 56 , 266 , 76*w + 196 , -10*w - 112 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 12*w + 42 , -44*w - 154 , -76*w + 196 , 308 , 36*w - 140 ],
[ 68*w + 14 , 24*w - 336 , 696*w - 966 , -8*w + 56 , -212*w + 364 , -52*w + 168 , 56*w - 126 , -32*w + 14 , 44*w - 98 , 10*w - 112 , -36*w
    - 140 , 840 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 84672 );
/***Gitter Nr. 412 ***/
Grammatrix:=Matrix(S,[
[ 26586 , -42*w - 2618 , 772*w + 4732 , -4170*w + 1022 , 5442*w - 11620 , 4602*w - 8218 , -1495*w + 1827 , -252*w + 658 , 102*w + 1456 ,
    -3650*w - 28 , -2354*w + 6006 , 1504*w + 11620 ],
[ 42*w - 2618 , 420 , -196*w - 350 , 306*w - 882 , -624*w + 84 , -686*w + 1078 , -186*w + 840 , -14*w + 168 , 42*w + 98 , -276*w + 644 ,
    -28*w + 868 , 292*w - 1022 ],
[ -772*w + 4732 , 196*w - 350 , 3584 , -2136*w - 966 , 878*w - 3598 , 1330*w - 4746 , 516*w - 700 , 58*w - 168 , -42*w - 98 , 276*w - 644
, 28*w - 868 , 316*w + 2842 ],
[ 4170*w + 1022 , -306*w - 882 , 2136*w - 966 , 13958 , -3810*w - 6314 , -4810*w - 11900 , -6*w - 4844 , -54*w - 840 , -126*w - 294 ,
    828*w - 1932 , 84*w - 2604 , 2624*w - 2730 ],
[ -5442*w - 11620 , 624*w + 84 , -878*w - 3598 , 3810*w - 6314 , 33908 , 3826*w + 36484 , 2850*w + 5194 , 639*w + 553 , 227*w - 1729 ,
    4178*w + 6566 , 4196*w - 2674 , -8104*w - 13874 ],
[ -4602*w - 8218 , 686*w + 1078 , -1330*w - 4746 , 4810*w - 11900 , -3826*w + 36484 , 81312 , -3482*w + 45430 , 557*w + 8533 , 2845*w +
    4193 , -12026*w + 44282 , 2544*w + 48538 , -844*w - 31626 ],
[ 1495*w + 1827 , 186*w + 840 , -516*w - 700 , 6*w - 4844 , -2850*w + 5194 , 3482*w + 45430 , 47348 , 1284*w + 8036 , 3514*w + 3262 ,
    -10250*w + 54712 , 6174*w + 52542 , 5264*w - 23926 ],
[ 252*w + 658 , 14*w + 168 , -58*w - 168 , 54*w - 840 , -639*w + 553 , -557*w + 8533 , -1284*w + 8036 , 1652 , 498*w + 1190 , -3150*w +
    7392 , -322*w + 9982 , 1462*w - 2954 ],
[ -102*w + 1456 , -42*w + 98 , 42*w - 98 , 126*w - 294 , -227*w - 1729 , -2845*w + 4193 , -3514*w + 3262 , -498*w + 1190 , 2184 , -5016*w
    - 1932 , -3724*w + 7028 , 2294*w + 1806 ],
[ 3650*w - 28 , 276*w + 644 , -276*w - 644 , -828*w - 1932 , -4178*w + 6566 , 12026*w + 44282 , 10250*w + 54712 , 3150*w + 7392 , 5016*w -
    1932 , 83468 , 19670*w + 54278 , 1956*w - 38752 ],
[ 2354*w + 6006 , 28*w + 868 , -28*w - 868 , -84*w - 2604 , -4196*w - 2674 , -2544*w + 48538 , -6174*w + 52542 , 322*w + 9982 , 3724*w +
    7028 , -19670*w + 54278 , 67760 , 10426*w - 21966 ],
[ -1504*w + 11620 , -292*w - 1022 , -316*w + 2842 , -2624*w - 2730 , 8104*w - 13874 , 844*w - 31626 , -5264*w - 23926 , -1462*w - 2954 ,
    -2294*w + 1806 , -1956*w - 38752 , -10426*w - 21966 , 31822 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1296 );
/***Gitter Nr. 413 ***/
Grammatrix:=Matrix(S,[
[ 684642 , 6931*w - 349461 , 34106*w - 29120 , 316*w + 14560 , -8365*w - 2905 , -4199*w + 4473 , 2525*w - 19733 , 4136*w + 27496 , -1287*w
    - 4109 , 963*w - 2331 , 4690*w + 2128 , 76265*w + 195839 ],
[ -6931*w - 349461 , 186452 , -14290*w + 17290 , -356*w - 7434 , 4935*w + 1827 , 2275*w - 1981 , -831*w + 4431 , -72*w - 7028 , 227*w +
    959 , -349*w + 105 , -1022*w - 1120 , -40159*w - 91343 ],
[ -34106*w - 29120 , 14290*w + 17290 , 91686 , -1052*w - 1834 , -2032*w + 15988 , -2234*w + 3234 , 21338*w + 20160 , -27450*w + 44800 ,
    3920*w - 11200 , 1920*w + 5600 , -1120*w + 34720 , -44420*w + 56280 ],
[ -316*w + 14560 , 356*w - 7434 , 1052*w - 1834 , 532 , -10*w - 406 , 38*w + 70 , -1064*w - 924 , 1350*w - 2240 , -196*w + 560 , -96*w -
    280 , 56*w - 1736 , 2132*w + 1610 ],
[ 8365*w - 2905 , -4935*w + 1827 , 2032*w + 15988 , 10*w - 406 , 8918 , -284*w + 3556 , 5494*w - 5096 , -2608*w + 21728 , 64*w - 4088 ,
    672*w + 112 , 2008*w + 7448 , -2758*w + 9100 ],
[ 4199*w + 4473 , -2275*w - 1981 , 2234*w + 3234 , -38*w + 70 , 284*w + 3556 , 1876 , 1550*w - 7322 , 1706*w + 11606 , -502*w - 1764 ,
    330*w - 616 , 1832*w + 1288 , 2552*w + 5894 ],
[ -2525*w - 19733 , 831*w + 4431 , -21338*w + 20160 , 1064*w - 924 , -5494*w - 5096 , -1550*w - 7322 , 79170 , -32976*w - 72450 , 6986*w +
    8204 , -1886*w + 8680 , -16968*w + 11032 , -38156*w - 54320 ],
[ -4136*w + 27496 , 72*w - 7028 , 27450*w + 44800 , -1350*w - 2240 , 2608*w + 21728 , -1706*w + 11606 , 32976*w - 72450 , 163170 , -2960*w
    - 28056 , 5358*w - 2660 , 20208*w + 39536 , 12602*w + 157976 ],
[ 1287*w - 4109 , -227*w + 959 , -3920*w - 11200 , 196*w + 560 , -64*w - 4088 , 502*w - 1764 , -6986*w + 8204 , 2960*w - 28056 , 5222 ,
    -956*w - 196 , -2758*w - 9366 , 808*w - 28770 ],
[ -963*w - 2331 , 349*w + 105 , -1920*w + 5600 , 96*w - 280 , -672*w + 112 , -330*w - 616 , 1886*w + 8680 , -5358*w - 2660 , 956*w - 196 ,
1386 , -1628*w + 4004 , -5446*w + 868 ],
[ -4690*w + 2128 , 1022*w - 1120 , 1120*w + 34720 , -56*w - 1736 , -2008*w + 7448 , -1832*w + 1288 , 16968*w + 11032 , -20208*w + 39536 ,
2758*w - 9366 , 1628*w + 4004 , 27104 , -16674*w + 49350 ],
[ -76265*w + 195839 , 40159*w - 91343 , 44420*w + 56280 , -2132*w + 1610 , 2758*w + 9100 , -2552*w + 5894 , 38156*w - 54320 , -12602*w +
    157976 , -808*w - 28770 , 5446*w + 868 , 16674*w + 49350 , 287966 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 384 );
/***Gitter Nr. 414 ***/
Grammatrix:=Matrix(S,[
[ 130995984 , 1418144*w - 34559784 , -1310593*w + 7838131 , 1891617*w + 662865 , -4425966*w - 1763104 , -1194783*w + 1355053 , -1257618*w
    - 3581298 , 99257*w + 836129 , -322964*w - 706496 , 290099*w - 1224195 , 183918*w + 1189580 , -25075078*w - 8085126 ],
[ -1418144*w - 34559784 , 9929472 , 180156*w - 2275056 , -632713*w + 636951 , 1586122*w - 427140 , 282314*w - 980210 , 886538*w + 617456 ,
-122122*w - 121408 , 175587*w + 103523 , -72857*w + 486983 , -95596*w - 418474 , 6858357*w + 5002949 ],
[ 1310593*w + 7838131 , -180156*w - 2275056 , 877646 , 398602*w + 662368 , -480424*w - 1529724 , -320464*w - 57736 , 12778*w - 1708644 ,
    1582*w + 325878 , -20356*w - 307804 , 87682*w - 48622 , -40812*w + 184884 , -754474*w + 5298468 ],
[ -1891617*w + 662865 , 632713*w + 636951 , -398602*w + 662368 , 6166426 , 1458866*w - 10175760 , -708220*w - 3913630 , 2839048*w -
    4123056 , -532656*w + 774760 , 445420*w - 1047732 , 353264*w + 906864 , -438166*w + 100842 , -3218947*w + 25839933 ],
[ 4425966*w - 1763104 , -1586122*w - 427140 , 480424*w - 1529724 , -1458866*w - 10175760 , 20829284 , 2007984*w + 5274346 , -3184126*w +
    10916780 , 627302*w - 1832796 , -433884*w + 2458372 , -922980*w - 987476 , 780712*w - 1153992 , -1697156*w - 45038056 ],
[ 1194783*w + 1355053 , -282314*w - 980210 , 320464*w - 57736 , 708220*w - 3913630 , -2007984*w + 5274346 , 3094910 , -2324206*w + 123410
, 448464*w - 39326 , -404966*w + 285404 , -123248*w - 807856 , 273582*w + 258062 , 4964564*w - 14069608 ],
[ 1257618*w - 3581298 , -886538*w + 617456 , -12778*w - 1708644 , -2839048*w - 4123056 , 3184126*w + 10916780 , 2324206*w + 123410 ,
    13495300 , -87664*w - 2546880 , 167726*w + 2275154 , -577132*w + 266196 , 302740*w - 1180172 , -10776800*w - 27429752 ],
[ -99257*w + 836129 , 122122*w - 121408 , -1582*w + 325878 , 532656*w + 774760 , -627302*w - 1832796 , -448464*w - 39326 , 87664*w -
    2546880 , 516348 , -23806*w - 421246 , 91920*w - 79968 , -39488*w + 196112 , 1958914*w + 5454064 ],
[ 322964*w - 706496 , -175587*w + 103523 , 20356*w - 307804 , -445420*w - 1047732 , 433884*w + 2458372 , 404966*w + 285404 , -167726*w +
    2275154 , 23806*w - 421246 , 417074 , -122360*w - 4536 , 75608*w - 218120 , -1444173*w - 5961599 ],
[ -290099*w - 1224195 , 72857*w + 486983 , -87682*w - 48622 , -353264*w + 906864 , 922980*w - 987476 , 123248*w - 807856 , 577132*w +
    266196 , -91920*w - 79968 , 122360*w - 4536 , 355152 , -97024*w - 196336 , -1779873*w + 2596629 ],
[ -183918*w + 1189580 , 95596*w - 418474 , 40812*w + 184884 , 438166*w + 100842 , -780712*w - 1153992 , -273582*w + 258062 , -302740*w -
    1180172 , 39488*w + 196112 , -75608*w - 218120 , 97024*w - 196336 , 298144 , 1720912*w + 1567930 ],
[ 25075078*w - 8085126 , -6858357*w + 5002949 , 754474*w + 5298468 , 3218947*w + 25839933 , 1697156*w - 45038056 , -4964564*w - 14069608 ,
10776800*w - 27429752 , -1958914*w + 5454064 , 1444173*w - 5961599 , 1779873*w + 2596629 , -1720912*w + 1567930 , 209500382 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1296 );
/***Gitter Nr. 415 ***/
Grammatrix:=Matrix(S,[
[ 46676 , -3002*w + 35868 , -15546*w + 8778 , -401*w - 175 , 8645*w - 16009 , 5702*w - 3192 , -5847*w + 29225 , -1712*w - 3738 , -5144*w +
    1050 , 1784*w + 17024 , -10244*w + 15372 , 14458*w + 18424 ],
[ 3002*w + 35868 , 43848 , -13040*w + 14658 , -1730*w + 798 , -680*w - 13930 , 340*w - 6720 , 3018*w + 15036 , -604*w + 840 , -888*w +
    4200 , 2112*w + 2016 , -336*w + 10416 , 4390*w + 19362 ],
[ 15546*w + 8778 , 13040*w + 14658 , 63952 , 5438*w + 6594 , 7298*w - 19404 , 3254*w - 7406 , 1082*w + 16842 , -1556*w + 490 , -1702*w +
    8050 , 4048*w + 3864 , -644*w + 19964 , 19916*w - 21686 ],
[ 401*w - 175 , 1730*w + 798 , -5438*w + 6594 , 16646 , 1980*w + 34930 , -1524*w + 12992 , -2474*w - 24948 , 1260*w - 1288 , 1480*w - 7000
, -3520*w - 3360 , 560*w - 17360 , 3179*w + 29841 ],
[ -8645*w - 16009 , 680*w - 13930 , -7298*w - 19404 , -1980*w + 34930 , 105756 , -6686*w + 44002 , -9998*w - 82978 , 5036*w - 5614 ,
    6414*w - 26754 , -14676*w - 13104 , 2352*w - 72912 , -2817*w + 93681 ],
[ -5702*w - 3192 , -340*w - 6720 , -3254*w - 7406 , 1524*w + 12992 , 6686*w + 44002 , 23422 , -11236*w - 31220 , 2034*w - 5740 , 1062*w -
    15078 , -8046*w + 1428 , -4074*w - 36330 , 4838*w + 44100 ],
[ 5847*w + 29225 , -3018*w + 15036 , -1082*w + 16842 , 2474*w - 24948 , 9998*w - 82978 , 11236*w - 31220 , 85232 , -5744*w - 336 , -8302*w
    + 17710 , 11222*w + 26292 , -12446*w + 60578 , 14751*w - 69965 ],
[ 1712*w - 3738 , 604*w + 840 , 1556*w + 490 , -1260*w - 1288 , -5036*w - 5614 , -2034*w - 5740 , 5744*w - 336 , 3024 , 1082*w + 3822 ,
    1898*w - 5460 , 4158*w + 6622 , -5064*w - 8666 ],
[ 5144*w + 1050 , 888*w + 4200 , 1702*w + 8050 , -1480*w - 7000 , -6414*w - 26754 , -1062*w - 15078 , 8302*w + 17710 , -1082*w + 3822 ,
    12824 , 5552*w - 4172 , 5348*w + 23940 , -4011*w - 26817 ],
[ -1784*w + 17024 , -2112*w + 2016 , -4048*w + 3864 , 3520*w - 3360 , 14676*w - 13104 , 8046*w + 1428 , -11222*w + 26292 , -1898*w - 5460
, -5552*w - 4172 , 20944 , -13818*w + 8246 , 15390*w - 6006 ],
[ 10244*w + 15372 , 336*w + 10416 , 644*w + 19964 , -560*w - 17360 , -2352*w - 72912 , 4074*w - 36330 , 12446*w + 60578 , -4158*w + 6622 ,
-5348*w + 23940 , 13818*w + 8246 , 67760 , 1944*w - 72366 ],
[ -14458*w + 18424 , -4390*w + 19362 , -19916*w - 21686 , -3179*w + 29841 , 2817*w + 93681 , -4838*w + 44100 , -14751*w - 69965 , 5064*w -
    8666 , 4011*w - 26817 , -15390*w - 6006 , -1944*w - 72366 , 128478 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 648 );
/***Gitter Nr. 416 ***/
Grammatrix:=Matrix(S,[
[ 840826249004 , -43493995888*w - 457709030240 , 11030867082*w + 120699626348 , -951855538*w - 11179430920 , -665062976*w - 5474470022 ,
    80292872*w + 438901904 , -252699883*w + 1636773453 , -106227402*w + 613587506 , 242415236*w + 810715878 , 485331164*w - 1203985678 ,
    12415988*w - 1150093182 , -212128280215*w - 18400624935 ],
[ 43493995888*w - 457709030240 , 264938313220 , 238582241*w - 69705755819 , -57140351*w + 6437919229 , 88841844*w + 3194734522 ,
    -21726536*w - 265516006 , 218100936*w - 797675004 , 88022033*w - 295022693 , -90838097*w - 523167617 , -322545585*w + 482362671 ,
    -63971405*w + 617993733 , 114543642056*w + 86903297894 ],
[ -11030867082*w + 120699626348 , -238582241*w - 69705755819 , 18341630580 , 9277177*w - 1693858943 , -26073052*w - 840404292 , 5941461*w
    + 69741301 , -56734869*w + 211273601 , -22919175*w + 78179829 , 24356090*w + 137173330 , 84493756*w - 128894570 , 16313346*w -
    163056488 , -30214479719*w - 22141205289 ],
[ 951855538*w - 11179430920 , 57140351*w + 6437919229 , -9277177*w - 1693858943 , 160329246 , 7671490*w + 78632288 , -996681*w - 6386177 ,
4031693*w - 22202215 , 1679327*w - 8274007 , -3096638*w - 11829314 , -7132702*w + 15571668 , -555714*w + 15923964 , 2797588299*w +
    1958353523 ],
[ 665062976*w - 5474470022 , -88841844*w + 3194734522 , 26073052*w - 840404292 , -7671490*w + 78632288 , 83601868 , -356918*w - 7030338 ,
5837874*w - 19961088 , 2315774*w - 7288624 , -2135680*w - 13437760 , -8286968*w + 11605832 , -1780680*w + 15505336 , 1324791748*w +
    1280110370 ],
[ -80292872*w + 438901904 , 21726536*w - 265516006 , -5941461*w + 69741301 , 996681*w - 6386177 , 356918*w - 7030338 , 603092 , -576300*w
    + 1498728 , -226078*w + 541548 , 120960*w + 1193024 , 745962*w - 722022 , 216846*w - 1247218 , -105537406*w - 148978186 ],
[ 252699883*w + 1636773453 , -218100936*w - 797675004 , 56734869*w + 211273601 , -4031693*w - 22202215 , -5837874*w - 19961088 , 576300*w
    + 1498728 , 7803068 , -38864*w + 2955792 , 1494948*w + 2204748 , 1192968*w - 7053144 , -687428*w - 4709572 , -407348536*w + 394731274
],
[ 106227402*w + 613587506 , -88022033*w - 295022693 , 22919175*w + 78179829 , -1679327*w - 8274007 , -2315774*w - 7288624 , 226078*w +
    541548 , 38864*w + 2955792 , 1123612 , 578608*w + 785008 , 418832*w - 2719472 , -284032*w - 1765568 , -153061460*w + 167913480 ],
[ -242415236*w + 810715878 , 90838097*w - 523167617 , -24356090*w + 137173330 , 3096638*w - 11829314 , 2135680*w - 13437760 , -120960*w +
    1193024 , -1494948*w + 2204748 , -578608*w + 785008 , 2635080 , 1693692*w - 390292 , 711040*w - 2258256 , -193163200*w - 435602524 ],
[ -485331164*w - 1203985678 , 322545585*w + 482362671 , -84493756*w - 128894570 , 7132702*w + 15571668 , 8286968*w + 11605832 , -745962*w
    - 722022 , -1192968*w - 7053144 , -418832*w - 2719472 , -1693692*w - 390292 , 7680848 , 1346720*w + 3534720 , 306839176*w - 805178136
],
[ -12415988*w - 1150093182 , 63971405*w + 617993733 , -16313346*w - 163056488 , 555714*w + 15923964 , 1780680*w + 15505336 , -216846*w -
    1247218 , 687428*w - 4709572 , 284032*w - 1765568 , -711040*w - 2258256 , -1346720*w + 3534720 , 3279584 , 282482844*w + 5770716 ],
[ 212128280215*w - 18400624935 , -114543642056*w + 86903297894 , 30214479719*w - 22141205289 , -2797588299*w + 1958353523 , -1324791748*w
    + 1280110370 , 105537406*w - 148978186 , 407348536*w + 394731274 , 153061460*w + 167913480 , 193163200*w - 435602524 , -306839176*w -
    805178136 , -282482844*w + 5770716 , 375307329894 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 240 );
/***Gitter Nr. 417 ***/
Grammatrix:=Matrix(S,[
[ 35304626 , -13576459*w + 4625565 , -42370925*w + 34967863 , 161524909*w - 283785859 , -57115680*w + 86726598 , -1344289*w + 4440597 ,
    4140403*w - 7765359 , -12352617*w + 18978043 , 4344983*w + 37656983 , 2475266*w + 1714090 , 15495444*w + 1944530 , -4573730*w +
    128227680 ],
[ 13576459*w + 4625565 , 42928298 , 953025*w + 139501187 , -81730140*w - 529759118 , 22744919*w + 183916943 , 1707845*w + 5715339 ,
    -1996625*w - 15104789 , 4152369*w + 43513407 , 17648537*w - 903203 , 1551974*w - 6923238 , 5886686*w - 46225536 , 52060584*w +
    44715048 ],
[ 42370925*w + 34967863 , -953025*w + 139501187 , 611217964 , -227395252*w - 1987112050 , 54995434*w + 696217452 , 7643372*w + 23087582 ,
-10490048*w - 66957212 , 22700518*w + 193640664 , 79523584*w - 15104684 , 6359802*w - 32215232 , 22345806*w - 212098306 , 193419834*w +
    207940390 ],
[ -161524909*w - 283785859 , 81730140*w - 529759118 , 227395252*w - 1987112050 , 8175167014 , 77020032*w - 2776421046 , -13743491*w -
    96687717 , 4112228*w + 238479108 , 11478239*w - 669250505 , -253711961*w - 188968871 , -33417360*w + 81261250 , -159394674*w +
    593054420 , -614190690*w - 1323018396 ],
[ 57115680*w + 86726598 , -22744919*w + 183916943 , -54995434*w + 696217452 , -77020032*w - 2776421046 , 950282256 , 5849959*w + 31075359
, -4550796*w - 80061352 , 4883943*w + 226874207 , 88066123*w + 40571545 , 10211434*w - 30484286 , 46017108*w - 214680830 , 221949752*w +
    406413770 ],
[ 1344289*w + 4440597 , -1707845*w + 5715339 , -7643372*w + 23087582 , 13743491*w - 96687717 , -5849959*w + 31075359 , 2228366 , 610606*w
    - 4017202 , -2001760*w + 10679382 , 3634280*w + 7825328 , 766848*w - 684040 , 4211844*w - 6674780 , 5041088*w + 24325952 ],
[ -4140403*w - 7765359 , 1996625*w - 15104789 , 10490048*w - 66957212 , -4112228*w + 238479108 , 4550796*w - 80061352 , -610606*w -
    4017202 , 9938656 , 916642*w - 27429346 , -10285382*w - 8885030 , -1427988*w + 3181822 , -6933528*w + 23639336 , -18123240*w -
    43962002 ],
[ 12352617*w + 18978043 , -4152369*w + 43513407 , -22700518*w + 193640664 , -11478239*w - 669250505 , -4883943*w + 226874207 , 2001760*w +
    10679382 , -916642*w - 27429346 , 76385652 , 29247010*w + 17925250 , 3651128*w - 9713662 , 16980096*w - 69788992 , 54809680*w +
    110347496 ],
[ -4344983*w + 37656983 , -17648537*w - 903203 , -79523584*w - 15104684 , 253711961*w - 188968871 , -88066123*w + 40571545 , -3634280*w +
    7825328 , 10285382*w - 8885030 , -29247010*w + 17925250 , 82604872 , 4575612*w + 7506240 , 30706116*w + 29139684 , -29309532*w +
    173034540 ],
[ -2475266*w + 1714090 , -1551974*w - 6923238 , -6359802*w - 32215232 , 33417360*w + 81261250 , -10211434*w - 30484286 , -766848*w -
    684040 , 1427988*w + 3181822 , -3651128*w - 9713662 , -4575612*w + 7506240 , 2457000 , 1176798*w + 14556094 , -12239618*w + 4285386 ],
[ -15495444*w + 1944530 , -5886686*w - 46225536 , -22345806*w - 212098306 , 159394674*w + 593054420 , -46017108*w - 214680830 , -4211844*w
    - 6674780 , 6933528*w + 23639336 , -16980096*w - 69788992 , -30706116*w + 29139684 , -1176798*w + 14556094 , 90188560 , -74573286*w -
    15386014 ],
[ 4573730*w + 128227680 , -52060584*w + 44715048 , -193419834*w + 207940390 , 614190690*w - 1323018396 , -221949752*w + 406413770 ,
    -5041088*w + 24325952 , 18123240*w - 43962002 , -54809680*w + 110347496 , 29309532*w + 173034540 , 12239618*w + 4285386 , 74573286*w -
    15386014 , 543149096 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 864 );
/***Gitter Nr. 418 ***/
Grammatrix:=Matrix(S,[
[ 1221010 , -20990*w + 32942 , -92632*w + 53914 , 7478*w + 7840 , -48413*w + 36351 , -33816*w - 54782 , 85566*w - 41076 , -3862*w + 66444
, -182850*w - 63728 , -171404*w + 210280 , 5100*w + 421512 , 105450*w + 680708 ],
[ 20990*w + 32942 , 29190 , -1992*w + 17262 , -3118*w + 8890 , 1539*w + 10143 , -282*w - 4732 , 4118*w + 6762 , -660*w + 882 , -2934*w -
    18522 , -6336*w - 11844 , -5562*w + 9072 , -8470*w - 45150 ],
[ 92632*w + 53914 , 1992*w + 17262 , 97958 , 682*w - 3374 , 476*w + 10038 , -9102*w + 30716 , 1376*w - 86394 , 9516*w + 6174 , -16098*w +
    177954 , 23256*w + 176652 , 59550*w + 10332 , 67756*w + 27216 ],
[ -7478*w + 7840 , 3118*w + 8890 , -682*w - 3374 , 13146 , 1185*w + 1897 , -198*w - 7042 , 5216*w + 9198 , -1458*w + 1050 , -4890*w -
    30870 , -10560*w - 19740 , -9270*w + 15120 , -18650*w + 18018 ],
[ 48413*w + 36351 , -1539*w + 10143 , -476*w + 10038 , -1185*w + 1897 , 26362 , -497*w + 2023 , 37*w - 4361 , 702*w + 168 , -307*w + 11585
, 2180*w + 10542 , 3826*w - 994 , 28076*w - 49014 ],
[ 33816*w - 54782 , 282*w - 4732 , 9102*w + 30716 , 198*w - 7042 , 497*w + 2023 , 21728 , -9214*w - 31626 , 5292*w - 4718 , 14650*w +
    95970 , 32920*w + 61684 , 29046*w - 47376 , 37776*w - 27076 ],
[ -85566*w - 41076 , -4118*w + 6762 , -1376*w - 86394 , -5216*w + 9198 , -37*w - 4361 , 9214*w - 31626 , 112252 , -9366*w - 1274 , 10888*w
    - 186312 , -29294*w - 174062 , -60624*w + 3360 , -81166*w - 56658 ],
[ 3862*w + 66444 , 660*w + 882 , -9516*w + 6174 , 1458*w + 1050 , -702*w + 168 , -5292*w - 4718 , 9366*w - 1274 , 12530 , -30092*w + 2422
, -25636*w + 47348 , 5482*w + 68670 , -4536*w + 74130 ],
[ 182850*w - 63728 , 2934*w - 18522 , 16098*w + 177954 , 4890*w - 30870 , 307*w + 11585 , -14650*w + 95970 , -10888*w - 186312 , 30092*w +
    2422 , 533190 , 113404*w + 462812 , 173940*w - 80724 , 194860*w + 81956 ],
[ 171404*w + 210280 , 6336*w - 11844 , -23256*w + 176652 , 10560*w - 19740 , -2180*w + 10542 , -32920*w + 61684 , 29294*w - 174062 ,
    25636*w + 47348 , -113404*w + 462812 , 571032 , 168310*w + 189154 , 150138*w + 359086 ],
[ -5100*w + 421512 , 5562*w + 9072 , -59550*w + 10332 , 9270*w + 15120 , -3826*w - 994 , -29046*w - 47376 , 60624*w + 3360 , -5482*w +
    68670 , -173940*w - 80724 , -168310*w + 189154 , 409948 , -56356*w + 427658 ],
[ -105450*w + 680708 , 8470*w - 45150 , -67756*w + 27216 , 18650*w + 18018 , -28076*w - 49014 , -37776*w - 27076 , 81166*w - 56658 ,
    4536*w + 74130 , -194860*w + 81956 , -150138*w + 359086 , 56356*w + 427658 , 907718 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 384 );
/***Gitter Nr. 419 ***/
Grammatrix:=Matrix(S,[
[ 4590250 , -448854*w - 12478088 , 96322*w + 2112894 , 1386*w + 2646 , 5268*w + 10038 , -55394*w - 31528 , 53044*w + 61880 , -13492*w -
    140294 , -24470*w - 23310 , 1842*w + 12712 , 21414*w - 95354 , -679124*w - 984928 ],
[ 448854*w - 12478088 , 36126006 , -65584*w - 6257832 , -45512*w - 78722 , -39020*w + 8610 , 97910*w + 176820 , -86520*w - 375480 ,
    50140*w + 498890 , 81850*w + 27230 , -10340*w - 32760 , -40150*w + 338030 , 1873762*w + 3496290 ],
[ -96322*w + 2112894 , 65584*w - 6257832 , 1096032 , 7878*w + 20678 , 9708*w - 1386 , -10602*w - 34314 , 11588*w + 72744 , -8362*w - 92946
, -15134*w - 4074 , 2028*w + 5880 , 6834*w - 62958 , -319094*w - 643930 ],
[ -1386*w + 2646 , 45512*w - 78722 , -7878*w + 20678 , 43694 , 5184*w - 2506 , 8610*w - 8050 , 1822*w - 840 , -142*w , -8*w , -12*w , 0 ,
-2852*w - 41538 ],
[ -5268*w + 10038 , 39020*w + 8610 , -9708*w - 1386 , -5184*w - 2506 , 10444 , 1432*w + 22106 , 104*w + 1680 , 26*w + 504 , 0 , 0 , 0 ,
    9216*w - 14406 ],
[ 55394*w - 31528 , -97910*w + 176820 , 10602*w - 34314 , -8610*w - 8050 , -1432*w + 22106 , 99750 , -22*w - 9744 , -14406*w + 10388 ,
    -1440*w + 21000 , 1440*w - 2520 , -12240*w - 12600 , 15708*w + 55930 ],
[ -53044*w + 61880 , 86520*w - 375480 , -11588*w + 72744 , -1822*w - 840 , -104*w + 1680 , 22*w - 9744 , 93464 , -8960*w - 24780 , -896*w
    + 12320 , 896*w - 2688 , -7616*w - 7840 , -21120*w - 90846 ],
[ 13492*w - 140294 , -50140*w + 498890 , 8362*w - 92946 , 142*w , -26*w + 504 , 14406*w + 10388 , 8960*w - 24780 , 52122 , 9256*w + 3850 ,
-1336*w - 4102 , -5124*w + 38570 , 21178*w + 70266 ],
[ 24470*w - 23310 , -81850*w + 27230 , 15134*w - 4074 , 8*w , 0 , 1440*w + 21000 , 896*w + 12320 , -9256*w + 3850 , 13678 , 792*w - 2282 ,
-8380*w - 4242 , -6338*w + 27356 ],
[ -1842*w + 12712 , 10340*w - 32760 , -2028*w + 5880 , 12*w , 0 , -1440*w - 2520 , -896*w - 2688 , 1336*w - 4102 , -792*w - 2282 , 714 ,
    1648*w - 2688 , -292*w - 5824 ],
[ -21414*w - 95354 , 40150*w + 338030 , -6834*w - 62958 , 0 , 0 , 12240*w - 12600 , 7616*w - 7840 , 5124*w + 38570 , 8380*w - 4242 ,
    -1648*w - 2688 , 37268 , 18248*w + 19334 ],
[ 679124*w - 984928 , -1873762*w + 3496290 , 319094*w - 643930 , 2852*w - 41538 , -9216*w - 14406 , -15708*w + 55930 , 21120*w - 90846 ,
    -21178*w + 70266 , 6338*w + 27356 , 292*w - 5824 , -18248*w + 19334 , 1055278 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1440 );
/***Gitter Nr. 420 ***/
Grammatrix:=Matrix(S,[
[ 354845470 , 99402164*w - 2634314928 , -372037*w + 878644893 , -1673891*w - 116073853 , -3001268*w - 45237808 , 7070059*w - 19150887 ,
    7266627*w + 41433147 , -11249496*w - 11765250 , 3745589*w + 17103891 , -2767768*w + 1363754 , 2642672*w - 5932612 , -251937179*w -
    504883057 ],
[ -99402164*w - 2634314928 , 20031724650 , -259284501*w - 6657861665 , 49820647*w + 897214703 , 48733970*w + 329253372 , -45863893*w +
    168835079 , -75316799*w - 285552953 , 91010862*w + 47389580 , -36802079*w - 117822145 , 20195452*w - 19428388 , -17111624*w + 53452406
, 2057381269*w + 3251364963 ],
[ 372037*w + 878644893 , 259284501*w - 6657861665 , 2251454170 , -4525921*w - 310408049 , -13365080*w - 119578144 , 17855584*w - 55184332
, 23161872*w + 105745640 , -31302062*w - 23766246 , 11529800*w + 44034928 , -7272496*w + 5222644 , 6571908*w - 17349416 , -649985963*w -
    1270663037 ],
[ 1673891*w - 116073853 , -49820647*w + 897214703 , 4525921*w - 310408049 , 45291372 , 2289546*w + 17398038 , -2628151*w + 8572753 ,
    -3597545*w - 15459255 , 4682518*w + 3100202 , -1815509*w - 6487201 , 1082274*w - 844564 , -962500*w + 2656808 , 88126592*w + 182192374
],
[ 3001268*w - 45237808 , -48733970*w + 329253372 , 13365080*w - 119578144 , -2289546*w + 17398038 , 13165684 , -1591666*w + 2968952 ,
    -1460198*w - 10468388 , 2675784*w + 3988670 , -582732*w - 4086096 , 633006*w - 202888 , -629926*w + 1226456 , 30312582*w + 93172982 ],
[ -7070059*w - 19150887 , 45863893*w + 168835079 , -17855584*w - 55184332 , 2628151*w + 8572753 , 1591666*w + 2968952 , 3321976 ,
    -1881002*w - 2068472 , 1304250*w - 1382878 , -874364*w - 650356 , 205378*w - 719796 , -52432*w + 1102430 , 27200777*w - 6412805 ],
[ -7266627*w + 41433147 , 75316799*w - 285552953 , -23161872*w + 105745640 , 3597545*w - 15459255 , 1460198*w - 10468388 , 1881002*w -
    2068472 , 10595984 , -1849344*w - 5583592 , 141536*w + 4247824 , -620108*w - 363832 , 744452*w - 609280 , -20385205*w - 110124105 ],
[ 11249496*w - 11765250 , -91010862*w + 47389580 , 31302062*w - 23766246 , -4682518*w + 3100202 , -2675784*w + 3988670 , -1304250*w -
    1382878 , 1849344*w - 5583592 , 5282662 , 695150*w - 2358104 , 255596*w + 943908 , -489122*w - 597226 , -9774148*w + 81728962 ],
[ -3745589*w + 17103891 , 36802079*w - 117822145 , -11529800*w + 44034928 , 1815509*w - 6487201 , 582732*w - 4086096 , 874364*w - 650356 ,
-141536*w + 4247824 , -695150*w - 2358104 , 1820742 , -246888*w - 226240 , 315920*w - 157080 , -7104179*w - 49882371 ],
[ 2767768*w + 1363754 , -20195452*w - 19428388 , 7272496*w + 5222644 , -1082274*w - 844564 , -633006*w - 202888 , -205378*w - 719796 ,
    620108*w - 363832 , -255596*w + 943908 , 246888*w - 226240 , 271992 , -62690*w - 289786 , -5772878*w + 13027000 ],
[ -2642672*w - 5932612 , 17111624*w + 53452406 , -6571908*w - 17349416 , 962500*w + 2656808 , 629926*w + 1226456 , 52432*w + 1102430 ,
    -744452*w - 609280 , 489122*w - 597226 , -315920*w - 157080 , 62690*w - 289786 , 409948 , 9179822*w - 4580030 ],
[ 251937179*w - 504883057 , -2057381269*w + 3251364963 , 649985963*w - 1270663037 , -88126592*w + 182192374 , -30312582*w + 93172982 ,
    -27200777*w - 6412805 , 20385205*w - 110124105 , 9774148*w + 81728962 , 7104179*w - 49882371 , 5772878*w + 13027000 , -9179822*w -
    4580030 , 2050161610 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1728 );
/***Gitter Nr. 421 ***/
Grammatrix:=Matrix(S,[
[ 204792 , -7648*w - 27202 , 1447*w + 28623 , 151*w + 3031 , -338*w - 1722 , -3843*w + 3437 , -1781*w - 2345 , -1633*w + 5845 , -1715*w -
    9695 , 2502*w - 9730 , 3658*w - 18732 , -38388*w - 16268 ],
[ 7648*w - 27202 , 14378 , 888*w - 8260 , 34*w - 1134 , 88*w + 280 , 234*w - 154 , 126*w + 658 , 334*w - 518 , -118*w + 1414 , -504*w +
    476 , -860*w + 1008 , 5650*w + 15330 ],
[ -1447*w + 28623 , -888*w - 8260 , 12684 , 24*w + 4158 , -628*w + 140 , 936*w + 364 , -716*w - 658 , -432*w + 518 , 86*w - 1414 , 492*w -
    476 , 860*w - 1008 , -3383*w - 7749 ],
[ -151*w + 3031 , -34*w - 1134 , -24*w + 4158 , 1960 , -268*w + 56 , 542*w + 518 , -322*w + 56 , -82*w , 0 , 0 , 0 , 651*w - 903 ],
[ 338*w - 1722 , -88*w + 280 , 628*w + 140 , 268*w + 56 , 532 , 80*w - 1078 , -38*w + 252 , -10*w + 84 , 0 , 0 , 0 , 82*w - 840 ],
[ 3843*w + 3437 , -234*w - 154 , -936*w + 364 , -542*w + 518 , -80*w - 1078 , 8694 , -28*w + 2674 , 894*w + 42 , -1200*w + 5040 , -2400*w
    - 1260 , -4650*w - 1050 , 1237*w + 18095 ],
[ 1781*w - 2345 , -126*w + 658 , 716*w - 658 , 322*w + 56 , 38*w + 252 , 28*w + 2674 , 2226 , 480*w + 42 , -640*w + 2800 , -1280*w - 630 ,
-2480*w - 560 , 1055*w + 7119 ],
[ 1633*w + 5845 , -334*w - 518 , 432*w + 518 , 82*w , 10*w + 84 , -894*w + 42 , -480*w + 42 , 1218 , -828*w - 1456 , 192*w - 2730 , 168*w
    - 5208 , -3045*w + 2597 ],
[ 1715*w - 9695 , 118*w + 1414 , -86*w - 1414 , 0 , 0 , 1200*w + 5040 , 640*w + 2800 , 828*w - 1456 , 6622 , -2464*w + 2506 , -4502*w +
    5978 , 5313*w + 11165 ],
[ -2502*w - 9730 , 504*w + 476 , -492*w - 476 , 0 , 0 , 2400*w - 1260 , 1280*w - 630 , -192*w - 2730 , 2464*w + 2506 , 7434 , 544*w +
    14112 , 6394*w - 8904 ],
[ -3658*w - 18732 , 860*w + 1008 , -860*w - 1008 , 0 , 0 , 4650*w - 1050 , 2480*w - 560 , -168*w - 5208 , 4502*w + 5978 , -544*w + 14112 ,
27104 , 12562*w - 13356 ],
[ 38388*w - 16268 , -5650*w + 15330 , 3383*w - 7749 , -651*w - 903 , -82*w - 840 , -1237*w + 18095 , -1055*w + 7119 , 3045*w + 2597 ,
    -5313*w + 11165 , -6394*w - 8904 , -12562*w - 13356 , 86954 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 360 );
/***Gitter Nr. 422 ***/
Grammatrix:=Matrix(S,[
[ 8725205706 , -1521100604*w + 5377848140 , 365097442*w - 1840544608 , -110740680*w - 152348462 , -87019216*w - 60917640 , 90084954*w +
    1042720518 , -18580730*w + 3106005168 , 542013412*w - 155311044 , 428512020*w - 2494774450 , -348448070*w - 344331498 , -487440154*w +
    9609880 , 1225901115*w - 1284326253 ],
[ 1521100604*w + 5377848140 , 5384962184 , -105879816*w - 1655043292 , -109031030*w + 33245674 , -79659344*w + 68230974 , 257235912*w +
    735472374 , 540818196*w + 2578489956 , 419154788*w - 819685426 , -97911536*w - 2608955230 , -350857830*w + 157584154 , -401694824*w +
    627023446 , 631167223*w - 1887717979 ],
[ -365097442*w - 1840544608 , 105879816*w - 1655043292 , 530184662 , 34608436*w + 15120616 , 26467024*w - 3988558 , -60040170*w -
    277810596 , -98847202*w - 898022692 , -150646694*w + 174449506 , -38462314*w + 821408406 , 112180346*w + 16076298 , 140179616*w -
    119123522 , -219442608*w + 456144304 ],
[ 110740680*w - 152348462 , 109031030*w + 33245674 , -34608436*w + 15120616 , 31609186 , 1356386*w + 21370174 , 24673566*w - 52373552 ,
    83147236*w - 92395632 , -19986758*w - 98292208 , -79313668*w - 8141252 , 859010*w + 75401522 , 14376030*w + 91231686 , -12600005*w -
    146265259 ],
[ 87019216*w - 60917640 , 79659344*w + 68230974 , -26467024*w - 3988558 , -1356386*w + 21370174 , 16737308 , 24553380*w - 27886250 ,
    77997518*w - 30871218 , -9967540*w - 94828972 , -67966232*w - 49337512 , -4994150*w + 65657494 , 5488892*w + 86559158 , 8458356*w -
    126354564 ],
[ -90084954*w + 1042720518 , -257235912*w + 735472374 , 60040170*w - 277810596 , -24673566*w - 52373552 , -24553380*w - 27886250 ,
    345362010 , -84681372*w + 1000019188 , 179965406*w + 36198736 , 198867784*w - 745333386 , -105858170*w - 169953238 , -159653084*w -
    77095606 , 215809567*w + 383667333 ],
[ 18580730*w + 3106005168 , -540818196*w + 2578489956 , 98847202*w - 898022692 , -83147236*w - 92395632 , -77997518*w - 30871218 ,
    84681372*w + 1000019188 , 3067499442 , 536868012*w - 211712704 , 397086044*w - 2535454026 , -353172322*w - 313269642 , -487802026*w +
    53427402 , 712944867*w + 777171759 ],
[ -542013412*w - 155311044 , -419154788*w - 819685426 , 150646694*w + 174449506 , 19986758*w - 98292208 , 9967540*w - 94828972 ,
    -179965406*w + 36198736 , -536868012*w - 211712704 , 674977492 , 417420120*w + 664921796 , 79641872*w - 412183520 , 24659964*w -
    603223964 , -184974033*w + 805451815 ],
[ -428512020*w - 2494774450 , 97911536*w - 2608955230 , 38462314*w + 821408406 , 79313668*w - 8141252 , 67966232*w - 49337512 ,
    -198867784*w - 745333386 , -397086044*w - 2535454026 , -417420120*w + 664921796 , 2463099366 , 333502084*w - 61308604 , 397511480*w -
    487708424 , -683697273*w - 14378511 ],
[ 348448070*w - 344331498 , 350857830*w + 157584154 , -112180346*w + 16076298 , -859010*w + 75401522 , 4994150*w + 65657494 , 105858170*w
    - 169953238 , 353172322*w - 313269642 , -79641872*w - 412183520 , -333502084*w - 61308604 , 317617944 , 56141006*w + 388899210 ,
    18946428*w - 647538514 ],
[ 487440154*w + 9609880 , 401694824*w + 627023446 , -140179616*w - 119123522 , -14376030*w + 91231686 , -5488892*w + 86559158 ,
    159653084*w - 77095606 , 487802026*w + 53427402 , -24659964*w - 603223964 , -397511480*w - 487708424 , -56141006*w + 388899210 ,
    545640788 , 137687322*w - 769413260 ],
[ -1225901115*w - 1284326253 , -631167223*w - 1887717979 , 219442608*w + 456144304 , 12600005*w - 146265259 , -8458356*w - 126354564 ,
    -215809567*w + 383667333 , -712944867*w + 777171759 , 184974033*w + 805451815 , 683697273*w - 14378511 , -18946428*w - 647538514 ,
    -137687322*w - 769413260 , 2486528254 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 384 );
/***Gitter Nr. 423 ***/
Grammatrix:=Matrix(S,[
[ 20708016 , 586566*w - 586502 , -59626*w + 181692 , 212722*w - 267218 , 141294*w + 34930 , 1502862*w + 165298 , -242122*w - 646310 ,
    67876*w - 264348 , 88832*w - 3680502 , 856528*w + 2894528 , 944334*w - 492744 , -6213862*w - 8215298 ],
[ -586566*w - 586502 , 313936 , 16708*w - 56644 , -91750*w + 206444 , -13872*w + 43428 , 2428*w + 2044 , 320*w - 1120 , -572*w , 56*w ,
    -24*w , 0 , 407514*w - 1104642 ],
[ 59626*w + 181692 , -16708*w - 56644 , 50694 , 11878*w - 172816 , 1630*w - 7378 , 176*w - 4144 , -66*w + 728 , 44*w - 896 , 0 , 0 , 0 ,
    -64082*w - 19698 ],
[ -212722*w - 267218 , 91750*w + 206444 , -11878*w - 172816 , 1011654 , -1886*w + 191534 , 80518*w - 822878 , -45608*w + 69552 , -11842*w
    - 11144 , -196200*w - 195300 , 194040*w - 200340 , 13680*w - 380520 , 230804*w - 123466 ],
[ -141294*w + 34930 , 13872*w + 43428 , -1630*w - 7378 , 1886*w + 191534 , 82992 , -8354*w - 25802 , 4598*w - 4060 , 1214*w + 10304 ,
    19620*w + 18060 , -19404*w + 20664 , -1368*w + 38052 , 31238*w - 310352 ],
[ -1502862*w + 165298 , -2428*w + 2044 , -176*w - 4144 , -80518*w - 822878 , 8354*w - 25802 , 16413572 , 798978*w - 2302440 , 318672*w +
    326564 , 4660820*w + 682990 , -3628874*w + 7679364 , 659992*w + 8342362 , -2053350*w + 72408 ],
[ 242122*w - 646310 , -320*w - 1120 , 66*w + 728 , 45608*w + 69552 , -4598*w - 4060 , -798978*w - 2302440 , 603694 , -62692*w + 61544 ,
    -695462*w + 1521618 , 134292*w - 2350418 , -507468*w - 955360 , 299412*w - 589330 ],
[ -67876*w - 264348 , 572*w , -44*w - 896 , 11842*w - 11144 , -1214*w + 10304 , -318672*w + 326564 , 62692*w + 61544 , 54152 , 88322*w +
    659876 , -231176*w - 334656 , -150620*w + 273532 , -10796*w - 316484 ],
[ -88832*w - 3680502 , -56*w , 0 , 196200*w - 195300 , -19620*w + 18060 , -4660820*w + 682990 , 695462*w + 1521618 , -88322*w + 659876 ,
    9468088 , -2375314*w - 7025550 , -2385808*w + 1688442 , 77480*w - 3756396 ],
[ -856528*w + 2894528 , 24*w , 0 , -194040*w - 200340 , 19404*w + 20664 , 3628874*w + 7679364 , -134292*w - 2350418 , 231176*w - 334656 ,
2375314*w - 7025550 , 9384522 , 2193924*w + 2936948 , -1002654*w + 2649192 ],
[ -944334*w - 492744 , 0 , 0 , -13680*w - 380520 , 1368*w + 38052 , -659992*w + 8342362 , 507468*w - 955360 , 150620*w + 273532 ,
    2385808*w + 1688442 , -2193924*w + 2936948 , 4509428 , -934274*w - 812518 ],
[ 6213862*w - 8215298 , -407514*w - 1104642 , 64082*w - 19698 , -230804*w - 123466 , -31238*w - 310352 , 2053350*w + 72408 , -299412*w -
    589330 , 10796*w - 316484 , -77480*w - 3756396 , 1002654*w + 2649192 , 934274*w - 812518 , 20384924 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 13824 );
/***Gitter Nr. 424 ***/
Grammatrix:=Matrix(S,[
[ 203869820 , -4387288*w - 101458126 , 270898*w - 1916096 , -445818*w + 1453144 , 234700*w - 1159410 , 694462*w - 11712190 , 208818*w -
    1389122 , 1688320*w - 1445080 , 1526186*w - 1118740 , -1124130*w + 8254232 , 239966*w - 1818362 , 22634214*w + 42228522 ],
[ 4387288*w - 101458126 , 51651152 , -188440*w + 793268 , 308227*w - 608153 , -206820*w + 581574 , -629879*w + 5559855 , -136403*w +
    646485 , -838367*w + 455091 , -754429*w + 320803 , 705890*w - 3794938 , -151848*w + 836542 , -10355375*w - 24147179 ],
[ -270898*w - 1916096 , 188440*w + 793268 , 57176 , -14328*w - 73626 , 14652*w + 24500 , 10466*w + 74830 , 546*w + 8386 , -7218*w + 8050 ,
-6302*w + 6678 , 3356*w - 36540 , -712*w + 8036 , -261558*w - 230272 ],
[ 445818*w + 1453144 , -308227*w - 608153 , 14328*w - 73626 , 378728 , -2126*w - 140126 , -193128*w + 895342 , -28954*w + 92008 ,
    -193546*w - 46704 , -174400*w - 62720 , 253120*w - 725760 , -55200*w + 162400 , 281360*w - 148708 ],
[ -234700*w - 1159410 , 206820*w + 581574 , -14652*w + 24500 , 2126*w - 140126 , 116914 , 47934*w - 153272 , 7222*w - 11368 , 48396*w +
    13888 , 43600*w + 17500 , -63700*w + 180600 , 13800*w - 40600 , -150398*w - 17472 ],
[ -694462*w - 11712190 , 629879*w + 5559855 , -10466*w + 74830 , 193128*w + 895342 , -47934*w - 153272 , 8072652 , -55660*w + 920178 ,
    -1273446*w + 1349628 , -1172160*w + 1082830 , 720190*w - 6701380 , -152880*w + 1486800 , -1033010*w - 2820818 ],
[ -208818*w - 1389122 , 136403*w + 646485 , -546*w + 8386 , 28954*w + 92008 , -7222*w - 11368 , 55660*w + 920178 , 108458 , -134872*w +
    215908 , -125248*w + 180418 , 34658*w - 794668 , -6924*w + 175924 , -157858*w - 245756 ],
[ -1688320*w - 1445080 , 838367*w + 455091 , 7218*w + 8050 , 193546*w - 46704 , -48396*w + 13888 , 1273446*w + 1349628 , 134872*w + 215908
, 1653120 , -25220*w + 1494682 , -949812*w - 1937992 , 211960*w + 422072 , -603682*w + 430164 ],
[ -1526186*w - 1118740 , 754429*w + 320803 , 6302*w + 6678 , 174400*w - 62720 , -43600*w + 17500 , 1172160*w + 1082830 , 125248*w + 180418
, 25220*w + 1494682 , 1354276 , -888516*w - 1651104 , 198130*w + 359058 , -533382*w + 435736 ],
[ 1124130*w + 8254232 , -705890*w - 3794938 , -3356*w - 36540 , -253120*w - 725760 , 63700*w + 180600 , -720190*w - 6701380 , -34658*w -
    794668 , 949812*w - 1937992 , 888516*w - 1651104 , 6093934 , -5984*w - 1347808 , 921618*w + 1898190 ],
[ -239966*w - 1818362 , 151848*w + 836542 , 712*w + 8036 , 55200*w + 162400 , -13800*w - 40600 , 152880*w + 1486800 , 6924*w + 175924 ,
    -211960*w + 422072 , -198130*w + 359058 , 5984*w - 1347808 , 298144 , -200100*w - 423780 ],
[ -22634214*w + 42228522 , 10355375*w - 24147179 , 261558*w - 230272 , -281360*w - 148708 , 150398*w - 17472 , 1033010*w - 2820818 ,
    157858*w - 245756 , 603682*w + 430164 , 533382*w + 435736 , -921618*w + 1898190 , 200100*w - 423780 , 26810714 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4608 );
/***Gitter Nr. 425 ***/
Grammatrix:=Matrix(S,[
[ 216020 , -1006*w + 6678 , -17026*w + 4382 , 1678*w + 3276 , -3430*w + 9324 , 12814*w + 8904 , -3372*w - 16338 , -1864*w + 17780 , 1754*w
    - 104678 , 18382*w + 94290 , -34896*w - 1680 , -26972*w - 307426 ],
[ 1006*w + 6678 , 15428 , 697*w + 9919 , 348*w - 3444 , 5100*w - 4732 , 4820*w + 7014 , 134*w - 7056 , -1210*w + 4704 , 7620*w - 36876 ,
    504*w + 41496 , -12228*w - 15876 , -1728*w + 10682 ],
[ 17026*w + 4382 , -697*w + 9919 , 16814 , 762*w - 2450 , 4824*w + 3416 , 3758*w + 3220 , -363*w - 3927 , -273*w + 3899 , 1979*w - 24745 ,
3076*w + 23842 , -8178*w - 3486 , -23324*w + 28476 ],
[ -1678*w + 3276 , -348*w - 3444 , -762*w - 2450 , 1218 , -1138*w + 2142 , -906*w + 2044 , 438*w + 336 , -360*w - 896 , 1976*w + 5208 ,
    -2752*w - 1792 , 1656*w - 4872 , 2227*w - 4361 ],
[ 3430*w + 9324 , -5100*w - 4732 , -4824*w + 3416 , 1138*w + 2142 , 22540 , -2786*w + 11690 , 2146*w + 1344 , -1528*w - 2856 , 9280*w +
    19712 , -11998*w - 4382 , 6226*w - 22638 , -9774*w - 2128 ],
[ -12814*w + 8904 , -4820*w + 7014 , -3758*w + 3220 , 906*w + 2044 , 2786*w + 11690 , 46228 , 6842*w - 13608 , -7614*w - 840 , 49660*w -
    17556 , -39554*w + 80542 , -7094*w - 113078 , 13111*w + 62937 ],
[ 3372*w - 16338 , -134*w - 7056 , 363*w - 3927 , -438*w + 336 , -2146*w + 1344 , -6842*w - 13608 , 11648 , 2432*w - 7924 , -11732*w +
    58100 , -768*w - 65632 , 19292*w + 25340 , -14552*w - 4494 ],
[ 1864*w + 17780 , 1210*w + 4704 , 273*w + 3899 , 360*w - 896 , 1528*w - 2856 , 7614*w - 840 , -2432*w - 7924 , 9268 , -4432*w - 57036 ,
    14560*w + 43680 , -18608*w + 11536 , 9368*w - 21518 ],
[ -1754*w - 104678 , -7620*w - 36876 , -1979*w - 24745 , -1976*w + 5208 , -9280*w + 19712 , -49660*w - 17556 , 11732*w + 58100 , 4432*w -
    57036 , 404950 , -75744*w - 346528 , 131096*w - 11928 , -82423*w + 66689 ],
[ -18382*w + 94290 , -504*w + 41496 , -3076*w + 23842 , 2752*w - 1792 , 11998*w - 4382 , 39554*w + 80542 , 768*w - 65632 , -14560*w +
    43680 , 75744*w - 346528 , 396368 , -114624*w - 161840 , 82989*w + 44835 ],
[ 34896*w - 1680 , 12228*w - 15876 , 8178*w - 3486 , -1656*w - 4872 , -6226*w - 22638 , 7094*w - 113078 , -19292*w + 25340 , 18608*w +
    11536 , -131096*w - 11928 , 114624*w - 161840 , 298144 , -21072*w - 185038 ],
[ 26972*w - 307426 , 1728*w + 10682 , 23324*w + 28476 , -2227*w - 4361 , 9774*w - 2128 , -13111*w + 62937 , 14552*w - 4494 , -9368*w -
    21518 , 82423*w + 66689 , -82989*w + 44835 , 21072*w - 185038 , 731780 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 1944 );
/***Gitter Nr. 426 ***/
Grammatrix:=Matrix(S,[
[ 1274 , -220*w + 266 , -16*w , -14*w , 0 , 0 , 0 , -20*w , 110*w , 30*w , 0 , 218*w + 532 ],
[ 220*w + 266 , 756 , -6*w + 140 , -2*w , 0 , 0 , 0 , -4*w , 22*w , 6*w , 0 , 134*w - 196 ],
[ 16*w , 6*w + 140 , 140 , -56 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -8*w - 84 ],
[ 14*w , 2*w , -56 , 154 , -42 , 18*w , -42*w , 12*w , 0 , 0 , 0 , 82*w - 126 ],
[ 0 , 0 , 0 , -42 , 238 , 10*w + 56 , 46*w , -28*w , 0 , 0 , 0 , 22*w + 168 ],
[ 0 , 0 , 0 , -18*w , -10*w + 56 , 42 , 8*w - 28 , -6*w , 0 , 0 , 0 , 24*w + 126 ],
[ 0 , 0 , 0 , 42*w , -46*w , -8*w - 28 , 140 , -56 , 0 , 0 , 0 , -68*w - 126 ],
[ 20*w , 4*w , 0 , -12*w , 28*w , 6*w , -56 , 42 , -14 , -6*w , -12*w + 42 , 50*w - 28 ],
[ -110*w , -22*w , 0 , 0 , 0 , 0 , 0 , -14 , 140 , -6*w + 42 , -12*w + 42 , -30*w + 112 ],
[ -30*w , -6*w , 0 , 0 , 0 , 0 , 0 , 6*w , 6*w + 42 , 42 , 20*w + 84 , -16*w - 42 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 12*w + 42 , 12*w + 42 , -20*w + 84 , 308 , 38*w - 224 ],
[ -218*w + 532 , -134*w - 196 , 8*w - 84 , -82*w - 126 , -22*w + 168 , -24*w + 126 , 68*w - 126 , -50*w - 28 , 30*w + 112 , 16*w - 42 ,
    -38*w - 224 , 1302 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 111132 );
/***Gitter Nr. 427 ***/
Grammatrix:=Matrix(S,[
[ 140 , -30*w - 238 , -104*w + 56 , -58*w - 280 , 18*w + 140 , 0 , 0 , 0 , 0 , 0 , 0 , 32*w + 28 ],
[ 30*w - 238 , 6034 , 74*w - 1232 , 90*w + 6300 , -38*w - 3150 , 0 , 0 , 160*w , -40*w , -60*w , 0 , -572*w - 1148 ],
[ 104*w + 56 , -74*w - 1232 , 952 , -124*w - 1148 , 60*w + 644 , 0 , 0 , -32*w , 8*w , 12*w , 0 , 136*w + 168 ],
[ 58*w - 280 , -90*w + 6300 , 124*w - 1148 , 6860 , 10*w - 3416 , -48*w , 8*w , 144*w , -40*w , -60*w , 0 , -656*w - 1148 ],
[ -18*w + 140 , 38*w - 3150 , -60*w + 644 , -10*w - 3416 , 1932 , -8*w - 56 , 36*w , -48*w , 20*w , 30*w , 0 , 300*w + 476 ],
[ 0 , 0 , 0 , 48*w , 8*w - 56 , 126 , -10*w - 56 , -6*w , 0 , 0 , 0 , 22*w + 168 ],
[ 0 , 0 , 0 , -8*w , -36*w , 10*w - 56 , 56 , 28 , 0 , 0 , 0 , 12*w - 56 ],
[ 0 , -160*w , 32*w , -144*w , 48*w , 6*w , 28 , 252 , 72*w - 56 , 0 , -48*w + 168 , 124*w - 126 ],
[ 0 , 40*w , -8*w , 40*w , -20*w , 0 , 0 , -72*w - 56 , 266 , -12*w , -72*w - 210 , 280 ],
[ 0 , 60*w , -12*w , 60*w , -30*w , 0 , 0 , 0 , 12*w , 14 , -8*w + 28 , 28 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48*w + 168 , 72*w - 210 , 8*w + 28 , 308 , 64*w - 224 ],
[ -32*w + 28 , 572*w - 1148 , -136*w + 168 , 656*w - 1148 , -300*w + 476 , -22*w + 168 , -12*w - 56 , -124*w - 126 , 280 , 28 , -64*w - 224 , 1176 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 15876 );
/***Gitter Nr. 428 ***/
Grammatrix:=Matrix(S,[
[ 305256 , -6574*w + 47460 , -1328*w - 17892 , -970*w + 4732 , -11412*w - 24612 , -1680*w + 11522 , -860*w - 4998 , 12148*w + 11158 , -8380*w + 3514 , 22*w - 37982 , 8180*w + 31892 , -99958*w - 133420 ],
[ 6574*w + 47460 , 61152 , -436*w - 16982 , 2174*w + 1456 , -8464*w + 6916 , 5836*w + 21504 , -2252*w - 2688 , 2432*w - 44352 , 6752*w + 37632 , -28452*w + 20160 , 19872*w - 58464 , 25977*w + 42637 ],
[ 1328*w - 17892 , 436*w - 16982 , 37464 , 128*w - 3248 , -5764*w - 5054 , 4086*w - 6496 , -1290*w + 896 , -1004*w + 14784 , -2272*w - 12544 , 9492*w - 6720 , -6624*w + 19488 , 1701*w - 57281 ],
[ 970*w + 4732 , -2174*w + 1456 , -128*w - 3248 , 2324 , 732*w - 5516 , -452*w + 5880 , 128*w - 1456 , 96*w - 2016 , 288*w + 1568 , -1188*w + 840 , 828*w - 2436 , 5365*w + 13825 ],
[ 11412*w - 24612 , 8464*w + 6916 , 5764*w - 5054 , -732*w - 5516 , 78540 , -418*w - 15624 , -426*w + 10472 , 1864*w - 58044 , 7344*w + 42224 , -30294*w + 20580 , 21114*w - 62118 , -15490*w + 56266 ],
[ 1680*w + 11522 , -5836*w + 21504 , -4086*w - 6496 , 452*w + 5880 , 418*w - 15624 , 30534 , -422*w - 6496 , 1146*w - 30212 , 4608*w + 25088 , -19008*w + 13440 , 13248*w - 38976 , 41596*w + 89180 ],
[ 860*w - 4998 , 2252*w - 2688 , 1290*w + 896 , -128*w - 1456 , 426*w + 10472 , 422*w - 6496 , 2240 , -1356*w - 1316 , 1068*w - 1120 , 552*w + 5460 , -1624*w - 3864 , -5775*w - 14315 ],
[ -12148*w + 11158 , -2432*w - 44352 , 1004*w + 14784 , -96*w - 2016 , -1864*w - 58044 , -1146*w - 30212 , 1356*w - 1316 , 117866 , -19476*w - 86842 , 65466*w - 63280 , -41910*w + 149226 , -59862*w - 188244 ],
[ 8380*w + 3514 , -6752*w + 37632 , 2272*w - 12544 , -288*w + 1568 , -7344*w + 42224 , -4608*w + 25088 , -1068*w - 1120 , 19476*w - 86842 , 87486 , -59490*w - 29708 , 56334*w - 62034 , 15796*w + 216048 ],
[ -22*w - 37982 , 28452*w + 20160 , -9492*w - 6720 , 1188*w + 840 , 30294*w + 20580 , 19008*w + 13440 , -552*w + 5460 , -65466*w - 63280 , 59490*w - 29708 , 293482 , -61344*w - 247296 , 141736*w - 153622 ],
[ -8180*w + 31892 , -19872*w - 58464 , 6624*w + 19488 , -828*w - 2436 , -21114*w - 62118 , -13248*w - 38976 , 1624*w - 3864 , 41910*w + 149226 , -56334*w - 62034 , 61344*w - 247296 , 298144 , -151224*w - 77378 ],
[ 99958*w - 133420 , -25977*w + 42637 , -1701*w - 57281 , -5365*w + 13825 , 15490*w + 56266 , -41596*w + 89180 , 5775*w - 14315 , 59862*w - 188244 , -15796*w + 216048 , -141736*w - 153622 , 151224*w - 77378 , 1214444 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 5760 );
/***Gitter Nr. 429 ***/
Grammatrix:=Matrix(S,[
[ 154 , -20*w + 28 , -14*w + 28 , -2*w + 14 , -14*w - 14 , 207*w + 1757 , 28*w + 350 , 18*w , 44*w , 12*w , 0 , 80*w + 70 ],
[ 20*w + 28 , 140 , -10*w + 98 , -3*w + 21 , -14*w - 14 , 387*w + 147 , 64*w + 28 , -6*w , 0 , 0 , 0 , 28*w - 70 ],
[ 14*w + 28 , 10*w + 98 , 140 , 6*w + 98 , -22*w + 14 , 282*w - 420 , 26*w - 56 , -14*w + 14 , 0 , 0 , 0 , -2*w - 42 ],
[ 2*w + 14 , 3*w + 21 , -6*w + 98 , 196 , -11*w + 49 , -174*w - 840 , -74*w - 154 , -19*w + 7 , 0 , 0 , 0 , -61*w + 63 ],
[ 14*w - 14 , 14*w - 14 , 22*w + 14 , 11*w + 49 , 126 , -150*w - 1806 , -26*w - 266 , 2*w + 42 , 0 , 0 , 0 , -58*w - 56 ],
[ -207*w + 1757 , -387*w + 147 , -282*w - 420 , 174*w - 840 , 150*w - 1806 , 51268 , 9212 , 297*w - 441 , 550*w , 150*w , 0 , 1805*w + 3031 ],
[ -28*w + 350 , -64*w + 28 , -26*w - 56 , 74*w - 154 , 26*w - 266 , 9212 , 1764 , 60*w - 28 , 110*w , 30*w , 0 , 352*w + 588 ],
[ -18*w , 6*w , 14*w + 14 , 19*w + 7 , -2*w + 42 , -297*w - 441 , -60*w - 28 , 154 , 42 , -72*w , 36*w - 126 , -62*w + 14 ],
[ -44*w , 0 , 0 , 0 , 0 , -550*w , -110*w , 42 , 140 , 24*w + 42 , -12*w + 42 , -16*w + 182 ],
[ -12*w , 0 , 0 , 0 , 0 , -150*w , -30*w , 72*w , -24*w + 42 , 462 , -120*w - 196 , -54*w + 308 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -36*w - 126 , 12*w + 42 , 120*w - 196 , 308 , 90*w - 28 ],
[ -80*w + 70 , -28*w - 70 , 2*w - 42 , 61*w + 63 , 58*w - 56 , -1805*w + 3031 , -352*w + 588 , 62*w + 14 , 16*w + 182 , 54*w + 308 , -90*w - 28 , 896 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 3888 );
/***Gitter Nr. 430 ***/
Grammatrix:=Matrix(S,[
[ 14 , 0 , -2*w , -4*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -26*w + 42 ],
[ 0 , 14 , -16*w , -6*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2*w + 28 ],
[ 2*w , 16*w , 140 , 56 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 40*w + 14 ],
[ 4*w , 6*w , 56 , 154 , 42 , 90*w , 66*w , -12*w , 0 , 0 , 0 , -8*w + 168 ],
[ 0 , 0 , 0 , 42 , 238 , -50*w + 56 , 102*w , -28*w , 0 , 0 , 0 , 52*w + 70 ],
[ 0 , 0 , 0 , -90*w , 50*w + 56 , 714 , 20*w + 140 , -6*w , 0 , 0 , 0 , -66*w - 336 ],
[ 0 , 0 , 0 , -66*w , -102*w , -20*w + 140 , 476 , -112 , 0 , 0 , 0 , -76*w + 28 ],
[ 0 , 0 , 0 , 12*w , 28*w , 6*w , -112 , 252 , -56 , 24*w , -48*w + 168 , 68*w + 42 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -56 , 364 , 14*w + 70 , -28*w + 98 , 4*w + 28 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -24*w , -14*w + 70 , 42 , -36*w - 28 , -6*w + 56 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48*w + 168 , 28*w + 98 , 36*w - 28 , 308 , 66*w - 28 ],
[ 26*w + 42 , -2*w + 28 , -40*w + 14 , 8*w + 168 , -52*w + 70 , 66*w - 336 , 76*w + 28 , -68*w + 42 , -4*w + 28 , 6*w + 56 , -66*w - 28 , 994 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 3024 );
/***Gitter Nr. 431 ***/
Grammatrix:=Matrix(S,[
[ 2018702 , 1933470*w - 5014548 , -609108*w + 1646778 , 347722*w - 3163258 , 96300*w - 522186 , -9218*w - 507234 , -193318*w - 895020 , -443580*w - 159236 , -854674*w + 683018 , 165052*w - 1494528 , -438766*w - 846776 , -656270*w - 6095166 ],
[ -1933470*w - 5014548 , 39039714 , -231716*w - 12651716 , 227194*w + 14461454 , 35726*w + 2696862 , 64826*w + 1364818 , 10256*w + 182042 , -28760*w - 75614 , -91814*w - 126126 , 59422*w - 88536 , -10488*w - 163954 , 11118582*w + 7046774 ],
[ 609108*w + 1646778 , 231716*w - 12651716 , 4193266 , -30298*w - 4709362 , -2018*w - 877982 , -14584*w - 457968 , 6090*w - 96824 , -2116*w - 10500 , 112*w , -84*w , 0 , -3444378*w - 2606856 ],
[ -347722*w - 3163258 , -227194*w + 14461454 , 30298*w - 4709362 , 12822292 , -4094*w + 2007124 , -156896*w + 1643642 , -643912*w + 2501184 , 587546*w + 3610992 , 2099536*w + 5090400 , -1818732*w + 1239840 , -164160*w + 4566240 , 2219604*w +
    571592 ],
[ -96300*w - 522186 , -35726*w + 2696862 , 2018*w - 877982 , 4094*w + 2007124 , 328006 , -16752*w + 228774 , -74692*w + 269850 , 68334*w + 426622 , 243972*w + 591150 , -211342*w + 144354 , -19076*w + 530614 , 567334*w + 257586 ],
[ 9218*w - 507234 , -64826*w + 1364818 , 14584*w - 457968 , 156896*w + 1643642 , 16752*w + 228774 , 334838 , -36178*w + 798700 , 257354*w + 610344 , 645560*w + 564620 , -349980*w + 740320 , 133400*w + 1036140 , -200902*w + 460124 ],
[ 193318*w - 895020 , -10256*w + 182042 , -6090*w - 96824 , 643912*w + 2501184 , 74692*w + 269850 , 36178*w + 798700 , 2454662 , 842292*w + 1529738 , 1981992*w + 1052870 , -932262*w + 2517074 , 534564*w + 2931054 , -1748388*w + 989744 ],
[ 443580*w - 159236 , 28760*w - 75614 , 2116*w - 10500 , -587546*w + 3610992 , -68334*w + 426622 , -257354*w + 610344 , -842292*w + 1529738 , 3143770 , 932020*w + 5669622 , -1518782*w - 676886 , -698052*w + 3277862 , -1463334*w - 3779286 ],
[ 854674*w + 683018 , 91814*w - 126126 , -112*w , -2099536*w + 5090400 , -243972*w + 591150 , -645560*w + 564620 , -1981992*w + 1052870 , -932020*w + 5669622 , 12178390 , -2542262*w - 4379634 , -2234092*w + 4469822 , -1567108*w - 9938180 ],
[ -165052*w - 1494528 , -59422*w - 88536 , 84*w , 1818732*w + 1239840 , 211342*w + 144354 , 349980*w + 740320 , 932262*w + 2517074 , 1518782*w - 676886 , 2542262*w - 4379634 , 5289942 , 1736516*w + 1657152 , -1510562*w + 5862542 ],
[ 438766*w - 846776 , 10488*w - 163954 , 0 , 164160*w + 4566240 , 19076*w + 530614 , -133400*w + 1036140 , -534564*w + 2931054 , 698052*w + 3277862 , 2234092*w + 4469822 , -1736516*w + 1657152 , 4509428 , -2397894*w - 1636334 ],
[ 656270*w - 6095166 , -11118582*w + 7046774 , 3444378*w - 2606856 , -2219604*w + 571592 , -567334*w + 257586 , 200902*w + 460124 , 1748388*w + 989744 , 1463334*w - 3779286 , 1567108*w - 9938180 , 1510562*w + 5862542 , 2397894*w - 1636334 ,
    34001926 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4608 );
/***Gitter Nr. 432 ***/
Grammatrix:=Matrix(S,[
[ 84 , 5*w - 7 , -19*w + 133 , -26*w + 14 , 21*w + 21 , 15*w + 7 , 42*w , 14*w , -4*w , -6*w , 0 , -35*w + 63 ],
[ -5*w - 7 , 868 , -14*w + 238 , 87*w + 21 , 24*w + 14 , -129*w + 147 , -15*w + 35 , -6*w , 0 , 0 , 0 , 165*w - 385 ],
[ 19*w + 133 , 14*w + 238 , 476 , -30*w + 112 , 66*w , 28 , 105*w - 105 , -28*w + 28 , 0 , 0 , 0 , 54*w + 126 ],
[ 26*w + 14 , -87*w + 21 , 30*w + 112 , 280 , 16*w - 84 , -30*w - 252 , -5*w - 259 , -w + 49 , 0 , 0 , 0 , 147*w + 273 ],
[ -21*w + 21 , -24*w + 14 , -66*w , -16*w - 84 , 140 , -4*w + 28 , 31*w + 217 , -8*w - 56 , 0 , 0 , 0 , -30*w + 42 ],
[ -15*w + 7 , 129*w + 147 , 28 , 30*w - 252 , 4*w + 28 , 364 , 10*w + 182 , -3*w - 21 , 0 , 0 , 0 , -105*w - 441 ],
[ -42*w , 15*w + 35 , -105*w - 105 , 5*w - 259 , -31*w + 217 , -10*w + 182 , 476 , -112 , 0 , 0 , 0 , -108*w - 168 ],
[ -14*w , 6*w , 28*w + 28 , w + 49 , 8*w - 56 , 3*w - 21 , -112 , 252 , 0 , 48*w - 56 , 32*w - 112 , 17*w - 147 ],
[ 4*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , 18*w , 12*w - 42 , -10*w + 14 ],
[ 6*w , 0 , 0 , 0 , 0 , 0 , 0 , -48*w - 56 , -18*w , 266 , 76*w + 196 , 16*w - 56 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -32*w - 112 , -12*w - 42 , -76*w + 196 , 308 , 42*w - 28 ],
[ 35*w + 63 , -165*w - 385 , -54*w + 126 , -147*w + 273 , 30*w + 42 , 105*w - 441 , 108*w - 168 , -17*w - 147 , 10*w + 14 , -16*w - 56 , -42*w - 28 , 1120 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 3456 );
/***Gitter Nr. 433 ***/
Grammatrix:=Matrix(S,[
[ 52098494 , -19721356*w + 19766614 , 4956210*w - 7562772 , 2037646*w - 2941288 , 234266*w - 751184 , 1674486*w + 622538 , -1602470*w + 8380372 , -47188*w - 153538 , 1545292*w + 84364 , 1957796*w + 1127518 , 1221630*w - 2447032 , -43833990*w -
    102488512 ],
[ 19721356*w + 19766614 , 168279090 , -1006564*w - 33903856 , -119684*w - 14722400 , 387956*w - 6302492 , -1799312*w - 9702 , -1213676*w - 12459300 , 107676*w - 96376 , -1587274*w + 3516772 , -2361082*w + 3497158 , -408344*w + 5364058 ,
    -25896118*w + 105337904 ],
[ -4956210*w - 7562772 , 1006564*w - 33903856 , 8457890 , -38946*w + 3136098 , 127324*w - 73234 , 640200*w + 8643712 , -5156354*w - 3675336 , 39484*w - 335076 , 360000*w + 6242880 , -102600*w + 8292060 , 1765800*w + 4284000 , 7291988*w -
    19880462 ],
[ -2037646*w - 2941288 , 119684*w - 14722400 , 38946*w + 3136098 , 1352596 , -1818*w + 533330 , -19284*w - 7770 , 183590*w + 161196 , -1362*w + 18816 , -12800*w - 220416 , 3648*w - 295008 , -62784*w - 152320 , 4244716*w - 8180830 ],
[ -234266*w - 751184 , -387956*w - 6302492 , -127324*w - 73234 , 1818*w + 533330 , 1953910 , -2238752*w - 8456616 , 6916134*w - 1789424 , 13876*w + 466172 , -1545760*w - 7130480 , -1349752*w - 10188276 , -2904104*w - 3000480 , 3937042*w -
    5229350 ],
[ -1674486*w + 622538 , 1799312*w - 9702 , -640200*w + 8643712 , 19284*w - 7770 , 2238752*w - 8456616 , 87527174 , -49058156*w - 66112648 , 678330*w - 3327940 , -1356720*w + 64947120 , -7669656*w + 83128892 , 14395608*w + 53128320 , -35546626*w
    - 39575312 ],
[ 1602470*w + 8380372 , 1213676*w - 12459300 , 5156354*w - 3675336 , -183590*w + 161196 , -6916134*w - 1789424 , 49058156*w - 66112648 , 246807316 , -2398544*w - 173348 , 38047968*w - 44684080 , 53248840*w - 33500516 , 19158296*w - 98336672 ,
    2314736*w + 156660672 ],
[ 47188*w - 153538 , -107676*w - 96376 , -39484*w - 335076 , 1362*w + 18816 , -13876*w + 466172 , -678330*w - 3327940 , 2398544*w - 173348 , 164584 , -459764*w - 2558178 , -361298*w - 3601038 , -968734*w - 1237824 , 1655184*w - 369502 ],
[ -1545292*w + 84364 , 1587274*w + 3516772 , -360000*w + 6242880 , 12800*w - 220416 , 1545760*w - 7130480 , 1356720*w + 64947120 , -38047968*w - 44684080 , 459764*w - 2558178 , 49159502 , -4475734*w + 63542948 , 11694622*w + 38485160 ,
    -24649512*w - 24991456 ],
[ -1957796*w + 1127518 , 2361082*w + 3497158 , 102600*w + 8292060 , -3648*w - 295008 , 1349752*w - 10188276 , 7669656*w + 83128892 , -53248840*w - 33500516 , 361298*w - 3601038 , 4475734*w + 63542948 , 84988778 , 18620508*w + 42292964 ,
    -34283270*w - 16507176 ],
[ -1221630*w - 2447032 , 408344*w + 5364058 , -1765800*w + 4284000 , 62784*w - 152320 , 2904104*w - 3000480 , -14395608*w + 53128320 , -19158296*w - 98336672 , 968734*w - 1237824 , -11694622*w + 38485160 , -18620508*w + 42292964 , 49603708 ,
    -13437422*w - 60775624 ],
[ 43833990*w - 102488512 , 25896118*w + 105337904 , -7291988*w - 19880462 , -4244716*w - 8180830 , -3937042*w - 5229350 , 35546626*w - 39575312 , -2314736*w + 156660672 , -1655184*w - 369502 , 24649512*w - 24991456 , 34283270*w - 16507176 ,
    13437422*w - 60775624 , 662070402 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 960 );
/***Gitter Nr. 434 ***/
Grammatrix:=Matrix(S,[
[ 388094 , -34846*w - 304626 , -6346*w - 11746 , 60236*w - 28000 , -89958*w - 49056 , -355820*w + 131152 , -149708*w + 61838 , 49104*w + 286888 , -73750*w + 123620 , -387418*w + 497546 , -74606*w + 730590 , -181056*w - 913402 ],
[ 34846*w - 304626 , 423402 , 21734*w - 67060 , -116104*w + 129682 , 78838*w + 113540 , 351326*w + 81410 , 146178*w + 30464 , -23564*w - 306712 , 81318*w - 76188 , 416808*w - 255556 , 133268*w - 664174 , 98844*w + 1040158 ],
[ 6346*w - 11746 , -21734*w - 67060 , 153734 , 1512*w - 428694 , -5218*w - 39284 , -27604*w - 33866 , -12222*w - 29932 , 1030*w + 30212 , -7366*w + 2898 , -39666*w + 9786 , -15430*w + 57008 , -35392*w + 53844 ],
[ -60236*w - 28000 , 116104*w + 129682 , -1512*w - 428694 , 1329496 , 6878*w + 70756 , 27340*w - 2870 , 11654*w + 52192 , -6054*w - 28616 , 5568*w - 12320 , 31424*w - 59360 , 2432*w - 67648 , 228742*w - 406798 ],
[ 89958*w - 49056 , -78838*w + 113540 , 5218*w - 39284 , -6878*w + 70756 , 415688 , 213440*w + 1510026 , 96182*w + 654500 , 170834*w - 338968 , 108096*w + 284704 , 469968*w + 1605408 , 509184*w + 76944 , -366414*w + 288120 ],
[ 355820*w + 131152 , -351326*w + 81410 , 27604*w - 33866 , -27340*w - 2870 , -213440*w + 1510026 , 6326894 , 14008*w + 2748424 , 808570*w - 615496 , 248768*w + 1445584 , 880960*w + 7647920 , 1833344*w + 2167872 , -1511968*w - 294014 ],
[ 149708*w + 61838 , -146178*w + 30464 , 12222*w - 29932 , -11654*w + 52192 , -96182*w + 654500 , -14008*w + 2748424 , 1196972 , 353132*w - 255696 , 105016*w + 632240 , 366196*w + 3340736 , 792720*w + 971684 , -645136*w - 185164 ],
[ -49104*w + 286888 , 23564*w - 306712 , -1030*w + 30212 , 6054*w - 28616 , -170834*w - 338968 , -808570*w - 615496 , -353132*w - 255696 , 792680 , -210330*w + 83132 , -1074962*w + 39900 , -461444*w + 1443190 , 199948*w - 1295952 ],
[ 73750*w + 123620 , -81318*w - 76188 , 7366*w + 2898 , -5568*w - 12320 , -108096*w + 284704 , -248768*w + 1445584 , -105016*w + 632240 , 210330*w + 83132 , 400344 , -101566*w + 2001552 , 334928*w + 1007930 , -328394*w - 495950 ],
[ 387418*w + 497546 , -416808*w - 255556 , 39666*w + 9786 , -31424*w - 59360 , -469968*w + 1605408 , -880960*w + 7647920 , -366196*w + 3340736 , 1074962*w + 39900 , 101566*w + 2001552 , 10209878 , 1934588*w + 4454464 , -1763254*w - 1985732 ],
[ 74606*w + 730590 , -133268*w - 664174 , 15430*w + 57008 , -2432*w - 67648 , -509184*w + 76944 , -1833344*w + 2167872 , -792720*w + 971684 , 461444*w + 1443190 , -334928*w + 1007930 , -1934588*w + 4454464 , 4509428 , -392592*w - 3205482 ],
[ 181056*w - 913402 , -98844*w + 1040158 , 35392*w + 53844 , -228742*w - 406798 , 366414*w + 288120 , 1511968*w - 294014 , 645136*w - 185164 , -199948*w - 1295952 , 328394*w - 495950 , 1763254*w - 1985732 , 392592*w - 3205482 , 4068470 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8064 );
/***Gitter Nr. 435 ***/
Grammatrix:=Matrix(S,[
[ 17222100 , -505012*w - 343784 , -511802*w + 422408 , -709214*w - 828058 , -6115636*w - 5992 , 1460662*w - 1106644 , 327728*w - 357882 , 87020*w + 3439912 , 4087792*w + 14353164 , 68332*w + 3461710 , -1056030*w + 8164954 , 19200300*w +
    14647402 ],
[ 505012*w - 343784 , 477918 , -120336*w + 486598 , -181138*w + 633290 , 8746*w - 69370 , 3024*w + 2492 , -2234*w + 4536 , -672*w + 896 , -152*w , -24*w , 0 , -107090*w - 3402168 ],
[ 511802*w + 422408 , 120336*w + 486598 , 1407980 , -29458*w + 2179030 , -237510*w + 2257290 , -10742*w - 681086 , 9884*w - 99568 , 184314*w + 185052 , 972360*w - 606060 , 180360*w + 180180 , 353160*w + 856800 , 822096*w - 1273874 ],
[ 709214*w - 828058 , 181138*w + 633290 , 29458*w + 2179030 , 5001794 , -114358*w + 2249170 , -6488*w - 853384 , 5302*w + 71876 , 92328*w + 145376 , 486180*w - 283080 , 90180*w + 93240 , 176580*w + 428400 , 284828*w - 2819194 ],
[ 6115636*w - 5992 , -8746*w - 69370 , 237510*w + 2257290 , 114358*w + 2249170 , 147650328 , -4794710*w - 35392154 , -470158*w - 9881368 , 13044850*w + 1077034 , 57626184*w - 90167994 , 12884634*w + 2006382 , 29022354*w + 36280020 , -26060394*w
    - 87788456 ],
[ -1460662*w - 1106644 , -3024*w + 2492 , 10742*w - 681086 , 6488*w - 853384 , 4794710*w - 35392154 , 9618588 , -219114*w + 2444008 , -3076608*w - 3276574 , -16711056*w + 8187886 , -3005346*w - 3453114 , -5721754*w - 15347892 , 3596362*w +
    27305292 ],
[ -327728*w - 357882 , 2234*w + 4536 , -9884*w - 99568 , -5302*w + 71876 , 470158*w - 9881368 , 219114*w + 2444008 , 721798 , -897736*w - 357098 , -4271708*w + 4927790 , -883428*w - 429506 , -1887172*w - 3162656 , 1456032*w + 5736444 ],
[ -87020*w + 3439912 , 672*w + 896 , -184314*w + 185052 , -92328*w + 145376 , -13044850*w + 1077034 , 3076608*w - 3276574 , 897736*w - 357098 , 8202488 , 8488230*w + 35571788 , -91050*w + 8105804 , -3055466*w + 18476136 , 7109202*w - 16683464
],
[ -4087792*w + 14353164 , 152*w , -972360*w - 606060 , -486180*w - 283080 , -57626184*w - 90167994 , 16711056*w + 8187886 , 4271708*w + 4927790 , -8488230*w + 35571788 , 215824840 , -8786190*w + 34504288 , -32382358*w + 58011828 , 47955410*w -
    19856340 ],
[ -68332*w + 3461710 , 24*w , -180360*w + 180180 , -90180*w + 93240 , -12884634*w + 2006382 , 3005346*w - 3453114 , 883428*w - 429506 , 91050*w + 8105804 , 8786190*w + 34504288 , 8020054 , -2815368*w + 18502428 , 6861540*w - 16842700 ],
[ 1056030*w + 8164954 , 0 , -353160*w + 856800 , -176580*w + 428400 , -29022354*w + 36280020 , 5721754*w - 15347892 , 1887172*w - 3162656 , 3055466*w + 18476136 , 32382358*w + 58011828 , 2815368*w + 18502428 , 49603708 , 9924754*w - 55692098 ],
[ -19200300*w + 14647402 , 107090*w - 3402168 , -822096*w - 1273874 , -284828*w - 2819194 , 26060394*w - 87788456 , -3596362*w + 27305292 , -1456032*w + 5736444 , -7109202*w - 16683464 , -47955410*w - 19856340 , -6861540*w - 16842700 ,
    -9924754*w - 55692098 , 236443634 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 9216 );
/***Gitter Nr. 436 ***/
Grammatrix:=Matrix(S,[
[ 593740 , 447914*w + 4588346 , 520608*w + 4509120 , 198699*w + 1920219 , -28423*w - 416087 , -2144*w - 20664 , -11900*w + 56182 , 93090*w + 178276 , 13336*w + 80920 , 22326*w + 910 , 16444*w - 29988 , 1226260*w + 1236508 ],
[ -447914*w + 4588346 , 38632244 , 100688*w + 37709168 , -188040*w + 15826678 , 136096*w - 3268440 , -1540*w - 103348 , -122346*w + 297346 , 400076*w + 1611330 , 6768*w + 572768 , 134368*w + 149436 , 126646*w - 77126 , 8338127*w + 16905987 ],
[ -520608*w + 4509120 , -100688*w + 37709168 , 41505660 , -276040*w + 17919202 , 255421*w - 3728753 , 63100*w - 204890 , -217922*w + 362334 , 479386*w + 3297826 , -53533*w + 1018563 , 220521*w + 364945 , 231631*w - 33663 , 9114008*w + 18771256
],
[ -198699*w + 1920219 , 188040*w + 15826678 , 276040*w + 17919202 , 7800646 , 94473*w - 1639113 , 31490*w - 100968 , -99693*w + 173019 , 237747*w + 1550969 , -20764*w + 482692 , 105792*w + 164962 , 109152*w - 23058 , 4059545*w + 7681205 ],
[ 28423*w - 416087 , -136096*w - 3268440 , -255421*w - 3728753 , -94473*w - 1639113 , 367822 , -3886*w + 32536 , 19515*w - 59563 , -102189*w - 324485 , -9232*w - 118888 , -29894*w - 17248 , -25214*w + 27804 , -933525*w - 1296155 ],
[ 2144*w - 20664 , 1540*w - 103348 , -63100*w - 204890 , -31490*w - 100968 , 3886*w + 32536 , 11312 , 2128*w - 11620 , -29322*w - 42980 , -5328*w - 20440 , -6098*w + 3150 , -3898*w + 10486 , -72178*w + 4200 ],
[ 11900*w + 56182 , 122346*w + 297346 , 217922*w + 362334 , 99693*w + 173019 , -19515*w - 59563 , -2128*w - 11620 , 30044 , 59568*w + 22456 , 13844*w + 26460 , 9816*w - 15176 , 4284*w - 24388 , 176778*w - 167888 ],
[ -93090*w + 178276 , -400076*w + 1611330 , -479386*w + 3297826 , -237747*w + 1550969 , 102189*w - 324485 , 29322*w - 42980 , -59568*w + 22456 , 940604 , -44820*w + 237468 , 42764*w + 134988 , 57280*w + 42224 , 502057*w + 2206253 ],
[ -13336*w + 80920 , -6768*w + 572768 , 53533*w + 1018563 , 20764*w + 482692 , 9232*w - 118888 , 5328*w - 20440 , -13844*w + 26460 , 44820*w + 237468 , 77224 , 17852*w + 20524 , 16960*w - 8848 , 245510*w + 375704 ],
[ -22326*w + 910 , -134368*w + 149436 , -220521*w + 364945 , -105792*w + 164962 , 29894*w - 17248 , 6098*w + 3150 , -9816*w - 15176 , -42764*w + 134988 , -17852*w + 20524 , 34384 , 6560*w + 25088 , -19698*w + 499618 ],
[ -16444*w - 29988 , -126646*w - 77126 , -231631*w - 33663 , -109152*w - 23058 , 25214*w + 27804 , 3898*w + 10486 , -4284*w - 24388 , -57280*w + 42224 , -16960*w - 8848 , -6560*w + 25088 , 27104 , -111320*w + 337372 ],
[ -1226260*w + 1236508 , -8338127*w + 16905987 , -9114008*w + 18771256 , -4059545*w + 7681205 , 933525*w - 1296155 , 72178*w + 4200 , -176778*w - 167888 , -502057*w + 2206253 , -245510*w + 375704 , 19698*w + 499618 , 111320*w + 337372 ,
    22506554 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4368 );
/***Gitter Nr. 437 ***/
Grammatrix:=Matrix(S,[
[ 42 , -8*w + 14 , 20*w , -6*w , 0 , 0 , 0 , 8*w , 22*w , 6*w , 0 , 2*w + 42 ],
[ 8*w + 14 , 126 , 20*w + 56 , -6*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 18*w - 14 ],
[ -20*w , -20*w + 56 , 476 , -112 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -52*w + 14 ],
[ 6*w , 6*w , -112 , 154 , 42 , 90*w , 66*w , -12*w , 0 , 0 , 0 , -28*w + 14 ],
[ 0 , 0 , 0 , 42 , 70 , 70*w - 28 , -18*w , 8*w , 0 , 0 , 0 , -20*w - 112 ],
[ 0 , 0 , 0 , -90*w , -70*w - 28 , 714 , 20*w + 140 , -6*w , 0 , 0 , 0 , 72*w - 182 ],
[ 0 , 0 , 0 , -66*w , 18*w , -20*w + 140 , 476 , -112 , 0 , 0 , 0 , -104*w - 140 ],
[ -8*w , 0 , 0 , 12*w , -8*w , 6*w , -112 , 84 , 28 , -12*w , 24*w - 84 , -4*w + 28 ],
[ -22*w , 0 , 0 , 0 , 0 , 0 , 0 , 28 , 140 , 6*w + 42 , -12*w + 42 , 4*w - 28 ],
[ -6*w , 0 , 0 , 0 , 0 , 0 , 0 , 12*w , -6*w + 42 , 42 , -36*w - 28 , 12*w + 56 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -24*w - 84 , 12*w + 42 , 36*w - 28 , 308 , 56*w - 168 ],
[ -2*w + 42 , -18*w - 14 , 52*w + 14 , 28*w + 14 , 20*w - 112 , -72*w - 182 , 104*w - 140 , 4*w + 28 , -4*w - 28 , -12*w + 56 , -56*w - 168 , 644 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 592704 );
/***Gitter Nr. 438 ***/
Grammatrix:=Matrix(S,[
[ 69535158 , 4135827*w + 16584911 , -1152142*w - 5938716 , -436061*w - 1844759 , -1913139*w - 5171299 , -105540*w + 802746 , -659082*w - 2408378 , 740458*w - 26812072 , -866014*w + 1712438 , -4968614*w + 1297016 , -1155512*w + 7681926 ,
    -14625514*w - 24750866 ],
[ -4135827*w + 16584911 , 16412284 , 90312*w - 7126350 , -22460*w - 2028488 , -99623*w + 665007 , 9879*w + 11053 , -30430*w - 54026 , -246102*w - 70854 , 14575*w + 66451 , -730*w + 333298 , 69534*w + 96740 , -5595156*w - 14094486 ],
[ 1152142*w - 5938716 , -90312*w - 7126350 , 5036682 , 38054*w + 1151486 , 364520*w - 208180 , -11218*w - 73346 , 122694*w + 207032 , 402762*w + 2796276 , 55226*w - 283360 , 478268*w - 764134 , -23032*w - 923622 , 3058180*w + 5452370 ],
[ 436061*w - 1844759 , 22460*w - 2028488 , -38054*w + 1151486 , 292712 , 66695*w - 18459 , -933*w - 16905 , 19096*w + 51590 , 42236*w + 618590 , 15813*w - 52255 , 109852*w - 106316 , 9236*w - 192178 , 775300*w + 1822128 ],
[ 1913139*w - 5171299 , 99623*w + 665007 , -364520*w - 208180 , -66695*w - 18459 , 2910516 , 99687*w - 126525 , -69636*w + 1071546 , -2859526*w + 6084554 , 383029*w + 180369 , 1353818*w + 3141698 , 1049472*w - 1088878 , -653384*w + 5620286 ],
[ 105540*w + 802746 , -9879*w + 11053 , 11218*w - 73346 , 933*w - 16905 , -99687*w - 126525 , 36708 , -30680*w - 62216 , -105834*w - 1250424 , -31152*w + 105966 , -217872*w + 231210 , -13908*w + 386862 , -231182*w - 453880 ],
[ 659082*w - 2408378 , 30430*w - 54026 , -122694*w + 207032 , -19096*w + 51590 , 69636*w + 1071546 , 30680*w - 62216 , 435484 , -734776*w + 2688084 , 134704*w - 35728 , 560112*w + 719292 , 312280*w - 616812 , 38316*w + 2146914 ],
[ -740458*w - 26812072 , 246102*w - 70854 , -402762*w + 2796276 , -42236*w + 618590 , 2859526*w + 6084554 , 105834*w - 1250424 , 734776*w + 2688084 , 49444738 , 1522456*w - 3234350 , 8908704*w - 3678584 , 1780392*w - 14159600 , 6954888*w +
    20406918 ],
[ 866014*w + 1712438 , -14575*w + 66451 , -55226*w - 283360 , -15813*w - 52255 , -383029*w + 180369 , 31152*w + 105966 , -134704*w - 35728 , -1522456*w - 3234350 , 541786 , -471166*w + 2164134 , 319680*w + 1313396 , -1086380*w + 129262 ],
[ 4968614*w + 1297016 , 730*w + 333298 , -478268*w - 764134 , -109852*w - 106316 , -1353818*w + 3141698 , 217872*w + 231210 , -560112*w + 719292 , -8908704*w - 3678584 , 471166*w + 2164134 , 11524576 , 2421786*w + 3303594 , -4227240*w + 7215908
],
[ 1155512*w + 7681926 , -69534*w + 96740 , 23032*w - 923622 , -9236*w - 192178 , -1049472*w - 1088878 , 13908*w + 386862 , -312280*w - 616812 , -1780392*w - 14159600 , -319680*w + 1313396 , -2421786*w + 3303594 , 4509428 , -2729204*w - 4149292
],
[ 14625514*w - 24750866 , 5595156*w - 14094486 , -3058180*w + 5452370 , -775300*w + 1822128 , 653384*w + 5620286 , 231182*w - 453880 , -38316*w + 2146914 , -6954888*w + 20406918 , 1086380*w + 129262 , 4227240*w + 7215908 , 2729204*w - 4149292 ,
44700208 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 14400 );
/***Gitter Nr. 439 ***/
Grammatrix:=Matrix(S,[
[ 476 , -48*w + 224 , -96*w , -68*w + 140 , -28*w - 28 , 72*w , -104*w , 0 , -14*w , 6*w , 0 , 104*w - 434 ],
[ 48*w + 224 , 308 , -48*w + 112 , -27*w - 7 , 15*w + 7 , 82*w - 84 , -2*w + 28 , -4*w , 0 , 0 , 0 , 43*w - 301 ],
[ 96*w , 48*w + 112 , 280 , 28*w + 70 , 2*w + 84 , -2*w - 210 , 32*w + 280 , -6*w - 42 , 0 , 0 , 0 , -162*w - 252 ],
[ 68*w + 140 , 27*w - 7 , -28*w + 70 , 350 , -51*w + 7 , -22*w - 70 , -109*w + 161 , 22*w - 28 , 0 , 0 , 0 , -87*w - 343 ],
[ 28*w - 28 , -15*w + 7 , -2*w + 84 , 51*w + 7 , 140 , 3*w + 77 , 39*w + 273 , -8*w - 56 , 0 , 0 , 0 , -60*w + 28 ],
[ -72*w , -82*w - 84 , 2*w - 210 , 22*w - 70 , -3*w + 77 , 364 , 13*w + 7 , -3*w - 21 , 0 , 0 , 0 , 118*w + 350 ],
[ 104*w , 2*w + 28 , -32*w + 280 , 109*w + 161 , -39*w + 273 , -13*w + 7 , 728 , -140 , 0 , 0 , 0 , -203*w - 231 ],
[ 0 , 4*w , 6*w - 42 , -22*w - 28 , 8*w - 56 , 3*w - 21 , -140 , 252 , -56 , -96*w , -48*w + 168 , 96*w + 56 ],
[ 14*w , 0 , 0 , 0 , 0 , 0 , 0 , -56 , 140 , 72*w - 42 , 36*w - 126 , -36*w ],
[ -6*w , 0 , 0 , 0 , 0 , 0 , 0 , 96*w , -72*w - 42 , 462 , 104*w + 252 , 14*w - 252 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48*w + 168 , -36*w - 126 , -104*w + 252 , 308 , 66*w - 112 ],
[ -104*w - 434 , -43*w - 301 , 162*w - 252 , 87*w - 343 , 60*w + 28 , -118*w + 350 , 203*w - 231 , -96*w + 56 , 36*w , -14*w - 252 , -66*w - 112 , 1316 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 82944 );
/***Gitter Nr. 440 ***/
Grammatrix:=Matrix(S,[
[ 9641170 , -2598916*w + 795970 , -216119*w - 665049 , 387409*w + 1284493 , -802207*w + 1279915 , 262556*w - 874622 , 5124*w - 197750 , 171075*w + 845481 , -608408*w - 910882 , 461425*w - 1782557 , -19364*w - 1600046 , 894535*w - 4649085 ],
[ 2598916*w + 795970 , 7278124 , -484531*w + 2291709 , 471571*w - 3577763 , 2084110*w + 820610 , -780410*w + 396060 , -37993*w + 334355 , 171316*w - 1402716 , 339422*w + 2768304 , -1253691*w + 746445 , -624470*w + 1901592 , -1635528*w - 3328220
],
[ 216119*w - 665049 , 484531*w + 2291709 , 2644866 , -410406*w - 3425744 , 1684968*w - 2513294 , -444414*w + 1463518 , 67286*w + 297696 , -184868*w - 1175608 , 831150*w + 1295126 , -660758*w + 2413614 , 6518*w + 2208262 , -680474*w - 423416 ],
[ -387409*w + 1284493 , -471571*w - 3577763 , 410406*w - 3425744 , 5298132 , -2919982*w + 1389724 , 949318*w - 1544998 , -23964*w - 532742 , 50638*w + 2049320 , -995130*w - 3148138 , 1491292*w - 2717540 , 439028*w - 3354876 , 864572*w + 1214752
],
[ 802207*w + 1279915 , -2084110*w + 820610 , -1684968*w - 2513294 , 2919982*w + 1389724 , 12826226 , -672242*w - 4405632 , -343894*w - 51814 , 1214942*w + 228228 , -2091596*w + 3440332 , -1281862*w - 6797154 , -1893990*w - 2568454 , 899259*w -
    3081687 ],
[ -262556*w - 874622 , 780410*w + 396060 , 444414*w + 1463518 , -949318*w - 1544998 , 672242*w - 4405632 , 1899422 , 107274*w + 204022 , -484768*w - 576856 , 1040296*w - 493808 , 107502*w + 3249386 , 603150*w + 1816206 , -535813*w + 523565 ],
[ -5124*w - 197750 , 37993*w + 334355 , -67286*w + 297696 , 23964*w - 532742 , 343894*w - 51814 , -107274*w + 204022 , 95844 , -35924*w - 215320 , 155804*w + 282828 , -139210*w + 446166 , -9216*w + 428960 , -126111*w - 210679 ],
[ -171075*w + 845481 , -171316*w - 1402716 , 184868*w - 1175608 , -50638*w + 2049320 , -1214942*w + 228228 , 484768*w - 576856 , 35924*w - 215320 , 1156288 , -464816*w - 1871520 , 870778*w - 1241086 , 314660*w - 1751036 , 211349*w + 871857 ],
[ 608408*w - 910882 , -339422*w + 2768304 , -831150*w + 1295126 , 995130*w - 3148138 , 2091596*w + 3440332 , -1040296*w - 493808 , -155804*w + 282828 , 464816*w - 1871520 , 4381328 , -1925808*w - 447888 , -1224896*w + 1966048 , -13009*w -
    2168929 ],
[ -461425*w - 1782557 , 1253691*w + 746445 , 660758*w + 2413614 , -1491292*w - 2717540 , 1281862*w - 6797154 , -107502*w + 3249386 , 139210*w + 446166 , -870778*w - 1241086 , 1925808*w - 447888 , 5971896 , 989480*w + 3568152 , -944745*w +
    260239 ],
[ 19364*w - 1600046 , 624470*w + 1901592 , -6518*w + 2208262 , -439028*w - 3354876 , 1893990*w - 2568454 , -603150*w + 1816206 , 9216*w + 428960 , -314660*w - 1751036 , 1224896*w + 1966048 , -989480*w + 3568152 , 3279584 , -608671*w - 942249 ],
[ -894535*w - 4649085 , 1635528*w - 3328220 , 680474*w - 423416 , -864572*w + 1214752 , -899259*w - 3081687 , 535813*w + 523565 , 126111*w - 210679 , -211349*w + 871857 , 13009*w - 2168929 , 944745*w + 260239 , 608671*w - 942249 , 5078360 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 8064 );
/***Gitter Nr. 441 ***/
Grammatrix:=Matrix(S,[
[ 5627860 , -241606*w + 3754534 , -116244*w + 320726 , -106380*w - 570780 , 125738*w - 3108 , -1883680*w + 24220154 , 628810*w - 8067808 , 229504*w + 283388 , -285746*w + 165424 , 130922*w - 364070 , -73556*w - 376264 , -1257096*w - 3753932 ],
[ 241606*w + 3754534 , 3368792 , -20204*w + 421904 , -116294*w - 579474 , 84542*w + 33054 , 321257*w + 20950251 , -95235*w - 6960765 , 106003*w - 70231 , -82131*w + 262941 , 7984*w - 220682 , -64228*w - 77812 , -1316640*w - 2398256 ],
[ 116244*w + 320726 , 20204*w + 421904 , 110614 , -9362*w - 79072 , -5240*w - 1820 , 338796*w + 3031084 , -111532*w - 990178 , 23130*w - 173880 , 22920*w + 201600 , -40080*w - 86520 , -37080*w + 60480 , -226504*w - 210854 ],
[ 106380*w - 570780 , 116294*w - 579474 , 9362*w - 79072 , 147882 , -9096*w - 42742 , 585602*w - 3591028 , -198406*w + 1185212 , -4180*w + 35896 , -4584*w - 40320 , 8016*w + 17304 , 7416*w - 12096 , 146940*w + 681226 ],
[ -125738*w - 3108 , -84542*w + 33054 , 5240*w - 1820 , 9096*w - 42742 , 57988 , -382032*w - 87472 , 134104*w + 33110 , -56596*w - 16086 , 55986*w - 87360 , -18144*w + 101010 , 25354*w + 66108 , 55844*w - 149912 ],
[ 1883680*w + 24220154 , -321257*w + 20950251 , -338796*w + 3031084 , -585602*w - 3591028 , 382032*w - 87472 , 138312328 , 16456*w - 45766854 , 1293348*w - 1766002 , -747738*w + 3982566 , -145728*w - 2864148 , -902144*w - 483672 , -8480420*w -
    16633274 ],
[ -628810*w - 8067808 , 95235*w - 6960765 , 111532*w - 990178 , 198406*w + 1185212 , -134104*w + 33110 , -16456*w - 45766854 , 15160376 , -407274*w + 504308 , 251100*w - 1202922 , 30240*w + 889602 , 275862*w + 181860 , 2805920*w + 5503778 ],
[ -229504*w + 283388 , -106003*w - 70231 , -23130*w - 173880 , 4180*w + 35896 , 56596*w - 16086 , -1293348*w - 1766002 , 407274*w + 504308 , 1039332 , -282878*w - 919086 , 278480*w + 218792 , 142958*w - 529690 , 262150*w - 423878 ],
[ 285746*w + 165424 , 82131*w + 262941 , -22920*w + 201600 , 4584*w - 40320 , -55986*w - 87360 , 747738*w + 3982566 , -251100*w - 1202922 , 282878*w - 919086 , 1357706 , -187678*w - 727426 , -271972*w + 196840 , -355302*w - 83468 ],
[ -130922*w - 364070 , -7984*w - 220682 , 40080*w - 86520 , -8016*w + 17304 , 18144*w + 101010 , 145728*w - 2864148 , -30240*w + 889602 , -278480*w + 218792 , 187678*w - 727426 , 571368 , 172930*w + 157738 , 179746*w + 387674 ],
[ 73556*w - 376264 , 64228*w - 77812 , 37080*w + 60480 , -7416*w - 12096 , -25354*w + 66108 , 902144*w - 483672 , -275862*w + 181860 , -142958*w - 529690 , 271972*w + 196840 , -172930*w + 157738 , 409948 , -66996*w + 486024 ],
[ 1257096*w - 3753932 , 1316640*w - 2398256 , 226504*w - 210854 , -146940*w + 681226 , -55844*w - 149912 , 8480420*w - 16633274 , -2805920*w + 5503778 , -262150*w - 423878 , 355302*w - 83468 , -179746*w + 387674 , 66996*w + 486024 , 5647558 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 3888 );
/***Gitter Nr. 442 ***/
Grammatrix:=Matrix(S,[
[ 154158648 , 884154*w + 14667800 , 1383318*w - 11618082 , 236478*w - 1155826 , -1030958*w - 1493982 , -693040*w + 524356 , -352718*w + 591612 , -57432*w + 398216 , -229586*w + 499576 , -64922*w + 646100 , 240538*w + 557746 , 44258068*w +
    103383476 ],
[ -884154*w + 14667800 , 1802192 , 344174*w + 321412 , 58146*w + 92666 , -90774*w - 74298 , -81044*w - 22078 , -47086*w - 6818 , -30276*w - 686 , 4668*w - 25074 , -3304*w - 17654 , -9662*w + 1862 , 4069960*w + 11283370 ],
[ -1383318*w - 11618082 , -344174*w + 321412 , 30980348 , 225094*w + 2267580 , -291504*w + 4692072 , -28496*w + 379400 , 19044*w - 240800 , 3372*w - 25200 , -240*w , -36*w , 0 , 1969928*w - 5010922 ],
[ -236478*w - 1155826 , -58146*w + 92666 , -225094*w + 2267580 , 231336 , -53500*w + 219800 , -32260*w + 117152 , -18400*w + 77364 , -200*w + 131068 , -69560*w - 60060 , -54012*w + 51660 , -6840*w + 190260 , 33572*w - 17948 ],
[ 1030958*w - 1493982 , 90774*w - 74298 , 291504*w + 4692072 , 53500*w + 219800 , 1365966 , 32206*w + 289772 , 26184*w + 32130 , 1274*w - 56042 , 81060*w + 56070 , 63000*w - 62370 , 7980*w - 221970 , 1230766*w - 3454080 ],
[ 693040*w + 524356 , 81044*w - 22078 , 28496*w + 379400 , 32260*w + 117152 , -32206*w + 289772 , 2865744 , 34942*w + 2303882 , 486214*w + 2263786 , -1279420*w + 782390 , -641960*w + 2128910 , 571980*w + 3076990 , 891488*w - 2106160 ],
[ 352718*w + 591612 , 47086*w - 6818 , -19044*w - 240800 , 18400*w + 77364 , -26184*w + 32130 , -34942*w + 2303882 , 1886724 , 375508*w + 1908452 , -1075988*w + 534366 , -563144*w + 1712844 , 434972*w + 2615886 , 523920*w - 1124424 ],
[ 57432*w + 398216 , 30276*w - 686 , -3372*w - 25200 , 200*w + 131068 , -1274*w - 56042 , -486214*w + 2263786 , -375508*w + 1908452 , 2492616 , -1220984*w - 1008210 , -935736*w + 948528 , -94028*w + 3327478 , 467088*w - 540316 ],
[ 229586*w + 499576 , -4668*w - 25074 , 240*w , 69560*w - 60060 , -81060*w + 56070 , 1279420*w + 782390 , 1075988*w + 534366 , 1220984*w - 1008210 , 4636086 , 850184*w + 2852934 , 1683764*w - 1028930 , -169632*w - 858312 ],
[ 64922*w + 646100 , 3304*w - 17654 , 36*w , 54012*w + 51660 , -63000*w - 62370 , 641960*w + 2128910 , 563144*w + 1712844 , 935736*w + 948528 , -850184*w + 2852934 , 2847194 , 1224928*w + 1528408 , 77408*w - 742672 ],
[ -240538*w + 557746 , 9662*w + 1862 , 0 , 6840*w + 190260 , -7980*w - 221970 , -571980*w + 3076990 , -434972*w + 2615886 , 94028*w + 3327478 , -1683764*w - 1028930 , -1224928*w + 1528408 , 4509428 , 367478*w - 158844 ],
[ -44258068*w + 103383476 , -4069960*w + 11283370 , -1969928*w - 5010922 , -33572*w - 17948 , -1230766*w - 3454080 , -891488*w - 2106160 , -523920*w - 1124424 , -467088*w - 540316 , 169632*w - 858312 , -77408*w - 742672 , -367478*w - 158844 ,
    168836668 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 7056 );
/***Gitter Nr. 443 ***/
Grammatrix:=Matrix(S,[
[ 624456 , -9608*w + 49294 , -42639*w + 112077 , -5673*w - 37723 , -25295*w - 146447 , -11758*w + 112952 , -2567*w + 29617 , -53301*w - 92827 , 12500*w - 7658 , 25077*w + 4291 , 27860*w - 202846 , -130685*w - 207305 ],
[ 9608*w + 49294 , 19026 , 2569*w + 17703 , -2046*w + 6314 , -5862*w - 8652 , 6630*w + 3220 , 1633*w + 637 , -367*w + 24493 , -1151*w - 3283 , -1740*w - 8526 , -11490*w + 6258 , -10547*w - 20293 ],
[ 42639*w + 112077 , -2569*w + 17703 , 62510 , -7170*w - 8722 , -19558*w - 14728 , 12498*w + 45052 , 3453*w + 11165 , -29455*w + 40509 , 1697*w - 17395 , 7156*w - 28686 , -27538*w - 84798 , -26705*w + 30485 ],
[ 5673*w - 37723 , 2046*w + 6314 , 7170*w - 8722 , 14490 , -456*w + 14546 , 3694*w - 21336 , 750*w - 5488 , 12124*w + 14896 , -2224*w + 3024 , -5392*w + 1008 , -3440*w + 44688 , 3834*w + 4564 ],
[ 25295*w - 146447 , 5862*w - 8652 , 19558*w - 14728 , 456*w + 14546 , 134932 , 7224*w - 47670 , 1764*w - 12712 , 5134*w + 34860 , -2416*w - 2688 , -4696*w - 9912 , -15668*w + 28812 , 15498*w + 75712 ],
[ 11758*w + 112952 , -6630*w + 3220 , -12498*w + 45052 , -3694*w - 21336 , -7224*w - 47670 , 63854 , 382*w + 16184 , -36320*w - 5250 , 5122*w - 13524 , 12862*w - 16674 , -8158*w - 120750 , -16882*w + 14574 ],
[ 2567*w + 29617 , -1633*w + 637 , -3453*w + 11165 , -750*w - 5488 , -1764*w - 12712 , -382*w + 16184 , 4144 , -9140*w - 2968 , 1384*w - 3248 , 3360*w - 3584 , -1252*w - 30884 , -4578*w + 3164 ],
[ 53301*w - 92827 , 367*w + 24493 , 29455*w + 40509 , -12124*w + 14896 , -5134*w + 34860 , 36320*w - 5250 , 9140*w - 2968 , 186228 , -10584*w - 26124 , -13568*w - 62608 , -86480*w + 55664 , 27410*w + 68362 ],
[ -12500*w - 7658 , 1151*w - 3283 , -1697*w - 17395 , 2224*w + 3024 , 2416*w - 2688 , -5122*w - 13524 , -1384*w - 3248 , 10584*w - 26124 , 8134 , -1664*w + 14000 , 15192*w + 26600 , -172*w - 20818 ],
[ -25077*w + 4291 , 1740*w - 8526 , -7156*w - 28686 , 5392*w + 1008 , 4696*w - 9912 , -12862*w - 16674 , -3360*w - 3584 , 13568*w - 62608 , 1664*w + 14000 , 28112 , 33216*w + 25424 , -4108*w - 37156 ],
[ -27860*w - 202846 , 11490*w + 6258 , 27538*w - 84798 , 3440*w + 44688 , 15668*w + 28812 , 8158*w - 120750 , 1252*w - 30884 , 86480*w + 55664 , -15192*w + 26600 , -33216*w + 25424 , 298144 , 40290*w - 68530 ],
[ 130685*w - 207305 , 10547*w - 20293 , 26705*w + 30485 , -3834*w + 4564 , -15498*w + 75712 , 16882*w + 14574 , 4578*w + 3164 , -27410*w + 68362 , 172*w - 20818 , 4108*w - 37156 , -40290*w - 68530 , 312998 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 3888 );
/***Gitter Nr. 444 ***/
Grammatrix:=Matrix(S,[
[ 16333646 , 53764*w - 12553758 , -91656*w - 1189566 , -29924*w - 569072 , 15584*w + 111874 , 59588*w + 82404 , -65820*w + 187488 , -241714*w - 1292690 , 282894*w + 613620 , 428720*w - 228830 , 71046*w - 617568 , -2535662*w - 5416964 ],
[ -53764*w - 12553758 , 9679838 , 81542*w + 890260 , 22508*w + 481782 , -12516*w - 93842 , -51636*w - 69244 , 54618*w - 155904 , 199112*w + 1084048 , -235616*w - 516432 , -359000*w + 186592 , -60416*w + 515760 , 1962208*w + 4129706 ],
[ 91656*w - 1189566 , -81542*w + 890260 , 241990 , -15780*w - 21924 , 3318*w - 25634 , -13820*w - 4102 , 5098*w - 21588 , 24750*w + 135506 , -29454*w - 64554 , -44872*w + 23324 , -7552*w + 64470 , 145884*w + 490980 ],
[ 29924*w - 569072 , -22508*w + 481782 , 15780*w - 21924 , 193732 , 42*w - 41832 , -1974*w + 68334 , -562*w + 17276 , -66*w + 2016 , 0 , 0 , 0 , 103132*w + 261660 ],
[ -15584*w + 111874 , 12516*w - 93842 , -3318*w - 25634 , -42*w - 41832 , 20860 , 614*w - 30394 , 3370*w - 4312 , -4778*w + 49504 , -1856*w - 30464 , -12032*w - 18144 , -6592*w + 10752 , -21382*w - 51646 ],
[ -59588*w + 82404 , 51636*w - 69244 , 13820*w - 4102 , 1974*w + 68334 , -614*w - 30394 , 124950 , -28344*w + 21910 , 42444*w - 399714 , 16414*w + 268366 , 106408*w + 162036 , 58298*w - 95088 , 47314*w - 106694 ],
[ 65820*w + 187488 , -54618*w - 155904 , -5098*w - 21588 , 562*w + 17276 , -3370*w - 4312 , 28344*w + 21910 , 75194 , -137750*w - 154182 , 97046*w - 5586 , 71112*w - 241906 , -25978*w - 156632 , -55086*w - 59850 ],
[ 241714*w - 1292690 , -199112*w + 1084048 , -24750*w + 135506 , 66*w + 2016 , 4778*w + 49504 , -42444*w - 399714 , 137750*w - 154182 , 2218342 , -225464*w - 1299186 , -624608*w - 424606 , -244798*w + 697788 , -9582*w + 971544 ],
[ -282894*w + 613620 , 235616*w - 516432 , 29454*w - 64554 , 0 , 1856*w - 30464 , -16414*w + 268366 , -97046*w - 5586 , 225464*w - 1299186 , 924154 , 323648*w + 695478 , 214982*w - 235228 , 103636*w - 575470 ],
[ -428720*w - 228830 , 359000*w + 186592 , 44872*w + 23324 , 0 , 12032*w - 18144 , -106408*w + 162036 , -71112*w - 241906 , 624608*w - 424606 , -323648*w + 695478 , 1316826 , 244168*w + 350000 , 279390*w - 180376 ],
[ -71046*w - 617568 , 60416*w + 515760 , 7552*w + 64470 , 0 , 6592*w + 10752 , -58298*w - 95088 , 25978*w - 156632 , 244798*w + 697788 , -214982*w - 235228 , -244168*w + 350000 , 409948 , 107644*w + 315126 ],
[ 2535662*w - 5416964 , -1962208*w + 4129706 , -145884*w + 490980 , -103132*w + 261660 , 21382*w - 51646 , -47314*w - 106694 , 55086*w - 59850 , 9582*w + 971544 , -103636*w - 575470 , -279390*w - 180376 , -107644*w + 315126 , 4704770 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 9216 );
/***Gitter Nr. 445 ***/
Grammatrix:=Matrix(S,[
[ 131606090 , -8587039*w - 35953365 , -65413808*w - 74134340 , -9555503*w - 6702675 , 11300019*w - 4480833 , 2598572*w - 34705118 , -1620194*w - 134134 , 45010*w + 17360 , 224962*w + 1404032 , 950880*w + 2799188 , 1212876*w - 974876 ,
    17072722*w - 177304568 ],
[ 8587039*w - 35953365 , 17614632 , 7781326*w + 62643070 , 696887*w + 6537895 , -1283251*w - 5220355 , -866890*w + 5666150 , 285291*w + 198177 , -40996*w - 6524 , -2929*w - 227717 , -115404*w - 504910 , -199670*w + 61362 , -18675848*w +
    23916410 ],
[ 65413808*w - 74134340 , -7781326*w + 62643070 , 363443752 , -1654629*w + 52371221 , -4178877*w - 58963835 , -15819290*w - 12216988 , -294814*w + 5399520 , -54338*w - 107996 , 713290*w - 468174 , 1448796*w - 2569700 , -241386*w - 4053658 ,
    -129444402*w + 6212850 ],
[ 9555503*w - 6702675 , -696887*w + 6537895 , 1654629*w + 52371221 , 10045210 , -1582196*w - 12043794 , -4538319*w - 5538841 , -170356*w + 1412026 , 38014*w + 70238 , 201827*w - 179333 , 468833*w - 735511 , -42758*w - 1277696 , -19841036*w +
    3966802 ],
[ -11300019*w - 4480833 , 1283251*w - 5220355 , 4178877*w - 58963835 , 1582196*w - 12043794 , 17380860 , 4524279*w + 15273447 , 519274*w - 1532874 , -15928*w - 258902 , -336599*w - 58863 , -828841*w + 195279 , -260390*w + 1823892 , 23368142*w +
    12096896 ],
[ -2598572*w - 34705118 , 866890*w + 5666150 , 15819290*w - 12216988 , 4538319*w - 5538841 , -4524279*w + 15273447 , 29344924 , 1110390*w - 238728 , 11262*w - 545888 , -361696*w - 689948 , -1044990*w - 1590302 , -890278*w + 1586522 , 7710626*w
    + 46561340 ],
[ 1620194*w - 134134 , -285291*w + 198177 , 294814*w + 5399520 , 170356*w + 1412026 , -519274*w - 1532874 , -1110390*w - 238728 , 377272 , 3392*w - 22680 , 39216*w - 50260 , 78536*w - 223160 , -38660*w - 253540 , -2410844*w + 1482628 ],
[ -45010*w + 17360 , 40996*w - 6524 , 54338*w - 107996 , -38014*w + 70238 , 15928*w - 258902 , -11262*w - 545888 , -3392*w - 22680 , 54026 , 13086*w - 20216 , 27840*w - 3808 , 10584*w - 57064 , 41914*w + 265678 ],
[ -224962*w + 1404032 , 2929*w - 227717 , -713290*w - 468174 , -201827*w - 179333 , 336599*w - 58863 , 361696*w - 689948 , -39216*w - 50260 , -13086*w - 20216 , 78610 , 4032*w + 160384 , 48952*w + 52584 , 94770*w - 2404388 ],
[ -950880*w + 2799188 , 115404*w - 504910 , -1448796*w - 2569700 , -468833*w - 735511 , 828841*w + 195279 , 1044990*w - 1590302 , -78536*w - 223160 , -27840*w - 3808 , -4032*w + 160384 , 383376 , 114672*w + 148736 , 916520*w - 4998700 ],
[ -1212876*w - 974876 , 199670*w + 61362 , 241386*w - 4053658 , 42758*w - 1277696 , 260390*w + 1823892 , 890278*w + 1586522 , 38660*w - 253540 , -10584*w - 57064 , -48952*w + 52584 , -114672*w + 148736 , 298144 , 1862694*w + 92526 ],
[ -17072722*w - 177304568 , 18675848*w + 23916410 , 129444402*w + 6212850 , 19841036*w + 3966802 , -23368142*w + 12096896 , -7710626*w + 46561340 , 2410844*w + 1482628 , -41914*w + 265678 , -94770*w - 2404388 , -916520*w - 4998700 , -1862694*w
    + 92526 , 342847722 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 9216 );
/***Gitter Nr. 446 ***/
Grammatrix:=Matrix(S,[
[ 6970769330 , 41385016*w + 3443154610 , -2900044564*w + 15770781530 , 3192151100*w - 18422328960 , 525887514*w - 3164015638 , -3725830*w + 20679386 , 80935460*w - 501648420 , -1500146*w - 2479176 , 1948207*w - 10781631 , -2363690*w - 4334092 ,
2735520*w + 597996 , -219961813*w - 636879467 ],
[ -41385016*w + 3443154610 , 1707804658 , -1515314545*w + 7700201719 , 1672632846*w - 9001614538 , 276336945*w - 1545786697 , -3523359*w + 11272555 , 40299801*w - 244954997 , -655582*w - 2725842 , 2484707*w - 6672533 , -1365091*w - 4960781 ,
    2027728*w + 2330986 , -104537172*w - 329094836 ],
[ 2900044564*w + 15770781530 , 1515314545*w + 7700201719 , 44793469938 , -456482051*w - 51769151161 , -132093316*w - 8821927044 , -6328936*w + 59452540 , -33271685*w - 1396199217 , -1876524*w - 1044288 , 6815524*w - 12290348 , -1570584*w -
    13582324 , 3946446*w + 9375450 , -732201987*w - 826065821 ],
[ -3192151100*w - 18422328960 , -1672632846*w - 9001614538 , 456482051*w - 51769151161 , 59865157898 , 62911453*w + 10205688619 , 7838119*w - 67714661 , 23976847*w + 1616605837 , 2090928*w + 858844 , -7765769*w + 12367635 , 1340153*w + 15238167
, -4088968*w - 11097534 , 836058828*w + 1003834132 ],
[ -525887514*w - 3164015638 , -276336945*w - 1545786697 , 132093316*w - 8821927044 , -62911453*w + 10205688619 , 1740847108 , 837202*w - 12048106 , 1657469*w + 274430597 , 535716*w - 398650 , -591992*w + 2275728 , 335718*w + 1280930 , -541188*w
    - 694120 , 141268145*w + 175197603 ],
[ 3725830*w + 20679386 , 3523359*w + 11272555 , 6328936*w + 59452540 , -7838119*w - 67714661 , -837202*w - 12048106 , 7074326 , -944843*w + 7888559 , -831528*w - 540260 , -427984*w - 5874470 , -1512008*w + 235368 , 1184358*w - 2116842 ,
    -2034123*w + 796313 ],
[ -80935460*w - 501648420 , -40299801*w - 244954997 , 33271685*w - 1396199217 , -23976847*w + 1616605837 , -1657469*w + 274430597 , 944843*w + 7888559 , 57857086 , -1226276*w + 17066 , -1675621*w - 7468993 , -2053027*w + 2342935 , 1230504*w -
    4521902 , 21094337*w + 32686857 ],
[ 1500146*w - 2479176 , 655582*w - 2725842 , 1876524*w - 1044288 , -2090928*w + 858844 , -535716*w - 398650 , 831528*w - 540260 , 1226276*w + 17066 , 1083306 , -866878*w + 1605352 , 343768*w + 1700440 , -587976*w - 927528 , 722454*w + 1422120
],
[ -1948207*w - 10781631 , -2484707*w - 6672533 , -6815524*w - 12290348 , 7765769*w + 12367635 , 591992*w + 2275728 , 427984*w - 5874470 , 1675621*w - 7468993 , 866878*w + 1605352 , 7743218 , 2004152*w + 692104 , -1742760*w + 2022664 , 2658536*w
    - 2273838 ],
[ 2363690*w - 4334092 , 1365091*w - 4960781 , 1570584*w - 13582324 , -1340153*w + 15238167 , -335718*w + 1280930 , 1512008*w + 235368 , 2053027*w + 2342935 , -343768*w + 1700440 , -2004152*w + 692104 , 3699472 , -680928*w - 2980880 , 865845*w +
    4607043 ],
[ -2735520*w + 597996 , -2027728*w + 2330986 , -3946446*w + 9375450 , 4088968*w - 11097534 , 541188*w - 694120 , -1184358*w - 2116842 , -1230504*w - 4521902 , 587976*w - 927528 , 1742760*w + 2022664 , 680928*w - 2980880 , 3279584 , 155768*w -
    4848214 ],
[ 219961813*w - 636879467 , 104537172*w - 329094836 , 732201987*w - 826065821 , -836058828*w + 1003834132 , -141268145*w + 175197603 , 2034123*w + 796313 , -21094337*w + 32686857 , -722454*w + 1422120 , -2658536*w - 2273838 , -865845*w +
    4607043 , -155768*w - 4848214 , 122146668 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 15600 );
/***Gitter Nr. 447 ***/
Grammatrix:=Matrix(S,[
[ 517993742 , -99862329*w + 415717169 , -2813186*w + 960358 , -201076148*w + 17359496 , 72366644*w - 54618830 , -3639715*w + 21088767 , 111862152*w + 229299700 , 18794365*w + 10418737 , 33043577*w - 52210781 , 15239122*w - 19232136 , 3248198*w
    - 4950204 , 35575870*w - 122580080 ],
[ 99862329*w + 415717169 , 493254622 , -2215887*w + 5128123 , -144567104*w + 409623942 , 43182815*w - 177158149 , 865822*w + 22279894 , 126636027*w + 13857991 , 15739546*w - 18210052 , 13893851*w - 83646647 , 7362354*w - 35022484 , 1398068*w -
    8108296 , -4565115*w - 153515929 ],
[ 2813186*w + 960358 , 2215887*w + 5128123 , 398174 , 543072*w + 17058146 , -480335*w - 5208959 , 41053*w + 151571 , -186311*w - 571431 , -40099*w - 51569 , -67646*w + 49742 , -30550*w + 16758 , -6200*w + 294 , -1158935*w - 1290751 ],
[ 201076148*w + 17359496 , 144567104*w + 409623942 , -543072*w + 17058146 , 1416617776 , -23086681*w - 440868169 , 4596318*w + 10637410 , 28669759*w - 314747013 , -3773492*w - 43393784 , -26985423*w - 51628745 , -10993918*w - 25351900 ,
    -2590284*w - 5347020 , -98384579*w - 167562703 ],
[ -72366644*w - 54618830 , -43182815*w - 177158149 , 480335*w - 5208959 , 23086681*w - 440868169 , 144664282 , -1654175*w - 5666423 , -26486618*w + 99025318 , -958114*w + 16379258 , 6765704*w + 27881882 , 2526268*w + 12879300 , 639632*w +
    2797704 , 27830112*w + 68978042 ],
[ 3639715*w + 21088767 , -865822*w + 22279894 , -41053*w + 151571 , -4596318*w + 10637410 , 1654175*w - 5666423 , 1218924 , 7243457*w + 6002199 , 1014158*w - 393106 , 1285175*w - 4275117 , 628286*w - 1727684 , 125960*w - 412216 , 458777*w -
    5654887 ],
[ -111862152*w + 229299700 , -126636027*w + 13857991 , 186311*w - 571431 , -28669759*w - 314747013 , 26486618*w + 99025318 , -7243457*w + 6002199 , 427770658 , 9495284*w + 52101182 , 40961104*w + 42046242 , 17243340*w + 22832796 , 3960724*w +
    4190116 , 44684380*w + 40560394 ],
[ -18794365*w + 10418737 , -15739546*w - 18210052 , 40099*w - 51569 , 3773492*w - 43393784 , 958114*w + 16379258 , -1014158*w - 393106 , -9495284*w + 52101182 , 7823858 , 4054360*w + 11485950 , 1592936*w + 5460056 , 389032*w + 1126104 ,
    4553124*w + 12045390 ],
[ -33043577*w - 52210781 , -13893851*w - 83646647 , 67646*w + 49742 , 26985423*w - 51628745 , -6765704*w + 27881882 , -1285175*w - 4275117 , -40961104*w + 42046242 , -4054360*w + 11485950 , 31593142 , -491624*w + 13803832 , -11784*w + 3067960 ,
620940*w + 33939360 ],
[ -15239122*w - 19232136 , -7362354*w - 35022484 , 30550*w + 16758 , 10993918*w - 25351900 , -2526268*w + 12879300 , -628286*w - 1727684 , -17243340*w + 22832796 , -1592936*w + 5460056 , 491624*w + 13803832 , 6084848 , 42592*w + 1341648 ,
    790688*w + 14751968 ],
[ -3248198*w - 4950204 , -1398068*w - 8108296 , 6200*w + 294 , 2590284*w - 5347020 , -639632*w + 2797704 , -125960*w - 412216 , -3960724*w + 4190116 , -389032*w + 1126104 , 11784*w + 3067960 , -42592*w + 1341648 , 298144 , 88696*w + 3311560 ],
[ -35575870*w - 122580080 , 4565115*w - 153515929 , 1158935*w - 1290751 , 98384579*w - 167562703 , -27830112*w + 68978042 , -458777*w - 5654887 , -44684380*w + 40560394 , -4553124*w + 12045390 , -620940*w + 33939360 , -790688*w + 14751968 ,
    -88696*w + 3311560 , 76580112 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 4608 );
/***Gitter Nr. 448 ***/
Grammatrix:=Matrix(S,[
[ 933900548 , -11805516*w + 70761810 , 80932066*w - 1201731440 , 3777122*w + 19285672 , 9043582*w - 14213458 , 7451848*w + 23261350 , 209140020*w - 2465239378 , -216126350*w + 2398296670 , -22903828*w + 46036396 , 5073558*w - 52612966 ,
    3243118*w - 18538072 , -392920938*w - 1183597674 ],
[ 11805516*w + 70761810 , 315883764 , -35536126*w - 188463968 , 248514*w - 89128550 , -6979458*w + 33019840 , -9844972*w - 28951048 , -129303916*w - 751873052 , 150949302*w + 820136884 , 19354928*w - 85522948 , 3542208*w + 70050792 , -516192*w
    + 26446672 , -154334074*w - 105010640 ],
[ -80932066*w - 1201731440 , 35536126*w - 188463968 , 1668823590 , -13379040*w + 3380566 , -4555126*w + 21840266 , -12932460*w - 5096364 , -72931624*w + 3624002116 , 91568646*w - 3588134074 , 5768844*w - 66912692 , 7946136*w + 44247434 ,
    1778850*w + 17840144 , 651915836*w + 1391755722 ],
[ -3777122*w + 19285672 , -248514*w - 89128550 , 13379040*w + 3380566 , 27194384 , 2243284*w - 10013934 , 2918496*w + 8738380 , 44016786*w + 111680366 , -50067904*w - 132724704 , -6150160*w + 24731910 , -713484*w - 20907726 , 281580*w - 7832370
, 27580312*w - 17424554 ],
[ -9043582*w - 14213458 , 6979458*w + 33019840 , 4555126*w + 21840266 , -2243284*w - 10013934 , 7604198 , -3023068*w - 627522 , -9331960*w + 22916852 , 16172968*w - 19011034 , -1015800*w - 20416270 , 3980690*w + 10146640 , 1204760*w + 4462780 ,
5619898*w + 10734934 ],
[ -7451848*w + 23261350 , 9844972*w - 28951048 , 12932460*w - 5096364 , -2918496*w + 8738380 , 3023068*w - 627522 , 9953552 , 22879624*w + 54991286 , -21957406*w - 77163772 , -9145660*w + 5734946 , 4122708*w - 13902182 , 1881012*w - 4379494 ,
    13391648*w - 23382394 ],
[ -209140020*w - 2465239378 , 129303916*w - 751873052 , 72931624*w + 3624002116 , -44016786*w + 111680366 , 9331960*w + 22916852 , -22879624*w + 54991286 , 8425506110 , 33895118*w - 8499136058 , -45243336*w - 70397264 , 36840978*w - 13129802 ,
13924072*w + 2032310 , 1533176086*w + 2946643224 ],
[ 216126350*w + 2398296670 , -150949302*w + 820136884 , -91568646*w - 3588134074 , 50067904*w - 132724704 , -16172968*w - 19011034 , 21957406*w - 77163772 , -33895118*w - 8499136058 , 8624112042 , 65564896*w + 51274524 , -44932104*w + 47572168
, -17800764*w + 9204244 , -1546346944*w - 2901086160 ],
[ 22903828*w + 46036396 , -19354928*w - 85522948 , -5768844*w - 66912692 , 6150160*w + 24731910 , 1015800*w - 20416270 , 9145660*w + 5734946 , 45243336*w - 70397264 , -65564896*w + 51274524 , 63446572 , -10621746*w - 35256942 , -3004220*w -
    14930650 , -12585994*w - 59292380 ],
[ -5073558*w - 52612966 , -3542208*w + 70050792 , -7946136*w + 44247434 , 713484*w - 20907726 , -3980690*w + 10146640 , -4122708*w - 13902182 , -36840978*w - 13129802 , 44932104*w + 47572168 , 10621746*w - 35256942 , 32039854 , -830148*w +
    11817652 , -2761082*w + 47866770 ],
[ -3243118*w - 18538072 , 516192*w + 26446672 , -1778850*w + 17840144 , -281580*w - 7832370 , -1204760*w + 4462780 , -1881012*w - 4379494 , -13924072*w + 2032310 , 17800764*w + 9204244 , 3004220*w - 14930650 , 830148*w + 11817652 , 4509428 ,
    258630*w + 18219936 ],
[ 392920938*w - 1183597674 , 154334074*w - 105010640 , -651915836*w + 1391755722 , -27580312*w - 17424554 , -5619898*w + 10734934 , -13391648*w - 23382394 , -1533176086*w + 2946643224 , 1546346944*w - 2901086160 , 12585994*w - 59292380 ,
    2761082*w + 47866770 , -258630*w + 18219936 , 3019932776 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 497664 );
/***Gitter Nr. 449 ***/
Grammatrix:=Matrix(S,[
[ 742 , 42*w - 140 , 78*w - 448 , 16*w - 112 , 70*w + 70 , 65*w - 35 , 44*w , 30*w , 4*w , 6*w , 0 , -156*w - 378 ],
[ -42*w - 140 , 280 , -16*w + 168 , -3*w + 21 , -14*w - 14 , -13*w + 7 , -4*w , -6*w , 0 , 0 , 0 , 68*w - 42 ],
[ -78*w - 448 , 16*w + 168 , 476 , -12*w + 28 , -44*w + 28 , 24*w , 0 , -28*w + 28 , 0 , 0 , 0 , 124*w + 196 ],
[ -16*w - 112 , 3*w + 21 , 12*w + 28 , 112 , -11*w - 35 , -84*w , -18*w , 5*w + 7 , 0 , 0 , 0 , 63*w - 21 ],
[ -70*w + 70 , 14*w - 14 , 44*w + 28 , 11*w - 35 , 126 , 50*w + 84 , 10*w + 28 , 2*w + 42 , 0 , 0 , 0 , 14*w - 140 ],
[ -65*w - 35 , 13*w + 7 , -24*w , 84*w , -50*w + 84 , 588 , -2*w + 126 , -3*w - 21 , 0 , 0 , 0 , -11*w - 273 ],
[ -44*w , 4*w , 0 , 18*w , -10*w + 28 , 2*w + 126 , 252 , 0 , 0 , 80*w + 56 , -32*w + 112 , 12*w - 56 ],
[ -30*w , 6*w , 28*w + 28 , -5*w + 7 , -2*w + 42 , 3*w - 21 , 0 , 28 , 0 , 0 , 0 , 28*w - 28 ],
[ -4*w , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , -30*w , 12*w - 42 , -14*w + 14 ],
[ -6*w , 0 , 0 , 0 , 0 , 0 , -80*w + 56 , 0 , 30*w , 714 , -148*w - 252 , 32*w + 252 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 32*w + 112 , 0 , -12*w - 42 , 148*w - 252 , 308 , 38*w - 140 ],
[ 156*w - 378 , -68*w - 42 , -124*w + 196 , -63*w - 21 , -14*w - 140 , 11*w - 273 , -12*w - 56 , -28*w - 28 , 14*w + 14 , -32*w + 252 , -38*w - 140 , 770 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 774144 );
/***Gitter Nr. 450 ***/
Grammatrix:=Matrix(S,[
[ 73724 , 1376*w + 69776 , 14844*w + 147350 , -170*w + 784 , -974*w - 11004 , 88*w - 672 , -48*w - 224 , 336*w - 2856 , -1184*w - 2464 , 240*w - 112 , -1408*w , -14806*w - 27440 ],
[ -1376*w + 69776 , 68068 , 10526*w + 149366 , -154*w + 448 , -466*w - 10864 , 66*w - 504 , -36*w - 168 , 220*w - 2142 , -920*w - 1848 , 228*w - 84 , -1056*w , -14104*w - 28658 ],
[ -14844*w + 147350 , -10526*w + 149366 , 358078 , -206*w + 112 , 1272*w - 25158 , 284*w - 336 , 16*w - 112 , 16*w - 1428 , -824*w - 1232 , 468*w - 56 , -704*w , -27134*w - 78050 ],
[ 170*w + 784 , 154*w + 448 , 206*w + 112 , 924 , -106*w - 448 , -64*w - 112 , -80*w , 48*w , 0 , 0 , 0 , 248*w + 546 ],
[ 974*w - 11004 , 466*w - 10864 , -1272*w - 25158 , 106*w - 448 , 2940 , -4*w + 56 , 36*w + 56 , -444*w - 168 , -220*w + 1232 , -30*w , 144*w + 1344 , 1738*w + 4312 ],
[ -88*w - 672 , -66*w - 504 , -284*w - 336 , 64*w - 112 , 4*w + 56 , 126 , 10*w + 56 , -6*w , 0 , 0 , 0 , 156*w - 42 ],
[ 48*w - 224 , 36*w - 168 , -16*w - 112 , 80*w , -36*w + 56 , -10*w + 56 , 56 , -28 , 0 , 0 , 0 , 68*w - 112 ],
[ -336*w - 2856 , -220*w - 2142 , -16*w - 1428 , -48*w , 444*w - 168 , 6*w , -28 , 2310 , 984*w + 1106 , -36*w , 990*w - 924 , 362*w + 1764 ],
[ 1184*w - 2464 , 920*w - 1848 , 824*w - 1232 , 0 , 220*w + 1232 , 0 , 0 , -984*w + 1106 , 3514 , -20*w - 112 , 878*w + 2548 , -510*w + 2100 ],
[ -240*w - 112 , -228*w - 84 , -468*w - 56 , 0 , 30*w , 0 , 0 , 36*w , 20*w - 112 , 14 , -12*w - 112 , 128*w - 280 ],
[ 1408*w , 1056*w , 704*w , 0 , -144*w + 1344 , 0 , 0 , -990*w - 924 , -878*w + 2548 , 12*w - 112 , 3388 , -808*w + 630 ],
[ 14806*w - 27440 , 14104*w - 28658 , 27134*w - 78050 , -248*w + 546 , -1738*w + 4312 , -156*w - 42 , -68*w - 112 , -362*w + 1764 , 510*w + 2100 , -128*w - 280 , 808*w + 630 , 34916 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 774144 );
/***Gitter Nr. 451 ***/
Grammatrix:=Matrix(S,[
[ 1064 , -3*w - 119 , 106*w + 98 , 21*w - 147 , 84*w + 84 , -43*w - 35 , 128*w , 74*w , -52*w , 12*w , 0 , 5*w - 343 ],
[ 3*w - 119 , 196 , -92*w - 70 , -3*w + 21 , 33*w - 21 , -73*w + 91 , -w - 21 , -6*w , 0 , 0 , 0 , -25*w + 273 ],
[ -106*w + 98 , 92*w - 70 , 728 , 20*w , -18*w - 140 , 92*w + 392 , 8*w + 112 , 10*w + 70 , 0 , 0 , 0 , 236*w + 84 ],
[ -21*w - 147 , 3*w + 21 , -20*w , 28 , -14*w , 6*w , -21*w + 21 , -7*w + 7 , 0 , 0 , 0 , 12*w + 70 ],
[ -84*w + 84 , -33*w - 21 , 18*w - 140 , 14*w , 280 , -36*w - 336 , 30*w + 210 , 7*w + 49 , 0 , 0 , 0 , -38*w - 140 ],
[ 43*w - 35 , 73*w + 91 , -92*w + 392 , -6*w , 36*w - 336 , 588 , -11*w - 189 , -3*w - 21 , 0 , 0 , 0 , 112*w + 336 ],
[ -128*w , w - 21 , -8*w + 112 , 21*w + 21 , -30*w + 210 , 11*w - 189 , 280 , 84 , 0 , 0 , 0 , 53*w - 35 ],
[ -74*w , 6*w , -10*w + 70 , 7*w + 7 , -7*w + 49 , 3*w - 21 , 84 , 252 , 56 , -24*w , 48*w - 168 , -23*w - 7 ],
[ 52*w , 0 , 0 , 0 , 0 , 0 , 0 , 56 , 364 , -26*w - 70 , 52*w - 182 , 2*w - 126 ],
[ -12*w , 0 , 0 , 0 , 0 , 0 , 0 , 24*w , 26*w - 70 , 42 , -36*w - 28 , -12*w + 56 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -48*w - 168 , -52*w - 182 , 36*w - 28 , 308 , 50*w ],
[ -5*w - 343 , 25*w + 273 , -236*w + 84 , -12*w + 70 , 38*w - 140 , -112*w + 336 , -53*w - 35 , 23*w - 7 , -2*w - 126 , 12*w + 56 , -50*w , 826 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 870912 );
/***Gitter Nr. 452 ***/
Grammatrix:=Matrix(S,[
[ 18347336 , -2818819*w + 10118045 , 3278561*w - 631491 , 1054673*w - 2841335 , 828513*w + 681345 , 131720*w - 2249100 , 102364*w - 728224 , -1241414*w + 1339352 , -980944*w + 14376586 , -2093746*w - 2815638 , -2383826*w + 618366 , -4487722*w -
    8501094 ],
[ 2818819*w + 10118045 , 23153004 , 1025510*w + 2348906 , 74637*w - 6932877 , 276297*w - 808031 , -61535*w - 413917 , -9703*w - 141617 , -189677*w + 541233 , 292007*w + 2943829 , -489888*w - 45108 , -430214*w + 672532 , -6235504*w - 4399262 ],
[ -3278561*w - 631491 , -1025510*w + 2348906 , 10923920 , 225013*w - 542997 , -362321*w + 1689107 , 643421*w + 711263 , 187419*w + 367465 , -255109*w - 3288859 , -4888775*w - 4857643 , 1348690*w - 4683868 , 186958*w - 5982522 , -145514*w -
    6830348 ],
[ -1054673*w - 2841335 , -74637*w - 6932877 , -225013*w - 542997 , 2161572 , -98364*w + 271572 , 78057*w + 140021 , 24755*w + 58919 , 5197*w - 305417 , -386817*w - 727685 , 159178*w - 327404 , 69042*w - 512610 , 1919764*w + 1024632 ],
[ -828513*w + 681345 , -276297*w - 808031 , 362321*w + 1689107 , 98364*w + 271572 , 560252 , 143707*w - 232883 , 49997*w - 60221 , -192015*w - 431739 , -997871*w + 817467 , -2356*w - 1175118 , -246128*w - 1007496 , 78590*w - 1386252 ],
[ -131720*w - 2249100 , 61535*w - 413917 , -643421*w + 711263 , -78057*w + 140021 , -143707*w - 232883 , 646296 , -12726*w + 235228 , 220214*w - 473466 , -124786*w - 3059448 , 484786*w + 235592 , 465904*w - 499226 , 496012*w + 290640 ],
[ -102364*w - 728224 , 9703*w - 141617 , -187419*w + 367465 , -24755*w + 58919 , -49997*w - 60221 , 12726*w + 235228 , 90370 , 56226*w - 211722 , -148198*w - 978852 , 168132*w - 42224 , 135898*w - 279370 , 170074*w + 28994 ],
[ 1241414*w + 1339352 , 189677*w + 541233 , 255109*w - 3288859 , -5197*w - 305417 , 192015*w - 431739 , -220214*w - 473466 , -56226*w - 211722 , 1418928 , 1863304*w + 3087812 , -705310*w + 1634934 , -266496*w + 2428692 , -418850*w + 1606192 ],
[ 980944*w + 14376586 , -292007*w + 2943829 , 4888775*w - 4857643 , 386817*w - 727685 , 997871*w + 817467 , 124786*w - 3059448 , 148198*w - 978852 , -1863304*w + 3087812 , 23857274 , -3682914*w - 2928030 , -3770904*w + 2835196 , -3052062*w -
    284396 ],
[ 2093746*w - 2815638 , 489888*w - 45108 , -1348690*w - 4683868 , -159178*w - 327404 , 2356*w - 1175118 , -484786*w + 235592 , -168132*w - 42224 , 705310*w + 1634934 , 3682914*w - 2928030 , 4339496 , 900574*w + 3727094 , 330520*w + 3319414 ],
[ 2383826*w + 618366 , 430214*w + 672532 , -186958*w - 5982522 , -69042*w - 512610 , 246128*w - 1007496 , -465904*w - 499226 , -135898*w - 279370 , 266496*w + 2428692 , 3770904*w + 2835196 , -900574*w + 3727094 , 4509428 , -404188*w + 3335402
],
[ 4487722*w - 8501094 , 6235504*w - 4399262 , 145514*w - 6830348 , -1919764*w + 1024632 , -78590*w - 1386252 , -496012*w + 290640 , -170074*w + 28994 , 418850*w + 1606192 , 3052062*w - 284396 , -330520*w + 3319414 , 404188*w + 3335402 ,
    16750888 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 10368 );
/***Gitter Nr. 453 ***/
Grammatrix:=Matrix(S,[
[ 109563706 , -25207578*w + 20402886 , 32709471*w - 6914789 , -56763844*w + 11419170 , -5102375*w - 17363297 , 932559*w - 20636357 , 621170*w - 10466848 , -591442*w + 5432112 , -207825*w - 1712053 , -919417*w - 3692773 , -1470604*w + 553294 ,
    -1095610*w + 359978892 ],
[ 25207578*w + 20402886 , 45467744 , 4219710*w - 56918610 , -7293278*w + 96746090 , -4581529*w + 7281771 , -4250712*w - 4069044 , -2125642*w - 2255890 , 1057810*w + 1464134 , -370269*w - 10017 , -873824*w + 766206 , -96222*w + 2156210 ,
    84663496*w + 72489900 ],
[ -32709471*w - 6914789 , -4219710*w - 56918610 , 87135664 , 1468352*w - 139943216 , 4332599*w - 17551107 , 4101478*w + 290528 , 2087040*w + 377440 , -1058730*w - 527436 , 355646*w - 229642 , 722056*w - 1273048 , -118066*w - 2017274 ,
    -118661590*w - 53010538 ],
[ 56763844*w + 11419170 , 7293278*w + 96746090 , -1468352*w - 139943216 , 235077850 , -8768592*w + 24917522 , -9160826*w - 3770032 , -4666448*w - 2350432 , 2438942*w + 2036244 , -767358*w + 584178 , -1684206*w + 2751714 , 196416*w + 4628316 ,
    200680804*w + 65636200 ],
[ 5102375*w - 17363297 , 4581529*w + 7281771 , -4332599*w - 17551107 , 8768592*w + 24917522 , 10786216 , -607349*w + 7115675 , -340072*w + 3662484 , 265440*w - 2127482 , 112141*w + 415625 , 356347*w + 1132915 , 484310*w - 306544 , 19620434*w -
    38797612 ],
[ -932559*w - 20636357 , 4250712*w - 4069044 , -4101478*w + 290528 , 9160826*w - 3770032 , 607349*w + 7115675 , 8043644 , -24040*w + 4117764 , 70946*w - 2349116 , 132380*w + 411152 , 452418*w + 1016610 , 487098*w - 564550 , -4482398*w -
    54032188 ],
[ -621170*w - 10466848 , 2125642*w - 2255890 , -2087040*w + 377440 , 4666448*w - 2350432 , 340072*w + 3662484 , 24040*w + 4117764 , 2115540 , 32578*w - 1222382 , 75066*w + 204162 , 242792*w + 508200 , 249884*w - 316036 , -2692498*w - 27352192
],
[ 591442*w + 5432112 , -1057810*w + 1464134 , 1058730*w - 527436 , -2438942*w + 2036244 , -265440*w - 2127482 , -70946*w - 2349116 , -32578*w - 1222382 , 756434 , -58002*w - 79884 , -163968*w - 233184 , -135800*w + 252616 , 2162854*w + 13766550
],
[ 207825*w - 1712053 , 370269*w - 10017 , -355646*w - 229642 , 767358*w + 584178 , -112141*w + 415625 , -132380*w + 411152 , -75066*w + 204162 , 58002*w - 79884 , 78610 , 4032*w + 160384 , 48952*w + 52584 , 347866*w - 5070562 ],
[ 919417*w - 3692773 , 873824*w + 766206 , -722056*w - 1273048 , 1684206*w + 2751714 , -356347*w + 1132915 , -452418*w + 1016610 , -242792*w + 508200 , 163968*w - 233184 , -4032*w + 160384 , 383376 , 114672*w + 148736 , 2038100*w - 10918404 ],
[ 1470604*w + 553294 , 96222*w + 2156210 , 118066*w - 2017274 , -196416*w + 4628316 , -484310*w - 306544 , -487098*w - 564550 , -249884*w - 316036 , 135800*w + 252616 , -48952*w + 52584 , -114672*w + 148736 , 298144 , 4078916*w + 211428 ],
[ 1095610*w + 359978892 , -84663496*w + 72489900 , 118661590*w - 53010538 , -200680804*w + 65636200 , -19620434*w - 38797612 , 4482398*w - 54032188 , 2692498*w - 27352192 , -2162854*w + 13766550 , -347866*w - 5070562 , -2038100*w - 10918404 ,
    -4078916*w + 211428 , 1274899136 ]
]);
Include(~Erg,Grammatrix/d);
Append(~a, 13824 );


dim:=12;
ErgEXT:=[* *];                                          /*zugehörige Z-Gitter, durch Re-Form, Im-Form*/
Ergliste:=[* *];                                        /*da werden die Listen von Skalarproduktlisten reingeschrieben*/
lisg:=[* *]; Append(~lisg,{@ @}); Append(~lisg,[* *]);  /*für jedes Gitter wird ein lisg an die Ergliste gehängt*/
ERedux:=[* *];                                          /*LISTE mit den MENGEN der reduzierten Vektoren der äußersten Schleife*/
allcoeffs:={ };

for indx:=1 to #Erg do
                    VGRAMST:=Erg[indx];
                    RealGRAMST:=ScalarMatrix(Rationals(),2*dim,0);
                    ImGRAMST:=ScalarMatrix(Rationals(),2*dim,0);

                    for j:=0 to (dim-1) do
                                        for k:=0 to (dim-1) do
                                                            RealGRAMST[1+j,1+k]:=VGRAMST[1+j,1+k][1];
                                                            RealGRAMST[dim+1+j,dim+1+k]:=mul*VGRAMST[1+j,1+k][1];
                                                            RealGRAMST[1+j,dim+1+k]:=(1/2)*VGRAMST[1+j,1+k][1]+(1/2)*d*VGRAMST[1+j,1+k][2];
                                                            RealGRAMST[dim+1+j,1+k]:=(1/2)*VGRAMST[1+j,1+k][1]-(1/2)*d*VGRAMST[1+j,1+k][2];
                                                            end for;
                                        end for;

                    for j:=0 to (dim-1) do
                                        for k:=0 to (dim-1) do
                                                            ImGRAMST[1+j,1+k]:=VGRAMST[1+j,1+k][2];
                                                            ImGRAMST[dim+1+j,dim+1+k]:=mul*VGRAMST[1+j,1+k][2];
                                                            ImGRAMST[1+j,dim+1+k]:=(1/2)*VGRAMST[1+j,1+k][2]-(1/2)*VGRAMST[1+j,1+k][1];
                                                            ImGRAMST[dim+1+j,1+k]:=(1/2)*VGRAMST[1+j,1+k][2]+(1/2)*VGRAMST[1+j,1+k][1];
                                                            end for;
                                        end for;

ImGRAMST:=d*ImGRAMST;                         /*sieht besser aus und rechnet sich besser!*/

for trid:=1 to 10 do
                  RealGRAMST, TrafoS:=SeysenGram(RealGRAMST);
                  RealGRAMST, TrafoL:=LLLGram(RealGRAMST);
                  RealGRAMST, TrafoP:=PairReduceGram(RealGRAMST);
                  ImGRAMST:=TrafoP*TrafoL*TrafoS*ImGRAMST*Transpose(TrafoP*TrafoL*TrafoS);
                  end for;


S22:=#ShortVectors(LatticeWithGram(RealGRAMST),2,2);
/*S44:=#ShortVectors(LatticeWithGram(RealGRAMST),4,4);*/
Liste:=[* *];Append(~Liste,Erg[indx]);Append(~Liste,RealGRAMST);Append(~Liste,ImGRAMST);Append(~Liste,S22);Append(~Liste,a[indx]);/*Append(~Liste,S44);*/
Append(~ErgEXT,Liste);
delete RealGRAMST;delete ImGRAMST;delete Liste;
end for;


/***neu453 bei Nebe ist 453***/

/***Gitter Nr. 454 ***(alt457=neu458a bei Nebe)***/
indx:=454;
Real:=Matrix(Integers(),[
[ 2 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , -1 , 1 , 1 , -1 , 1 , -1 , -1 ],
[ 1 , 4 , 1 , 1 , -1 , 0 , 0 , -1 , 1 , 0 , 1 , 1 , 0 , -1 , 0 , -1 , -1 , -1 , 1 , 0 , -1 , 1 , -1 , -1 ],
[ 0 , 1 , 2 , 1 , -1 , 0 , -1 , -1 , 0 , -1 , 1 , 1 , 1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 1 , 1 , 2 , -1 , 1 , -1 , 0 , 0 , -1 , 1 , 1 , 1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , -1 , -1 , -1 , 2 , -1 , 1 , 0 , 0 , 1 , -1 , -1 , -1 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 1 , -1 , 2 , -1 , 1 , 0 , -1 , 1 , 1 , 1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , -1 , -1 , 1 , -1 , 2 , 0 , 0 , 1 , -1 , -1 , -1 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , -1 , -1 , 0 , 0 , 1 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , -1 , 1 , -1 , -1 , 1 , -1 , -1 ],
[ 1 , 0 , -1 , -1 , 1 , -1 , 1 , 0 , 0 , 4 , -1 , -1 , -1 , 1 , -1 , 0 , 0 , -1 , 0 , 1 , -1 , 1 , -1 , -1 ],
[ 0 , 1 , 1 , 1 , -1 , 1 , -1 , 0 , 0 , -1 , 2 , 1 , 1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 1 , 1 , 1 , -1 , 1 , -1 , 0 , 0 , -1 , 1 , 2 , 1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 1 , 1 , -1 , 1 , -1 , 0 , 0 , -1 , 1 , 1 , 2 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , -1 , -1 , -1 , 1 , -1 , 1 , 0 , 0 , 1 , -1 , -1 , -1 , 2 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 1 , 1 , -1 , 1 , -1 , 0 , 0 , -1 , 1 , 1 , 1 , -1 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 1 , 1 , -1 , 0 , 1 , -1 , 1 , 1 ],
[ -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 2 , 1 , -1 , 0 , 1 , -1 , 1 , 1 ],
[ -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 2 , -1 , 0 , 1 , -1 , 1 , 1 ],
[ 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , -1 , 2 , 0 , -1 , 1 , -1 , -1 ],
[ 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 ],
[ -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , -1 , 0 , 2 , -1 , 1 , 1 ],
[ 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , -1 , 1 , 0 , -1 , 2 , -1 , -1 ],
[ -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , -1 , 0 , 1 , -1 , 2 , 1 ],
[ -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , -1 , 0 , 1 , -1 , 1 , 2 ]
]);
Im:=Matrix(Integers(),[
[ 0 , -1 , -2 , -4 , 2 , -2 , 2 , 0 , 2 , 3 , -2 , -2 , -2 , 2 , -2 , 1 , -1 , -1 , 1 , -1 , -1 , 1 , -1 , -1 ],
[ 1 , 0 , -5 , -1 , 3 , 2 , 2 , 3 , 1 , 4 , -1 , -1 , -2 , 1 , -2 , 1 , -1 , -1 , 1 , 2 , -1 , 1 , -1 , -1 ],
[ 2 , 5 , 0 , 1 , 1 , 0 , 1 , 1 , 2 , 1 , 1 , 1 , -1 , -1 , -1 , -2 , -2 , -2 , 2 , 0 , -2 , 2 , -2 , -2 ],
[ 4 , 1 , -1 , 0 , 3 , -1 , 1 , 0 , 0 , 3 , -1 , -1 , -1 , 1 , -1 , -2 , -2 , -2 , 2 , 2 , -2 , 2 , -2 , -2 ],
[ -2 , -3 , -1 , -3 , 0 , -1 , 1 , 0 , -2 , -1 , -1 , -1 , -1 , 1 , -1 , 0 , 2 , 2 , -2 , 0 , 2 , -2 , 2 , 2 ],
[ 2 , -2 , 0 , 1 , 1 , 0 , -1 , 1 , 2 , 1 , -1 , -1 , 1 , 1 , 1 , -2 , -2 , -2 , 2 , 0 , -2 , 2 , -2 , -2 ],
[ -2 , -2 , -1 , -1 , -1 , 1 , 0 , 0 , -2 , -1 , -1 , 1 , 1 , 1 , -1 , 2 , 2 , 2 , -2 , 0 , 2 , -2 , 2 , 2 ],
[ 0 , -3 , -1 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , -2 , -2 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , -2 , 0 , 0 , 0 , 0 ],
[ -2 , -1 , -2 , 0 , 2 , -2 , 2 , 0 , 0 , 2 , -2 , -2 , -2 , 2 , -2 , 1 , 1 , 1 , -1 , 1 , 1 , -1 , 1 , 1 ],
[ -3 , -4 , -1 , -3 , 1 , -1 , 1 , 0 , -2 , 0 , -1 , -1 , -1 , 1 , -1 , 4 , 0 , 1 , -4 , -1 , 1 , -3 , 3 , 3 ],
[ 2 , 1 , -1 , 1 , 1 , 1 , 1 , 2 , 2 , 1 , 0 , -1 , 1 , -1 , 1 , -2 , -2 , -2 , 2 , 0 , -2 , 2 , -2 , -2 ],
[ 2 , 1 , -1 , 1 , 1 , 1 , -1 , 2 , 2 , 1 , 1 , 0 , -1 , 1 , 1 , -2 , -2 , -2 , 2 , 0 , -2 , 2 , -2 , -2 ],
[ 2 , 2 , 1 , 1 , 1 , -1 , -1 , 0 , 2 , 1 , -1 , 1 , 0 , -1 , 1 , -2 , -2 , -2 , 2 , 0 , -2 , 2 , -2 , -2 ],
[ -2 , -1 , 1 , -1 , -1 , -1 , -1 , -2 , -2 , -1 , 1 , -1 , 1 , 0 , -1 , 2 , 2 , 2 , -2 , 0 , 2 , -2 , 2 , 2 ],
[ 2 , 2 , 1 , 1 , 1 , -1 , 1 , 0 , 2 , 1 , -1 , -1 , -1 , 1 , 0 , -2 , -2 , -2 , 2 , 0 , -2 , 2 , -2 , -2 ],
[ -1 , -1 , 2 , 2 , 0 , 2 , -2 , 0 , -1 , -4 , 2 , 2 , 2 , -2 , 2 , 0 , 1 , 1 , -1 , -2 , 1 , -1 , 1 , 1 ],
[ 1 , 1 , 2 , 2 , -2 , 2 , -2 , 0 , -1 , 0 , 2 , 2 , 2 , -2 , 2 , -1 , 0 , -1 , -1 , 0 , -1 , 1 , 1 , -1 ],
[ 1 , 1 , 2 , 2 , -2 , 2 , -2 , 0 , -1 , -1 , 2 , 2 , 2 , -2 , 2 , -1 , 1 , 0 , -1 , 0 , 1 , 1 , -1 , 1 ],
[ -1 , -1 , -2 , -2 , 2 , -2 , 2 , 0 , 1 , 4 , -2 , -2 , -2 , 2 , -2 , 1 , 1 , 1 , 0 , 0 , -1 , 1 , -1 , -1 ],
[ 1 , -2 , 0 , -2 , 0 , 0 , 0 , 2 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 1 , 1 , 2 , 2 , -2 , 2 , -2 , 0 , -1 , -1 , 2 , 2 , 2 , -2 , 2 , -1 , 1 , -1 , 1 , 0 , 0 , -1 , -1 , -1 ],
[ -1 , -1 , -2 , -2 , 2 , -2 , 2 , 0 , 1 , 3 , -2 , -2 , -2 , 2 , -2 , 1 , -1 , -1 , -1 , 0 , 1 , 0 , -1 , -1 ],
[ 1 , 1 , 2 , 2 , -2 , 2 , -2 , 0 , -1 , -3 , 2 , 2 , 2 , -2 , 2 , -1 , -1 , 1 , 1 , 0 , 1 , 1 , 0 , -1 ],
[ 1 , 1 , 2 , 2 , -2 , 2 , -2 , 0 , -1 , -3 , 2 , 2 , 2 , -2 , 2 , -1 , 1 , -1 , 1 , 0 , 1 , 1 , 1 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 5419008 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);

/***Gitter Nr. 455 ***(alt 461, neu460 bei Nebe)***/
indx:=455;
Real:=Matrix(Integers(),[
[ 2 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , -1 , 0 , -1 , 1 , 0 , -1 , 0 , -1 , -1 , -1 , 0 , 0 ],
[ -1 , 2 , 0 , 1 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 1 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 1 , 0 , 2 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , -1 , 0 , -1 , 1 , 0 , 0 , 0 , -1 , -1 , -1 , 0 , 0 ],
[ 0 , 1 , 1 , 2 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , -1 , -1 , -1 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 2 , 1 , 1 , 1 , 1 , 1 , 0 , 0 , 1 , 0 , 1 , 1 , 0 , 1 , 0 , 1 , -1 , -1 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 1 , 2 , 1 , 1 , 1 , 1 , 0 , 0 , 1 , 0 , 1 , 1 , 0 , 1 , 0 , 1 , -1 , -1 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 1 , 1 , 2 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 1 , 1 , 0 , 2 , 1 , 1 , 0 , 0 , 1 , 0 , 1 , 1 , 0 , 0 , 0 , 1 , -1 , -1 , 0 , 0 ],
[ 1 , -1 , 0 , -1 , 1 , 1 , 1 , 1 , 4 , 1 , 1 , 1 , -1 , 1 , -1 , 1 , 0 , -1 , 0 , 1 , 0 , -1 , 0 , 0 ],
[ 1 , 0 , 1 , 0 , 1 , 1 , 1 , 1 , 1 , 4 , -1 , -1 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , -2 , 0 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -1 , 2 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -1 , 1 , 2 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , 0 ],
[ -1 , 1 , -1 , 0 , 1 , 1 , 0 , 1 , -1 , 0 , -1 , -1 , 4 , 0 , 2 , 0 , 0 , 1 , 0 , 0 , -1 , -1 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 2 , -1 , -1 , 0 , -1 , 0 , -1 , 0 , 0 , 0 , 0 ],
[ -1 , 1 , -1 , 0 , 1 , 1 , 0 , 1 , -1 , 0 , 0 , 0 , 2 , -1 , 4 , 1 , 0 , 1 , -1 , 2 , -1 , 0 , 0 , 0 ],
[ 1 , 0 , 1 , 0 , 1 , 1 , 1 , 1 , 1 , 2 , 0 , 0 , 0 , -1 , 1 , 4 , 0 , 0 , -1 , 1 , -1 , -1 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 1 , -1 , 0 , -1 , 0 , 0 , 0 ],
[ -1 , 1 , 0 , 1 , 1 , 1 , 1 , 0 , -1 , 0 , 0 , 0 , 1 , -1 , 1 , 0 , 1 , 4 , 0 , 1 , -1 , -1 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , -1 , 0 , 2 , 0 , 1 , 0 , 0 , 0 ],
[ -1 , 0 , -1 , -1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , 1 , 0 , -1 , 2 , 1 , 0 , 1 , 0 , 4 , 1 , 1 , 0 , 0 ],
[ -1 , 0 , -1 , -1 , -1 , -1 , 0 , -1 , 0 , -2 , 1 , 1 , -1 , 0 , -1 , -1 , -1 , -1 , 1 , 1 , 4 , 2 , 0 , 0 ],
[ -1 , 0 , -1 , -1 , -1 , -1 , 0 , -1 , -1 , 0 , 0 , 0 , -1 , 0 , 0 , -1 , 0 , -1 , 0 , 1 , 2 , 4 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 2 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 2 ]
]);
Im:=Matrix(Integers(),[
[ 0 , 3 , 1 , 2 , -2 , -4 , -2 , -2 , -3 , -1 , 0 , 0 , -1 , 0 , -1 , -1 , 0 , -1 , 0 , -3 , 1 , 1 , 0 , 0 ],
[ -3 , 0 , -2 , -1 , 0 , 2 , 2 , -2 , -1 , -2 , 0 , 0 , 1 , 0 , 1 , -2 , 0 , 3 , 0 , 2 , 2 , 2 , 0 , 0 ],
[ -1 , 2 , 0 , -1 , -4 , -2 , -2 , -2 , -2 , -1 , 0 , 0 , -1 , 0 , -1 , -1 , 0 , -2 , 0 , -1 , 3 , 3 , 0 , 0 ],
[ -2 , 1 , 1 , 0 , -2 , 0 , 2 , -2 , -1 , 0 , 0 , 0 , -2 , 0 , -2 , 0 , 0 , 1 , 0 , 1 , 3 , 3 , 0 , 0 ],
[ 2 , 0 , 4 , 2 , 0 , 1 , -1 , -1 , -1 , 1 , 0 , 0 , -1 , 0 , -1 , 1 , 0 , 1 , 0 , -3 , -3 , -3 , 0 , 0 ],
[ 4 , -2 , 2 , 0 , -1 , 0 , 1 , -3 , 1 , 1 , 0 , 0 , -3 , 0 , -3 , 1 , 0 , -1 , 0 , -3 , -1 , -1 , 0 , 0 ],
[ 2 , -2 , 2 , -2 , 1 , -1 , 0 , -2 , 1 , 1 , 0 , 0 , -2 , 0 , -2 , 1 , 0 , -1 , 0 , -1 , 0 , 0 , 0 , 0 ],
[ 2 , 2 , 2 , 2 , 1 , 3 , 2 , 0 , 1 , 3 , 0 , 0 , 1 , 0 , 1 , 3 , 0 , 2 , 0 , -1 , -3 , -3 , 0 , 0 ],
[ 3 , 1 , 2 , 1 , 1 , -1 , -1 , -1 , 0 , 1 , -1 , 1 , -1 , -1 , 1 , 3 , 0 , 1 , 0 , -1 , -2 , -3 , 0 , 0 ],
[ 1 , 2 , 1 , 0 , -1 , -1 , -1 , -3 , -1 , 0 , 1 , -1 , 0 , 2 , -2 , 0 , 2 , 0 , 0 , -4 , 0 , 0 , 1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -1 , 0 , 1 , -1 , -2 , 0 , 0 , 0 , 2 , 0 , 1 , 1 , -2 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 1 , -1 , 0 , -1 , -4 , 2 , 2 , 0 , 2 , 0 , 3 , -1 , 0 , 0 , 0 ],
[ 1 , -1 , 1 , 2 , 1 , 3 , 2 , -1 , 1 , 0 , 1 , 1 , 0 , 2 , 0 , 0 , 0 , 1 , -2 , -2 , -3 , -1 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -2 , 2 , 4 , -2 , 0 , 1 , 1 , 0 , 1 , 0 , 3 , 2 , 0 , 0 , 0 ],
[ 1 , -1 , 1 , 2 , 1 , 3 , 2 , -1 , -1 , 2 , 0 , -2 , 0 , -1 , 0 , -1 , 0 , 3 , 1 , -2 , -3 , -2 , 2 , 2 ],
[ 1 , 2 , 1 , 0 , -1 , -1 , -1 , -3 , -3 , 0 , 0 , -2 , 0 , -1 , 1 , 0 , -2 , -2 , 1 , -3 , 1 , 1 , 2 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -2 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , -1 , -1 , 0 , 1 , -2 , -2 , 0 ],
[ 1 , -3 , 2 , -1 , -1 , 1 , 1 , -2 , -1 , 0 , -2 , -2 , -1 , -1 , -3 , 2 , 1 , 0 , -2 , -3 , -1 , -1 , -2 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , -1 , -1 , 1 , 2 , 0 , 0 , -1 , 0 , -2 , -2 ],
[ 3 , -2 , 1 , -1 , 3 , 3 , 1 , 1 , 1 , 4 , -1 , -3 , 2 , -3 , 2 , 3 , 0 , 3 , 0 , 0 , -5 , -5 , 0 , 0 ],
[ -1 , -2 , -3 , -3 , 3 , 1 , 0 , 3 , 2 , 0 , -1 , 1 , 3 , -2 , 3 , -1 , -1 , 1 , 1 , 5 , 0 , 0 , 0 , -2 ],
[ -1 , -2 , -3 , -3 , 3 , 1 , 0 , 3 , 3 , 0 , 2 , 0 , 1 , 0 , 2 , -1 , 2 , 1 , 0 , 5 , 0 , 0 , 1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , -1 , 0 , -2 , -2 , 2 , 2 , 2 , 0 , 0 , -1 , 0 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , -1 , 0 , -2 , 0 , 0 , 0 , 2 , 0 , 2 , 1 , 1 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 331776 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);

/***Gitter Nr.456 ***(git453 bei Nebe)***/
indx:=456;
Real:=Matrix(Integers(),[
[ 2 , -1 , 0 , 0 , -1 , -1 , -1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , -1 , -1 ],
[ -1 , 2 , 1 , 1 , 1 , 0 , 1 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 1 , 0 ],
[ 0 , 1 , 2 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 1 , 0 , 2 , 1 , -1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 1 , 0 ],
[ -1 , 1 , 0 , 1 , 2 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , -1 , 0 , 0 , 1 , 0 ],
[ -1 , 0 , 0 , -1 , 0 , 2 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 1 ],
[ -1 , 1 , 0 , 1 , 1 , 0 , 2 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ -1 , 1 , 0 , 1 , 1 , 0 , 1 , 2 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ 1 , -1 , -1 , 0 , 0 , -1 , -1 , -1 , 4 , 1 , 1 , 1 , 0 , 0 , 1 , 1 , -1 , 0 , 0 , -1 , 0 , 0 , 0 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 2 , 0 , 0 , 0 , -1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 2 , 1 , -1 , 1 , 0 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 2 , -1 , 1 , 0 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 2 , -1 , 1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 1 , 1 , -1 , 2 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 1 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , -1 , 0 , 0 , 2 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ -1 , 0 , -1 , 0 , 1 , 1 , 1 , 1 , -1 , 0 , -1 , -1 , 1 , -1 , 0 , -1 , 4 , -1 , 1 , 0 , 0 , 1 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 2 , -1 , 1 , 0 , -1 , -1 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -1 , 2 , 0 , 1 , 1 , 0 , 0 ],
[ 0 , -1 , 0 , -1 , -1 , 1 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 4 , 1 , -1 , -2 , 2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 2 , 0 , -1 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -1 , 1 , -1 , 0 , 2 , 1 , 0 ],
[ -1 , 1 , 0 , 1 , 1 , 0 , 1 , 1 , 0 , 0 , 1 , 1 , -1 , 1 , 0 , 1 , 0 , -1 , 0 , -2 , -1 , 1 , 4 , 1 ],
[ -1 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , -1 , 0 , 1 , 1 , -1 , 1 , 0 , 1 , 0 , 0 , 0 , 2 , 0 , 0 , 1 , 4 ]
]);
Im:=Matrix(Integers(),[
[ 0 , -1 , -2 , 2 , 1 , -3 , 3 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ 1 , 0 , 3 , -1 , -1 , 2 , -1 , 1 , -3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 0 , 0 , -1 , 2 ],
[ 2 , -3 , 0 , -2 , -2 , 2 , 0 , -2 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 4 , 0 , 0 , -2 , 2 ],
[ -2 , 1 , 2 , 0 , -1 , 1 , 1 , 3 , -4 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 0 , 0 , 1 , 4 ],
[ -1 , 1 , 2 , 1 , 0 , 2 , -1 , 1 , -2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 1 , 0 , 0 , 1 , 2 ],
[ 3 , -2 , -2 , -1 , -2 , 0 , -4 , -2 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , -1 , 0 , 0 , -2 , -3 ],
[ -3 , 1 , 0 , -1 , 1 , 4 , 0 , 3 , -3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 0 , 0 , 2 , 0 , 0 , 1 , 3 ],
[ -1 , -1 , 2 , -3 , -1 , 2 , -3 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 2 , 0 , 0 , -1 , 1 ],
[ -1 , 3 , 1 , 4 , 2 , -3 , 3 , 1 , 0 , -1 , -1 , 3 , 0 , 2 , 1 , 1 , -3 , 0 , 0 , -3 , 0 , 0 , 4 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 2 , 4 , -2 , 3 , 0 , 1 , -2 , 0 , 0 , 0 , 0 , 0 , 2 , 2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -2 , 0 , 1 , 1 , 1 , 4 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -3 , -4 , -1 , 0 , -1 , 3 , 0 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , -1 , 1 , 0 , -3 , -3 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -2 , -3 , -1 , -3 , 3 , 0 , 2 , -2 , 1 , 0 , 0 , 0 , 0 , 0 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , -4 , 0 , 3 , -2 , 0 , -2 , 2 , 0 , 0 , 0 , 0 , 0 , -2 , -2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , -1 , 1 , -1 , 2 , 2 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ -1 , 0 , -1 , 0 , 1 , 1 , -3 , 1 , 3 , 2 , 1 , 1 , -1 , -1 , -2 , 1 , 0 , -1 , -1 , -4 , -2 , 1 , 4 , -2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 1 , 2 , 1 , -3 , 2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -1 , 0 , -4 , -3 , 3 , 4 , -2 ],
[ 0 , -3 , -4 , -3 , -1 , 1 , -2 , -2 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 4 , -1 , 4 , 0 , 3 , 3 , -2 , -2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , -2 , 3 , -3 , 0 , 2 , 1 , -2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , -3 , -3 , -2 , 0 , 3 , -2 ],
[ -1 , 1 , 2 , -1 , -1 , 2 , -1 , 1 , -4 , -2 , -1 , -1 , 1 , 1 , 2 , -1 , -4 , 3 , -4 , 2 , -1 , -3 , 0 , 1 ],
[ -1 , -2 , -2 , -4 , -2 , 3 , -3 , -1 , -1 , -2 , -1 , -1 , 1 , 1 , 2 , -1 , 2 , -2 , 2 , 2 , 2 , 2 , -1 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 227598336 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);

/***Gitter Nr. 457***(LeechJ2 bei Nebe)***/
indx:=457;
Real:=Matrix(Integers(),[
[ 4 , -2 , 2 , 2 , 2 , 0 , -1 , 1 , 1 , -1 , 1 , 2 , -2 , 0 , -2 , 2 , -1 , -2 , -1 , 1 , -2 , 1 , -2 , 2 ],
[ -2 , 4 , 0 , 0 , -2 , -1 , 0 , -2 , 0 , -1 , -2 , -1 , 2 , 1 , 2 , -1 , 2 , 0 , 2 , -1 , 0 , -2 , 1 , -2 ],
[ 2 , 0 , 4 , 2 , 0 , 1 , -2 , -1 , 0 , -2 , -1 , 2 , -1 , 1 , 0 , 1 , 0 , -2 , 0 , 0 , -2 , 0 , 0 , 1 ],
[ 2 , 0 , 2 , 4 , 2 , -1 , 0 , 0 , -1 , -1 , 1 , 2 , -1 , 1 , -1 , 2 , 1 , -1 , 1 , 1 , -2 , 1 , -2 , 1 ],
[ 2 , -2 , 0 , 2 , 4 , 0 , 1 , 2 , -1 , 1 , 2 , 2 , -1 , 0 , -2 , 2 , 0 , 0 , 0 , 2 , -1 , 1 , -2 , 2 ],
[ 0 , -1 , 1 , -1 , 0 , 4 , -2 , -1 , 0 , 1 , 0 , 1 , 0 , -1 , 0 , -1 , -2 , 0 , 0 , -1 , 1 , 1 , 0 , 0 ],
[ -1 , 0 , -2 , 0 , 1 , -2 , 4 , 2 , 0 , 0 , 1 , -1 , 1 , 1 , -1 , 0 , 1 , 1 , 0 , 2 , 0 , -1 , 0 , 1 ],
[ 1 , -2 , -1 , 0 , 2 , -1 , 2 , 4 , 1 , 1 , 1 , 1 , 0 , 1 , -1 , 0 , -1 , 1 , -2 , 1 , -1 , 1 , -1 , 1 ],
[ 1 , 0 , 0 , -1 , -1 , 0 , 0 , 1 , 4 , 0 , -1 , 0 , 1 , 1 , -1 , -1 , -2 , 0 , -2 , -1 , 0 , 0 , 0 , 0 ],
[ -1 , -1 , -2 , -1 , 1 , 1 , 0 , 1 , 0 , 4 , 0 , 0 , 1 , 0 , 0 , 0 , -1 , 2 , -1 , -1 , 1 , 1 , 0 , -1 ],
[ 1 , -2 , -1 , 1 , 2 , 0 , 1 , 1 , -1 , 0 , 4 , 0 , -2 , -2 , -2 , 1 , 0 , 0 , 0 , 1 , 0 , 2 , -2 , 2 ],
[ 2 , -1 , 2 , 2 , 2 , 1 , -1 , 1 , 0 , 0 , 0 , 4 , 0 , 1 , 0 , 1 , -1 , 0 , 0 , 0 , -2 , 1 , -2 , 1 ],
[ -2 , 2 , -1 , -1 , -1 , 0 , 1 , 0 , 1 , 1 , -2 , 0 , 4 , 1 , 1 , -1 , 0 , 1 , 1 , -1 , 0 , -1 , 1 , -2 ],
[ 0 , 1 , 1 , 1 , 0 , -1 , 1 , 1 , 1 , 0 , -2 , 1 , 1 , 4 , 1 , 0 , 0 , 0 , -1 , 0 , -1 , -1 , 0 , 0 ],
[ -2 , 2 , 0 , -1 , -2 , 0 , -1 , -1 , -1 , 0 , -2 , 0 , 1 , 1 , 4 , -1 , 1 , 1 , 1 , -2 , 0 , -1 , 1 , -2 ],
[ 2 , -1 , 1 , 2 , 2 , -1 , 0 , 0 , -1 , 0 , 1 , 1 , -1 , 0 , -1 , 4 , 1 , -1 , 0 , 1 , -2 , 0 , -1 , 2 ],
[ -1 , 2 , 0 , 1 , 0 , -2 , 1 , -1 , -2 , -1 , 0 , -1 , 0 , 0 , 1 , 1 , 4 , 0 , 2 , 1 , -1 , -2 , 1 , 0 ],
[ -2 , 0 , -2 , -1 , 0 , 0 , 1 , 1 , 0 , 2 , 0 , 0 , 1 , 0 , 1 , -1 , 0 , 4 , 0 , -1 , 1 , 0 , 0 , -1 ],
[ -1 , 2 , 0 , 1 , 0 , 0 , 0 , -2 , -2 , -1 , 0 , 0 , 1 , -1 , 1 , 0 , 2 , 0 , 4 , 0 , 0 , -1 , 0 , -1 ],
[ 1 , -1 , 0 , 1 , 2 , -1 , 2 , 1 , -1 , -1 , 1 , 0 , -1 , 0 , -2 , 1 , 1 , -1 , 0 , 4 , 0 , -1 , 0 , 2 ],
[ -2 , 0 , -2 , -2 , -1 , 1 , 0 , -1 , 0 , 1 , 0 , -2 , 0 , -1 , 0 , -2 , -1 , 1 , 0 , 0 , 4 , 0 , 1 , -1 ],
[ 1 , -2 , 0 , 1 , 1 , 1 , -1 , 1 , 0 , 1 , 2 , 1 , -1 , -1 , -1 , 0 , -2 , 0 , -1 , -1 , 0 , 4 , -2 , 0 ],
[ -2 , 1 , 0 , -2 , -2 , 0 , 0 , -1 , 0 , 0 , -2 , -2 , 1 , 0 , 1 , -1 , 1 , 0 , 0 , 0 , 1 , -2 , 4 , -1 ],
[ 2 , -2 , 1 , 1 , 2 , 0 , 1 , 1 , 0 , -1 , 2 , 1 , -2 , 0 , -2 , 2 , 0 , -1 , -1 , 2 , -1 , 0 , -1 , 4 ]
]);
Im:=Matrix(Integers(),[
[ 0 , -2 , -4 , 0 , 2 , 0 , 3 , -1 , -1 , 1 , 7 , -4 , -2 , -4 , -4 , 4 , 1 , 0 , 1 , 1 , 2 , 1 , -2 , 4 ],
[ 2 , 0 , 4 , 0 , 0 , 3 , 0 , 2 , 4 , -1 , -4 , 5 , 2 , 5 , 0 , -3 , -4 , 0 , -2 , -1 , -2 , -2 , -1 , 0 ],
[ 4 , -4 , 0 , 0 , 2 , 3 , 0 , 1 , 2 , 0 , 5 , 0 , -3 , -3 , -6 , 1 , -4 , -4 , -2 , 2 , 0 , 2 , -2 , 5 ],
[ 0 , 0 , 0 , 0 , 0 , 3 , 0 , -2 , 1 , 1 , 3 , 0 , 1 , -3 , -3 , 2 , -1 , 1 , 1 , -1 , 0 , -1 , -2 , 3 ],
[ -2 , 0 , -2 , 0 , 0 , 0 , 1 , -4 , -3 , 1 , 2 , -4 , -1 , -4 , -2 , 4 , 2 , 2 , 2 , 2 , 3 , -1 , 0 , 2 ],
[ 0 , -3 , -3 , -3 , 0 , 0 , 0 , 3 , 0 , 3 , 0 , -3 , -2 , 1 , 0 , -1 , -4 , -2 , -4 , 1 , 3 , 3 , 0 , 0 ],
[ -3 , 0 , 0 , 0 , -1 , 0 , 0 , -2 , -2 , 2 , -1 , 1 , 1 , -1 , 1 , 0 , 3 , 5 , 0 , 0 , 0 , -1 , 2 , -1 ],
[ 1 , -2 , -1 , 2 , 4 , -3 , 2 , 0 , -3 , 1 , 3 , -1 , -2 , -3 , -3 , 6 , 5 , 1 , 0 , 5 , -1 , -1 , 1 , 3 ],
[ 1 , -4 , -2 , -1 , 3 , 0 , 2 , 3 , 0 , 4 , 1 , 0 , 1 , 1 , -1 , 3 , 0 , 0 , -2 , 1 , 0 , 0 , 2 , 0 ],
[ -1 , 1 , 0 , -1 , -1 , -3 , -2 , -1 , -4 , 0 , -4 , -2 , -1 , 0 , 4 , 2 , 3 , 0 , 1 , 1 , 1 , -3 , 2 , -3 ],
[ -7 , 4 , -5 , -3 , -2 , 0 , 1 , -3 , -1 , 4 , 0 , -4 , 4 , -2 , 2 , -1 , 2 , 4 , 2 , -3 , 4 , 0 , 2 , -2 ],
[ 4 , -5 , 0 , 0 , 4 , 3 , -1 , 1 , 0 , 2 , 4 , 0 , -4 , -3 , -4 , 5 , -3 , 0 , -2 , 2 , 0 , 1 , -2 , 5 ],
[ 2 , -2 , 3 , -1 , 1 , 2 , -1 , 2 , -1 , 1 , -4 , 4 , 0 , 3 , 3 , 1 , 0 , 1 , -1 , 1 , -4 , -3 , 1 , 0 ],
[ 4 , -5 , 3 , 3 , 4 , -1 , 1 , 3 , -1 , 0 , 2 , 3 , -3 , 0 , -5 , 4 , 0 , 0 , -3 , 4 , -3 , -1 , 0 , 4 ],
[ 4 , 0 , 6 , 3 , 2 , 0 , -1 , 3 , 1 , -4 , -2 , 4 , -3 , 5 , 0 , -1 , -1 , -3 , -3 , 2 , -4 , -1 , -1 , 2 ],
[ -4 , 3 , -1 , -2 , -4 , 1 , 0 , -6 , -3 , -2 , 1 , -5 , -1 , -4 , 1 , 0 , 3 , 1 , 4 , -1 , 2 , -4 , 3 , 0 ],
[ -1 , 4 , 4 , 1 , -2 , 4 , -3 , -5 , 0 , -3 , -2 , 3 , 0 , 0 , 1 , -3 , 0 , 0 , 2 , -1 , 1 , -2 , -1 , 0 ],
[ 0 , 0 , 4 , -1 , -2 , 2 , -5 , -1 , 0 , 0 , -4 , 0 , -1 , 0 , 3 , -1 , 0 , 0 , -2 , -1 , 1 , 0 , 4 , -3 ],
[ -1 , 2 , 2 , -1 , -2 , 4 , 0 , 0 , 2 , -1 , -2 , 2 , 1 , 3 , 3 , -4 , -2 , 2 , 0 , -2 , 0 , -1 , -2 , 1 ],
[ -1 , 1 , -2 , 1 , -2 , -1 , 0 , -5 , -1 , -1 , 3 , -2 , -1 , -4 , -2 , 1 , 1 , 1 , 2 , 0 , 2 , 1 , -2 , 0 ],
[ -2 , 2 , 0 , 0 , -3 , -3 , 0 , 1 , 0 , -1 , -4 , 0 , 4 , 3 , 4 , -2 , -1 , -1 , 0 , -2 , 0 , 2 , 1 , -5 ],
[ -1 , 2 , -2 , 1 , 1 , -3 , 1 , 1 , 0 , 3 , 0 , -1 , 3 , 1 , 1 , 4 , 2 , 0 , 1 , -1 , -2 , 0 , 0 , 0 ],
[ 2 , 1 , 2 , 2 , 0 , 0 , -2 , -1 , -2 , -2 , -2 , 2 , -1 , 0 , 1 , -3 , 1 , -4 , 2 , 2 , -1 , 0 , 0 , -3 ],
[ -4 , 0 , -5 , -3 , -2 , 0 , 1 , -3 , 0 , 3 , 2 , -5 , 0 , -4 , -2 , 0 , 0 , 3 , -1 , 0 , 5 , 0 , 3 , 0 ]
]);

S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 2419200 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);

/***Gitter Nr. 458***(leechzeta7 bei Nebe)***/
indx:=458;
Real:=Matrix(Integers(),[
[ 8 , 4 , 4 , 4 , 4 , 4 , 4 , 2 , 4 , 4 , 4 , 2 , 4 , 2 , 2 , 2 , 4 , 2 , 2 , 2 , 0 , 0 , 0 , -3 ],
[ 4 , 4 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 1 , 2 , 1 , 1 , 2 , 1 , 0 , 0 , -1 ],
[ 4 , 2 , 4 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 2 , 1 , 2 , 2 , 1 , 1 , 1 , 0 , 0 , -1 ],
[ 4 , 2 , 2 , 4 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 1 , 2 , 2 , 1 , 2 , 1 , 1 , 0 , 0 , -1 ],
[ 4 , 2 , 2 , 2 , 4 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 0 , 0 , -1 ],
[ 4 , 2 , 2 , 2 , 2 , 4 , 2 , 2 , 2 , 2 , 2 , 1 , 2 , 2 , 1 , 1 , 2 , 1 , 2 , 1 , 0 , 0 , 0 , -1 ],
[ 4 , 2 , 2 , 2 , 2 , 2 , 4 , 2 , 2 , 2 , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 , 1 , 2 , 0 , 0 , 0 , -1 ],
[ 2 , 2 , 2 , 2 , 2 , 2 , 2 , 4 , 1 , 1 , 1 , 2 , 1 , 2 , 2 , 2 , 1 , 2 , 2 , 2 , 2 , 0 , 0 , 1 ],
[ 4 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 4 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 1 , 1 , -1 ],
[ 4 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 2 , 4 , 2 , 2 , 2 , 2 , 1 , 1 , 2 , 2 , 1 , 1 , 0 , 1 , 0 , -1 ],
[ 4 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 2 , 2 , 4 , 2 , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 , 0 , 0 , 1 , -1 ],
[ 2 , 2 , 2 , 2 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 4 , 1 , 2 , 2 , 2 , 1 , 2 , 2 , 2 , 2 , 1 , 1 , 1 ],
[ 4 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 2 , 2 , 2 , 1 , 4 , 2 , 2 , 2 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , -1 ],
[ 2 , 2 , 1 , 1 , 2 , 2 , 1 , 2 , 2 , 2 , 1 , 2 , 2 , 4 , 2 , 2 , 1 , 2 , 2 , 2 , 2 , 2 , 1 , 1 ],
[ 2 , 1 , 2 , 1 , 2 , 1 , 2 , 2 , 2 , 1 , 2 , 2 , 2 , 2 , 4 , 2 , 1 , 2 , 2 , 2 , 2 , 1 , 2 , 1 ],
[ 2 , 1 , 1 , 2 , 2 , 1 , 1 , 2 , 2 , 1 , 1 , 2 , 2 , 2 , 2 , 4 , 1 , 2 , 2 , 2 , 2 , 1 , 1 , 1 ],
[ 4 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 2 , 2 , 2 , 1 , 2 , 1 , 1 , 1 , 4 , 2 , 2 , 2 , 1 , 1 , 1 , -1 ],
[ 2 , 1 , 2 , 1 , 2 , 1 , 1 , 2 , 2 , 2 , 1 , 2 , 1 , 2 , 2 , 2 , 2 , 4 , 2 , 2 , 2 , 2 , 1 , 1 ],
[ 2 , 1 , 1 , 2 , 2 , 2 , 1 , 2 , 2 , 1 , 2 , 2 , 1 , 2 , 2 , 2 , 2 , 2 , 4 , 2 , 2 , 1 , 2 , 1 ],
[ 2 , 2 , 1 , 1 , 2 , 1 , 2 , 2 , 2 , 1 , 1 , 2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 4 , 2 , 1 , 1 , 1 ],
[ 0 , 1 , 1 , 1 , 1 , 0 , 0 , 2 , 1 , 0 , 0 , 2 , 1 , 2 , 2 , 2 , 1 , 2 , 2 , 2 , 4 , 2 , 2 , 2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 1 , 1 , 2 , 1 , 1 , 1 , 2 , 1 , 1 , 2 , 4 , 2 , 2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 1 , 1 , 1 , 2 , 1 , 1 , 1 , 2 , 1 , 2 , 2 , 4 , 2 ],
[ -3 , -1 , -1 , -1 , -1 , -1 , -1 , 1 , -1 , -1 , -1 , 1 , -1 , 1 , 1 , 1 , -1 , 1 , 1 , 1 , 2 , 2 , 2 , 4 ]
]);
Im:=Matrix(Integers(),[
[ 0 , 0 , 0 , 4 , 0 , 0 , -2 , 0 , 2 , -2 , 0 , 2 , -4 , 0 , -2 , 2 , 0 , -2 , 2 , -2 , 2 , 0 , -2 , -1 ],
[ 0 , 0 , -2 , 4 , 0 , 0 , -2 , 0 , 2 , -2 , 0 , 2 , -2 , 0 , -3 , 3 , 0 , -1 , 3 , 0 , 1 , 0 , -2 , -1 ],
[ 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 2 , -4 , 1 , -2 , -1 , 0 , 0 , 1 , 1 , 1 , 0 , -2 , -1 ],
[ -4 , -4 , 0 , 0 , -2 , -2 , -4 , -2 , 0 , -2 , 0 , 2 , -4 , -1 , -1 , 0 , -2 , -1 , 2 , -3 , 1 , 0 , 0 , 1 ],
[ 0 , 0 , 0 , 2 , 0 , -2 , -2 , -2 , 2 , 0 , -2 , 1 , -2 , 0 , -2 , 0 , 2 , 0 , 0 , 0 , 3 , 2 , 0 , -1 ],
[ 0 , 0 , 0 , 2 , 2 , 0 , -2 , 0 , 2 , -2 , -2 , -1 , -2 , 0 , -1 , 1 , 0 , -1 , 2 , -1 , 2 , -2 , -2 , -3 ],
[ 2 , 2 , 0 , 4 , 2 , 2 , 0 , 2 , 2 , 2 , 2 , 3 , -2 , 3 , 0 , 1 , 0 , -1 , 3 , 0 , 0 , -2 , -2 , -1 ],
[ 0 , 0 , 0 , 2 , 2 , 0 , -2 , 0 , 3 , 1 , -1 , 2 , -3 , 2 , -2 , 0 , 1 , 2 , 4 , 2 , 2 , 0 , -2 , -1 ],
[ -2 , -2 , -2 , 0 , -2 , -2 , -2 , -3 , 0 , -2 , -2 , -2 , -4 , -2 , -4 , -2 , -4 , -4 , -4 , -4 , -3 , -1 , -5 , -3 ],
[ 2 , 2 , 0 , 2 , 0 , 2 , -2 , -1 , 2 , 0 , 0 , 0 , 0 , 2 , -3 , 1 , 0 , -2 , 1 , -3 , 0 , 1 , 0 , -1 ],
[ 0 , 0 , 0 , 0 , 2 , 2 , -2 , 1 , 2 , 0 , 0 , 2 , -2 , 3 , 0 , 3 , 0 , 1 , 2 , 1 , 2 , 2 , -1 , 1 ],
[ -2 , -2 , -2 , -2 , -1 , 1 , -3 , -2 , 2 , 0 , -2 , 0 , -3 , 2 , -4 , 0 , -3 , 0 , 0 , -2 , -2 , 1 , -3 , -1 ],
[ 4 , 2 , 4 , 4 , 2 , 2 , 2 , 3 , 4 , 0 , 2 , 3 , 0 , 2 , 2 , 2 , 2 , 1 , 3 , 1 , 3 , 1 , 1 , -1 ],
[ 0 , 0 , -1 , 1 , 0 , 0 , -3 , -2 , 2 , -2 , -3 , -2 , -2 , 0 , -4 , -2 , -1 , -2 , 0 , -2 , 0 , 0 , -1 , -3 ],
[ 2 , 3 , 2 , 1 , 2 , 1 , 0 , 2 , 4 , 3 , 0 , 4 , -2 , 4 , 0 , 0 , -1 , 2 , 0 , 2 , 2 , 1 , -2 , -1 ],
[ -2 , -3 , 1 , 0 , 0 , -1 , -1 , 0 , 2 , -1 , -3 , 0 , -2 , 2 , 0 , 0 , -1 , 2 , 0 , 0 , 2 , 3 , -1 , 1 ],
[ 0 , 0 , 0 , 2 , -2 , 0 , 0 , -1 , 4 , 0 , 0 , 3 , -2 , 1 , 1 , 1 , 0 , 0 , 2 , 0 , 1 , 3 , 1 , 1 ],
[ 2 , 1 , 0 , 1 , 0 , 1 , 1 , -2 , 4 , 2 , -1 , 0 , -1 , 2 , -2 , -2 , 0 , 0 , 0 , 0 , 0 , 4 , -1 , -1 ],
[ -2 , -3 , -1 , -2 , 0 , -2 , -3 , -4 , 4 , -1 , -2 , 0 , -3 , 0 , 0 , 0 , -2 , 0 , 0 , 0 , 0 , 1 , 0 , -1 ],
[ 2 , 0 , -1 , 3 , 0 , 1 , 0 , -2 , 4 , 3 , -1 , 2 , -1 , 2 , -2 , 0 , 0 , 0 , 0 , 0 , -2 , 1 , -3 , -3 ],
[ -2 , -1 , -1 , -1 , -3 , -2 , 0 , -2 , 3 , 0 , -2 , 2 , -3 , 0 , -2 , -2 , -1 , 0 , 0 , 2 , 0 , 2 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , -2 , 2 , 2 , 0 , 1 , -1 , -2 , -1 , -1 , 0 , -1 , -3 , -3 , -4 , -1 , -1 , -2 , 0 , 0 , 0 ],
[ 2 , 2 , 2 , 0 , 0 , 2 , 2 , 2 , 5 , 0 , 1 , 3 , -1 , 1 , 2 , 1 , -1 , 1 , 0 , 3 , 0 , 0 , 0 , 0 ],
[ 1 , 1 , 1 , -1 , 1 , 3 , 1 , 1 , 3 , 1 , -1 , 1 , 1 , 3 , 1 , -1 , -1 , 1 , 1 , 3 , 0 , 0 , 0 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 846720 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);

/***Gitter Nr. 459***(neu457a bei Nebe)***/
indx:=459;
Real:=Matrix(Integers(),[
[ 2 , 0 , 0 , 0 , -1 , 1 , 1 , 0 , -1 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -1 , 0 , -1 ],
[ 0 , 2 , 0 , 1 , 1 , -1 , 0 , 0 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 1 , 0 , 1 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 2 , -1 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , -1 , -1 , 0 ],
[ 0 , 1 , -1 , 4 , 1 , 1 , 2 , -1 , 1 , 0 , 0 , 1 , -1 , 1 , 1 , -1 , 1 , 1 , 1 , 0 , 0 , 1 , 0 , 0 ],
[ -1 , 1 , 0 , 1 , 4 , -1 , 0 , 0 , 2 , 1 , -1 , -1 , -1 , -1 , 1 , 0 , -1 , 1 , 0 , 0 , -1 , -1 , -1 , 0 ],
[ 1 , -1 , 0 , 1 , -1 , 4 , 2 , -1 , -1 , 1 , 0 , 2 , -2 , 1 , 0 , 0 , 2 , 0 , 0 , -1 , 0 , 0 , 0 , -1 ],
[ 1 , 0 , 0 , 2 , 0 , 2 , 4 , 1 , 0 , 1 , -1 , 2 , -2 , 1 , 1 , -1 , 2 , 0 , 0 , 0 , 1 , 0 , -1 , -1 ],
[ 0 , 0 , 1 , -1 , 0 , -1 , 1 , 4 , 0 , -1 , -1 , 1 , -1 , 0 , 0 , -1 , 0 , 0 , -1 , 0 , 2 , 0 , -1 , 0 ],
[ -1 , 1 , 1 , 1 , 2 , -1 , 0 , 0 , 4 , 1 , 0 , -1 , -1 , 0 , 1 , 0 , -2 , 1 , 1 , 1 , -2 , -1 , -1 , 0 ],
[ 0 , -1 , 0 , 0 , 1 , 1 , 1 , -1 , 1 , 4 , -1 , 0 , -1 , 0 , 1 , 1 , 1 , -1 , 1 , 0 , -2 , -2 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , -1 , 0 , -1 , -1 , 0 , -1 , 2 , 0 , 1 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 1 , 1 , 0 ],
[ 1 , 0 , 0 , 1 , -1 , 2 , 2 , 1 , -1 , 0 , 0 , 4 , -2 , 1 , 0 , 0 , 2 , 0 , 0 , -1 , 2 , 0 , 0 , -1 ],
[ 0 , 0 , -1 , -1 , -1 , -2 , -2 , -1 , -1 , -1 , 1 , -2 , 4 , -1 , 0 , 0 , -1 , -1 , 0 , 1 , 0 , 1 , 1 , 1 ],
[ 0 , 0 , 0 , 1 , -1 , 1 , 1 , 0 , 0 , 0 , 0 , 1 , -1 , 2 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 ],
[ 0 , 0 , 0 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 ],
[ 0 , 0 , 0 , -1 , 0 , 0 , -1 , -1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 ],
[ 0 , -1 , -1 , 1 , -1 , 2 , 2 , 0 , -2 , 1 , -1 , 2 , -1 , 1 , 0 , 0 , 4 , -1 , 0 , -1 , 1 , 1 , 0 , 0 ],
[ 0 , 1 , 0 , 1 , 1 , 0 , 0 , 0 , 1 , -1 , 0 , 0 , -1 , 0 , 0 , 0 , -1 , 2 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 1 , 0 , 0 , 0 , -1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , -1 , -1 , 0 , 0 ],
[ 0 , 1 , 0 , 0 , 0 , -1 , 0 , 0 , 1 , 0 , 0 , -1 , 1 , 0 , 0 , 0 , -1 , 0 , 0 , 2 , -1 , 0 , 0 , 0 ],
[ 1 , 0 , 0 , 0 , -1 , 0 , 1 , 2 , -2 , -2 , 0 , 2 , 0 , 0 , 0 , -1 , 1 , 0 , -1 , -1 , 4 , 1 , 0 , 0 ],
[ -1 , 0 , -1 , 1 , -1 , 0 , 0 , 0 , -1 , -2 , 1 , 0 , 1 , 1 , 0 , -1 , 1 , 0 , -1 , 0 , 1 , 4 , 1 , 1 ],
[ 0 , 0 , -1 , 0 , -1 , 0 , -1 , -1 , -1 , -1 , 1 , 0 , 1 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 2 , 0 ],
[ -1 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 , -1 , 0 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 2 ]
]);
Im:=Matrix(Integers(),[
[ 0 , 2 , 0 , 0 , -1 , -3 , -1 , 2 , -1 , -4 , 0 , 1 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 1 , 0 , 1 ],
[ -2 , 0 , 0 , 1 , 1 , -1 , -2 , -2 , 1 , -1 , 0 , -4 , 2 , 0 , 0 , 0 , -1 , 1 , 0 , 1 , -2 , 2 , 0 , 2 ],
[ 0 , 0 , 0 , -1 , 2 , 0 , 2 , 1 , -1 , 2 , -2 , 0 , -1 , 0 , 2 , 2 , 1 , 0 , -2 , 0 , 0 , -1 , -1 , 0 ],
[ 0 , -1 , 1 , 0 , -1 , 1 , 0 , -1 , -1 , -4 , 2 , -3 , 3 , -1 , -1 , -3 , -1 , -1 , -1 , 0 , 0 , 3 , 0 , 2 ],
[ 1 , -1 , -2 , 1 , 0 , 1 , 0 , -2 , -2 , -1 , -1 , -3 , 3 , -1 , -1 , -2 , -1 , 1 , 0 , 0 , 1 , 1 , 1 , 2 ],
[ 3 , 1 , 0 , -1 , -1 , 0 , 0 , -1 , -3 , -1 , 0 , 0 , 2 , -1 , 0 , 0 , 0 , -2 , 0 , -1 , 0 , -2 , 0 , -1 ],
[ 1 , 2 , -2 , 0 , 0 , 0 , 0 , -1 , -4 , -5 , 1 , 0 , 2 , -1 , -3 , -1 , 0 , 0 , -2 , 0 , 1 , 2 , 3 , -1 ],
[ -2 , 2 , -1 , 1 , 2 , 1 , 1 , 0 , -2 , -1 , -1 , 1 , -3 , 0 , -2 , 1 , 2 , 2 , -1 , 0 , 0 , 2 , 1 , 0 ],
[ 1 , -1 , 1 , 1 , 2 , 3 , 4 , 2 , 0 , -1 , -2 , -1 , -3 , 0 , 1 , -2 , 0 , 3 , -3 , -1 , 2 , 1 , -1 , 0 ],
[ 4 , 1 , -2 , 4 , 1 , 1 , 5 , 1 , 1 , 0 , -1 , 2 , -1 , 0 , 1 , -3 , -1 , 1 , 1 , 0 , 2 , -2 , 1 , -3 ],
[ 0 , 0 , 2 , -2 , 1 , 0 , -1 , 1 , 2 , 1 , 0 , 0 , -1 , 0 , 2 , 2 , -1 , 0 , -2 , 0 , 0 , -1 , -3 , 0 ],
[ -1 , 4 , 0 , 3 , 3 , 0 , 0 , -1 , 1 , -2 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , -2 , 0 , 0 , 1 ],
[ -2 , -2 , 1 , -3 , -3 , -2 , -2 , 3 , 3 , 1 , 1 , 0 , 0 , 1 , 0 , 0 , -1 , -1 , 0 , 1 , 0 , 1 , -1 , -1 ],
[ 0 , 0 , 0 , 1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 1 , -1 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , -2 , 1 , 0 , 0 ],
[ 0 , 0 , -2 , 1 , 1 , 0 , 3 , 2 , -1 , -1 , -2 , 0 , 0 , 0 , 0 , -2 , 2 , 0 , -2 , 0 , 2 , 2 , -1 , 0 ],
[ 0 , 0 , -2 , 3 , 2 , 0 , 1 , -1 , 2 , 3 , -2 , 0 , 0 , 0 , 2 , 0 , 2 , 0 , 2 , 0 , -1 , -1 , 0 , 0 ],
[ 0 , 1 , -1 , 1 , 1 , 0 , 0 , -2 , 0 , 1 , 1 , 0 , 1 , -1 , -2 , -2 , 0 , -3 , 2 , 1 , -3 , -1 , 2 , -2 ],
[ 0 , -1 , 0 , 1 , -1 , 2 , 0 , -2 , -3 , -1 , 0 , 0 , 1 , 0 , 0 , 0 , 3 , 0 , 0 , -2 , 2 , 2 , 0 , 2 ],
[ 0 , 0 , 2 , 1 , 0 , 0 , 2 , 1 , 3 , -1 , 2 , 0 , 0 , 0 , 2 , -2 , -2 , 0 , 0 , 0 , 1 , 1 , 0 , 0 ],
[ 0 , -1 , 0 , 0 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , -1 , -1 , 0 , 0 , 0 , -1 , 2 , 0 , 0 , -1 , 0 , 0 , -2 ],
[ -3 , 2 , 0 , 0 , -1 , 0 , -1 , 0 , -2 , -2 , 0 , 2 , 0 , 2 , -2 , 1 , 3 , -2 , -1 , 1 , 0 , 3 , 0 , 2 ],
[ -1 , -2 , 1 , -3 , -1 , 2 , -2 , -2 , -1 , 2 , 1 , 0 , -1 , -1 , -2 , 1 , 1 , -2 , -1 , 0 , -3 , 0 , -1 , -1 ],
[ 0 , 0 , 1 , 0 , -1 , 0 , -3 , -1 , 1 , -1 , 3 , 0 , 1 , 0 , 1 , 0 , -2 , 0 , 0 , 0 , 0 , 1 , 0 , 0 ],
[ -1 , -2 , 0 , -2 , -2 , 1 , 1 , 0 , 0 , 3 , 0 , -1 , 1 , 0 , 0 , 0 , 2 , -2 , 0 , 2 , -2 , 1 , 0 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 497664);
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);


/***Gitter Nr. 460***(neu462 bei Nebe)***/
indx:=460;
Real:=Matrix(Integers(),[
[ 2 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 1 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , -1 , 1 , 0 , 1 , 1 ],
[ -1 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , -1 , -1 ],
[ -1 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , -1 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 1 , -1 , 0 , -1 , -1 ],
[ 0 , 0 , 0 , 2 , 1 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 0 , 1 , 1 , 0 , 1 , -1 , 0 , 0 , 0 , -1 , -1 ],
[ 0 , 0 , 0 , 1 , 2 , 0 , 0 , 0 , 0 , -1 , 1 , 0 , 1 , 0 , 1 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , -1 , 0 ],
[ 0 , 0 , 0 , 1 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 1 , 0 , 1 , -1 , 0 , 0 , 0 , 0 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 2 , 1 , 1 , -1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 1 , 2 , 0 , -1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 2 , -1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 1 , 0 ],
[ -1 , 0 , 1 , 0 , -1 , 0 , -1 , -1 , -1 , 4 , -2 , -2 , -2 , 0 , -1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , -1 ],
[ 1 , -1 , 0 , 1 , 1 , 0 , 1 , 1 , 1 , -2 , 4 , 1 , 1 , 0 , 1 , 0 , 0 , -1 , -1 , -1 , 0 , 0 , 0 , 0 ],
[ 1 , -1 , -1 , 0 , 0 , 0 , 1 , 1 , 1 , -2 , 1 , 4 , 2 , 0 , 1 , 0 , -1 , 0 , 0 , 0 , 1 , -1 , 1 , 1 ],
[ 0 , 0 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , -2 , 1 , 2 , 4 , -1 , 2 , 1 , -1 , 0 , 0 , 0 , 0 , -1 , 0 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 2 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 1 , -1 , -1 , 1 , 1 , 1 , 0 , 0 , 0 , -1 , 1 , 1 , 2 , 0 , 4 , 1 , 0 , 0 , 0 , -1 , 1 , -1 , 1 , 0 ],
[ 0 , 0 , 0 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 2 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 1 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , 1 , 0 , 0 ],
[ 0 , 0 , 0 , 1 , 1 , 1 , -1 , -1 , -1 , 0 , -1 , 0 , 0 , 0 , 0 , 1 , 0 , 4 , -1 , 1 , 0 , 0 , -2 , 1 ],
[ 0 , 0 , 0 , -1 , 0 , -1 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 2 , 0 , 0 , 0 , 1 , 0 ],
[ -1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -1 , 0 , 0 , 0 , -1 , 0 , 0 , 1 , 0 , 2 , 0 , 0 , -1 , 0 ],
[ 1 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , -1 , 0 , 1 , 0 , 0 , 0 , 0 , 2 , 0 , 0 ],
[ 1 , -1 , -1 , -1 , -1 , 0 , 1 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , -2 , 1 , -1 , 1 , 0 , 4 , 0 ],
[ 1 , -1 , -1 , -1 , 0 , -1 , -1 , -1 , 0 , -1 , 0 , 1 , -1 , 0 , 0 , -1 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , 4 ]
]);
Im:=Matrix(Integers(),[
[ 0 , 1 , 1 , -2 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , -1 , 0 , 0 , -1 , 2 , 0 , 0 , 2 , -1 , -1 , 0 , 1 , -1 ],
[ -1 , 0 , 2 , 4 , 2 , 2 , 0 , 0 , 0 , 2 , 1 , -1 , 2 , 0 , 1 , 2 , 0 , 2 , -2 , 2 , -1 , 0 , -3 , -3 ],
[ -1 , -2 , 0 , 0 , -2 , 2 , 0 , 0 , 0 , 1 , 0 , 1 , 0 , 0 , 1 , -2 , 0 , 0 , -2 , 1 , 1 , 0 , 1 , 1 ],
[ 2 , -4 , 0 , 0 , 3 , -1 , 0 , 0 , 0 , -2 , 3 , 2 , 1 , 0 , 3 , 1 , 0 , 1 , 1 , 0 , 2 , 0 , 1 , 3 ],
[ 0 , -2 , 2 , -3 , 0 , -2 , 0 , 0 , 0 , 1 , -1 , 0 , -1 , 0 , -1 , -1 , 0 , -1 , 2 , 2 , 0 , 0 , 1 , 2 ],
[ 0 , -2 , -2 , 1 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 1 , 0 , 3 , 3 , 0 , 1 , 1 , 0 , 2 , 0 , 2 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 1 , -1 , -1 , 1 , -1 , 2 , 0 , 0 , 2 , 1 , 0 , 0 , 0 , 2 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 2 , -1 , 1 , 1 , -1 , 2 , -2 , 0 , 0 , -1 , 0 , 0 , 0 , 2 , 2 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , -1 , -2 , 0 , 1 , -1 , 1 , -1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 1 , 2 ],
[ 1 , -2 , -1 , 2 , -1 , 0 , 1 , 1 , -1 , 0 , 4 , 0 , 0 , -2 , 1 , -2 , 0 , 0 , -4 , -1 , 2 , 0 , -2 , 1 ],
[ 1 , -1 , 0 , -3 , 1 , 0 , 1 , -1 , 1 , -4 , 0 , 1 , 1 , 0 , 1 , 0 , 0 , -1 , 3 , -1 , 0 , 2 , 4 , 2 ],
[ 1 , 1 , -1 , -2 , 0 , -2 , -1 , -1 , -1 , 0 , -1 , 0 , -6 , 4 , -3 , 0 , 1 , 0 , 2 , -2 , -1 , 1 , 1 , 1 ],
[ 0 , -2 , 0 , -1 , 1 , -1 , 1 , 1 , 1 , 0 , -1 , 6 , 0 , 3 , 0 , 1 , -1 , 0 , 2 , 2 , 2 , -1 , 2 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , -2 , -2 , 0 , 2 , 0 , -4 , -3 , 0 , 0 , 0 , 3 , 0 , 0 , 0 , 0 , 2 , 0 , 0 ],
[ 1 , -1 , -1 , -3 , 1 , -3 , 0 , 2 , 0 , -1 , -1 , 3 , 0 , 0 , 0 , 1 , 0 , -2 , 4 , 1 , 3 , 1 , 1 , 2 ],
[ -2 , -2 , 2 , -1 , 1 , -3 , 0 , 0 , 0 , 2 , 0 , 0 , -1 , 0 , -1 , 0 , 0 , -1 , 2 , 2 , 0 , 0 , 0 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , -2 , 0 , 0 , 0 , 0 , -1 , 1 , -3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 ],
[ 0 , -2 , 0 , -1 , 1 , -1 , -1 , 1 , -1 , 0 , 1 , 0 , 0 , 0 , 2 , 1 , 0 , 0 , 1 , -1 , -2 , -2 , 0 , 1 ],
[ -2 , 2 , 2 , -1 , -2 , -1 , 0 , 0 , 0 , 4 , -3 , -2 , -2 , 0 , -4 , -2 , 0 , -1 , 0 , 2 , 0 , 0 , -1 , -2 ],
[ 1 , -2 , -1 , 0 , -2 , 0 , 0 , 0 , 0 , 1 , 1 , 2 , -2 , 0 , -1 , -2 , 0 , 1 , -2 , 0 , 0 , 0 , 1 , 2 ],
[ 1 , 1 , -1 , -2 , 0 , -2 , 0 , 0 , 0 , -2 , 0 , 1 , -2 , 0 , -3 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , -1 , 3 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , -2 , -2 , 0 , 0 , -2 , -1 , 1 , -2 , -1 , 0 , -1 , 2 , 0 , 0 , 0 , 0 , 0 , 2 ],
[ -1 , 3 , -1 , -1 , -1 , -2 , -1 , -2 , -1 , 2 , -4 , -1 , -2 , 0 , -1 , 0 , 0 , 0 , 1 , -1 , 1 , 0 , 0 , 0 ],
[ 1 , 3 , -1 , -3 , -2 , -1 , -1 , 1 , -2 , -1 , -2 , -1 , -1 , 0 , -2 , -1 , 0 , -1 , 2 , -2 , -3 , -2 , 0 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 3359232 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);

/***Gitter Nr. 461***(neuzeta7 bei Nebe)***/
indx:=461;
Real:=Matrix(Integers(),[
[ 2 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , 1 , 1 , 0 , 0 ],
[ 1 , 2 , 1 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 ],
[ 0 , 1 , 2 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , 1 , 1 ],
[ 0 , 1 , 1 , 2 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 1 , 0 , 0 , 0 , 1 , 1 ],
[ 0 , -1 , -1 , -1 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , -1 , -1 , -1 , 0 , -1 , -1 , -1 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 1 , 0 , 0 , 0 , 0 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 2 , -1 , -1 , -1 , 0 , 0 , 0 , -1 , 1 , 0 , -1 , -1 , -1 , -1 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 2 , 1 , 1 , 1 , 0 , -1 , 1 , -1 , 1 , 0 , 1 , 1 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 1 , 2 , 1 , 0 , 1 , -1 , 1 , -1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 1 , 1 , 2 , 0 , 1 , 0 , 1 , -1 , 0 , 1 , 1 , 1 , 1 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 2 , -1 , -1 , 0 , -1 , 1 , -1 , 1 , 1 , -1 , -1 , -1 ],
[ 1 , 1 , 0 , 0 , -1 , -1 , 0 , 1 , 0 , 0 , 1 , 1 , -1 , 4 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 ],
[ 1 , 1 , 0 , 0 , -1 , 0 , -1 , -1 , 0 , -1 , -1 , 0 , -1 , 1 , 4 , 0 , 2 , 0 , 0 , 0 , 0 , 1 , 1 , 1 ],
[ 1 , 1 , 0 , 1 , -1 , 1 , 1 , 0 , -1 , 1 , 1 , 1 , 0 , 1 , 0 , 4 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 0 ],
[ 1 , 1 , 0 , 1 , -1 , 0 , 0 , 0 , 1 , -1 , -1 , -1 , -1 , 1 , 2 , 1 , 4 , 0 , 0 , -1 , -1 , 0 , 0 , 0 ],
[ 1 , 1 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 1 , 1 , 0 , 1 , 0 , 4 , -1 , 2 , 2 , 1 , 0 , 0 ],
[ 0 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , -1 , 0 , 1 , 1 , -1 , 1 , 0 , 1 , 0 , -1 , 4 , 0 , 0 , 1 , 2 , 2 ],
[ 1 , 1 , 1 , 0 , -1 , 0 , 0 , 0 , -1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , -1 , 2 , 0 , 4 , 3 , 2 , 1 , 1 ],
[ 1 , 1 , 1 , 0 , -1 , 0 , 0 , 0 , -1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , -1 , 2 , 0 , 3 , 4 , 2 , 1 , 1 ],
[ 1 , 1 , 1 , 0 , -1 , 0 , 0 , 0 , -1 , 0 , 1 , 1 , -1 , 2 , 1 , 1 , 0 , 1 , 1 , 2 , 2 , 4 , 2 , 2 ],
[ 0 , 1 , 1 , 1 , -1 , -1 , -1 , 0 , -1 , 0 , 1 , 1 , -1 , 2 , 1 , 0 , 0 , 0 , 2 , 1 , 1 , 2 , 4 , 3 ],
[ 0 , 1 , 1 , 1 , -1 , -1 , -1 , 0 , -1 , 0 , 1 , 1 , -1 , 2 , 1 , 0 , 0 , 0 , 2 , 1 , 1 , 2 , 3 , 4 ]
]);
Im:=Matrix(Integers(),[
[ 0 , 1 , 2 , 4 , -4 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 3 , 3 , 1 , 0 , 1 , 1 , 1 , 2 , 2 ],
[ -1 , 0 , 3 , 1 , -3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , -1 , 1 , 1 , 1 , 1 , 1 , 1 ],
[ -2 , -3 , 0 , -3 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -2 , -2 , 0 , -3 , 1 , 1 , 1 , -1 , -1 ],
[ -4 , -1 , 3 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -2 , -2 , -3 , -3 , -2 , 1 , 0 , 0 , 0 , 1 , 1 ],
[ 4 , 3 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , 3 , 0 , 3 , 3 , 3 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , -4 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 2 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 4 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -2 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , -3 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -3 , 2 , 0 , 4 , 0 , 1 , 1 , 2 , -2 , -2 , 2 , 2 , 2 , 2 , 2 , 2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 0 , -1 , 1 , 3 , -2 , 4 , 0 , 1 , -1 , -2 , 3 , 1 , 1 , 3 , 3 , 3 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -2 , 1 , 0 , -3 , -1 , -1 , -2 , 3 , -1 , 3 , -1 , -2 , -3 , -3 , -2 , -2 , -2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 3 , 0 , -1 , 0 , -1 , -1 , 1 , 1 , 1 , -1 , -1 , -1 , -1 , -1 , -1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , -4 , -3 , 1 , 1 , 0 , -2 , -1 , 2 , 1 , 1 , 0 , 1 , -1 , -1 , 1 , 1 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 1 , 0 , 2 , 0 , 1 , 1 , 0 , 1 , 1 , -1 , -1 , -1 , -1 , -1 , -1 ],
[ -1 , -1 , 0 , 2 , -1 , 1 , 2 , -1 , -4 , 2 , 1 , 1 , -1 , 0 , -1 , 5 , 1 , -3 , 3 , -1 , -1 , 0 , 2 , 0 ],
[ -1 , -1 , 0 , 2 , -1 , -2 , -1 , -1 , 0 , -3 , 1 , -2 , -1 , 1 , 0 , 0 , 2 , -2 , 2 , -2 , -2 , -1 , 3 , 3 ],
[ -3 , -1 , 2 , 3 , -1 , 1 , -1 , -2 , -1 , 1 , -1 , -1 , 0 , -5 , 0 , 0 , 1 , -3 , 1 , -3 , -3 , -3 , -2 , 0 ],
[ -3 , -1 , 2 , 3 , -1 , 0 , 0 , 2 , 1 , -3 , -1 , -1 , -1 , -1 , -2 , -1 , 0 , -6 , 4 , -3 , -3 , -2 , 2 , 2 ],
[ -1 , 1 , 0 , 2 , -3 , 0 , 0 , 2 , 2 , 1 , -1 , 0 , -1 , 3 , 2 , 3 , 6 , 0 , -1 , -4 , -2 , -1 , 0 , 0 ],
[ 0 , -1 , 3 , -1 , 0 , 0 , 0 , -2 , -3 , 2 , 1 , -1 , 1 , -3 , -2 , -1 , -4 , 1 , 0 , 2 , 4 , 1 , 0 , 0 ],
[ -1 , -1 , -1 , 0 , -3 , 0 , 0 , -2 , -1 , 3 , 1 , 1 , 1 , 1 , 2 , 3 , 3 , 4 , -2 , 0 , -1 , 0 , -1 , -1 ],
[ -1 , -1 , -1 , 0 , -3 , 0 , 0 , -2 , -1 , 3 , 1 , 1 , 1 , 1 , 2 , 3 , 3 , 2 , -4 , 1 , 0 , -2 , -1 , -1 ],
[ -1 , -1 , -1 , 0 , -3 , 0 , 0 , -2 , -3 , 2 , 1 , -1 , 1 , 0 , 1 , 3 , 2 , 1 , -1 , 0 , 2 , 0 , 0 , 0 ],
[ -2 , -1 , 1 , -1 , -1 , -1 , 3 , -2 , -3 , 2 , 1 , -1 , 1 , -2 , -3 , 2 , -2 , 0 , 0 , 1 , 1 , 0 , 0 , -1 ],
[ -2 , -1 , 1 , -1 , -1 , -1 , 1 , -2 , -3 , 2 , 1 , -1 , 1 , 0 , -3 , 0 , -2 , 0 , 0 , 1 , 1 , 0 , 1 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 4667544 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);

/***Gitter Nr. 462***(neu463 bei Nebe)***/
indx:=462;
Real:=Matrix(Integers(),[
[ 2 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 , -1 , 0 , -1 , 0 , 1 , 0 , 1 , -1 , 1 , 1 , 0 ],
[ 0 , 2 , 0 , -1 , 1 , 0 , 1 , 0 , -1 , 0 , 1 , 0 , 1 , -1 , 0 , 1 , 0 , 0 , -1 , 0 , -1 , 0 , 0 , 0 ],
[ 0 , 0 , 2 , 1 , -1 , 0 , 0 , 0 , -1 , 0 , 0 , 1 , -1 , 0 , 1 , 1 , 0 , -1 , -1 , -1 , 1 , 0 , -1 , 0 ],
[ -1 , -1 , 1 , 4 , -2 , -1 , 0 , 1 , 0 , 1 , -1 , 1 , -2 , 2 , 1 , 0 , -1 , -2 , 0 , 0 , 1 , 0 , -1 , 0 ],
[ 0 , 1 , -1 , -2 , 4 , 0 , 0 , 0 , 0 , -2 , 2 , -2 , 1 , -1 , 0 , 2 , 1 , 1 , 1 , -1 , -2 , 0 , 1 , 0 ],
[ 0 , 0 , 0 , -1 , 0 , 4 , 2 , -1 , -1 , -1 , 1 , -1 , 2 , -2 , 1 , 0 , 0 , 2 , -2 , -1 , 1 , -1 , -2 , -1 ],
[ 0 , 1 , 0 , 0 , 0 , 2 , 4 , 0 , 0 , -1 , 0 , -1 , 2 , -1 , 1 , 0 , -1 , 1 , -2 , 1 , -1 , -2 , -2 , -1 ],
[ 0 , 0 , 0 , 1 , 0 , -1 , 0 , 2 , 0 , 0 , 0 , -1 , -1 , 1 , 0 , 0 , -1 , 0 , 1 , 1 , 0 , 0 , 0 , 0 ],
[ 0 , -1 , -1 , 0 , 0 , -1 , 0 , 0 , 4 , 0 , -2 , 0 , 0 , 2 , -1 , -1 , 0 , 0 , 2 , 2 , 0 , -2 , 1 , 0 ],
[ -1 , 0 , 0 , 1 , -2 , -1 , -1 , 0 , 0 , 4 , 0 , 2 , -1 , 1 , -1 , -1 , 0 , -1 , 0 , 0 , 2 , 0 , 0 , 0 ],
[ -1 , 1 , 0 , -1 , 2 , 1 , 0 , 0 , -2 , 0 , 4 , -1 , 0 , -1 , 0 , 2 , 1 , 0 , -1 , -2 , 0 , 0 , -1 , -1 ],
[ 0 , 0 , 1 , 1 , -2 , -1 , -1 , -1 , 0 , 2 , -1 , 4 , -1 , 0 , 0 , 0 , 1 , -2 , -1 , 0 , 1 , 0 , 1 , 0 ],
[ 0 , 1 , -1 , -2 , 1 , 2 , 2 , -1 , 0 , -1 , 0 , -1 , 4 , -2 , 0 , 0 , 0 , 2 , -1 , 0 , -1 , -1 , 0 , 0 ],
[ -1 , -1 , 0 , 2 , -1 , -2 , -1 , 1 , 2 , 1 , -1 , 0 , -2 , 4 , -1 , 0 , -1 , -2 , 2 , 1 , 1 , -1 , 0 , 0 ],
[ 0 , 0 , 1 , 1 , 0 , 1 , 1 , 0 , -1 , -1 , 0 , 0 , 0 , -1 , 2 , 1 , 0 , 0 , -1 , -1 , 0 , 0 , -1 , 0 ],
[ -1 , 1 , 1 , 0 , 2 , 0 , 0 , 0 , -1 , -1 , 2 , 0 , 0 , 0 , 1 , 4 , 1 , -1 , 0 , -2 , 0 , -1 , 0 , 0 ],
[ 0 , 0 , 0 , -1 , 1 , 0 , -1 , -1 , 0 , 0 , 1 , 1 , 0 , -1 , 0 , 1 , 2 , 0 , 0 , -1 , 0 , 0 , 1 , 0 ],
[ 1 , 0 , -1 , -2 , 1 , 2 , 1 , 0 , 0 , -1 , 0 , -2 , 2 , -2 , 0 , -1 , 0 , 4 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , -1 , -1 , 0 , 1 , -2 , -2 , 1 , 2 , 0 , -1 , -1 , -1 , 2 , -1 , 0 , 0 , 0 , 4 , 1 , 0 , 0 , 2 , 1 ],
[ 1 , 0 , -1 , 0 , -1 , -1 , 1 , 1 , 2 , 0 , -2 , 0 , 0 , 1 , -1 , -2 , -1 , 0 , 1 , 4 , -1 , -1 , 1 , 0 ],
[ -1 , -1 , 1 , 1 , -2 , 1 , -1 , 0 , 0 , 2 , 0 , 1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , -1 , 4 , -1 , -1 , 0 ],
[ 1 , 0 , 0 , 0 , 0 , -1 , -2 , 0 , -2 , 0 , 0 , 0 , -1 , -1 , 0 , -1 , 0 , 0 , 0 , -1 , -1 , 4 , 1 , 1 ],
[ 1 , 0 , -1 , -1 , 1 , -2 , -2 , 0 , 1 , 0 , -1 , 1 , 0 , 0 , -1 , 0 , 1 , 0 , 2 , 1 , -1 , 1 , 4 , 1 ],
[ 0 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 1 , 1 , 2 ]
]);
Im:=Matrix(Integers(),[
[ 0 , 0 , 0 , -3 , 4 , 0 , 0 , 0 , 2 , -3 , 1 , -4 , 0 , 1 , 0 , 1 , 0 , 1 , 2 , -1 , -1 , -1 , -1 , 0 ],
[ 0 , 0 , 0 , 1 , 1 , -2 , -1 , 0 , 1 , -2 , -1 , 2 , -1 , 1 , 0 , 1 , 0 , -2 , -1 , 0 , -1 , 0 , 2 , 0 ],
[ 0 , 0 , 0 , 1 , 1 , 0 , 0 , 0 , -1 , -2 , -2 , -1 , 1 , -2 , 3 , 1 , 0 , 1 , 1 , -1 , -1 , 2 , 1 , 2 ],
[ 3 , -1 , -1 , 0 , 0 , 1 , -2 , 1 , -2 , -1 , -1 , -1 , 0 , -2 , 1 , 0 , 1 , 2 , 2 , 0 , -1 , 4 , 3 , 0 ],
[ -4 , -1 , -1 , 0 , 0 , 0 , 0 , -2 , 2 , 2 , 2 , 2 , 1 , 3 , -2 , 2 , 1 , -3 , -1 , -1 , 2 , -6 , -1 , -2 ],
[ 0 , 2 , 0 , -1 , 0 , 0 , 2 , 1 , 1 , 1 , 1 , 1 , 0 , 0 , -1 , 0 , 0 , 2 , 0 , 3 , 1 , -3 , 0 , -3 ],
[ 0 , 1 , 0 , 2 , 0 , -2 , 0 , 2 , 0 , -1 , 0 , 1 , -4 , 3 , -1 , 0 , -1 , -3 , 0 , 3 , -1 , 0 , 0 , -3 ],
[ 0 , 0 , 0 , -1 , 2 , -1 , -2 , 0 , 0 , 0 , 2 , 1 , -1 , -1 , 0 , 2 , 3 , -2 , 1 , -1 , 0 , 0 , 2 , 0 ],
[ -2 , -1 , 1 , 2 , -2 , -1 , 0 , 0 , 0 , 2 , 2 , 0 , -4 , 4 , -1 , 1 , 0 , -4 , 0 , 0 , 0 , 0 , -3 , 0 ],
[ 3 , 2 , 2 , 1 , -2 , -1 , 1 , 0 , -2 , 0 , -2 , 2 , 1 , -3 , 1 , -1 , 0 , 1 , -4 , 0 , -2 , 4 , 2 , 2 ],
[ -1 , 1 , 2 , 1 , -2 , -1 , 0 , -2 , -2 , 2 , 0 , 5 , 2 , -1 , 0 , 2 , 1 , -2 , -3 , -2 , 2 , -2 , 1 , -1 ],
[ 4 , -2 , 1 , 1 , -2 , -1 , -1 , -1 , 0 , -2 , -5 , 0 , -1 , -2 , 2 , -4 , -1 , 2 , -1 , 0 , -3 , 6 , 1 , 2 ],
[ 0 , 1 , -1 , 0 , -1 , 0 , 4 , 1 , 4 , -1 , -2 , 1 , 0 , 2 , -2 , -2 , -2 , 0 , -1 , 6 , -1 , -5 , -2 , -2 ],
[ -1 , -1 , 2 , 2 , -3 , 0 , -3 , 1 , -4 , 3 , 1 , 2 , -2 , 0 , 1 , 2 , 1 , -2 , 0 , -3 , 3 , 3 , 0 , 2 ],
[ 0 , 0 , -3 , -1 , 2 , 1 , 1 , 0 , 1 , -1 , 0 , -2 , 2 , -1 , 0 , -1 , 0 , 2 , 1 , 1 , -2 , 0 , 1 , -2 ],
[ -1 , -1 , -1 , 0 , -2 , 0 , 0 , -2 , -1 , 1 , -2 , 4 , 2 , -2 , 1 , 0 , 1 , -1 , -2 , 0 , 0 , -1 , 2 , 0 ],
[ 0 , 0 , 0 , -1 , -1 , 0 , 1 , -3 , 0 , 0 , -1 , 1 , 2 , -1 , 0 , -1 , 0 , 0 , -2 , -1 , -2 , 0 , -1 , 0 ],
[ -1 , 2 , -1 , -2 , 3 , -2 , 3 , 2 , 4 , -1 , 2 , -2 , 0 , 2 , -2 , 1 , 0 , 0 , 2 , 4 , -2 , -6 , 0 , -2 ],
[ -2 , 1 , -1 , -2 , 1 , 0 , 0 , -1 , 0 , 4 , 3 , 1 , 1 , 0 , -1 , 2 , 2 , -2 , 0 , -1 , 0 , -2 , 0 , 1 ],
[ 1 , 0 , 1 , 0 , 1 , -3 , -3 , 1 , 0 , 0 , 2 , 0 , -6 , 3 , -1 , 0 , 1 , -4 , 1 , 0 , -1 , 3 , -1 , 0 ],
[ 1 , 1 , 1 , 1 , -2 , -1 , 1 , 0 , 0 , 2 , -2 , 3 , 1 , -3 , 2 , 0 , 2 , 2 , 0 , 1 , 0 , 1 , 3 , 2 ],
[ 1 , 0 , -2 , -4 , 6 , 3 , 0 , 0 , 0 , -4 , 2 , -6 , 5 , -3 , 0 , 1 , 0 , 6 , 2 , -3 , -1 , 0 , 1 , 1 ],
[ 1 , -2 , -1 , -3 , 1 , 0 , 0 , -2 , 3 , -2 , -1 , -1 , 2 , 0 , -1 , -2 , 1 , 0 , 0 , 1 , -3 , -1 , 0 , 1 ],
[ 0 , 0 , -2 , 0 , 2 , 3 , 3 , 0 , 0 , -2 , 1 , -2 , 2 , -2 , 2 , 0 , 0 , 2 , -1 , 0 , -2 , -1 , -1 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 174960 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);


/***Gitter Nr. 463***(neu 14400 bei Nebe)***/
indx:=463;
Real:=Matrix(Integers(),[
[ 4 , 1 , 0 , -1 , 1 , -2 , 0 , 0 , 0 , 1 , -1 , 1 , 0 , -2 , 1 , -2 , 1 , 2 , 2 , 2 , 1 , -2 , 1 , -1 ],
[ 1 , 4 , 1 , -1 , -1 , -1 , 1 , -1 , 1 , 1 , -2 , 1 , 1 , 0 , 1 , -2 , 1 , 0 , 1 , 2 , 0 , -1 , 1 , 0 ],
[ 0 , 1 , 4 , -1 , 0 , -1 , -2 , -1 , 1 , -1 , -1 , 0 , 1 , 1 , -1 , 0 , 0 , -1 , 1 , -1 , -1 , 1 , 1 , -1 ],
[ -1 , -1 , -1 , 4 , 1 , 0 , 1 , 1 , 1 , 1 , 2 , 0 , -1 , 0 , -1 , 0 , -1 , -1 , -2 , -2 , -2 , 0 , -2 , 0 ],
[ 1 , -1 , 0 , 1 , 4 , -1 , -2 , 1 , -1 , 1 , 2 , 1 , 1 , 1 , -2 , 1 , 0 , 1 , 0 , -1 , 0 , -1 , -1 , 1 ],
[ -2 , -1 , -1 , 0 , -1 , 4 , 0 , 0 , 0 , -1 , 1 , 0 , 1 , 2 , 1 , 1 , 1 , -1 , -2 , 0 , 1 , 2 , 0 , 2 ],
[ 0 , 1 , -2 , 1 , -2 , 0 , 4 , 1 , 1 , 1 , -1 , -1 , -1 , -2 , 2 , -2 , -1 , 0 , 0 , 1 , 0 , -1 , 0 , -1 ],
[ 0 , -1 , -1 , 1 , 1 , 0 , 1 , 4 , 0 , 0 , 1 , -2 , 1 , 0 , 1 , 1 , -1 , 0 , -1 , -1 , 1 , -1 , 1 , -1 ],
[ 0 , 1 , 1 , 1 , -1 , 0 , 1 , 0 , 4 , -1 , -1 , 0 , 1 , 0 , 1 , -1 , 1 , 0 , 0 , -1 , -2 , 0 , 1 , -1 ],
[ 1 , 1 , -1 , 1 , 1 , -1 , 1 , 0 , -1 , 4 , 1 , 2 , -1 , -1 , -1 , -2 , 0 , -1 , 0 , 1 , 1 , -1 , -1 , 1 ],
[ -1 , -2 , -1 , 2 , 2 , 1 , -1 , 1 , -1 , 1 , 4 , 1 , 0 , 1 , -1 , 1 , 0 , -1 , -2 , -1 , 0 , 1 , -1 , 1 ],
[ 1 , 1 , 0 , 0 , 1 , 0 , -1 , -2 , 0 , 2 , 1 , 4 , 0 , 0 , -1 , -1 , 2 , 0 , 1 , 1 , 0 , 0 , 0 , 2 ],
[ 0 , 1 , 1 , -1 , 1 , 1 , -1 , 1 , 1 , -1 , 0 , 0 , 4 , 2 , 1 , 1 , 2 , 1 , 0 , 0 , 1 , 1 , 1 , 1 ],
[ -2 , 0 , 1 , 0 , 1 , 2 , -2 , 0 , 0 , -1 , 1 , 0 , 2 , 4 , -1 , 2 , 1 , -1 , -2 , -1 , 0 , 1 , 0 , 2 ],
[ 1 , 1 , -1 , -1 , -2 , 1 , 2 , 1 , 1 , -1 , -1 , -1 , 1 , -1 , 4 , -1 , 1 , 1 , 0 , 2 , 1 , 0 , 2 , -1 ],
[ -2 , -2 , 0 , 0 , 1 , 1 , -2 , 1 , -1 , -2 , 1 , -1 , 1 , 2 , -1 , 4 , 0 , 0 , -1 , -2 , 0 , 1 , 0 , 1 ],
[ 1 , 1 , 0 , -1 , 0 , 1 , -1 , -1 , 1 , 0 , 0 , 2 , 2 , 1 , 1 , 0 , 4 , 1 , 0 , 1 , 1 , 1 , 1 , 2 ],
[ 2 , 0 , -1 , -1 , 1 , -1 , 0 , 0 , 0 , -1 , -1 , 0 , 1 , -1 , 1 , 0 , 1 , 4 , 2 , 1 , 0 , -1 , 0 , 0 ],
[ 2 , 1 , 1 , -2 , 0 , -2 , 0 , -1 , 0 , 0 , -2 , 1 , 0 , -2 , 0 , -1 , 0 , 2 , 4 , 1 , 0 , -1 , 1 , -1 ],
[ 2 , 2 , -1 , -2 , -1 , 0 , 1 , -1 , -1 , 1 , -1 , 1 , 0 , -1 , 2 , -2 , 1 , 1 , 1 , 4 , 2 , -1 , 1 , 0 ],
[ 1 , 0 , -1 , -2 , 0 , 1 , 0 , 1 , -2 , 1 , 0 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 0 , 2 , 4 , 0 , 1 , 1 ],
[ -2 , -1 , 1 , 0 , -1 , 2 , -1 , -1 , 0 , -1 , 1 , 0 , 1 , 1 , 0 , 1 , 1 , -1 , -1 , -1 , 0 , 4 , -1 , 1 ],
[ 1 , 1 , 1 , -2 , -1 , 0 , 0 , 1 , 1 , -1 , -1 , 0 , 1 , 0 , 2 , 0 , 1 , 0 , 1 , 1 , 1 , -1 , 4 , -1 ],
[ -1 , 0 , -1 , 0 , 1 , 2 , -1 , -1 , -1 , 1 , 1 , 2 , 1 , 2 , -1 , 1 , 2 , 0 , -1 , 0 , 1 , 1 , -1 , 4 ]
]);
Im:=Matrix(Integers(),[
[ 0 , 1 , -2 , 3 , 1 , -2 , 2 , 0 , -2 , 5 , 5 , 1 , -2 , -2 , -1 , -4 , -1 , -2 , -2 , 2 , 1 , 0 , -3 , -1 ],
[ -1 , 0 , -3 , 1 , -3 , 3 , 3 , 1 , -1 , -1 , 0 , -3 , -1 , 0 , 3 , 0 , -1 , -2 , -3 , 2 , 2 , -1 , 1 , -2 ],
[ 2 , 3 , 0 , -1 , -2 , -1 , 2 , 1 , 1 , 1 , -1 , 0 , 1 , -3 , 5 , -2 , 0 , -1 , -1 , 3 , 1 , -1 , 3 , -3 ],
[ -3 , -1 , 1 , 0 , 1 , 2 , -3 , 1 , 1 , -3 , 0 , -2 , 3 , 4 , -1 , 4 , 3 , 1 , -2 , -4 , -2 , 4 , -2 , 2 ],
[ -1 , 3 , 2 , -1 , 0 , -3 , 0 , -3 , -1 , 3 , 0 , 1 , 1 , 1 , -2 , -1 , 2 , -1 , 0 , 1 , 0 , 3 , -3 , 1 ],
[ 2 , -3 , 1 , -2 , 3 , 0 , -2 , 2 , 0 , -1 , -1 , 0 , 1 , 0 , -1 , 3 , -1 , 1 , 4 , -2 , 1 , -2 , 2 , 0 ],
[ -2 , -3 , -2 , 3 , 0 , 2 , 0 , 3 , 1 , -3 , 1 , -3 , -1 , 2 , 0 , 2 , -1 , 0 , -2 , -3 , -2 , -1 , 0 , -1 ],
[ 0 , -1 , -1 , -1 , 3 , -2 , -3 , 0 , -4 , 0 , 3 , 2 , -1 , 2 , -1 , 3 , 1 , 2 , 1 , 1 , -1 , -1 , 1 , 1 ],
[ 2 , 1 , -1 , -1 , 1 , 0 , -1 , 4 , 0 , -1 , -1 , -4 , 1 , 2 , 3 , 1 , 1 , 0 , -4 , 1 , 2 , -4 , 3 , -1 ],
[ -5 , 1 , -1 , 3 , -3 , 1 , 3 , 0 , 1 , 0 , 1 , -2 , -1 , 1 , -1 , 0 , -2 , -3 , -2 , -3 , -3 , 3 , -3 , -1 ],
[ -5 , 0 , 1 , 0 , 0 , 1 , -1 , -3 , 1 , -1 , 0 , 1 , 0 , 3 , -3 , 3 , 0 , -1 , 0 , -3 , -4 , 3 , -3 , 3 ],
[ -1 , 3 , 0 , 2 , -1 , 0 , 3 , -2 , 4 , 2 , -1 , 0 , 0 , 0 , -1 , -3 , 0 , -2 , -1 , -1 , -2 , 0 , -2 , 0 ],
[ 2 , 1 , -1 , -3 , -1 , -1 , 1 , 1 , -1 , 1 , 0 , 0 , 0 , 0 , 3 , 1 , 2 , -1 , 0 , 4 , 3 , -3 , 5 , -1 ],
[ 2 , 0 , 3 , -4 , -1 , 0 , -2 , -2 , -2 , -1 , -3 , 0 , 0 , 0 , 1 , 2 , 1 , -1 , 2 , 1 , 2 , 1 , 2 , 0 ],
[ 1 , -3 , -5 , 1 , 2 , 1 , 0 , 1 , -3 , 1 , 3 , 1 , -3 , -1 , 0 , 1 , -1 , 1 , 0 , 2 , 1 , -4 , 0 , 1 ],
[ 4 , 0 , 2 , -4 , 1 , -3 , -2 , -3 , -1 , 0 , -3 , 3 , -1 , -2 , -1 , 0 , 2 , 4 , 5 , 2 , 0 , -1 , 2 , 1 ],
[ 1 , 1 , 0 , -3 , -2 , 1 , 1 , -1 , -1 , 2 , 0 , 0 , -2 , -1 , 1 , -2 , 0 , -3 , 0 , 3 , 3 , -1 , 3 , 0 ],
[ 2 , 2 , 1 , -1 , 1 , -1 , 0 , -2 , 0 , 3 , 1 , 2 , 1 , 1 , -1 , -4 , 3 , 0 , 0 , 3 , 2 , -1 , 0 , 2 ],
[ 2 , 3 , 1 , 2 , 0 , -4 , 2 , -1 , 4 , 2 , 0 , 1 , 0 , -2 , 0 , -5 , 0 , 0 , 0 , 1 , -2 , -3 , 1 , -3 ],
[ -2 , -2 , -3 , 4 , -1 , 2 , 3 , -1 , -1 , 3 , 3 , 1 , -4 , -1 , -2 , -2 , -3 , -3 , -1 , 0 , 0 , -1 , -3 , 0 ],
[ -1 , -2 , -1 , 2 , 0 , -1 , 2 , 1 , -2 , 3 , 4 , 2 , -3 , -2 , -1 , 0 , -3 , -2 , 2 , 0 , 0 , 0 , 1 , -1 ],
[ 0 , 1 , 1 , -4 , -3 , 2 , 1 , 1 , 4 , -3 , -3 , 0 , 3 , -1 , 4 , 1 , 1 , 1 , 3 , 1 , 0 , 0 , 5 , -1 ],
[ 3 , -1 , -3 , 2 , 3 , -2 , 0 , -1 , -3 , 3 , 3 , 2 , -5 , -2 , 0 , -2 , -3 , 0 , -1 , 3 , -1 , -5 , 0 , -1 ],
[ 1 , 2 , 3 , -2 , -1 , 0 , 1 , -1 , 1 , 1 , -3 , 0 , 1 , 0 , -1 , -1 , 0 , -2 , 3 , 0 , 1 , 1 , 1 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 14400 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);

/***Gitter Nr. 464***(git453neu bei Nebe)***/
indx:=464;
Real:=Matrix(Integers(),[
[ 2 , 0 , 0 , 0 , -1 , 0 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 2 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , -1 , 1 , -1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 ],
[ 0 , 1 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , -1 , 1 , -1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 2 , 0 , 1 , 0 , -1 , -1 , 0 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ -1 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 1 , 0 , 2 , 0 , -1 , 0 , 0 , -1 , -1 , 0 , -1 , 0 , 0 , -1 , 0 , 0 , -1 , 0 , 0 , 0 , 0 ],
[ -1 , 0 , 0 , 0 , 0 , 0 , 2 , -1 , 0 , 0 , 1 , -1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 ],
[ 1 , 0 , 0 , -1 , 0 , -1 , -1 , 2 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 2 , 0 , 1 , 0 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 ],
[ 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , -1 , 0 , -1 , -1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 1 , 1 , -1 , -1 , -1 , 1 , 0 , 1 , 0 , 4 , 0 , -2 , 1 , 0 , 0 , 1 , 0 , 0 , -1 , 0 , 0 , 0 , 1 ],
[ 0 , 0 , 0 , -1 , 0 , -1 , -1 , 1 , 0 , 0 , 0 , 2 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 ],
[ 0 , -1 , -1 , 0 , 1 , 0 , -1 , 1 , -1 , -1 , -2 , 1 , 4 , 0 , 1 , 1 , -2 , -1 , -1 , 1 , 0 , 1 , -1 , 0 ],
[ -1 , 1 , 1 , 0 , 1 , -1 , 1 , 0 , -1 , 0 , 1 , 0 , 0 , 4 , -1 , -1 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 1 ],
[ 0 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 1 , -1 , 2 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , -1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 1 , -1 , 1 , 2 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , 1 , 1 , 0 , 0 , -1 , 0 , 0 , 0 , 1 , 1 , 0 , -2 , 1 , -1 , -1 , 4 , 1 , 1 , 2 , 1 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 1 , 2 , 1 , 1 , 0 , -1 , 1 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 1 , 1 , 2 , 1 , 1 , -1 , 1 , 0 ],
[ 0 , 0 , 0 , 0 , 1 , -1 , -1 , 1 , -1 , 0 , -1 , 1 , 1 , 1 , 0 , 0 , 2 , 1 , 1 , 4 , 1 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 1 , 2 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 0 , 2 , -1 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , -1 , 2 , 0 ],
[ 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 ]
]);
Im:=Matrix(Integers(),[
[ 0 , 0 , 0 , 2 , 3 , 0 , 1 , 1 , -2 , 0 , -2 , -2 , 2 , 3 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 1 , 0 , -1 , -1 , -1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 ],
[ 0 , -3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -1 , 0 , 1 , -3 , 1 , 3 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -2 ],
[ -2 , 0 , 0 , 0 , 2 , -1 , 0 , -1 , -1 , 0 , -1 , -1 , 0 , 2 , 0 , 0 , 2 , 0 , 0 , 2 , 0 , 0 , 0 , 0 ],
[ -3 , 0 , 0 , -2 , 0 , -2 , 0 , 0 , 0 , 0 , 1 , 4 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 1 , 2 , 0 , -4 , 1 , 0 , 0 , -3 , 1 , 2 , -1 , 0 , 0 , 1 , 0 , 0 , 3 , 0 , 0 , 0 , 0 ],
[ -1 , 0 , 0 , 0 , 0 , 4 , 0 , -3 , 2 , 0 , -1 , -1 , -1 , -3 , 0 , 0 , -2 , 0 , 0 , -3 , 0 , 0 , 0 , 0 ],
[ -1 , 0 , 0 , 1 , 0 , -1 , 3 , 0 , 0 , 0 , 2 , -1 , -1 , 2 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 ],
[ 2 , 0 , 0 , 1 , 0 , 0 , -2 , 0 , 0 , 0 , -1 , 2 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 ],
[ 0 , -3 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , -2 , 3 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -2 ],
[ 2 , -1 , 1 , 1 , -1 , 3 , 1 , -2 , 1 , 0 , 0 , -2 , -2 , -3 , -2 , 2 , -1 , 0 , 0 , -3 , 0 , 0 , 0 , -3 ],
[ 2 , 0 , 0 , 1 , -4 , -1 , 1 , 1 , -2 , 0 , 2 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 0 ],
[ -2 , 1 , -1 , 0 , -1 , -2 , 1 , 1 , -1 , -1 , 2 , 1 , 0 , 4 , -1 , -1 , 2 , -1 , 1 , 1 , 2 , 1 , -1 , 2 ],
[ -3 , 1 , 3 , -2 , -1 , 1 , 3 , -2 , 1 , 2 , 3 , 0 , -4 , 0 , -3 , -1 , 1 , 0 , 0 , -3 , 0 , 0 , 0 , -1 ],
[ 0 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , -3 , 2 , 0 , 1 , 3 , 0 , 1 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 2 ],
[ 0 , -1 , -3 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , -2 , 0 , 1 , 1 , -1 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ],
[ 0 , -1 , 1 , -2 , 0 , -1 , 2 , 0 , 0 , 1 , 1 , 0 , -2 , -1 , 1 , 1 , 0 , 1 , -1 , -2 , -3 , -2 , 2 , -2 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , -1 , 0 , -3 , -1 , -2 , -1 , -1 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 1 , 3 , 0 , 1 , -1 , -1 , 3 , 0 ],
[ -2 , 0 , 0 , -2 , -1 , -3 , 3 , 1 , -1 , 0 , 3 , 1 , -1 , 3 , 0 , 0 , 2 , 1 , -1 , 0 , -3 , 0 , 0 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -2 , 0 , 0 , 0 , 3 , 2 , 1 , 3 , 0 , 0 , 2 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , -1 , 0 , 0 , 0 , 2 , 1 , 1 , 0 , 0 , 0 , -1 , 0 ],
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , -2 , 1 , -3 , 0 , -2 , 1 , 0 , 0 ],
[ 0 , 1 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 3 , 0 , -2 , 1 , -2 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ]
]);
S22:=#ShortVectors(LatticeWithGram(Real),2,2);
Append(~a, 227598336 );
Liste:=[* *];Append(~Liste,0);Append(~Liste,Real);Append(~Liste,Im);Append(~Liste,S22);Append(~Liste,a[indx]);
Append(~ErgEXT,Liste);






/***Liste mit den Galois Konjugierten***/
/*+++++++++++++++++Vergleiche Gitter Nr. 1  mit der Liste...*/
Append(~ErgEXT[ 1 ], 1 );                  /*Isometrische Gitter: --->  1  und 1  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 2  mit der Liste...*/
Append(~ErgEXT[ 2 ], 263 );                  /*Isometrische Gitter: --->  2  und 263  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 3  mit der Liste...*/
Append(~ErgEXT[ 3 ], 391 );                  /*Isometrische Gitter: --->  3  und 391  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 4  mit der Liste...*/
Append(~ErgEXT[ 4 ], 337 );                  /*Isometrische Gitter: --->  4  und 337  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 5  mit der Liste...*/
Append(~ErgEXT[ 5 ], 415 );                  /*Isometrische Gitter: --->  5  und 415  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 6  mit der Liste...*/
Append(~ErgEXT[ 6 ], 137 );                  /*Isometrische Gitter: --->  6  und 137  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 7  mit der Liste...*/
Append(~ErgEXT[ 7 ], 7 );                  /*Isometrische Gitter: --->  7  und 7  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 8  mit der Liste...*/
Append(~ErgEXT[ 8 ], 8 );                  /*Isometrische Gitter: --->  8  und 8  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 9  mit der Liste...*/
Append(~ErgEXT[ 9 ], 9 );                  /*Isometrische Gitter: --->  9  und 9  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 10  mit der Liste...*/
Append(~ErgEXT[ 10 ], 256 );                  /*Isometrische Gitter: --->  10  und 256  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 11  mit der Liste...*/
Append(~ErgEXT[ 11 ], 11 );                  /*Isometrische Gitter: --->  11  und 11  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 12  mit der Liste...*/
Append(~ErgEXT[ 12 ], 192 );                  /*Isometrische Gitter: --->  12  und 192  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 13  mit der Liste...*/
Append(~ErgEXT[ 13 ], 43 );                  /*Isometrische Gitter: --->  13  und 43  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 14  mit der Liste...*/
Append(~ErgEXT[ 14 ], 355 );                  /*Isometrische Gitter: --->  14  und 355  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 15  mit der Liste...*/
Append(~ErgEXT[ 15 ], 92 );                  /*Isometrische Gitter: --->  15  und 92  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 16  mit der Liste...*/
Append(~ErgEXT[ 16 ], 16 );                  /*Isometrische Gitter: --->  16  und 16  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 17  mit der Liste...*/
Append(~ErgEXT[ 17 ], 17 );                  /*Isometrische Gitter: --->  17  und 17  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 18  mit der Liste...*/
Append(~ErgEXT[ 18 ], 226 );                  /*Isometrische Gitter: --->  18  und 226  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 19  mit der Liste...*/
Append(~ErgEXT[ 19 ], 19 );                  /*Isometrische Gitter: --->  19  und 19  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 20  mit der Liste...*/
Append(~ErgEXT[ 20 ], 105 );                  /*Isometrische Gitter: --->  20  und 105  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 21  mit der Liste...*/
Append(~ErgEXT[ 21 ], 21 );                  /*Isometrische Gitter: --->  21  und 21  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 22  mit der Liste...*/
Append(~ErgEXT[ 22 ], 329 );                  /*Isometrische Gitter: --->  22  und 329  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 23  mit der Liste...*/
Append(~ErgEXT[ 23 ], 23 );                  /*Isometrische Gitter: --->  23  und 23  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 24  mit der Liste...*/
Append(~ErgEXT[ 24 ], 143 );                  /*Isometrische Gitter: --->  24  und 143  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 25  mit der Liste...*/
Append(~ErgEXT[ 25 ], 25 );                  /*Isometrische Gitter: --->  25  und 25  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 26  mit der Liste...*/
Append(~ErgEXT[ 26 ], 26 );                  /*Isometrische Gitter: --->  26  und 26  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 27  mit der Liste...*/
Append(~ErgEXT[ 27 ], 27 );                  /*Isometrische Gitter: --->  27  und 27  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 28  mit der Liste...*/
Append(~ErgEXT[ 28 ], 70 );                  /*Isometrische Gitter: --->  28  und 70  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 29  mit der Liste...*/
Append(~ErgEXT[ 29 ], 389 );                  /*Isometrische Gitter: --->  29  und 389  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 30  mit der Liste...*/
Append(~ErgEXT[ 30 ], 68 );                  /*Isometrische Gitter: --->  30  und 68  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 31  mit der Liste...*/
Append(~ErgEXT[ 31 ], 31 );                  /*Isometrische Gitter: --->  31  und 31  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 32  mit der Liste...*/
Append(~ErgEXT[ 32 ], 77 );                  /*Isometrische Gitter: --->  32  und 77  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 33  mit der Liste...*/
Append(~ErgEXT[ 33 ], 33 );                  /*Isometrische Gitter: --->  33  und 33  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 34  mit der Liste...*/
Append(~ErgEXT[ 34 ], 84 );                  /*Isometrische Gitter: --->  34  und 84  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 35  mit der Liste...*/
Append(~ErgEXT[ 35 ], 153 );                  /*Isometrische Gitter: --->  35  und 153  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 36  mit der Liste...*/
Append(~ErgEXT[ 36 ], 110 );                  /*Isometrische Gitter: --->  36  und 110  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 37  mit der Liste...*/
Append(~ErgEXT[ 37 ], 99 );                  /*Isometrische Gitter: --->  37  und 99  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 38  mit der Liste...*/
Append(~ErgEXT[ 38 ], 189 );                  /*Isometrische Gitter: --->  38  und 189  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 39  mit der Liste...*/
Append(~ErgEXT[ 39 ], 39 );                  /*Isometrische Gitter: --->  39  und 39  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 40  mit der Liste...*/
Append(~ErgEXT[ 40 ], 169 );                  /*Isometrische Gitter: --->  40  und 169  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 41  mit der Liste...*/
Append(~ErgEXT[ 41 ], 41 );                  /*Isometrische Gitter: --->  41  und 41  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 42  mit der Liste...*/
Append(~ErgEXT[ 42 ], 190 );                  /*Isometrische Gitter: --->  42  und 190  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 43  mit der Liste...*/
Append(~ErgEXT[ 43 ], 13 );                  /*Isometrische Gitter: --->  43  und 13  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 44  mit der Liste...*/
Append(~ErgEXT[ 44 ], 122 );                  /*Isometrische Gitter: --->  44  und 122  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 45  mit der Liste...*/
Append(~ErgEXT[ 45 ], 272 );                  /*Isometrische Gitter: --->  45  und 272  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 46  mit der Liste...*/
Append(~ErgEXT[ 46 ], 46 );                  /*Isometrische Gitter: --->  46  und 46  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 47  mit der Liste...*/
Append(~ErgEXT[ 47 ], 69 );                  /*Isometrische Gitter: --->  47  und 69  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 48  mit der Liste...*/
Append(~ErgEXT[ 48 ], 207 );                  /*Isometrische Gitter: --->  48  und 207  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 49  mit der Liste...*/
Append(~ErgEXT[ 49 ], 148 );                  /*Isometrische Gitter: --->  49  und 148  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 50  mit der Liste...*/
Append(~ErgEXT[ 50 ], 138 );                  /*Isometrische Gitter: --->  50  und 138  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 51  mit der Liste...*/
Append(~ErgEXT[ 51 ], 51 );                  /*Isometrische Gitter: --->  51  und 51  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 52  mit der Liste...*/
Append(~ErgEXT[ 52 ], 52 );                  /*Isometrische Gitter: --->  52  und 52  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 53  mit der Liste...*/
Append(~ErgEXT[ 53 ], 53 );                  /*Isometrische Gitter: --->  53  und 53  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 54  mit der Liste...*/
Append(~ErgEXT[ 54 ], 54 );                  /*Isometrische Gitter: --->  54  und 54  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 55  mit der Liste...*/
Append(~ErgEXT[ 55 ], 55 );                  /*Isometrische Gitter: --->  55  und 55  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 56  mit der Liste...*/
Append(~ErgEXT[ 56 ], 101 );                  /*Isometrische Gitter: --->  56  und 101  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 57  mit der Liste...*/
Append(~ErgEXT[ 57 ], 119 );                  /*Isometrische Gitter: --->  57  und 119  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 58  mit der Liste...*/
Append(~ErgEXT[ 58 ], 102 );                  /*Isometrische Gitter: --->  58  und 102  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 59  mit der Liste...*/
Append(~ErgEXT[ 59 ], 59 );                  /*Isometrische Gitter: --->  59  und 59  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 60  mit der Liste...*/
Append(~ErgEXT[ 60 ], 135 );                  /*Isometrische Gitter: --->  60  und 135  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 61  mit der Liste...*/
Append(~ErgEXT[ 61 ], 61 );                  /*Isometrische Gitter: --->  61  und 61  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 62  mit der Liste...*/
Append(~ErgEXT[ 62 ], 108 );                  /*Isometrische Gitter: --->  62  und 108  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 63  mit der Liste...*/
Append(~ErgEXT[ 63 ], 225 );                  /*Isometrische Gitter: --->  63  und 225  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 64  mit der Liste...*/
Append(~ErgEXT[ 64 ], 264 );                  /*Isometrische Gitter: --->  64  und 264  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 65  mit der Liste...*/
Append(~ErgEXT[ 65 ], 322 );                  /*Isometrische Gitter: --->  65  und 322  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 66  mit der Liste...*/
Append(~ErgEXT[ 66 ], 223 );                  /*Isometrische Gitter: --->  66  und 223  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 67  mit der Liste...*/
Append(~ErgEXT[ 67 ], 133 );                  /*Isometrische Gitter: --->  67  und 133  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 68  mit der Liste...*/
Append(~ErgEXT[ 68 ], 30 );                  /*Isometrische Gitter: --->  68  und 30  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 69  mit der Liste...*/
Append(~ErgEXT[ 69 ], 47 );                  /*Isometrische Gitter: --->  69  und 47  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 70  mit der Liste...*/
Append(~ErgEXT[ 70 ], 28 );                  /*Isometrische Gitter: --->  70  und 28  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 71  mit der Liste...*/
Append(~ErgEXT[ 71 ], 71 );                  /*Isometrische Gitter: --->  71  und 71  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 72  mit der Liste...*/
Append(~ErgEXT[ 72 ], 72 );                  /*Isometrische Gitter: --->  72  und 72  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 73  mit der Liste...*/
Append(~ErgEXT[ 73 ], 73 );                  /*Isometrische Gitter: --->  73  und 73  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 74  mit der Liste...*/
Append(~ErgEXT[ 74 ], 88 );                  /*Isometrische Gitter: --->  74  und 88  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 75  mit der Liste...*/
Append(~ErgEXT[ 75 ], 214 );                  /*Isometrische Gitter: --->  75  und 214  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 76  mit der Liste...*/
Append(~ErgEXT[ 76 ], 76 );                  /*Isometrische Gitter: --->  76  und 76  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 77  mit der Liste...*/
Append(~ErgEXT[ 77 ], 32 );                  /*Isometrische Gitter: --->  77  und 32  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 78  mit der Liste...*/
Append(~ErgEXT[ 78 ], 78 );                  /*Isometrische Gitter: --->  78  und 78  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 79  mit der Liste...*/
Append(~ErgEXT[ 79 ], 273 );                  /*Isometrische Gitter: --->  79  und 273  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 80  mit der Liste...*/
Append(~ErgEXT[ 80 ], 151 );                  /*Isometrische Gitter: --->  80  und 151  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 81  mit der Liste...*/
Append(~ErgEXT[ 81 ], 83 );                  /*Isometrische Gitter: --->  81  und 83  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 82  mit der Liste...*/
Append(~ErgEXT[ 82 ], 237 );                  /*Isometrische Gitter: --->  82  und 237  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 83  mit der Liste...*/
Append(~ErgEXT[ 83 ], 81 );                  /*Isometrische Gitter: --->  83  und 81  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 84  mit der Liste...*/
Append(~ErgEXT[ 84 ], 34 );                  /*Isometrische Gitter: --->  84  und 34  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 85  mit der Liste...*/
Append(~ErgEXT[ 85 ], 98 );                  /*Isometrische Gitter: --->  85  und 98  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 86  mit der Liste...*/
Append(~ErgEXT[ 86 ], 86 );                  /*Isometrische Gitter: --->  86  und 86  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 87  mit der Liste...*/
Append(~ErgEXT[ 87 ], 87 );                  /*Isometrische Gitter: --->  87  und 87  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 88  mit der Liste...*/
Append(~ErgEXT[ 88 ], 74 );                  /*Isometrische Gitter: --->  88  und 74  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 89  mit der Liste...*/
Append(~ErgEXT[ 89 ], 348 );                  /*Isometrische Gitter: --->  89  und 348  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 90  mit der Liste...*/
Append(~ErgEXT[ 90 ], 172 );                  /*Isometrische Gitter: --->  90  und 172  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 91  mit der Liste...*/
Append(~ErgEXT[ 91 ], 155 );                  /*Isometrische Gitter: --->  91  und 155  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 92  mit der Liste...*/
Append(~ErgEXT[ 92 ], 15 );                  /*Isometrische Gitter: --->  92  und 15  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 93  mit der Liste...*/
Append(~ErgEXT[ 93 ], 260 );                  /*Isometrische Gitter: --->  93  und 260  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 94  mit der Liste...*/
Append(~ErgEXT[ 94 ], 270 );                  /*Isometrische Gitter: --->  94  und 270  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 95  mit der Liste...*/
Append(~ErgEXT[ 95 ], 95 );                  /*Isometrische Gitter: --->  95  und 95  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 96  mit der Liste...*/
Append(~ErgEXT[ 96 ], 96 );                  /*Isometrische Gitter: --->  96  und 96  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 97  mit der Liste...*/
Append(~ErgEXT[ 97 ], 149 );                  /*Isometrische Gitter: --->  97  und 149  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 98  mit der Liste...*/
Append(~ErgEXT[ 98 ], 85 );                  /*Isometrische Gitter: --->  98  und 85  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 99  mit der Liste...*/
Append(~ErgEXT[ 99 ], 37 );                  /*Isometrische Gitter: --->  99  und 37  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 100  mit der Liste...*/
Append(~ErgEXT[ 100 ], 100 );                  /*Isometrische Gitter: --->  100  und 100  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 101  mit der Liste...*/
Append(~ErgEXT[ 101 ], 56 );                  /*Isometrische Gitter: --->  101  und 56  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 102  mit der Liste...*/
Append(~ErgEXT[ 102 ], 58 );                  /*Isometrische Gitter: --->  102  und 58  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 103  mit der Liste...*/
Append(~ErgEXT[ 103 ], 129 );                  /*Isometrische Gitter: --->  103  und 129  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 104  mit der Liste...*/
Append(~ErgEXT[ 104 ], 104 );                  /*Isometrische Gitter: --->  104  und 104  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 105  mit der Liste...*/
Append(~ErgEXT[ 105 ], 20 );                  /*Isometrische Gitter: --->  105  und 20  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 106  mit der Liste...*/
Append(~ErgEXT[ 106 ], 211 );                  /*Isometrische Gitter: --->  106  und 211  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 107  mit der Liste...*/
Append(~ErgEXT[ 107 ], 198 );                  /*Isometrische Gitter: --->  107  und 198  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 108  mit der Liste...*/
Append(~ErgEXT[ 108 ], 62 );                  /*Isometrische Gitter: --->  108  und 62  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 109  mit der Liste...*/
Append(~ErgEXT[ 109 ], 210 );                  /*Isometrische Gitter: --->  109  und 210  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 110  mit der Liste...*/
Append(~ErgEXT[ 110 ], 36 );                  /*Isometrische Gitter: --->  110  und 36  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 111  mit der Liste...*/
Append(~ErgEXT[ 111 ], 112 );                  /*Isometrische Gitter: --->  111  und 112  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 112  mit der Liste...*/
Append(~ErgEXT[ 112 ], 111 );                  /*Isometrische Gitter: --->  112  und 111  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 113  mit der Liste...*/
Append(~ErgEXT[ 113 ], 186 );                  /*Isometrische Gitter: --->  113  und 186  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 114  mit der Liste...*/
Append(~ErgEXT[ 114 ], 341 );                  /*Isometrische Gitter: --->  114  und 341  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 115  mit der Liste...*/
Append(~ErgEXT[ 115 ], 323 );                  /*Isometrische Gitter: --->  115  und 323  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 116  mit der Liste...*/
Append(~ErgEXT[ 116 ], 116 );                  /*Isometrische Gitter: --->  116  und 116  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 117  mit der Liste...*/
Append(~ErgEXT[ 117 ], 352 );                  /*Isometrische Gitter: --->  117  und 352  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 118  mit der Liste...*/
Append(~ErgEXT[ 118 ], 279 );                  /*Isometrische Gitter: --->  118  und 279  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 119  mit der Liste...*/
Append(~ErgEXT[ 119 ], 57 );                  /*Isometrische Gitter: --->  119  und 57  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 120  mit der Liste...*/
Append(~ErgEXT[ 120 ], 120 );                  /*Isometrische Gitter: --->  120  und 120  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 121  mit der Liste...*/
Append(~ErgEXT[ 121 ], 199 );                  /*Isometrische Gitter: --->  121  und 199  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 122  mit der Liste...*/
Append(~ErgEXT[ 122 ], 44 );                  /*Isometrische Gitter: --->  122  und 44  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 123  mit der Liste...*/
Append(~ErgEXT[ 123 ], 311 );                  /*Isometrische Gitter: --->  123  und 311  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 124  mit der Liste...*/
Append(~ErgEXT[ 124 ], 187 );                  /*Isometrische Gitter: --->  124  und 187  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 125  mit der Liste...*/
Append(~ErgEXT[ 125 ], 125 );                  /*Isometrische Gitter: --->  125  und 125  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 126  mit der Liste...*/
Append(~ErgEXT[ 126 ], 126 );                  /*Isometrische Gitter: --->  126  und 126  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 127  mit der Liste...*/
Append(~ErgEXT[ 127 ], 127 );                  /*Isometrische Gitter: --->  127  und 127  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 128  mit der Liste...*/
Append(~ErgEXT[ 128 ], 247 );                  /*Isometrische Gitter: --->  128  und 247  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 129  mit der Liste...*/
Append(~ErgEXT[ 129 ], 103 );                  /*Isometrische Gitter: --->  129  und 103  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 130  mit der Liste...*/
Append(~ErgEXT[ 130 ], 130 );                  /*Isometrische Gitter: --->  130  und 130  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 131  mit der Liste...*/
Append(~ErgEXT[ 131 ], 202 );                  /*Isometrische Gitter: --->  131  und 202  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 132  mit der Liste...*/
Append(~ErgEXT[ 132 ], 132 );                  /*Isometrische Gitter: --->  132  und 132  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 133  mit der Liste...*/
Append(~ErgEXT[ 133 ], 67 );                  /*Isometrische Gitter: --->  133  und 67  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 134  mit der Liste...*/
Append(~ErgEXT[ 134 ], 134 );                  /*Isometrische Gitter: --->  134  und 134  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 135  mit der Liste...*/
Append(~ErgEXT[ 135 ], 60 );                  /*Isometrische Gitter: --->  135  und 60  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 136  mit der Liste...*/
Append(~ErgEXT[ 136 ], 136 );                  /*Isometrische Gitter: --->  136  und 136  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 137  mit der Liste...*/
Append(~ErgEXT[ 137 ], 6 );                  /*Isometrische Gitter: --->  137  und 6  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 138  mit der Liste...*/
Append(~ErgEXT[ 138 ], 50 );                  /*Isometrische Gitter: --->  138  und 50  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 139  mit der Liste...*/
Append(~ErgEXT[ 139 ], 139 );                  /*Isometrische Gitter: --->  139  und 139  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 140  mit der Liste...*/
Append(~ErgEXT[ 140 ], 140 );                  /*Isometrische Gitter: --->  140  und 140  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 141  mit der Liste...*/
Append(~ErgEXT[ 141 ], 324 );                  /*Isometrische Gitter: --->  141  und 324  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 142  mit der Liste...*/
Append(~ErgEXT[ 142 ], 142 );                  /*Isometrische Gitter: --->  142  und 142  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 143  mit der Liste...*/
Append(~ErgEXT[ 143 ], 24 );                  /*Isometrische Gitter: --->  143  und 24  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 144  mit der Liste...*/
Append(~ErgEXT[ 144 ], 144 );                  /*Isometrische Gitter: --->  144  und 144  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 145  mit der Liste...*/
Append(~ErgEXT[ 145 ], 215 );                  /*Isometrische Gitter: --->  145  und 215  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 146  mit der Liste...*/
Append(~ErgEXT[ 146 ], 146 );                  /*Isometrische Gitter: --->  146  und 146  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 147  mit der Liste...*/
Append(~ErgEXT[ 147 ], 147 );                  /*Isometrische Gitter: --->  147  und 147  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 148  mit der Liste...*/
Append(~ErgEXT[ 148 ], 49 );                  /*Isometrische Gitter: --->  148  und 49  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 149  mit der Liste...*/
Append(~ErgEXT[ 149 ], 97 );                  /*Isometrische Gitter: --->  149  und 97  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 150  mit der Liste...*/
Append(~ErgEXT[ 150 ], 150 );                  /*Isometrische Gitter: --->  150  und 150  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 151  mit der Liste...*/
Append(~ErgEXT[ 151 ], 80 );                  /*Isometrische Gitter: --->  151  und 80  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 152  mit der Liste...*/
Append(~ErgEXT[ 152 ], 152 );                  /*Isometrische Gitter: --->  152  und 152  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 153  mit der Liste...*/
Append(~ErgEXT[ 153 ], 35 );                  /*Isometrische Gitter: --->  153  und 35  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 154  mit der Liste...*/
Append(~ErgEXT[ 154 ], 301 );                  /*Isometrische Gitter: --->  154  und 301  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 155  mit der Liste...*/
Append(~ErgEXT[ 155 ], 91 );                  /*Isometrische Gitter: --->  155  und 91  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 156  mit der Liste...*/
Append(~ErgEXT[ 156 ], 156 );                  /*Isometrische Gitter: --->  156  und 156  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 157  mit der Liste...*/
Append(~ErgEXT[ 157 ], 297 );                  /*Isometrische Gitter: --->  157  und 297  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 158  mit der Liste...*/
Append(~ErgEXT[ 158 ], 262 );                  /*Isometrische Gitter: --->  158  und 262  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 159  mit der Liste...*/
Append(~ErgEXT[ 159 ], 308 );                  /*Isometrische Gitter: --->  159  und 308  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 160  mit der Liste...*/
Append(~ErgEXT[ 160 ], 160 );                  /*Isometrische Gitter: --->  160  und 160  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 161  mit der Liste...*/
Append(~ErgEXT[ 161 ], 222 );                  /*Isometrische Gitter: --->  161  und 222  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 162  mit der Liste...*/
Append(~ErgEXT[ 162 ], 197 );                  /*Isometrische Gitter: --->  162  und 197  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 163  mit der Liste...*/
Append(~ErgEXT[ 163 ], 163 );                  /*Isometrische Gitter: --->  163  und 163  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 164  mit der Liste...*/
Append(~ErgEXT[ 164 ], 164 );                  /*Isometrische Gitter: --->  164  und 164  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 165  mit der Liste...*/
Append(~ErgEXT[ 165 ], 195 );                  /*Isometrische Gitter: --->  165  und 195  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 166  mit der Liste...*/
Append(~ErgEXT[ 166 ], 174 );                  /*Isometrische Gitter: --->  166  und 174  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 167  mit der Liste...*/
Append(~ErgEXT[ 167 ], 167 );                  /*Isometrische Gitter: --->  167  und 167  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 168  mit der Liste...*/
Append(~ErgEXT[ 168 ], 168 );                  /*Isometrische Gitter: --->  168  und 168  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 169  mit der Liste...*/
Append(~ErgEXT[ 169 ], 40 );                  /*Isometrische Gitter: --->  169  und 40  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 170  mit der Liste...*/
Append(~ErgEXT[ 170 ], 170 );                  /*Isometrische Gitter: --->  170  und 170  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 171  mit der Liste...*/
Append(~ErgEXT[ 171 ], 171 );                  /*Isometrische Gitter: --->  171  und 171  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 172  mit der Liste...*/
Append(~ErgEXT[ 172 ], 90 );                  /*Isometrische Gitter: --->  172  und 90  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 173  mit der Liste...*/
Append(~ErgEXT[ 173 ], 173 );                  /*Isometrische Gitter: --->  173  und 173  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 174  mit der Liste...*/
Append(~ErgEXT[ 174 ], 166 );                  /*Isometrische Gitter: --->  174  und 166  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 175  mit der Liste...*/
Append(~ErgEXT[ 175 ], 175 );                  /*Isometrische Gitter: --->  175  und 175  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 176  mit der Liste...*/
Append(~ErgEXT[ 176 ], 176 );                  /*Isometrische Gitter: --->  176  und 176  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 177  mit der Liste...*/
Append(~ErgEXT[ 177 ], 249 );                  /*Isometrische Gitter: --->  177  und 249  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 178  mit der Liste...*/
Append(~ErgEXT[ 178 ], 178 );                  /*Isometrische Gitter: --->  178  und 178  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 179  mit der Liste...*/
Append(~ErgEXT[ 179 ], 179 );                  /*Isometrische Gitter: --->  179  und 179  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 180  mit der Liste...*/
Append(~ErgEXT[ 180 ], 180 );                  /*Isometrische Gitter: --->  180  und 180  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 181  mit der Liste...*/
Append(~ErgEXT[ 181 ], 315 );                  /*Isometrische Gitter: --->  181  und 315  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 182  mit der Liste...*/
Append(~ErgEXT[ 182 ], 182 );                  /*Isometrische Gitter: --->  182  und 182  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 183  mit der Liste...*/
Append(~ErgEXT[ 183 ], 183 );                  /*Isometrische Gitter: --->  183  und 183  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 184  mit der Liste...*/
Append(~ErgEXT[ 184 ], 184 );                  /*Isometrische Gitter: --->  184  und 184  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 185  mit der Liste...*/
Append(~ErgEXT[ 185 ], 330 );                  /*Isometrische Gitter: --->  185  und 330  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 186  mit der Liste...*/
Append(~ErgEXT[ 186 ], 113 );                  /*Isometrische Gitter: --->  186  und 113  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 187  mit der Liste...*/
Append(~ErgEXT[ 187 ], 124 );                  /*Isometrische Gitter: --->  187  und 124  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 188  mit der Liste...*/
Append(~ErgEXT[ 188 ], 241 );                  /*Isometrische Gitter: --->  188  und 241  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 189  mit der Liste...*/
Append(~ErgEXT[ 189 ], 38 );                  /*Isometrische Gitter: --->  189  und 38  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 190  mit der Liste...*/
Append(~ErgEXT[ 190 ], 42 );                  /*Isometrische Gitter: --->  190  und 42  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 191  mit der Liste...*/
Append(~ErgEXT[ 191 ], 275 );                  /*Isometrische Gitter: --->  191  und 275  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 192  mit der Liste...*/
Append(~ErgEXT[ 192 ], 12 );                  /*Isometrische Gitter: --->  192  und 12  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 193  mit der Liste...*/
Append(~ErgEXT[ 193 ], 317 );                  /*Isometrische Gitter: --->  193  und 317  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 194  mit der Liste...*/
Append(~ErgEXT[ 194 ], 418 );                  /*Isometrische Gitter: --->  194  und 418  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 195  mit der Liste...*/
Append(~ErgEXT[ 195 ], 165 );                  /*Isometrische Gitter: --->  195  und 165  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 196  mit der Liste...*/
Append(~ErgEXT[ 196 ], 368 );                  /*Isometrische Gitter: --->  196  und 368  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 197  mit der Liste...*/
Append(~ErgEXT[ 197 ], 162 );                  /*Isometrische Gitter: --->  197  und 162  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 198  mit der Liste...*/
Append(~ErgEXT[ 198 ], 107 );                  /*Isometrische Gitter: --->  198  und 107  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 199  mit der Liste...*/
Append(~ErgEXT[ 199 ], 121 );                  /*Isometrische Gitter: --->  199  und 121  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 200  mit der Liste...*/
Append(~ErgEXT[ 200 ], 200 );                  /*Isometrische Gitter: --->  200  und 200  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 201  mit der Liste...*/
Append(~ErgEXT[ 201 ], 307 );                  /*Isometrische Gitter: --->  201  und 307  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 202  mit der Liste...*/
Append(~ErgEXT[ 202 ], 131 );                  /*Isometrische Gitter: --->  202  und 131  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 203  mit der Liste...*/
Append(~ErgEXT[ 203 ], 203 );                  /*Isometrische Gitter: --->  203  und 203  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 204  mit der Liste...*/
Append(~ErgEXT[ 204 ], 216 );                  /*Isometrische Gitter: --->  204  und 216  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 205  mit der Liste...*/
Append(~ErgEXT[ 205 ], 205 );                  /*Isometrische Gitter: --->  205  und 205  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 206  mit der Liste...*/
Append(~ErgEXT[ 206 ], 243 );                  /*Isometrische Gitter: --->  206  und 243  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 207  mit der Liste...*/
Append(~ErgEXT[ 207 ], 48 );                  /*Isometrische Gitter: --->  207  und 48  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 208  mit der Liste...*/
Append(~ErgEXT[ 208 ], 208 );                  /*Isometrische Gitter: --->  208  und 208  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 209  mit der Liste...*/
Append(~ErgEXT[ 209 ], 390 );                  /*Isometrische Gitter: --->  209  und 390  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 210  mit der Liste...*/
Append(~ErgEXT[ 210 ], 109 );                  /*Isometrische Gitter: --->  210  und 109  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 211  mit der Liste...*/
Append(~ErgEXT[ 211 ], 106 );                  /*Isometrische Gitter: --->  211  und 106  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 212  mit der Liste...*/
Append(~ErgEXT[ 212 ], 212 );                  /*Isometrische Gitter: --->  212  und 212  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 213  mit der Liste...*/
Append(~ErgEXT[ 213 ], 277 );                  /*Isometrische Gitter: --->  213  und 277  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 214  mit der Liste...*/
Append(~ErgEXT[ 214 ], 75 );                  /*Isometrische Gitter: --->  214  und 75  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 215  mit der Liste...*/
Append(~ErgEXT[ 215 ], 145 );                  /*Isometrische Gitter: --->  215  und 145  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 216  mit der Liste...*/
Append(~ErgEXT[ 216 ], 204 );                  /*Isometrische Gitter: --->  216  und 204  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 217  mit der Liste...*/
Append(~ErgEXT[ 217 ], 217 );                  /*Isometrische Gitter: --->  217  und 217  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 218  mit der Liste...*/
Append(~ErgEXT[ 218 ], 218 );                  /*Isometrische Gitter: --->  218  und 218  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 219  mit der Liste...*/
Append(~ErgEXT[ 219 ], 257 );                  /*Isometrische Gitter: --->  219  und 257  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 220  mit der Liste...*/
Append(~ErgEXT[ 220 ], 220 );                  /*Isometrische Gitter: --->  220  und 220  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 221  mit der Liste...*/
Append(~ErgEXT[ 221 ], 221 );                  /*Isometrische Gitter: --->  221  und 221  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 222  mit der Liste...*/
Append(~ErgEXT[ 222 ], 161 );                  /*Isometrische Gitter: --->  222  und 161  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 223  mit der Liste...*/
Append(~ErgEXT[ 223 ], 66 );                  /*Isometrische Gitter: --->  223  und 66  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 224  mit der Liste...*/
Append(~ErgEXT[ 224 ], 271 );                  /*Isometrische Gitter: --->  224  und 271  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 225  mit der Liste...*/
Append(~ErgEXT[ 225 ], 63 );                  /*Isometrische Gitter: --->  225  und 63  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 226  mit der Liste...*/
Append(~ErgEXT[ 226 ], 18 );                  /*Isometrische Gitter: --->  226  und 18  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 227  mit der Liste...*/
Append(~ErgEXT[ 227 ], 239 );                  /*Isometrische Gitter: --->  227  und 239  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 228  mit der Liste...*/
Append(~ErgEXT[ 228 ], 228 );                  /*Isometrische Gitter: --->  228  und 228  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 229  mit der Liste...*/
Append(~ErgEXT[ 229 ], 229 );                  /*Isometrische Gitter: --->  229  und 229  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 230  mit der Liste...*/
Append(~ErgEXT[ 230 ], 298 );                  /*Isometrische Gitter: --->  230  und 298  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 231  mit der Liste...*/
Append(~ErgEXT[ 231 ], 231 );                  /*Isometrische Gitter: --->  231  und 231  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 232  mit der Liste...*/
Append(~ErgEXT[ 232 ], 232 );                  /*Isometrische Gitter: --->  232  und 232  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 233  mit der Liste...*/
Append(~ErgEXT[ 233 ], 409 );                  /*Isometrische Gitter: --->  233  und 409  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 234  mit der Liste...*/
Append(~ErgEXT[ 234 ], 234 );                  /*Isometrische Gitter: --->  234  und 234  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 235  mit der Liste...*/
Append(~ErgEXT[ 235 ], 309 );                  /*Isometrische Gitter: --->  235  und 309  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 236  mit der Liste...*/
Append(~ErgEXT[ 236 ], 380 );                  /*Isometrische Gitter: --->  236  und 380  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 237  mit der Liste...*/
Append(~ErgEXT[ 237 ], 82 );                  /*Isometrische Gitter: --->  237  und 82  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 238  mit der Liste...*/
Append(~ErgEXT[ 238 ], 238 );                  /*Isometrische Gitter: --->  238  und 238  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 239  mit der Liste...*/
Append(~ErgEXT[ 239 ], 227 );                  /*Isometrische Gitter: --->  239  und 227  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 240  mit der Liste...*/
Append(~ErgEXT[ 240 ], 240 );                  /*Isometrische Gitter: --->  240  und 240  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 241  mit der Liste...*/
Append(~ErgEXT[ 241 ], 188 );                  /*Isometrische Gitter: --->  241  und 188  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 242  mit der Liste...*/
Append(~ErgEXT[ 242 ], 242 );                  /*Isometrische Gitter: --->  242  und 242  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 243  mit der Liste...*/
Append(~ErgEXT[ 243 ], 206 );                  /*Isometrische Gitter: --->  243  und 206  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 244  mit der Liste...*/
Append(~ErgEXT[ 244 ], 374 );                  /*Isometrische Gitter: --->  244  und 374  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 245  mit der Liste...*/
Append(~ErgEXT[ 245 ], 319 );                  /*Isometrische Gitter: --->  245  und 319  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 246  mit der Liste...*/
Append(~ErgEXT[ 246 ], 254 );                  /*Isometrische Gitter: --->  246  und 254  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 247  mit der Liste...*/
Append(~ErgEXT[ 247 ], 128 );                  /*Isometrische Gitter: --->  247  und 128  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 248  mit der Liste...*/
Append(~ErgEXT[ 248 ], 248 );                  /*Isometrische Gitter: --->  248  und 248  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 249  mit der Liste...*/
Append(~ErgEXT[ 249 ], 177 );                  /*Isometrische Gitter: --->  249  und 177  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 250  mit der Liste...*/
Append(~ErgEXT[ 250 ], 250 );                  /*Isometrische Gitter: --->  250  und 250  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 251  mit der Liste...*/
Append(~ErgEXT[ 251 ], 278 );                  /*Isometrische Gitter: --->  251  und 278  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 252  mit der Liste...*/
Append(~ErgEXT[ 252 ], 252 );                  /*Isometrische Gitter: --->  252  und 252  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 253  mit der Liste...*/
Append(~ErgEXT[ 253 ], 282 );                  /*Isometrische Gitter: --->  253  und 282  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 254  mit der Liste...*/
Append(~ErgEXT[ 254 ], 246 );                  /*Isometrische Gitter: --->  254  und 246  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 255  mit der Liste...*/
Append(~ErgEXT[ 255 ], 255 );                  /*Isometrische Gitter: --->  255  und 255  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 256  mit der Liste...*/
Append(~ErgEXT[ 256 ], 10 );                  /*Isometrische Gitter: --->  256  und 10  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 257  mit der Liste...*/
Append(~ErgEXT[ 257 ], 219 );                  /*Isometrische Gitter: --->  257  und 219  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 258  mit der Liste...*/
Append(~ErgEXT[ 258 ], 258 );                  /*Isometrische Gitter: --->  258  und 258  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 259  mit der Liste...*/
Append(~ErgEXT[ 259 ], 259 );                  /*Isometrische Gitter: --->  259  und 259  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 260  mit der Liste...*/
Append(~ErgEXT[ 260 ], 93 );                  /*Isometrische Gitter: --->  260  und 93  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 261  mit der Liste...*/
Append(~ErgEXT[ 261 ], 283 );                  /*Isometrische Gitter: --->  261  und 283  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 262  mit der Liste...*/
Append(~ErgEXT[ 262 ], 158 );                  /*Isometrische Gitter: --->  262  und 158  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 263  mit der Liste...*/
Append(~ErgEXT[ 263 ], 2 );                  /*Isometrische Gitter: --->  263  und 2  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 264  mit der Liste...*/
Append(~ErgEXT[ 264 ], 64 );                  /*Isometrische Gitter: --->  264  und 64  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 265  mit der Liste...*/
Append(~ErgEXT[ 265 ], 265 );                  /*Isometrische Gitter: --->  265  und 265  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 266  mit der Liste...*/
Append(~ErgEXT[ 266 ], 266 );                  /*Isometrische Gitter: --->  266  und 266  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 267  mit der Liste...*/
Append(~ErgEXT[ 267 ], 267 );                  /*Isometrische Gitter: --->  267  und 267  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 268  mit der Liste...*/
Append(~ErgEXT[ 268 ], 268 );                  /*Isometrische Gitter: --->  268  und 268  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 269  mit der Liste...*/
Append(~ErgEXT[ 269 ], 269 );                  /*Isometrische Gitter: --->  269  und 269  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 270  mit der Liste...*/
Append(~ErgEXT[ 270 ], 94 );                  /*Isometrische Gitter: --->  270  und 94  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 271  mit der Liste...*/
Append(~ErgEXT[ 271 ], 224 );                  /*Isometrische Gitter: --->  271  und 224  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 272  mit der Liste...*/
Append(~ErgEXT[ 272 ], 45 );                  /*Isometrische Gitter: --->  272  und 45  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 273  mit der Liste...*/
Append(~ErgEXT[ 273 ], 79 );                  /*Isometrische Gitter: --->  273  und 79  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 274  mit der Liste...*/
Append(~ErgEXT[ 274 ], 274 );                  /*Isometrische Gitter: --->  274  und 274  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 275  mit der Liste...*/
Append(~ErgEXT[ 275 ], 191 );                  /*Isometrische Gitter: --->  275  und 191  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 276  mit der Liste...*/
Append(~ErgEXT[ 276 ], 276 );                  /*Isometrische Gitter: --->  276  und 276  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 277  mit der Liste...*/
Append(~ErgEXT[ 277 ], 213 );                  /*Isometrische Gitter: --->  277  und 213  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 278  mit der Liste...*/
Append(~ErgEXT[ 278 ], 251 );                  /*Isometrische Gitter: --->  278  und 251  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 279  mit der Liste...*/
Append(~ErgEXT[ 279 ], 118 );                  /*Isometrische Gitter: --->  279  und 118  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 280  mit der Liste...*/
Append(~ErgEXT[ 280 ], 280 );                  /*Isometrische Gitter: --->  280  und 280  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 281  mit der Liste...*/
Append(~ErgEXT[ 281 ], 281 );                  /*Isometrische Gitter: --->  281  und 281  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 282  mit der Liste...*/
Append(~ErgEXT[ 282 ], 253 );                  /*Isometrische Gitter: --->  282  und 253  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 283  mit der Liste...*/
Append(~ErgEXT[ 283 ], 261 );                  /*Isometrische Gitter: --->  283  und 261  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 284  mit der Liste...*/
Append(~ErgEXT[ 284 ], 360 );                  /*Isometrische Gitter: --->  284  und 360  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 285  mit der Liste...*/
Append(~ErgEXT[ 285 ], 285 );                  /*Isometrische Gitter: --->  285  und 285  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 286  mit der Liste...*/
Append(~ErgEXT[ 286 ], 286 );                  /*Isometrische Gitter: --->  286  und 286  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 287  mit der Liste...*/
Append(~ErgEXT[ 287 ], 287 );                  /*Isometrische Gitter: --->  287  und 287  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 288  mit der Liste...*/
Append(~ErgEXT[ 288 ], 288 );                  /*Isometrische Gitter: --->  288  und 288  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 289  mit der Liste...*/
Append(~ErgEXT[ 289 ], 289 );                  /*Isometrische Gitter: --->  289  und 289  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 290  mit der Liste...*/
Append(~ErgEXT[ 290 ], 290 );                  /*Isometrische Gitter: --->  290  und 290  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 291  mit der Liste...*/
Append(~ErgEXT[ 291 ], 340 );                  /*Isometrische Gitter: --->  291  und 340  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 292  mit der Liste...*/
Append(~ErgEXT[ 292 ], 292 );                  /*Isometrische Gitter: --->  292  und 292  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 293  mit der Liste...*/
Append(~ErgEXT[ 293 ], 293 );                  /*Isometrische Gitter: --->  293  und 293  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 294  mit der Liste...*/
Append(~ErgEXT[ 294 ], 383 );                  /*Isometrische Gitter: --->  294  und 383  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 295  mit der Liste...*/
Append(~ErgEXT[ 295 ], 316 );                  /*Isometrische Gitter: --->  295  und 316  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 296  mit der Liste...*/
Append(~ErgEXT[ 296 ], 296 );                  /*Isometrische Gitter: --->  296  und 296  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 297  mit der Liste...*/
Append(~ErgEXT[ 297 ], 157 );                  /*Isometrische Gitter: --->  297  und 157  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 298  mit der Liste...*/
Append(~ErgEXT[ 298 ], 230 );                  /*Isometrische Gitter: --->  298  und 230  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 299  mit der Liste...*/
Append(~ErgEXT[ 299 ], 299 );                  /*Isometrische Gitter: --->  299  und 299  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 300  mit der Liste...*/
Append(~ErgEXT[ 300 ], 300 );                  /*Isometrische Gitter: --->  300  und 300  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 301  mit der Liste...*/
Append(~ErgEXT[ 301 ], 154 );                  /*Isometrische Gitter: --->  301  und 154  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 302  mit der Liste...*/
Append(~ErgEXT[ 302 ], 302 );                  /*Isometrische Gitter: --->  302  und 302  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 303  mit der Liste...*/
Append(~ErgEXT[ 303 ], 303 );                  /*Isometrische Gitter: --->  303  und 303  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 304  mit der Liste...*/
Append(~ErgEXT[ 304 ], 304 );                  /*Isometrische Gitter: --->  304  und 304  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 305  mit der Liste...*/
Append(~ErgEXT[ 305 ], 370 );                  /*Isometrische Gitter: --->  305  und 370  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 306  mit der Liste...*/
Append(~ErgEXT[ 306 ], 306 );                  /*Isometrische Gitter: --->  306  und 306  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 307  mit der Liste...*/
Append(~ErgEXT[ 307 ], 201 );                  /*Isometrische Gitter: --->  307  und 201  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 308  mit der Liste...*/
Append(~ErgEXT[ 308 ], 159 );                  /*Isometrische Gitter: --->  308  und 159  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 309  mit der Liste...*/
Append(~ErgEXT[ 309 ], 235 );                  /*Isometrische Gitter: --->  309  und 235  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 310  mit der Liste...*/
Append(~ErgEXT[ 310 ], 310 );                  /*Isometrische Gitter: --->  310  und 310  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 311  mit der Liste...*/
Append(~ErgEXT[ 311 ], 123 );                  /*Isometrische Gitter: --->  311  und 123  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 312  mit der Liste...*/
Append(~ErgEXT[ 312 ], 312 );                  /*Isometrische Gitter: --->  312  und 312  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 313  mit der Liste...*/
Append(~ErgEXT[ 313 ], 394 );                  /*Isometrische Gitter: --->  313  und 394  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 314  mit der Liste...*/
Append(~ErgEXT[ 314 ], 314 );                  /*Isometrische Gitter: --->  314  und 314  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 315  mit der Liste...*/
Append(~ErgEXT[ 315 ], 181 );                  /*Isometrische Gitter: --->  315  und 181  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 316  mit der Liste...*/
Append(~ErgEXT[ 316 ], 295 );                  /*Isometrische Gitter: --->  316  und 295  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 317  mit der Liste...*/
Append(~ErgEXT[ 317 ], 193 );                  /*Isometrische Gitter: --->  317  und 193  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 318  mit der Liste...*/
Append(~ErgEXT[ 318 ], 318 );                  /*Isometrische Gitter: --->  318  und 318  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 319  mit der Liste...*/
Append(~ErgEXT[ 319 ], 245 );                  /*Isometrische Gitter: --->  319  und 245  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 320  mit der Liste...*/
Append(~ErgEXT[ 320 ], 320 );                  /*Isometrische Gitter: --->  320  und 320  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 321  mit der Liste...*/
Append(~ErgEXT[ 321 ], 357 );                  /*Isometrische Gitter: --->  321  und 357  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 322  mit der Liste...*/
Append(~ErgEXT[ 322 ], 65 );                  /*Isometrische Gitter: --->  322  und 65  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 323  mit der Liste...*/
Append(~ErgEXT[ 323 ], 115 );                  /*Isometrische Gitter: --->  323  und 115  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 324  mit der Liste...*/
Append(~ErgEXT[ 324 ], 141 );                  /*Isometrische Gitter: --->  324  und 141  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 325  mit der Liste...*/
Append(~ErgEXT[ 325 ], 325 );                  /*Isometrische Gitter: --->  325  und 325  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 326  mit der Liste...*/
Append(~ErgEXT[ 326 ], 339 );                  /*Isometrische Gitter: --->  326  und 339  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 327  mit der Liste...*/
Append(~ErgEXT[ 327 ], 327 );                  /*Isometrische Gitter: --->  327  und 327  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 328  mit der Liste...*/
Append(~ErgEXT[ 328 ], 328 );                  /*Isometrische Gitter: --->  328  und 328  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 329  mit der Liste...*/
Append(~ErgEXT[ 329 ], 22 );                  /*Isometrische Gitter: --->  329  und 22  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 330  mit der Liste...*/
Append(~ErgEXT[ 330 ], 185 );                  /*Isometrische Gitter: --->  330  und 185  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 331  mit der Liste...*/
Append(~ErgEXT[ 331 ], 366 );                  /*Isometrische Gitter: --->  331  und 366  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 332  mit der Liste...*/
Append(~ErgEXT[ 332 ], 332 );                  /*Isometrische Gitter: --->  332  und 332  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 333  mit der Liste...*/
Append(~ErgEXT[ 333 ], 333 );                  /*Isometrische Gitter: --->  333  und 333  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 334  mit der Liste...*/
Append(~ErgEXT[ 334 ], 343 );                  /*Isometrische Gitter: --->  334  und 343  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 335  mit der Liste...*/
Append(~ErgEXT[ 335 ], 335 );                  /*Isometrische Gitter: --->  335  und 335  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 336  mit der Liste...*/
Append(~ErgEXT[ 336 ], 393 );                  /*Isometrische Gitter: --->  336  und 393  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 337  mit der Liste...*/
Append(~ErgEXT[ 337 ], 4 );                  /*Isometrische Gitter: --->  337  und 4  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 338  mit der Liste...*/
Append(~ErgEXT[ 338 ], 364 );                  /*Isometrische Gitter: --->  338  und 364  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 339  mit der Liste...*/
Append(~ErgEXT[ 339 ], 326 );                  /*Isometrische Gitter: --->  339  und 326  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 340  mit der Liste...*/
Append(~ErgEXT[ 340 ], 291 );                  /*Isometrische Gitter: --->  340  und 291  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 341  mit der Liste...*/
Append(~ErgEXT[ 341 ], 114 );                  /*Isometrische Gitter: --->  341  und 114  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 342  mit der Liste...*/
Append(~ErgEXT[ 342 ], 400 );                  /*Isometrische Gitter: --->  342  und 400  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 343  mit der Liste...*/
Append(~ErgEXT[ 343 ], 334 );                  /*Isometrische Gitter: --->  343  und 334  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 344  mit der Liste...*/
Append(~ErgEXT[ 344 ], 344 );                  /*Isometrische Gitter: --->  344  und 344  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 345  mit der Liste...*/
Append(~ErgEXT[ 345 ], 345 );                  /*Isometrische Gitter: --->  345  und 345  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 346  mit der Liste...*/
Append(~ErgEXT[ 346 ], 346 );                  /*Isometrische Gitter: --->  346  und 346  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 347  mit der Liste...*/
Append(~ErgEXT[ 347 ], 347 );                  /*Isometrische Gitter: --->  347  und 347  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 348  mit der Liste...*/
Append(~ErgEXT[ 348 ], 89 );                  /*Isometrische Gitter: --->  348  und 89  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 349  mit der Liste...*/
Append(~ErgEXT[ 349 ], 349 );                  /*Isometrische Gitter: --->  349  und 349  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 350  mit der Liste...*/
Append(~ErgEXT[ 350 ], 350 );                  /*Isometrische Gitter: --->  350  und 350  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 351  mit der Liste...*/
Append(~ErgEXT[ 351 ], 351 );                  /*Isometrische Gitter: --->  351  und 351  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 352  mit der Liste...*/
Append(~ErgEXT[ 352 ], 117 );                  /*Isometrische Gitter: --->  352  und 117  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 353  mit der Liste...*/
Append(~ErgEXT[ 353 ], 353 );                  /*Isometrische Gitter: --->  353  und 353  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 354  mit der Liste...*/
Append(~ErgEXT[ 354 ], 354 );                  /*Isometrische Gitter: --->  354  und 354  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 355  mit der Liste...*/
Append(~ErgEXT[ 355 ], 14 );                  /*Isometrische Gitter: --->  355  und 14  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 356  mit der Liste...*/
Append(~ErgEXT[ 356 ], 356 );                  /*Isometrische Gitter: --->  356  und 356  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 357  mit der Liste...*/
Append(~ErgEXT[ 357 ], 321 );                  /*Isometrische Gitter: --->  357  und 321  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 358  mit der Liste...*/
Append(~ErgEXT[ 358 ], 398 );                  /*Isometrische Gitter: --->  358  und 398  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 359  mit der Liste...*/
Append(~ErgEXT[ 359 ], 359 );                  /*Isometrische Gitter: --->  359  und 359  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 360  mit der Liste...*/
Append(~ErgEXT[ 360 ], 284 );                  /*Isometrische Gitter: --->  360  und 284  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 361  mit der Liste...*/
Append(~ErgEXT[ 361 ], 361 );                  /*Isometrische Gitter: --->  361  und 361  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 362  mit der Liste...*/
Append(~ErgEXT[ 362 ], 406 );                  /*Isometrische Gitter: --->  362  und 406  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 363  mit der Liste...*/
Append(~ErgEXT[ 363 ], 363 );                  /*Isometrische Gitter: --->  363  und 363  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 364  mit der Liste...*/
Append(~ErgEXT[ 364 ], 338 );                  /*Isometrische Gitter: --->  364  und 338  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 365  mit der Liste...*/
Append(~ErgEXT[ 365 ], 365 );                  /*Isometrische Gitter: --->  365  und 365  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 366  mit der Liste...*/
Append(~ErgEXT[ 366 ], 331 );                  /*Isometrische Gitter: --->  366  und 331  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 367  mit der Liste...*/
Append(~ErgEXT[ 367 ], 367 );                  /*Isometrische Gitter: --->  367  und 367  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 368  mit der Liste...*/
Append(~ErgEXT[ 368 ], 196 );                  /*Isometrische Gitter: --->  368  und 196  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 369  mit der Liste...*/
Append(~ErgEXT[ 369 ], 369 );                  /*Isometrische Gitter: --->  369  und 369  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 370  mit der Liste...*/
Append(~ErgEXT[ 370 ], 305 );                  /*Isometrische Gitter: --->  370  und 305  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 371  mit der Liste...*/
Append(~ErgEXT[ 371 ], 433 );                  /*Isometrische Gitter: --->  371  und 433  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 372  mit der Liste...*/
Append(~ErgEXT[ 372 ], 405 );                  /*Isometrische Gitter: --->  372  und 405  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 373  mit der Liste...*/
Append(~ErgEXT[ 373 ], 373 );                  /*Isometrische Gitter: --->  373  und 373  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 374  mit der Liste...*/
Append(~ErgEXT[ 374 ], 244 );                  /*Isometrische Gitter: --->  374  und 244  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 375  mit der Liste...*/
Append(~ErgEXT[ 375 ], 375 );                  /*Isometrische Gitter: --->  375  und 375  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 376  mit der Liste...*/
Append(~ErgEXT[ 376 ], 376 );                  /*Isometrische Gitter: --->  376  und 376  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 377  mit der Liste...*/
Append(~ErgEXT[ 377 ], 377 );                  /*Isometrische Gitter: --->  377  und 377  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 378  mit der Liste...*/
Append(~ErgEXT[ 378 ], 395 );                  /*Isometrische Gitter: --->  378  und 395  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 379  mit der Liste...*/
Append(~ErgEXT[ 379 ], 379 );                  /*Isometrische Gitter: --->  379  und 379  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 380  mit der Liste...*/
Append(~ErgEXT[ 380 ], 236 );                  /*Isometrische Gitter: --->  380  und 236  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 381  mit der Liste...*/
Append(~ErgEXT[ 381 ], 381 );                  /*Isometrische Gitter: --->  381  und 381  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 382  mit der Liste...*/
Append(~ErgEXT[ 382 ], 382 );                  /*Isometrische Gitter: --->  382  und 382  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 383  mit der Liste...*/
Append(~ErgEXT[ 383 ], 294 );                  /*Isometrische Gitter: --->  383  und 294  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 384  mit der Liste...*/
Append(~ErgEXT[ 384 ], 384 );                  /*Isometrische Gitter: --->  384  und 384  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 385  mit der Liste...*/
Append(~ErgEXT[ 385 ], 385 );                  /*Isometrische Gitter: --->  385  und 385  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 386  mit der Liste...*/
Append(~ErgEXT[ 386 ], 416 );                  /*Isometrische Gitter: --->  386  und 416  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 387  mit der Liste...*/
Append(~ErgEXT[ 387 ], 387 );                  /*Isometrische Gitter: --->  387  und 387  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 388  mit der Liste...*/
Append(~ErgEXT[ 388 ], 388 );                  /*Isometrische Gitter: --->  388  und 388  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 389  mit der Liste...*/
Append(~ErgEXT[ 389 ], 29 );                  /*Isometrische Gitter: --->  389  und 29  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 390  mit der Liste...*/
Append(~ErgEXT[ 390 ], 209 );                  /*Isometrische Gitter: --->  390  und 209  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 391  mit der Liste...*/
Append(~ErgEXT[ 391 ], 3 );                  /*Isometrische Gitter: --->  391  und 3  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 392  mit der Liste...*/
Append(~ErgEXT[ 392 ], 392 );                  /*Isometrische Gitter: --->  392  und 392  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 393  mit der Liste...*/
Append(~ErgEXT[ 393 ], 336 );                  /*Isometrische Gitter: --->  393  und 336  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 394  mit der Liste...*/
Append(~ErgEXT[ 394 ], 313 );                  /*Isometrische Gitter: --->  394  und 313  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 395  mit der Liste...*/
Append(~ErgEXT[ 395 ], 378 );                  /*Isometrische Gitter: --->  395  und 378  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 396  mit der Liste...*/
Append(~ErgEXT[ 396 ], 396 );                  /*Isometrische Gitter: --->  396  und 396  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 397  mit der Liste...*/
Append(~ErgEXT[ 397 ], 397 );                  /*Isometrische Gitter: --->  397  und 397  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 398  mit der Liste...*/
Append(~ErgEXT[ 398 ], 358 );                  /*Isometrische Gitter: --->  398  und 358  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 399  mit der Liste...*/
Append(~ErgEXT[ 399 ], 399 );                  /*Isometrische Gitter: --->  399  und 399  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 400  mit der Liste...*/
Append(~ErgEXT[ 400 ], 342 );                  /*Isometrische Gitter: --->  400  und 342  <---*/



/*+++++++++++++++++Vergleiche Gitter Nr. 401  mit der Liste...*/
Append(~ErgEXT[ 401 ], 401 );                  /*Isometrische Gitter: --->  401  und 401  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 402  mit der Liste...*/
Append(~ErgEXT[ 402 ], 402 );                  /*Isometrische Gitter: --->  402  und 402  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 403  mit der Liste...*/
Append(~ErgEXT[ 403 ], 403 );                  /*Isometrische Gitter: --->  403  und 403  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 404  mit der Liste...*/
Append(~ErgEXT[ 404 ], 404 );                  /*Isometrische Gitter: --->  404  und 404  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 405  mit der Liste...*/
Append(~ErgEXT[ 405 ], 372 );                  /*Isometrische Gitter: --->  405  und 372  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 406  mit der Liste...*/
Append(~ErgEXT[ 406 ], 362 );                  /*Isometrische Gitter: --->  406  und 362  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 407  mit der Liste...*/
Append(~ErgEXT[ 407 ], 421 );                  /*Isometrische Gitter: --->  407  und 421  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 408  mit der Liste...*/
Append(~ErgEXT[ 408 ], 408 );                  /*Isometrische Gitter: --->  408  und 408  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 409  mit der Liste...*/
Append(~ErgEXT[ 409 ], 233 );                  /*Isometrische Gitter: --->  409  und 233  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 410  mit der Liste...*/
Append(~ErgEXT[ 410 ], 410 );                  /*Isometrische Gitter: --->  410  und 410  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 411  mit der Liste...*/
Append(~ErgEXT[ 411 ], 411 );                  /*Isometrische Gitter: --->  411  und 411  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 412  mit der Liste...*/
Append(~ErgEXT[ 412 ], 412 );                  /*Isometrische Gitter: --->  412  und 412  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 413  mit der Liste...*/
Append(~ErgEXT[ 413 ], 422 );                  /*Isometrische Gitter: --->  413  und 422  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 414  mit der Liste...*/
Append(~ErgEXT[ 414 ], 414 );                  /*Isometrische Gitter: --->  414  und 414  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 415  mit der Liste...*/
Append(~ErgEXT[ 415 ], 5 );                  /*Isometrische Gitter: --->  415  und 5  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 416  mit der Liste...*/
Append(~ErgEXT[ 416 ], 386 );                  /*Isometrische Gitter: --->  416  und 386  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 417  mit der Liste...*/
Append(~ErgEXT[ 417 ], 417 );                  /*Isometrische Gitter: --->  417  und 417  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 418  mit der Liste...*/
Append(~ErgEXT[ 418 ], 194 );                  /*Isometrische Gitter: --->  418  und 194  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 419  mit der Liste...*/
Append(~ErgEXT[ 419 ], 419 );                  /*Isometrische Gitter: --->  419  und 419  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 420  mit der Liste...*/
Append(~ErgEXT[ 420 ], 420 );                  /*Isometrische Gitter: --->  420  und 420  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 421  mit der Liste...*/
Append(~ErgEXT[ 421 ], 407 );                  /*Isometrische Gitter: --->  421  und 407  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 422  mit der Liste...*/
Append(~ErgEXT[ 422 ], 413 );                  /*Isometrische Gitter: --->  422  und 413  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 423  mit der Liste...*/
Append(~ErgEXT[ 423 ], 423 );                  /*Isometrische Gitter: --->  423  und 423  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 424  mit der Liste...*/
Append(~ErgEXT[ 424 ], 424 );                  /*Isometrische Gitter: --->  424  und 424  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 425  mit der Liste...*/
Append(~ErgEXT[ 425 ], 425 );                  /*Isometrische Gitter: --->  425  und 425  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 426  mit der Liste...*/
Append(~ErgEXT[ 426 ], 426 );                  /*Isometrische Gitter: --->  426  und 426  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 427  mit der Liste...*/
Append(~ErgEXT[ 427 ], 427 );                  /*Isometrische Gitter: --->  427  und 427  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 428  mit der Liste...*/
Append(~ErgEXT[ 428 ], 428 );                  /*Isometrische Gitter: --->  428  und 428  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 429  mit der Liste...*/
Append(~ErgEXT[ 429 ], 429 );                  /*Isometrische Gitter: --->  429  und 429  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 430  mit der Liste...*/
Append(~ErgEXT[ 430 ], 430 );                  /*Isometrische Gitter: --->  430  und 430  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 431  mit der Liste...*/
Append(~ErgEXT[ 431 ], 447 );                  /*Isometrische Gitter: --->  431  und 447  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 432  mit der Liste...*/
Append(~ErgEXT[ 432 ], 432 );                  /*Isometrische Gitter: --->  432  und 432  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 433  mit der Liste...*/
Append(~ErgEXT[ 433 ], 371 );                  /*Isometrische Gitter: --->  433  und 371  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 434  mit der Liste...*/
Append(~ErgEXT[ 434 ], 440 );                  /*Isometrische Gitter: --->  434  und 440  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 435  mit der Liste...*/
Append(~ErgEXT[ 435 ], 445 );                  /*Isometrische Gitter: --->  435  und 445  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 436  mit der Liste...*/
Append(~ErgEXT[ 436 ], 436 );                  /*Isometrische Gitter: --->  436  und 436  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 437  mit der Liste...*/
Append(~ErgEXT[ 437 ], 437 );                  /*Isometrische Gitter: --->  437  und 437  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 438  mit der Liste...*/
Append(~ErgEXT[ 438 ], 463 );                  /*Isometrische Gitter: --->  438  und 463  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 439  mit der Liste...*/
Append(~ErgEXT[ 439 ], 439 );                  /*Isometrische Gitter: --->  439  und 439  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 440  mit der Liste...*/
Append(~ErgEXT[ 440 ], 434 );                  /*Isometrische Gitter: --->  440  und 434  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 441  mit der Liste...*/
Append(~ErgEXT[ 441 ], 443 );                  /*Isometrische Gitter: --->  441  und 443  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 442  mit der Liste...*/
Append(~ErgEXT[ 442 ], 442 );                  /*Isometrische Gitter: --->  442  und 442  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 443  mit der Liste...*/
Append(~ErgEXT[ 443 ], 441 );                  /*Isometrische Gitter: --->  443  und 441  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 444  mit der Liste...*/
Append(~ErgEXT[ 444 ], 444 );                  /*Isometrische Gitter: --->  444  und 444  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 445  mit der Liste...*/
Append(~ErgEXT[ 445 ], 435 );                  /*Isometrische Gitter: --->  445  und 435  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 446  mit der Liste...*/
Append(~ErgEXT[ 446 ], 446 );                  /*Isometrische Gitter: --->  446  und 446  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 447  mit der Liste...*/
Append(~ErgEXT[ 447 ], 431 );                  /*Isometrische Gitter: --->  447  und 431  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 448  mit der Liste...*/
Append(~ErgEXT[ 448 ], 459 );                  /*Isometrische Gitter: --->  448  und 459  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 449  mit der Liste...*/
Append(~ErgEXT[ 449 ], 450 );                  /*Isometrische Gitter: --->  449  und 450  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 450  mit der Liste...*/
Append(~ErgEXT[ 450 ], 449 );                  /*Isometrische Gitter: --->  450  und 449  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 451  mit der Liste...*/
Append(~ErgEXT[ 451 ], 451 );                  /*Isometrische Gitter: --->  451  und 451  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 452  mit der Liste...*/
Append(~ErgEXT[ 452 ], 452 );                  /*Isometrische Gitter: --->  452  und 452  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 453  mit der Liste...*/
Append(~ErgEXT[ 453 ], 453 );                  /*Isometrische Gitter: --->  453  und 453  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 454  mit der Liste...*/
Append(~ErgEXT[ 454 ], 454 );                  /*Isometrische Gitter: --->  454  und 454  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 455  mit der Liste...*/
Append(~ErgEXT[ 455 ], 455 );                  /*Isometrische Gitter: --->  455  und 455  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 456  mit der Liste...*/
Append(~ErgEXT[ 456 ], 464 );                  /*Isometrische Gitter: --->  456  und 464  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 457  mit der Liste...*/
Append(~ErgEXT[ 457 ], 457 );                  /*Isometrische Gitter: --->  457  und 457  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 458  mit der Liste...*/
Append(~ErgEXT[ 458 ], 458 );                  /*Isometrische Gitter: --->  458  und 458  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 459  mit der Liste...*/
Append(~ErgEXT[ 459 ], 448 );                  /*Isometrische Gitter: --->  459  und 448  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 460  mit der Liste...*/
Append(~ErgEXT[ 460 ], 460 );                  /*Isometrische Gitter: --->  460  und 460  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 461  mit der Liste...*/
Append(~ErgEXT[ 461 ], 461 );                  /*Isometrische Gitter: --->  461  und 461  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 462  mit der Liste...*/
Append(~ErgEXT[ 462 ], 462 );                  /*Isometrische Gitter: --->  462  und 462  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 463  mit der Liste...*/
Append(~ErgEXT[ 463 ], 438 );                  /*Isometrische Gitter: --->  463  und 438  <---*/
/*+++++++++++++++++Vergleiche Gitter Nr. 464  mit der Liste...*/
Append(~ErgEXT[ 464 ], 456 );                  /*Isometrische Gitter: --->  464  und 456  <---*/


for j:=1 to #ErgEXT do
                    if ErgEXT[j,6] eq j then 
                                         Append(~ErgEXT[j],"+");
                                        else
                                         Append(~ErgEXT[j]," ");
                                        end if;
                    end for;



masse:=22795633732009/409576986000;