weight = 9
level = 15
mult = 10
thetaBlock = {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2}
note = "*** singularPart and weaklyHolomorphicJacobiForm are expanded to \
q^(level/4). ***"
singularPart = 18 + q^(-1) + 5/z^2 + 10/z + 10*z + 5*z^2 + 
     q*(5/z^8 + 5*z^8) + q^2*(10/z^11 + 10*z^11)
note = "*** Humbert divisors are  in the form {{D, r}, multiplicity}. ***"
HumbertDRmultiplicities = {{{1, 1}, 15}, {{1, 11}, 15}, {{4, 2}, 5}, 
     {{4, 8}, 5}, {{60, 0}, 1}}
weaklyHolomorphicJacobiForm = 18 + q^(-1) + 5/z^2 + 10/z + 10*z + 5*z^2 + 
     q*(34104 + 5/z^8 + 130/z^7 + 800/z^6 + 2940/z^5 + 7535/z^4 + 14980/z^3 + 
       23770/z^2 + 31230/z + 31230*z + 23770*z^2 + 14980*z^3 + 7535*z^4 + 
       2940*z^5 + 800*z^6 + 130*z^7 + 5*z^8) + 
     q^2*(3182896 + 10/z^11 + 469/z^10 + 4460/z^9 + 23770/z^8 + 87320/z^7 + 
       246560/z^6 + 562388/z^5 + 1071790/z^4 + 1739800/z^3 + 2439915/z^2 + 
       2978950/z + 2978950*z + 2439915*z^2 + 1739800*z^3 + 1071790*z^4 + 
       562388*z^5 + 246560*z^6 + 87320*z^7 + 23770*z^8 + 4460*z^9 + 
       469*z^10 + 10*z^11) + q^3*(116426958 + 130/z^13 + 3255/z^12 + 
       31230/z^11 + 180602/z^10 + 751740/z^9 + 2439915/z^8 + 6484370/z^7 + 
       14539200/z^6 + 28081504/z^5 + 47379480/z^4 + 70542240/z^3 + 
       93316230/z^2 + 110186610/z + 110186610*z + 93316230*z^2 + 
       70542240*z^3 + 47379480*z^4 + 28081504*z^5 + 14539200*z^6 + 
       6484370*z^7 + 2439915*z^8 + 751740*z^9 + 180602*z^10 + 31230*z^11 + 
       3255*z^12 + 130*z^13)