Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:58:13.  Memory: start 0001B84C, length 476348.

Command line: +11 WW.e WW_out_11_16


C WW-scattering 11. One loop W-W scattering, part 1. 681 sec.
  Produces BoxWW1, containing BoxWW.

C One loop diagrams.
  Four point function. WW scattering.
  Evaluated in the limit m^2 >> s,t,u >> M^2, where m = Higgs boson
  mass and M = W boson mass.

C Terms in the output are labelled by A0, A1, A2, A3, and R, T for the
  reducible and tadpole types.
  The connection is:
  Rx: reducible diagrams (in u-channel, as A3).
  R1 type: One propagator.
  R5 type: Two propagators: selfenergy insertion.
  Diagrams marked with R1Z and R5Z are Z-exchange diagrams.
  Tx: tadpole types.
  A0: Box diagram, a,al,k and c,ga,pp in opposite corners.
  A1: Inverted Triangle diagram, a,al,k and c,ga,pp on 4-vertex.
  A2: Triangle diagram, a,al,k and c,ga, pp on triangle basis.
  A3: Bubble diagram, a,al,k and c,ga,pp on one end.

> P ninput
> P ninput

Begin. Time 2 sec.
> P stats

Terms in output 1005, Statistics counts 220, 107, 0, 0.
Running time 38 sec			Used	Maximum
Generated terms 8192 	Input space 	14766 	100000
Equal terms 4205     	Output space 	34264 	250000
Cancellations 2982   	Nr of expr.  	91 	255
Multiplications 94852	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms in output 1331, Statistics counts 294, 141, 0, 0.
Running time 43 sec			Used	Maximum
Generated terms 9616 	Input space 	14766 	100000
Equal terms 4963     	Output space 	49942 	250000
Cancellations 3322   	Nr of expr.  	91 	255
Multiplications 109270	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms in output 808
Running time 64 sec			Used	Maximum
Generated terms 8192 	Input space 	5470 	100000
Equal terms 6766     	Output space 	20462 	250000
Cancellations 618   	Nr of expr.  	28 	255
Multiplications 42738	String space 	0 	4096
Records written 3 	Merging		0 	0


Terms in output 1177
Running time 84 sec			Used	Maximum
Generated terms 16384 	Input space 	5482 	100000
Equal terms 13549     	Output space 	36994 	250000
Cancellations 1658   	Nr of expr.  	28 	255
Multiplications 85228	String space 	0 	4096
Records written 3 	Merging		0 	0


Terms in output 1460
Running time 100 sec			Used	Maximum
Generated terms 24576 	Input space 	5482 	100000
Equal terms 20053     	Output space 	45840 	250000
Cancellations 3063   	Nr of expr.  	28 	255
Multiplications 129541	String space 	0 	4096
Records written 3 	Merging		0 	0


Terms in output 1535
Running time 116 sec			Used	Maximum
Generated terms 32768 	Input space 	5482 	100000
Equal terms 26690     	Output space 	51514 	250000
Cancellations 4543   	Nr of expr.  	28 	255
Multiplications 174004	String space 	0 	4096
Records written 3 	Merging		0 	0


Terms in output 2142
Running time 135 sec			Used	Maximum
Generated terms 40960 	Input space 	5482 	100000
Equal terms 32746     	Output space 	70688 	250000
Cancellations 6072   	Nr of expr.  	28 	255
Multiplications 215234	String space 	0 	4096
Records written 3 	Merging		0 	0


Terms in output 2263
Running time 150 sec			Used	Maximum
Generated terms 49152 	Input space 	5482 	100000
Equal terms 39260     	Output space 	77266 	250000
Cancellations 7629   	Nr of expr.  	28 	255
Multiplications 259579	String space 	0 	4096
Records written 3 	Merging		0 	0


Terms in output 2350
Running time 166 sec			Used	Maximum
Generated terms 57344 	Input space 	5482 	100000
Equal terms 45883     	Output space 	77266 	250000
Cancellations 9111   	Nr of expr.  	28 	255
Multiplications 304137	String space 	0 	4096
Records written 3 	Merging		0 	0


Terms in output 2501
Running time 182 sec			Used	Maximum
Generated terms 65536 	Input space 	5482 	100000
Equal terms 52551     	Output space 	83430 	250000
Cancellations 10484   	Nr of expr.  	28 	255
Multiplications 344772	String space 	0 	4096
Records written 3 	Merging		0 	0


Terms out 1331, in 1331.

Terms in output 3163
Running time 196 sec			Used	Maximum
Generated terms 71544 	Input space 	5482 	100000
Equal terms 56807     	Output space 	110918 	250000
Cancellations 11574   	Nr of expr.  	30 	255
Multiplications 370345	String space 	0 	4096
Records written 3 	Merging		0 	0


Terms out 3163, in 3163.

Terms in output 1245
Running time 205 sec			Used	Maximum
Generated terms 1245 	Input space 	4090 	100000
Equal terms 0     	Output space 	40778 	250000
Cancellations 0   	Nr of expr.  	19 	255
Multiplications 13854	String space 	0 	4096
Records written 9 	Merging		0 	0


Terms out 1245, in 1245.

Terms in output 771
Running time 219 sec			Used	Maximum
Generated terms 3247 	Input space 	4574 	100000
Equal terms 1907     	Output space 	24854 	250000
Cancellations 569   	Nr of expr.  	17 	255
Multiplications 15546	String space 	0 	4096
Records written 12 	Merging		0 	0


Terms out 771, in 771.

Terms in output 871
Running time 227 sec			Used	Maximum
Generated terms 889 	Input space 	7490 	100000
Equal terms 12     	Output space 	27876 	250000
Cancellations 6   	Nr of expr.  	38 	255
Multiplications 24356	String space 	0 	4096
Records written 14 	Merging		0 	0


Terms out 871, in 871.

Terms in output 871
Running time 234 sec			Used	Maximum
Generated terms 871 	Input space 	6364 	100000
Equal terms 0     	Output space 	27876 	250000
Cancellations 0   	Nr of expr.  	38 	255
Multiplications 23558	String space 	0 	4096
Records written 16 	Merging		0 	0


Terms in output 2320
Running time 298 sec			Used	Maximum
Generated terms 8192 	Input space 	7512 	100000
Equal terms 3382     	Output space 	63100 	250000
Cancellations 2490   	Nr of expr.  	28 	255
Multiplications 203503	String space 	0 	4096
Records written 18 	Merging		0 	0


Terms out 871, in 871.

Terms in output 2458
Running time 303 sec			Used	Maximum
Generated terms 8930 	Input space 	7512 	100000
Equal terms 3818     	Output space 	76566 	250000
Cancellations 2654   	Nr of expr.  	28 	255
Multiplications 220504	String space 	0 	4096
Records written 18 	Merging		0 	0


Terms out 2458, in 2458.

Terms in output 2100
Running time 324 sec			Used	Maximum
Generated terms 3738 	Input space 	6700 	100000
Equal terms 1126     	Output space 	64788 	250000
Cancellations 512   	Nr of expr.  	28 	255
Multiplications 54269	String space 	0 	4096
Records written 22 	Merging		0 	0


Terms out 2100, in 2100.

Terms in output 2086
Running time 333 sec			Used	Maximum
Generated terms 2130 	Input space 	6688 	100000
Equal terms 28     	Output space 	63366 	250000
Cancellations 16   	Nr of expr.  	28 	255
Multiplications 19867	String space 	0 	4096
Records written 26 	Merging		0 	0


Terms out 2086, in 2086.

Terms in output 2086
Running time 342 sec			Used	Maximum
Generated terms 2086 	Input space 	6178 	100000
Equal terms 0     	Output space 	63366 	250000
Cancellations 0   	Nr of expr.  	28 	255
Multiplications 18783	String space 	0 	4096
Records written 30 	Merging		0 	0


Terms out 2086, in 2086.

Terms in output 2086
Running time 352 sec			Used	Maximum
Generated terms 2086 	Input space 	6178 	100000
Equal terms 0     	Output space 	63366 	250000
Cancellations 0   	Nr of expr.  	28 	255
Multiplications 18783	String space 	0 	4096
Records written 34 	Merging		0 	0


Terms out 2086, in 2086.

Terms in output 2086
Running time 361 sec			Used	Maximum
Generated terms 2086 	Input space 	6178 	100000
Equal terms 0     	Output space 	63366 	250000
Cancellations 0   	Nr of expr.  	28 	255
Multiplications 18783	String space 	0 	4096
Records written 38 	Merging		0 	0


Terms out 2086, in 2086.

Terms in output 2080
Running time 388 sec			Used	Maximum
Generated terms 5322 	Input space 	7134 	100000
Equal terms 2135     	Output space 	64840 	250000
Cancellations 1107   	Nr of expr.  	29 	255
Multiplications 72586	String space 	0 	4096
Records written 42 	Merging		0 	0


Terms out 2080, in 2080.

Terms in output 2064
Running time 399 sec			Used	Maximum
Generated terms 2296 	Input space 	6584 	100000
Equal terms 166     	Output space 	63082 	250000
Cancellations 66   	Nr of expr.  	28 	255
Multiplications 24441	String space 	0 	4096
Records written 46 	Merging		0 	0


Terms out 2064, in 2064.

Terms in output 2422
Running time 405 sec			Used	Maximum
Generated terms 3147 	Input space 	4036 	100000
Equal terms 628     	Output space 	72596 	250000
Cancellations 97   	Nr of expr.  	15 	255
Multiplications 9164	String space 	0 	4096
Records written 50 	Merging		0 	0


Terms out 2422, in 2422.

Terms in output 2113
Running time 419 sec			Used	Maximum
Generated terms 2841 	Input space 	6904 	100000
Equal terms 453     	Output space 	63962 	250000
Cancellations 275   	Nr of expr.  	28 	255
Multiplications 30793	String space 	0 	4096
Records written 54 	Merging		0 	0


Terms out 2113, in 2113.

Terms in output 2189
Running time 430 sec			Used	Maximum
Generated terms 3429 	Input space 	6634 	100000
Equal terms 866     	Output space 	66102 	250000
Cancellations 374   	Nr of expr.  	29 	255
Multiplications 21416	String space 	0 	4096
Records written 58 	Merging		0 	0


Terms out 2189, in 2189.

Terms in output 2161
Running time 447 sec			Used	Maximum
Generated terms 3471 	Input space 	6786 	100000
Equal terms 849     	Output space 	67708 	250000
Cancellations 461   	Nr of expr.  	28 	255
Multiplications 44850	String space 	0 	4096
Records written 62 	Merging		0 	0


Terms out 2161, in 2161.

Terms in output 2195
Running time 458 sec			Used	Maximum
Generated terms 2447 	Input space 	6478 	100000
Equal terms 185     	Output space 	66684 	250000
Cancellations 67   	Nr of expr.  	28 	255
Multiplications 23894	String space 	0 	4096
Records written 66 	Merging		0 	0


Terms out 2195, in 2195.

Terms in output 2266
Running time 465 sec			Used	Maximum
Generated terms 3607 	Input space 	4036 	100000
Equal terms 1100     	Output space 	68030 	250000
Cancellations 241   	Nr of expr.  	15 	255
Multiplications 11525	String space 	0 	4096
Records written 70 	Merging		0 	0


Terms out 2266, in 2266.

Terms in output 2023
Running time 476 sec			Used	Maximum
Generated terms 2548 	Input space 	6762 	100000
Equal terms 331     	Output space 	61194 	250000
Cancellations 194   	Nr of expr.  	28 	255
Multiplications 23873	String space 	0 	4096
Records written 74 	Merging		0 	0


Terms out 2023, in 2023.

Terms in output 1368
Running time 485 sec			Used	Maximum
Generated terms 1528 	Input space 	6302 	100000
Equal terms 138     	Output space 	43822 	250000
Cancellations 22   	Nr of expr.  	29 	255
Multiplications 14137	String space 	0 	4096
Records written 77 	Merging		0 	0


Terms out 1368, in 1368.

Terms in output 1368
Running time 491 sec			Used	Maximum
Generated terms 1368 	Input space 	4098 	100000
Equal terms 0     	Output space 	43822 	250000
Cancellations 0   	Nr of expr.  	17 	255
Multiplications 13240	String space 	0 	4096
Records written 80 	Merging		0 	0


Terms out 1368, in 1368.

Terms in output 1368
Running time 497 sec			Used	Maximum
Generated terms 1368 	Input space 	4274 	100000
Equal terms 0     	Output space 	43878 	250000
Cancellations 0   	Nr of expr.  	17 	255
Multiplications 14495	String space 	0 	4096
Records written 83 	Merging		0 	0

 
BoxWW(a,al,k,b,be,p,c,ga,pp,d,de,kp) = 
 + NOM(q,M)*D(a,b)*D(c,d)
  * ( 2*M^-4*N*ExtM^2*pDk + M^-4*N*ExtM^2*kDpp - M^-4*A0*pDk
  - 3/4*M^-4*T3*ExtM^2*pDk - 3/8*M^-4*T3*ExtM^2*kDpp - 5/4*M^-4*ExtM^2
  *pDk - 5/8*M^-4*ExtM^2*kDpp )
 
 + NOM(q,M)*D(a,d)*D(b,c)
  * ( - 2*M^-4*N*ExtM^2*pDk - M^-4*N*ExtM^2*kDpp - M^-4*A0*pDk
  + 3/4*M^-4*T3*ExtM^2*pDk + 3/8*M^-4*T3*ExtM^2*kDpp + 5/4*M^-4*ExtM^2
  *pDk + 5/8*M^-4*ExtM^2*kDpp )
 
 + NOM(q,M)*NOM(q1,M)*D(a,b)*D(c,d)
  * ( 1/2*M^-4*A1*qDp*kDpp - 1/2*M^-4*A1*qDk*kDpp - 3/2*M^-4*A1*qDpp
  *pDk + 5/2*M^-4*A1*pDk*kDpp + M^-4*A1*pDk^2 + M^-4*A1*kDpp^2
  + 2*M^-4*A0*qDp*pDk + M^-4*A0*qDp*kDpp - 7/2*M^-4*A0*qDk*pDk
  - 2*M^-4*A0*qDk*kDpp - 7/2*M^-4*A0*qDpp*pDk - 3/2*M^-4*A0*qDpp*kDpp
   + 3*M^-4*A0*pDk*kDpp + 3/2*M^-4*A0*pDk^2 + 1/2*M^-4*A0*kDpp^2
  + M^-4*ExtM*qDp*pDk + M^-4*ExtM*qDk*pDk + M^-4*ExtM*qDpp*pDk
  + M^-4*ExtM*qDpp*kDpp - 2*M^-4*ExtM*pDk*kDpp - 3/2*M^-4*ExtM*kDpp^2 )
 
 + NOM(q,M)*NOM(q1,M)*D(a,c)*D(b,d)
  * ( 3/2*M^-4*A1*qDp*pDk + 5/2*M^-4*A1*qDp*kDpp + 3/2*M^-4*A1*qDk
  *pDk + 1/2*M^-4*A1*qDk*kDpp - 3/2*M^-4*A1*qDpp*pDk + 2*M^-4*A1*pDk
  *kDpp + 2*M^-4*A1*pDk^2 - M^-4*A1*kDpp^2 )
 
 + NOM(q,M)*NOM(q1,M)*D(a,d)*D(b,c)
  * ( 3/2*M^-4*A1*qDp*pDk + 2*M^-4*A1*qDp*kDpp + 3/2*M^-4*A1*qDk*pDk
   + M^-4*A1*qDk*kDpp - 1/2*M^-4*A1*pDk*kDpp + M^-4*A1*pDk^2
  - 2*M^-4*A1*kDpp^2 + 2*M^-4*A0*qDp*pDk + M^-4*A0*qDp*kDpp
  - 7/2*M^-4*A0*qDk*pDk - 2*M^-4*A0*qDk*kDpp - 7/2*M^-4*A0*qDpp*pDk
   - 3/2*M^-4*A0*qDpp*kDpp + 3*M^-4*A0*pDk*kDpp + 3/2*M^-4*A0*pDk^2
   + 1/2*M^-4*A0*kDpp^2 - M^-4*ExtM*qDp*pDk - M^-4*ExtM*qDk*pDk
  - M^-4*ExtM*qDpp*pDk - M^-4*ExtM*qDpp*kDpp + 2*M^-4*ExtM*pDk*kDpp
   + 3/2*M^-4*ExtM*kDpp^2 )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q3,M)*D(a,b)*D(c,d)*Error
  * ( - 2*M^-4*A0*qDpp*pDk*kDpp + M^-4*A0*qDpp^2*pDk + M^-4*A0*pDk
  *kDpp^2 - M^-4*A0*pDk^3 )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q3,M)*D(a,d)*D(b,c)*Error
  * ( - 2*M^-4*A0*qDpp*pDk*kDpp + M^-4*A0*qDpp^2*pDk + M^-4*A0*pDk
  *kDpp^2 - M^-4*A0*pDk^3 )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q2,M)*D(a,b)*D(c,d)*Error
  * ( - 4*M^-4*A0*qDk*pDk*kDpp - 2*M^-4*A0*qDk*pDk^2 - 2*M^-4*A0*qDk
  *kDpp^2 - M^-4*A0*qDk^2*pDk - M^-4*A0*qDk^2*kDpp )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q2,M)*D(a,d)*D(b,c)*Error
  * ( - 4*M^-4*A0*qDk*pDk*kDpp - 2*M^-4*A0*qDk*pDk^2 - 2*M^-4*A0*qDk
  *kDpp^2 - M^-4*A0*qDk^2*pDk - M^-4*A0*qDk^2*kDpp )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q4,M)*D(a,b)*D(c,d)*Error
  * ( 4*M^-4*A1*qDk*kDpp^2 - M^-4*A1*qDk^2*kDpp - M^-4*A1*kDpp^3
  - 2*M^-4*ExtM*qDk*kDpp^2 + M^-4*ExtM*kDpp^3 )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q4,M)*D(a,c)*D(b,d)*Error
  * ( 2*M^-4*A1*qDk*kDpp^2 - 2*M^-4*A1*qDk^2*kDpp + M^-4*A1*kDpp^3 )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q4,M)*D(a,d)*D(b,c)*Error
  * ( - 2*M^-4*A1*qDk*kDpp^2 - M^-4*A1*qDk^2*kDpp + 2*M^-4*A1*kDpp^3
   + 2*M^-4*ExtM*qDk*kDpp^2 - M^-4*ExtM*kDpp^3 )
 
 + NOM(q,M)*NOM(q1,m)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^2*A0*qDp - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0
  *qDpp + 1/8*M^-4*m^2*A0*pDk + 1/8*M^-4*m^2*A0*kDpp + 1/8*M^-4*m^2
  *ExtM*qDp + 1/8*M^-4*m^2*ExtM*qDk - 1/8*M^-4*m^2*ExtM*qDpp
  - 1/8*M^-4*m^4*A0 + 1/8*M^-4*m^4*ExtM )
 
 + NOM(q,M)*NOM(q1,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A1*kDpp + 1/8*M^-4*m^2*A0*qDp + 1/8*M^-4*m^2*A0
  *qDk + 1/8*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2*A0*pDk - 1/8*M^-4*m^2
  *A0*kDpp - 1/8*M^-4*m^2*R1Z*Extm*kDpp + 1/16*M^-4*m^4*A0 )
 
 + NOM(q,M)*NOM(q1,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*A0*qDp - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0
  *qDpp + 1/8*M^-4*m^2*A0*pDk + 1/8*M^-4*m^2*A0*kDpp - 1/8*M^-4*m^2
  *ExtM*qDp - 1/8*M^-4*m^2*ExtM*qDk + 1/8*M^-4*m^2*ExtM*qDpp
  - 1/16*M^-4*m^4*A0 - 1/8*M^-4*m^4*ExtM )
 
 + NOM(q,M)*NOM(q1,m)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^4*A0*qDpp - 1/8*M^-4*m^4*A0*pDk - 1/8*M^-4*m^4*A0
  *kDpp + 1/16*M^-4*m^6*A0 )
 
 + NOM(q,M)*NOM(q3,M)*D(a,b)*D(c,d)
  * ( - 3/2*M^-4*A2*qDp*pDk + 1/2*M^-4*A2*qDp*kDpp - 3/2*M^-4*A2*qDpp
  *pDk + 5/2*M^-4*A2*pDk*kDpp + M^-4*A2*pDk^2 + M^-4*A2*kDpp^2
  + 1/2*M^-4*A0*qDp*pDk + 1/2*M^-4*A0*qDp*kDpp - 7/2*M^-4*A0*qDk*pDk
   - 3/2*M^-4*A0*qDk*kDpp - 5/2*M^-4*A0*qDpp*pDk - 3/2*M^-4*A0*qDpp
  *kDpp + 2*M^-4*A0*pDk*kDpp + 3/2*M^-4*A0*pDk^2 + 1/2*M^-4*A0*kDpp^2
   + M^-4*ExtM*qDp*kDpp + M^-4*ExtM*qDpp*pDk + M^-4*ExtM*qDpp*kDpp
   - 2*M^-4*ExtM*pDk*kDpp - 3/2*M^-4*ExtM*kDpp^2 )
 
 + NOM(q,M)*NOM(q3,M)*D(a,c)*D(b,d)
  * ( - 3*M^-4*A2*qDp*pDk - 1/2*M^-4*A2*qDp*kDpp - 3/2*M^-4*A2*qDpp
  *pDk + 2*M^-4*A2*pDk*kDpp + 2*M^-4*A2*pDk^2 - M^-4*A2*kDpp^2 )
 
 + NOM(q,M)*NOM(q3,M)*D(a,d)*D(b,c)
  * ( - 3/2*M^-4*A2*qDp*pDk - M^-4*A2*qDp*kDpp - 1/2*M^-4*A2*pDk*kDpp
   + M^-4*A2*pDk^2 - 2*M^-4*A2*kDpp^2 + 1/2*M^-4*A0*qDp*pDk
  + 1/2*M^-4*A0*qDp*kDpp - 7/2*M^-4*A0*qDk*pDk - 3/2*M^-4*A0*qDk*kDpp
   - 5/2*M^-4*A0*qDpp*pDk - 3/2*M^-4*A0*qDpp*kDpp + 2*M^-4*A0*pDk*kDpp
   + 3/2*M^-4*A0*pDk^2 + 1/2*M^-4*A0*kDpp^2 - M^-4*ExtM*qDp*kDpp
  - M^-4*ExtM*qDpp*pDk - M^-4*ExtM*qDpp*kDpp + 2*M^-4*ExtM*pDk*kDpp
   + 3/2*M^-4*ExtM*kDpp^2 )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q2,M)*D(a,b)*D(c,d)*Error
  * ( 4*M^-4*A0*qDp*pDk*kDpp + 2*M^-4*A0*qDp*pDk^2 + 2*M^-4*A0*qDp
  *kDpp^2 - M^-4*A0*qDp^2*pDk - M^-4*A0*qDp^2*kDpp )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q2,M)*D(a,d)*D(b,c)*Error
  * ( 4*M^-4*A0*qDp*pDk*kDpp + 2*M^-4*A0*qDp*pDk^2 + 2*M^-4*A0*qDp
  *kDpp^2 - M^-4*A0*qDp^2*pDk - M^-4*A0*qDp^2*kDpp )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q4,M)*D(a,b)*D(c,d)*Error
  * ( - 4*M^-4*A2*qDp*kDpp^2 - M^-4*A2*qDp^2*kDpp - M^-4*A2*kDpp^3
   + 2*M^-4*ExtM*qDp*kDpp^2 + M^-4*ExtM*kDpp^3 )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q4,M)*D(a,c)*D(b,d)*Error
  * ( - 2*M^-4*A2*qDp*kDpp^2 - 2*M^-4*A2*qDp^2*kDpp + M^-4*A2*kDpp^3 )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q4,M)*D(a,d)*D(b,c)*Error
  * ( 2*M^-4*A2*qDp*kDpp^2 - M^-4*A2*qDp^2*kDpp + 2*M^-4*A2*kDpp^3
   - 2*M^-4*ExtM*qDp*kDpp^2 - M^-4*ExtM*kDpp^3 )
 
 + NOM(q,M)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/8*M^-4*m^2*A0
  *pDk + 1/8*M^-4*m^2*A0*kDpp - 1/4*M^-4*m^2*ExtM*qDp - 1/8*M^-4*m^2
  *ExtM*qDk - 1/8*M^-4*m^2*ExtM*qDpp + 1/16*M^-4*m^4*ExtM )
 
 + NOM(q,M)*NOM(q3,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A2*kDpp + 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0
  *qDpp - 1/8*M^-4*m^2*A0*pDk - 1/8*M^-4*m^2*A0*kDpp - 1/8*M^-4*m^2
  *R1Z*Extm*kDpp )
 
 + NOM(q,M)*NOM(q3,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/8*M^-4*m^2*A0
  *pDk + 1/8*M^-4*m^2*A0*kDpp + 1/4*M^-4*m^2*ExtM*qDp + 1/8*M^-4*m^2
  *ExtM*qDk + 1/8*M^-4*m^2*ExtM*qDpp - 1/16*M^-4*m^4*ExtM )
 
 + NOM(q,M)*NOM(q2,M)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2*A0
  *pDk - 1/8*M^-4*m^2*A0*kDpp + 1/16*M^-4*m^4*A0 + 4*M^-4*N*A0*qDp
  *qDpp - 4*M^-4*N*A0*qDp*pDk - 4*M^-4*N*A0*qDp*kDpp + 4*M^-4*N*A0
  *qDk*qDpp - 4*M^-4*N*A0*qDk*pDk - 4*M^-4*N*A0*qDk*kDpp - 8*M^-4*N
  *A0*qDpp*pDk - 8*M^-4*N*A0*qDpp*kDpp + 4*M^-4*N*A0*qDpp^2
  + 8*M^-4*N*A0*pDk*kDpp + 4*M^-4*N*A0*pDk^2 + 4*M^-4*N*A0*kDpp^2
  - 15/2*M^-4*A0*qDp*qDpp + 3*M^-4*A0*qDp*pDk + 9/2*M^-4*A0*qDp*kDpp
   - 15/2*M^-4*A0*qDk*qDpp + 23/2*M^-4*A0*qDk*pDk + 17/2*M^-4*A0*qDk
  *kDpp + 29/2*M^-4*A0*qDpp*pDk + 13*M^-4*A0*qDpp*kDpp - 15/2*M^-4
  *A0*qDpp^2 - 17/2*M^-4*A0*pDk*kDpp - 4*M^-4*A0*pDk^2 - 7/2*M^-4*A0
  *kDpp^2 )
 
 + NOM(q,M)*NOM(q2,M)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/8*M^-4*m^2*A0
  *pDk + 1/8*M^-4*m^2*A0*kDpp - 1/2*M^-4*A0*qDp*qDpp + 1/2*M^-4*A0
  *qDp*pDk + 1/2*M^-4*A0*qDp*kDpp - 1/2*M^-4*A0*qDk*qDpp + 1/2*M^-4
  *A0*qDk*pDk + 1/2*M^-4*A0*qDk*kDpp + M^-4*A0*qDpp*pDk + M^-4*A0*qDpp
  *kDpp - 1/2*M^-4*A0*qDpp^2 - M^-4*A0*pDk*kDpp - 1/2*M^-4*A0*pDk^2
   - 1/2*M^-4*A0*kDpp^2 )
 
 + NOM(q,M)*NOM(q2,M)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2*A0
  *pDk - 1/8*M^-4*m^2*A0*kDpp + 4*M^-4*N*A0*qDp*qDpp - 4*M^-4*N*A0
  *qDp*pDk - 4*M^-4*N*A0*qDp*kDpp + 4*M^-4*N*A0*qDk*qDpp - 4*M^-4*N
  *A0*qDk*pDk - 4*M^-4*N*A0*qDk*kDpp - 8*M^-4*N*A0*qDpp*pDk
  - 8*M^-4*N*A0*qDpp*kDpp + 4*M^-4*N*A0*qDpp^2 + 8*M^-4*N*A0*pDk*kDpp
   + 4*M^-4*N*A0*pDk^2 + 4*M^-4*N*A0*kDpp^2 - 29/4*M^-4*A0*qDp*qDpp
   + 11/4*M^-4*A0*qDp*pDk + 17/4*M^-4*A0*qDp*kDpp - 29/4*M^-4*A0*qDk
  *qDpp + 45/4*M^-4*A0*qDk*pDk + 33/4*M^-4*A0*qDk*kDpp + 14*M^-4*A0
  *qDpp*pDk + 25/2*M^-4*A0*qDpp*kDpp - 29/4*M^-4*A0*qDpp^2
  - 8*M^-4*A0*pDk*kDpp - 15/4*M^-4*A0*pDk^2 - 13/4*M^-4*A0*kDpp^2 )
 
 + NOM(q,M)*NOM(q2,M)*NOM(q1,m)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^4*A0*qDk - 1/16*M^-4*m^6*A0 )
 
 + NOM(q,M)*NOM(q2,M)*NOM(q1,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^4*A0*qDk )
 
 + NOM(q,M)*NOM(q2,M)*NOM(q1,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^4*A0*qDk )
 
 + NOM(q,M)*NOM(q2,M)*NOM(q1,m)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( 1/16*M^-4*m^8*A0 )
 
 + NOM(q,M)*NOM(q2,M)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^4*A0*qDp - 1/16*M^-4*m^6*A0 )
 
 + NOM(q,M)*NOM(q2,M)*NOM(q3,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^4*A0*qDp )
 
 + NOM(q,M)*NOM(q2,M)*NOM(q3,m)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^4*A0*qDp )
 
 + NOM(q,M)*NOM(q2,m)*D(a,b)*D(c,d)
  * ( 1/4*M^-4*A0*qDp*qDpp - 1/4*M^-4*A0*qDp*pDk - 1/4*M^-4*A0*qDp
  *kDpp + 1/4*M^-4*A0*qDk*qDpp - 1/4*M^-4*A0*qDk*pDk - 1/4*M^-4*A0
  *qDk*kDpp - 1/2*M^-4*A0*qDpp*pDk - 1/2*M^-4*A0*qDpp*kDpp
  + 1/4*M^-4*A0*qDpp^2 + 1/2*M^-4*A0*pDk*kDpp + 1/4*M^-4*A0*pDk^2
  + 1/4*M^-4*A0*kDpp^2 )
 
 + NOM(q,M)*NOM(q2,m)*D(a,c)*D(b,d)
  * ( - 1/4*M^-4*A0*qDp*qDpp + 1/4*M^-4*A0*qDp*pDk + 1/4*M^-4*A0*qDp
  *kDpp - 1/4*M^-4*A0*qDk*qDpp + 1/4*M^-4*A0*qDk*pDk + 1/4*M^-4*A0
  *qDk*kDpp + 1/2*M^-4*A0*qDpp*pDk + 1/2*M^-4*A0*qDpp*kDpp
  - 1/4*M^-4*A0*qDpp^2 - 1/2*M^-4*A0*pDk*kDpp - 1/4*M^-4*A0*pDk^2
  - 1/4*M^-4*A0*kDpp^2 )
 
 + NOM(q,M)*NOM(q4,M)*D(a,b)*D(c,d)
  * ( 1/4*M^-4*m^2*ExtM*qDp + 1/8*M^-4*m^2*ExtM*qDk + 3/8*M^-4*m^2
  *ExtM*qDpp - 1/8*M^-4*m^2*ExtM*kDpp + M^-4*N*A3*kDpp^2 + 2*M^-4*N
  *A1*qDp*kDpp + 2*M^-4*N*A1*qDk*kDpp + 2*M^-4*N*A1*qDpp*kDpp
  - 2*M^-4*N*A1*kDpp^2 + 2*M^-4*N*A2*qDpp*kDpp - 2*M^-4*N*A2*kDpp^2
   + 2*M^-4*N*ExtM*qDp*qDk - 6*M^-4*N*ExtM*qDp*qDpp + 4*M^-4*N*ExtM
  *qDp*kDpp - 2*M^-4*N*ExtM*qDk*qDpp + 2*M^-4*N*ExtM*qDk^2
  + 4*M^-4*N*ExtM*qDpp*kDpp - 4*M^-4*N*ExtM*qDpp^2 - 2*M^-4*N*ExtM^2
  *qDp*qDk + 2*M^-4*N*ExtM^2*qDp*qDpp - M^-4*N*ExtM^2*qDk^2
  + M^-4*N*ExtM^2*qDpp^2 - 8*M^-4*A3*pDk*kDpp + M^-4*A3*pDk^2
  - 6*M^-4*A3*kDpp^2 - 5*M^-4*A1*qDp*kDpp - 3/2*M^-4*A1*qDk*pDk
  - 9/2*M^-4*A1*qDk*kDpp + 3/2*M^-4*A1*qDpp*pDk - 9/2*M^-4*A1*qDpp
  *kDpp + 1/2*M^-4*A1*pDk*kDpp - M^-4*A1*pDk^2 + 9/2*M^-4*A1*kDpp^2
   + 3*M^-4*A2*qDp*pDk - 5*M^-4*A2*qDpp*kDpp + 2*M^-4*A2*pDk*kDpp
  - M^-4*A2*pDk^2 + 5*M^-4*A2*kDpp^2 - 7/2*M^-4*ExtM*qDp*qDk
  + 21/2*M^-4*ExtM*qDp*qDpp + 2*M^-4*ExtM*qDp*pDk - 6*M^-4*ExtM*qDp
  *kDpp + 7/2*M^-4*ExtM*qDk*qDpp - 7/2*M^-4*ExtM*qDk^2 + 2*M^-4*ExtM
  *qDpp*pDk - 6*M^-4*ExtM*qDpp*kDpp + 7*M^-4*ExtM*qDpp^2 + 12*M^-4
  *ExtM*pDk*kDpp + 6*M^-4*ExtM*kDpp^2 + 7/2*M^-4*ExtM^2*qDp*qDk
  - 7/2*M^-4*ExtM^2*qDp*qDpp + 2*M^-4*ExtM^2*qDk*pDk + M^-4*ExtM^2
  *qDk*kDpp + 7/4*M^-4*ExtM^2*qDk^2 + 2*M^-4*ExtM^2*qDpp*pDk
  + M^-4*ExtM^2*qDpp*kDpp - 7/4*M^-4*ExtM^2*qDpp^2 - 10*M^-4*ExtM^2
  *pDk*kDpp - 5*M^-4*ExtM^2*kDpp^2 )
 
 + NOM(q,M)*NOM(q4,M)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^2*A1*kDpp - 1/8*M^-4*m^2*A2*kDpp + 1/4*M^-4*m^2
  *R1Z*Extm*kDpp + 2*M^-4*N*A3*kDpp^2 + 4*M^-4*N*A1*qDp*kDpp
  + 4*M^-4*N*A1*qDk*kDpp + 4*M^-4*N*A1*qDpp*kDpp - 4*M^-4*N*A1*kDpp^2
   + 4*M^-4*N*A2*qDpp*kDpp - 4*M^-4*N*A2*kDpp^2 + 2*M^-4*A3*pDk*kDpp
   + 2*M^-4*A3*pDk^2 - 21/8*M^-4*A3*kDpp^2 - 37/4*M^-4*A1*qDp*kDpp
   - 3/2*M^-4*A1*qDk*pDk - 33/4*M^-4*A1*qDk*kDpp + 9/2*M^-4*A1*qDpp
  *pDk - 21/4*M^-4*A1*qDpp*kDpp - 7/2*M^-4*A1*pDk*kDpp - 2*M^-4*A1
  *pDk^2 + 21/4*M^-4*A1*kDpp^2 + 6*M^-4*A2*qDp*pDk + 3*M^-4*A2*qDp
  *kDpp + 3/2*M^-4*A2*qDk*pDk + 3/2*M^-4*A2*qDk*kDpp + 3/2*M^-4*A2
  *qDpp*pDk - 31/4*M^-4*A2*qDpp*kDpp - 1/2*M^-4*A2*pDk*kDpp
  - 2*M^-4*A2*pDk^2 + 31/4*M^-4*A2*kDpp^2 - 3/4*M^-4*R1Z*Extm*qDp*kDpp
   - 3/4*M^-4*R1Z*Extm*qDk*kDpp - 3/2*M^-4*R1Z*Extm*qDpp*kDpp
  + 3/4*M^-4*R1Z*Extm*kDpp^2 + 3/8*M^-4*R5Z*Extm^2*kDpp^2 )
 
 + NOM(q,M)*NOM(q4,M)*D(a,d)*D(b,c)
  * ( - 1/4*M^-4*m^2*ExtM*qDp - 1/8*M^-4*m^2*ExtM*qDk - 3/8*M^-4*m^2
  *ExtM*qDpp + 1/8*M^-4*m^2*ExtM*kDpp + M^-4*N*A3*kDpp^2 + 2*M^-4*N
  *A1*qDp*kDpp + 2*M^-4*N*A1*qDk*kDpp + 2*M^-4*N*A1*qDpp*kDpp
  - 2*M^-4*N*A1*kDpp^2 + 2*M^-4*N*A2*qDpp*kDpp - 2*M^-4*N*A2*kDpp^2
   - 2*M^-4*N*ExtM*qDp*qDk + 6*M^-4*N*ExtM*qDp*qDpp - 4*M^-4*N*ExtM
  *qDp*kDpp + 2*M^-4*N*ExtM*qDk*qDpp - 2*M^-4*N*ExtM*qDk^2
  - 4*M^-4*N*ExtM*qDpp*kDpp + 4*M^-4*N*ExtM*qDpp^2 + 2*M^-4*N*ExtM^2
  *qDp*qDk - 2*M^-4*N*ExtM^2*qDp*qDpp + M^-4*N*ExtM^2*qDk^2
  - M^-4*N*ExtM^2*qDpp^2 + 10*M^-4*A3*pDk*kDpp + M^-4*A3*pDk^2
  + 3*M^-4*A3*kDpp^2 - 5*M^-4*A1*qDp*kDpp - 9/2*M^-4*A1*qDk*kDpp
  + 3*M^-4*A1*qDpp*pDk - 3/2*M^-4*A1*qDpp*kDpp - 4*M^-4*A1*pDk*kDpp
   - M^-4*A1*pDk^2 + 3/2*M^-4*A1*kDpp^2 + 3*M^-4*A2*qDp*pDk
  + 3*M^-4*A2*qDp*kDpp + 3/2*M^-4*A2*qDk*pDk + 3/2*M^-4*A2*qDk*kDpp
   + 3/2*M^-4*A2*qDpp*pDk - 7/2*M^-4*A2*qDpp*kDpp - 5/2*M^-4*A2*pDk
  *kDpp - M^-4*A2*pDk^2 + 7/2*M^-4*A2*kDpp^2 + 7/2*M^-4*ExtM*qDp*qDk
   - 21/2*M^-4*ExtM*qDp*qDpp - 2*M^-4*ExtM*qDp*pDk + 6*M^-4*ExtM*qDp
  *kDpp - 7/2*M^-4*ExtM*qDk*qDpp + 7/2*M^-4*ExtM*qDk^2 - 2*M^-4*ExtM
  *qDpp*pDk + 6*M^-4*ExtM*qDpp*kDpp - 7*M^-4*ExtM*qDpp^2 - 12*M^-4
  *ExtM*pDk*kDpp - 6*M^-4*ExtM*kDpp^2 - 7/2*M^-4*ExtM^2*qDp*qDk
  + 7/2*M^-4*ExtM^2*qDp*qDpp - 2*M^-4*ExtM^2*qDk*pDk - M^-4*ExtM^2
  *qDk*kDpp - 7/4*M^-4*ExtM^2*qDk^2 - 2*M^-4*ExtM^2*qDpp*pDk
  - M^-4*ExtM^2*qDpp*kDpp + 7/4*M^-4*ExtM^2*qDpp^2 + 10*M^-4*ExtM^2
  *pDk*kDpp + 5*M^-4*ExtM^2*kDpp^2 )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q1,m)*D(a,b)*D(c,d)
  * ( 1/4*M^-4*m^4*ExtM*qDk - 1/8*M^-4*m^4*ExtM*kDpp )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q1,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^4*A1*kDpp - 1/8*M^-4*m^4*R1Z*Extm*kDpp )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q1,m)*D(a,d)*D(b,c)
  * ( - 1/4*M^-4*m^4*ExtM*qDk + 1/8*M^-4*m^4*ExtM*kDpp )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( - 1/4*M^-4*m^4*ExtM*qDp - 1/8*M^-4*m^4*ExtM*kDpp )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q3,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^4*A2*kDpp - 1/8*M^-4*m^4*R1Z*Extm*kDpp )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q3,m)*D(a,d)*D(b,c)
  * ( 1/4*M^-4*m^4*ExtM*qDp + 1/8*M^-4*m^4*ExtM*kDpp )
 
 + NOM(q,M)*NOM(q4,m)*D(a,b)*D(c,d)
  * ( 1/4*M^-4*ExtM*qDp*qDk - 3/4*M^-4*ExtM*qDp*qDpp + 1/2*M^-4*ExtM
  *qDp*kDpp - 1/4*M^-4*ExtM*qDk*qDpp + 1/4*M^-4*ExtM*qDk^2
  + 1/2*M^-4*ExtM*qDpp*kDpp - 1/2*M^-4*ExtM*qDpp^2 - 1/2*M^-4*ExtM^2
  *qDp*qDk + 1/2*M^-4*ExtM^2*qDp*qDpp - 1/4*M^-4*ExtM^2*qDk^2
  + 1/4*M^-4*ExtM^2*qDpp^2 )
 
 + NOM(q,M)*NOM(q4,m)*D(a,d)*D(b,c)
  * ( - 1/4*M^-4*ExtM*qDp*qDk + 3/4*M^-4*ExtM*qDp*qDpp - 1/2*M^-4*ExtM
  *qDp*kDpp + 1/4*M^-4*ExtM*qDk*qDpp - 1/4*M^-4*ExtM*qDk^2
  - 1/2*M^-4*ExtM*qDpp*kDpp + 1/2*M^-4*ExtM*qDpp^2 + 1/2*M^-4*ExtM^2
  *qDp*qDk - 1/2*M^-4*ExtM^2*qDp*qDpp + 1/4*M^-4*ExtM^2*qDk^2
  - 1/4*M^-4*ExtM^2*qDpp^2 )
 
 + NOM(q,m)*D(a,b)*D(c,d)
  * ( - 1/4*M^-4*gu*T3*ExtM^2*pDk - 1/8*M^-4*gu*T3*ExtM^2*kDpp
  - 3/4*M^-4*T3*ExtM^2*pDk - 3/8*M^-4*T3*ExtM^2*kDpp + 1/4*M^-4*ExtM^2
  *pDk + 1/8*M^-4*ExtM^2*kDpp )
 
 + NOM(q,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^-2*gu*T1*Extm*kDpp^2 - 1/8*M^-4*m^-2*gu*T2*Extm
  *kDpp^2 + 3/8*M^-4*m^-2*gu*T3*Extm^2*kDpp^2 - 1/8*M^-4*m^-2*gu*R5Z
  *Extm^2*kDpp^2 - 3/8*M^-4*m^-2*T1*Extm*kDpp^2 - 3/8*M^-4*m^-2*T2
  *Extm*kDpp^2 + 9/8*M^-4*m^-2*T3*Extm^2*kDpp^2 - 3/8*M^-4*m^-2*R5Z
  *Extm^2*kDpp^2 )
 
 + NOM(q,m)*D(a,d)*D(b,c)
  * ( 1/4*M^-4*gu*T3*ExtM^2*pDk + 1/8*M^-4*gu*T3*ExtM^2*kDpp
  + 3/4*M^-4*T3*ExtM^2*pDk + 3/8*M^-4*T3*ExtM^2*kDpp - 1/4*M^-4*ExtM^2
  *pDk - 1/8*M^-4*ExtM^2*kDpp )
 
 + NOM(q,m)*NOM(q2,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/8*M^-4*m^2*A0
  *pDk + 1/8*M^-4*m^2*A0*kDpp + 1/16*M^-4*m^4*A0 + 1/4*M^-4*A0*qDp
  *qDpp - 1/4*M^-4*A0*qDp*pDk - 1/4*M^-4*A0*qDp*kDpp + 1/4*M^-4*A0
  *qDk*qDpp - 1/4*M^-4*A0*qDk*pDk - 1/4*M^-4*A0*qDk*kDpp - 1/2*M^-4
  *A0*qDpp*pDk - 1/2*M^-4*A0*qDpp*kDpp + 1/4*M^-4*A0*qDpp^2
  + 1/2*M^-4*A0*pDk*kDpp + 1/4*M^-4*A0*pDk^2 + 1/4*M^-4*A0*kDpp^2 )
 
 + NOM(q,m)*NOM(q4,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A1*kDpp + 1/8*M^-4*m^2*A2*kDpp - 3/4*M^-4*m^2*R1Z
  *Extm*kDpp + 1/8*M^-4*gu^2*R5Z*Extm^2*kDpp^2 + 1/8*M^-4*A3*kDpp^2
   + 1/4*M^-4*A1*qDp*kDpp + 1/4*M^-4*A1*qDk*kDpp + 1/4*M^-4*A1*qDpp
  *kDpp - 1/4*M^-4*A1*kDpp^2 + 1/4*M^-4*A2*qDpp*kDpp - 1/4*M^-4*A2
  *kDpp^2 - 3/4*M^-4*R1Z*Extm*qDp*kDpp - 3/4*M^-4*R1Z*Extm*qDk*kDpp
   - 3/2*M^-4*R1Z*Extm*qDpp*kDpp + 3/4*M^-4*R1Z*Extm*kDpp^2
  + 9/8*M^-4*R5Z*Extm^2*kDpp^2 )
 
 + NOM(q1,M)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^2*ExtM - 2*M^-4*N*A0*qDp - 2*M^-4*N*A0*qDk
  - 2*M^-4*N*A0*qDpp + 4*M^-4*N*A0*pDk + 4*M^-4*N*A0*kDpp
  + 1/2*M^-4*A1*kDpp + 29/8*M^-4*A0*qDp + 29/8*M^-4*A0*qDk
  + 29/8*M^-4*A0*qDpp - 5*M^-4*A0*pDk - 23/4*M^-4*A0*kDpp
  + M^-4*ExtM*pDk )
 
 + NOM(q1,M)*D(a,c)*D(b,d)
  * ( 3/2*M^-4*A1*pDk + 5/2*M^-4*A1*kDpp + 3/8*M^-4*A0*qDp
  + 3/8*M^-4*A0*qDk + 3/8*M^-4*A0*qDpp - 3/4*M^-4*A0*pDk - 3/4*M^-4
  *A0*kDpp )
 
 + NOM(q1,M)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^2*ExtM - 2*M^-4*N*A0*qDp - 2*M^-4*N*A0*qDk
  - 2*M^-4*N*A0*qDpp + 4*M^-4*N*A0*pDk + 4*M^-4*N*A0*kDpp
  + 3/2*M^-4*A1*pDk + 2*M^-4*A1*kDpp + 29/8*M^-4*A0*qDp + 29/8*M^-4
  *A0*qDk + 29/8*M^-4*A0*qDpp - 5*M^-4*A0*pDk - 23/4*M^-4*A0*kDpp
  - M^-4*ExtM*pDk )
 
 + NOM(q1,M)*NOM(q,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^2*A0*qDp + 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp
   - 1/8*M^-4*m^2*A0*pDk - 1/8*M^-4*m^2*A0*kDpp - 1/8*M^-4*m^2*ExtM
  *qDp - 1/8*M^-4*m^2*ExtM*qDk + 1/8*M^-4*m^2*ExtM*qDpp - 1/16*M^-4
  *m^4*A0 + 1/16*M^-4*m^4*ExtM )
 
 + NOM(q1,M)*NOM(q,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^2*A1*kDpp - 1/8*M^-4*m^2*A0*qDp - 1/8*M^-4*m^2*A0
  *qDk - 1/8*M^-4*m^2*A0*qDpp + 1/8*M^-4*m^2*A0*pDk + 1/8*M^-4*m^2
  *A0*kDpp + 3/8*M^-4*m^2*R1Z*Extm*kDpp + 1/16*M^-4*m^4*A0 )
 
 + NOM(q1,M)*NOM(q,m)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^2*A0*qDp + 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp
   - 1/8*M^-4*m^2*A0*pDk - 1/8*M^-4*m^2*A0*kDpp + 1/8*M^-4*m^2*ExtM
  *qDp + 1/8*M^-4*m^2*ExtM*qDk - 1/8*M^-4*m^2*ExtM*qDpp - 1/8*M^-4
  *m^4*A0 - 1/16*M^-4*m^4*ExtM )
 
 + NOM(q1,M)*NOM(q,m)*NOM(q2,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^4*A0*qDk + 1/16*M^-4*m^6*A0 )
 
 + NOM(q1,M)*NOM(q,m)*NOM(q4,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^4*A1*kDpp - 3/8*M^-4*m^4*R1Z*Extm*kDpp )
 
 + NOM(q1,M)*NOM(q3,M)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/8*M^-4*m^2*A0
  *pDk + 1/8*M^-4*m^2*A0*kDpp - 4*M^-4*N*A0*qDp*qDk - 4*M^-4*N*A0*qDp
  *qDpp + 4*M^-4*N*A0*qDp*pDk + 4*M^-4*N*A0*qDp*kDpp - 4*M^-4*N*A0
  *qDp^2 + 29/4*M^-4*A0*qDp*qDk + 29/4*M^-4*A0*qDp*qDpp - 35/4*M^-4
  *A0*qDp*pDk - 35/4*M^-4*A0*qDp*kDpp + 29/4*M^-4*A0*qDp^2
  + 5/2*M^-4*A0*qDk*pDk + 3/2*M^-4*A0*qDk*kDpp + 4*M^-4*A0*qDpp*pDk
   + 3*M^-4*A0*qDpp*kDpp - 5*M^-4*A0*pDk*kDpp - M^-4*A0*pDk^2
  - 2*M^-4*A0*kDpp^2 )
 
 + NOM(q1,M)*NOM(q3,M)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2*A0
  *pDk - 1/8*M^-4*m^2*A0*kDpp + 1/2*M^-4*A0*qDp*qDk + 1/2*M^-4*A0*qDp
  *qDpp - 1/2*M^-4*A0*qDp*pDk - 1/2*M^-4*A0*qDp*kDpp + 1/2*M^-4*A0
  *qDp^2 )
 
 + NOM(q1,M)*NOM(q3,M)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/8*M^-4*m^2*A0
  *pDk + 1/8*M^-4*m^2*A0*kDpp + 1/16*M^-4*m^4*A0 - 4*M^-4*N*A0*qDp
  *qDk - 4*M^-4*N*A0*qDp*qDpp + 4*M^-4*N*A0*qDp*pDk + 4*M^-4*N*A0*qDp
  *kDpp - 4*M^-4*N*A0*qDp^2 + 15/2*M^-4*A0*qDp*qDk + 15/2*M^-4*A0*qDp
  *qDpp - 9*M^-4*A0*qDp*pDk - 9*M^-4*A0*qDp*kDpp + 15/2*M^-4*A0*qDp^2
   + 5/2*M^-4*A0*qDk*pDk + 3/2*M^-4*A0*qDk*kDpp + 4*M^-4*A0*qDpp*pDk
   + 3*M^-4*A0*qDpp*kDpp - 5*M^-4*A0*pDk*kDpp - M^-4*A0*pDk^2
  - 2*M^-4*A0*kDpp^2 )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^4*A0*qDpp - 1/8*M^-4*m^4*A0*pDk - 1/8*M^-4*m^4*A0
  *kDpp )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^4*A0*qDpp + 1/8*M^-4*m^4*A0*pDk + 1/8*M^-4*m^4*A0
  *kDpp )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q,m)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^4*A0*qDpp - 1/8*M^-4*m^4*A0*pDk - 1/8*M^-4*m^4*A0
  *kDpp - 1/16*M^-4*m^6*A0 )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q,m)*NOM(q2,m)*D(a,d)*D(b,c)
  * ( 1/16*M^-4*m^8*A0 )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q2,M)*D(a,b)*D(c,d)*Error
  * ( - 2*M^-4*A0*qDp*pDk^2 + M^-4*A0*qDp^2*pDk )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q2,M)*D(a,d)*D(b,c)*Error
  * ( - 2*M^-4*A0*qDp*pDk^2 + M^-4*A0*qDp^2*pDk )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q2,m)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^4*A0*qDp )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q2,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^4*A0*qDp )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q2,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^4*A0*qDp - 1/16*M^-4*m^6*A0 )
 
 + NOM(q1,M)*NOM(q3,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^2*A0*qDp - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0
  *qDpp + 1/8*M^-4*m^2*A0*pDk + 1/8*M^-4*m^2*A0*kDpp + 1/4*M^-4*A0
  *qDp*qDk + 1/4*M^-4*A0*qDp*qDpp - 1/4*M^-4*A0*qDp*pDk - 1/4*M^-4
  *A0*qDp*kDpp + 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q1,M)*NOM(q3,m)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^2*A0*qDp + 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp
   - 1/8*M^-4*m^2*A0*pDk - 1/8*M^-4*m^2*A0*kDpp - 1/4*M^-4*A0*qDp*qDk
   - 1/4*M^-4*A0*qDp*qDpp + 1/4*M^-4*A0*qDp*pDk + 1/4*M^-4*A0*qDp*kDpp
   - 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q1,M)*NOM(q2,M)*D(a,b)*D(c,d)
  * ( - 4*M^-4*N*A0*qDpp*pDk - 4*M^-4*N*A0*qDpp*kDpp + 8*M^-4*N*A0
  *pDk*kDpp + 4*M^-4*N*A0*pDk^2 + 4*M^-4*N*A0*kDpp^2 + 1/2*M^-4*A0
  *qDp*pDk - 5/2*M^-4*A0*qDk*pDk - M^-4*A0*qDk*kDpp + 9/2*M^-4*A0*qDpp
  *pDk + 9/2*M^-4*A0*qDpp*kDpp - 9*M^-4*A0*pDk*kDpp - 11/2*M^-4*A0
  *pDk^2 - 9/2*M^-4*A0*kDpp^2 )
 
 + NOM(q1,M)*NOM(q2,M)*D(a,c)*D(b,d)
  * ( 1/2*M^-4*A0*qDpp*pDk + 1/2*M^-4*A0*qDpp*kDpp - M^-4*A0*pDk*kDpp
   - 1/2*M^-4*A0*pDk^2 - 1/2*M^-4*A0*kDpp^2 )
 
 + NOM(q1,M)*NOM(q2,M)*D(a,d)*D(b,c)
  * ( - 4*M^-4*N*A0*qDpp*pDk - 4*M^-4*N*A0*qDpp*kDpp + 8*M^-4*N*A0
  *pDk*kDpp + 4*M^-4*N*A0*pDk^2 + 4*M^-4*N*A0*kDpp^2 + 1/2*M^-4*A0
  *qDp*pDk - 5/2*M^-4*A0*qDk*pDk - M^-4*A0*qDk*kDpp + 9/2*M^-4*A0*qDpp
  *pDk + 9/2*M^-4*A0*qDpp*kDpp - 9*M^-4*A0*pDk*kDpp - 11/2*M^-4*A0
  *pDk^2 - 9/2*M^-4*A0*kDpp^2 )
 
 + NOM(q1,M)*NOM(q2,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/4*M^-4*m^2*A0
  *pDk - 1/4*M^-4*m^2*A0*kDpp - 1/4*M^-4*A0*qDpp*pDk - 1/4*M^-4*A0
  *qDpp*kDpp + 1/2*M^-4*A0*pDk*kDpp + 1/4*M^-4*A0*pDk^2 + 1/4*M^-4
  *A0*kDpp^2 )
 
 + NOM(q1,M)*NOM(q2,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/4*M^-4*m^2*A0
  *pDk + 1/4*M^-4*m^2*A0*kDpp + 1/4*M^-4*A0*qDpp*pDk + 1/4*M^-4*A0
  *qDpp*kDpp - 1/2*M^-4*A0*pDk*kDpp - 1/4*M^-4*A0*pDk^2 - 1/4*M^-4
  *A0*kDpp^2 )
 
 + NOM(q1,M)*NOM(q2,m)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/4*M^-4*m^2*A0
  *pDk - 1/4*M^-4*m^2*A0*kDpp - 1/4*M^-4*A0*qDpp*pDk - 1/4*M^-4*A0
  *qDpp*kDpp + 1/2*M^-4*A0*pDk*kDpp + 1/4*M^-4*A0*pDk^2 + 1/4*M^-4
  *A0*kDpp^2 )
 
 + NOM(q1,M)*NOM(q4,M)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^2*ExtM*qDp - 1/8*M^-4*m^2*ExtM*qDk - 1/8*M^-4*m^2
  *ExtM*qDpp + 1/8*M^-4*m^2*ExtM*kDpp - 2*M^-4*N*A1*qDp*kDpp
  - 2*M^-4*N*A1*qDk*kDpp - 2*M^-4*N*A1*qDpp*kDpp + 2*M^-4*N*A1*kDpp^2
   - 2*M^-4*N*ExtM*qDp*qDk + 2*M^-4*N*ExtM*qDp*qDpp + 2*M^-4*N*ExtM
  *qDk*kDpp - 2*M^-4*N*ExtM*qDk^2 - 2*M^-4*N*ExtM*qDpp*kDpp
  + 2*M^-4*N*ExtM*qDpp^2 + 11/2*M^-4*A1*qDp*kDpp + 3/2*M^-4*A1*qDk
  *pDk + 6*M^-4*A1*qDk*kDpp + 11/2*M^-4*A1*qDpp*kDpp + M^-4*A1*pDk
  *kDpp + M^-4*A1*pDk^2 - 13/2*M^-4*A1*kDpp^2 + 7/2*M^-4*ExtM*qDp*qDk
   - 7/2*M^-4*ExtM*qDp*qDpp + 3*M^-4*ExtM*qDp*pDk + M^-4*ExtM*qDp*kDpp
   + 2*M^-4*ExtM*qDk*pDk - 7/2*M^-4*ExtM*qDk*kDpp + 7/2*M^-4*ExtM*qDk^2
   + 2*M^-4*ExtM*qDpp*pDk + 9/2*M^-4*ExtM*qDpp*kDpp - 7/2*M^-4*ExtM
  *qDpp^2 - 3*M^-4*ExtM*pDk*kDpp - 1/2*M^-4*ExtM*kDpp^2 )
 
 + NOM(q1,M)*NOM(q4,M)*D(a,c)*D(b,d)
  * ( - 4*M^-4*N*A1*qDp*kDpp - 4*M^-4*N*A1*qDk*kDpp - 4*M^-4*N*A1*qDpp
  *kDpp + 4*M^-4*N*A1*kDpp^2 + 3/2*M^-4*A1*qDp*pDk + 12*M^-4*A1*qDp
  *kDpp + 3*M^-4*A1*qDk*pDk + 13*M^-4*A1*qDk*kDpp + 21/2*M^-4*A1*qDpp
  *kDpp + 1/2*M^-4*A1*pDk*kDpp + 2*M^-4*A1*pDk^2 - 25/2*M^-4*A1*kDpp^2
   + 1/2*M^-4*R1Z*Extm*qDp*kDpp + 1/2*M^-4*R1Z*Extm*qDk*kDpp
  + 1/2*M^-4*R1Z*Extm*qDpp*kDpp - 1/2*M^-4*R1Z*Extm*kDpp^2 )
 
 + NOM(q1,M)*NOM(q4,M)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^2*ExtM*qDp + 1/8*M^-4*m^2*ExtM*qDk + 1/8*M^-4*m^2
  *ExtM*qDpp - 1/8*M^-4*m^2*ExtM*kDpp - 2*M^-4*N*A1*qDp*kDpp
  - 2*M^-4*N*A1*qDk*kDpp - 2*M^-4*N*A1*qDpp*kDpp + 2*M^-4*N*A1*kDpp^2
   + 2*M^-4*N*ExtM*qDp*qDk - 2*M^-4*N*ExtM*qDp*qDpp - 2*M^-4*N*ExtM
  *qDk*kDpp + 2*M^-4*N*ExtM*qDk^2 + 2*M^-4*N*ExtM*qDpp*kDpp
  - 2*M^-4*N*ExtM*qDpp^2 + 3/2*M^-4*A1*qDp*pDk + 7*M^-4*A1*qDp*kDpp
   + 3/2*M^-4*A1*qDk*pDk + 15/2*M^-4*A1*qDk*kDpp + 11/2*M^-4*A1*qDpp
  *kDpp - 1/2*M^-4*A1*pDk*kDpp + M^-4*A1*pDk^2 - 13/2*M^-4*A1*kDpp^2
   - 7/2*M^-4*ExtM*qDp*qDk + 7/2*M^-4*ExtM*qDp*qDpp - 3*M^-4*ExtM*qDp
  *pDk - M^-4*ExtM*qDp*kDpp - 2*M^-4*ExtM*qDk*pDk + 7/2*M^-4*ExtM*qDk
  *kDpp - 7/2*M^-4*ExtM*qDk^2 - 2*M^-4*ExtM*qDpp*pDk - 9/2*M^-4*ExtM
  *qDpp*kDpp + 7/2*M^-4*ExtM*qDpp^2 + 3*M^-4*ExtM*pDk*kDpp
  + 1/2*M^-4*ExtM*kDpp^2 )
 
 + NOM(q1,M)*NOM(q4,m)*D(a,b)*D(c,d)
  * ( - 1/4*M^-4*ExtM*qDp*qDk + 1/4*M^-4*ExtM*qDp*qDpp + 1/4*M^-4*ExtM
  *qDk*kDpp - 1/4*M^-4*ExtM*qDk^2 - 1/4*M^-4*ExtM*qDpp*kDpp
  + 1/4*M^-4*ExtM*qDpp^2 )
 
 + NOM(q1,M)*NOM(q4,m)*D(a,c)*D(b,d)
  * ( - 1/4*M^-4*A1*qDp*kDpp - 1/4*M^-4*A1*qDk*kDpp - 1/4*M^-4*A1*qDpp
  *kDpp + 1/4*M^-4*A1*kDpp^2 + 3/4*M^-4*R1Z*Extm*qDp*kDpp
  + 3/4*M^-4*R1Z*Extm*qDk*kDpp + 3/4*M^-4*R1Z*Extm*qDpp*kDpp
  - 3/4*M^-4*R1Z*Extm*kDpp^2 )
 
 + NOM(q1,M)*NOM(q4,m)*D(a,d)*D(b,c)
  * ( 1/4*M^-4*ExtM*qDp*qDk - 1/4*M^-4*ExtM*qDp*qDpp - 1/4*M^-4*ExtM
  *qDk*kDpp + 1/4*M^-4*ExtM*qDk^2 + 1/4*M^-4*ExtM*qDpp*kDpp
  - 1/4*M^-4*ExtM*qDpp^2 )
 
 + NOM(q1,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^2*ExtM - 1/8*M^-4*A0*qDp - 1/8*M^-4*A0*qDk
  - 1/8*M^-4*A0*qDpp + 1/4*M^-4*A0*pDk + 1/4*M^-4*A0*kDpp )
 
 + NOM(q1,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*A0*qDp + 1/8*M^-4*A0*qDk + 1/8*M^-4*A0*qDpp
  - 1/4*M^-4*A0*pDk - 1/4*M^-4*A0*kDpp )
 
 + NOM(q1,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*ExtM - 1/8*M^-4*A0*qDp - 1/8*M^-4*A0*qDk
  - 1/8*M^-4*A0*qDpp + 1/4*M^-4*A0*pDk + 1/4*M^-4*A0*kDpp )
 
 + NOM(q1,m)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2*A0
  *pDk - 1/8*M^-4*m^2*A0*kDpp + 1/16*M^-4*m^4*A0 - 1/4*M^-4*A0*qDp
  *qDk - 1/4*M^-4*A0*qDp*qDpp + 1/4*M^-4*A0*qDp*pDk + 1/4*M^-4*A0*qDp
  *kDpp - 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q3,M)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^2*A0 + M^-4*N*A2*kDpp - 2*M^-4*N*ExtM*qDp
  - M^-4*N*ExtM*qDk - M^-4*N*ExtM*qDpp + M^-4*N*ExtM*kDpp
  - 3/4*M^-4*A2*pDk - 5/2*M^-4*A2*kDpp + 9/2*M^-4*A0*pDk + 7/2*M^-4
  *A0*kDpp + 13/4*M^-4*ExtM*qDp + 13/8*M^-4*ExtM*qDk + 13/8*M^-4*ExtM
  *qDpp + M^-4*ExtM*pDk - 5/8*M^-4*ExtM*kDpp )
 
 + NOM(q3,M)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A0 + 2*M^-4*N*A2*kDpp - 31/8*M^-4*A2*kDpp
  - 5/8*M^-4*R1Z*Extm*kDpp )
 
 + NOM(q3,M)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*A0 + M^-4*N*A2*kDpp + 2*M^-4*N*ExtM*qDp
  + M^-4*N*ExtM*qDk + M^-4*N*ExtM*qDpp - M^-4*N*ExtM*kDpp
  + 3/4*M^-4*A2*pDk - 7/4*M^-4*A2*kDpp + 9/2*M^-4*A0*pDk + 7/2*M^-4
  *A0*kDpp - 13/4*M^-4*ExtM*qDp - 13/8*M^-4*ExtM*qDk - 13/8*M^-4*ExtM
  *qDpp - M^-4*ExtM*pDk + 5/8*M^-4*ExtM*kDpp )
 
 + NOM(q3,M)*NOM(q,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2*A0
  *pDk - 1/8*M^-4*m^2*A0*kDpp + 1/4*M^-4*m^2*ExtM*qDp + 1/8*M^-4*m^2
  *ExtM*qDk + 1/8*M^-4*m^2*ExtM*qDpp + 1/16*M^-4*m^4*A0 )
 
 + NOM(q3,M)*NOM(q,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^2*A2*kDpp - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0
  *qDpp + 1/8*M^-4*m^2*A0*pDk + 1/8*M^-4*m^2*A0*kDpp + 3/8*M^-4*m^2
  *R1Z*Extm*kDpp - 1/16*M^-4*m^4*A0 )
 
 + NOM(q3,M)*NOM(q,m)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2*A0
  *pDk - 1/8*M^-4*m^2*A0*kDpp - 1/4*M^-4*m^2*ExtM*qDp - 1/8*M^-4*m^2
  *ExtM*qDk - 1/8*M^-4*m^2*ExtM*qDpp )
 
 + NOM(q3,M)*NOM(q,m)*NOM(q2,m)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^4*A0*qDp + 1/16*M^-4*m^6*A0 )
 
 + NOM(q3,M)*NOM(q,m)*NOM(q4,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^4*A2*kDpp - 3/8*M^-4*m^4*R1Z*Extm*kDpp )
 
 + NOM(q3,M)*NOM(q1,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A0*qDp + 1/4*M^-4*A0*qDp*qDk + 1/4*M^-4*A0*qDp*qDpp
   - 1/4*M^-4*A0*qDp*pDk - 1/4*M^-4*A0*qDp*kDpp + 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q3,M)*NOM(q1,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*A0*qDp - 1/4*M^-4*A0*qDp*qDk - 1/4*M^-4*A0*qDp
  *qDpp + 1/4*M^-4*A0*qDp*pDk + 1/4*M^-4*A0*qDp*kDpp - 1/4*M^-4*A0
  *qDp^2 )
 
 + NOM(q3,M)*NOM(q2,M)*D(a,b)*D(c,d)
  * ( 1/4*M^-4*m^2*A0*qDp + 1/4*M^-4*m^2*A0*qDk + 1/4*M^-4*m^2*A0*qDpp
   - 1/4*M^-4*m^2*A0*pDk - 1/4*M^-4*m^2*A0*kDpp + 4*M^-4*N*A0*qDp*qDk
   + 4*M^-4*N*A0*qDp*qDpp - 4*M^-4*N*A0*qDp*pDk - 4*M^-4*N*A0*qDp*kDpp
   + 4*M^-4*N*A0*qDp^2 - 15/2*M^-4*A0*qDp*qDk - 15/2*M^-4*A0*qDp*qDpp
   + 7/2*M^-4*A0*qDp*pDk + 7/2*M^-4*A0*qDp*kDpp - 15/2*M^-4*A0*qDp^2
   - 6*M^-4*A0*qDk*pDk - 5*M^-4*A0*qDk*kDpp - 6*M^-4*A0*qDpp*pDk
  - 5*M^-4*A0*qDpp*kDpp + 11*M^-4*A0*pDk*kDpp + 6*M^-4*A0*pDk^2
  + 5*M^-4*A0*kDpp^2 )
 
 + NOM(q3,M)*NOM(q2,M)*D(a,c)*D(b,d)
  * ( - 1/4*M^-4*m^2*A0*qDp - 1/4*M^-4*m^2*A0*qDk - 1/4*M^-4*m^2*A0
  *qDpp + 1/4*M^-4*m^2*A0*pDk + 1/4*M^-4*m^2*A0*kDpp - 1/2*M^-4*A0
  *qDp*qDk - 1/2*M^-4*A0*qDp*qDpp + 1/2*M^-4*A0*qDp*pDk + 1/2*M^-4
  *A0*qDp*kDpp - 1/2*M^-4*A0*qDp^2 )
 
 + NOM(q3,M)*NOM(q2,M)*D(a,d)*D(b,c)
  * ( 4*M^-4*N*A0*qDp*qDk + 4*M^-4*N*A0*qDp*qDpp - 4*M^-4*N*A0*qDp
  *pDk - 4*M^-4*N*A0*qDp*kDpp + 4*M^-4*N*A0*qDp^2 - 15/2*M^-4*A0*qDp
  *qDk - 15/2*M^-4*A0*qDp*qDpp + 7/2*M^-4*A0*qDp*pDk + 7/2*M^-4*A0
  *qDp*kDpp - 15/2*M^-4*A0*qDp^2 - 6*M^-4*A0*qDk*pDk - 5*M^-4*A0*qDk
  *kDpp - 6*M^-4*A0*qDpp*pDk - 5*M^-4*A0*qDpp*kDpp + 11*M^-4*A0*pDk
  *kDpp + 6*M^-4*A0*pDk^2 + 5*M^-4*A0*kDpp^2 )
 
 + NOM(q3,M)*NOM(q2,m)*D(a,b)*D(c,d)
  * ( 1/4*M^-4*A0*qDp*qDk + 1/4*M^-4*A0*qDp*qDpp - 1/4*M^-4*A0*qDp
  *pDk - 1/4*M^-4*A0*qDp*kDpp + 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q3,M)*NOM(q2,m)*D(a,c)*D(b,d)
  * ( - 1/4*M^-4*A0*qDp*qDk - 1/4*M^-4*A0*qDp*qDpp + 1/4*M^-4*A0*qDp
  *pDk + 1/4*M^-4*A0*qDp*kDpp - 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q3,M)*NOM(q2,m)*D(a,d)*D(b,c)
  * ( 1/4*M^-4*m^2*A0*qDp + 1/4*M^-4*m^2*A0*qDk + 1/4*M^-4*m^2*A0*qDpp
   - 1/4*M^-4*m^2*A0*pDk - 1/4*M^-4*m^2*A0*kDpp + 1/8*M^-4*m^4*A0
  + 1/4*M^-4*A0*qDp*qDk + 1/4*M^-4*A0*qDp*qDpp - 1/4*M^-4*A0*qDp*pDk
   - 1/4*M^-4*A0*qDp*kDpp + 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q3,M)*NOM(q4,M)*D(a,b)*D(c,d)
  * ( 2*M^-4*N*ExtM*qDpp*kDpp - 2*M^-4*N*ExtM*kDpp^2 - 3/2*M^-4*A2
  *qDp*pDk - 1/2*M^-4*A2*qDp*kDpp + M^-4*A2*pDk*kDpp + M^-4*A2*pDk^2
   - M^-4*A2*kDpp^2 + M^-4*ExtM*qDp*kDpp - M^-4*ExtM*qDk*pDk
  + 2*M^-4*ExtM*qDpp*pDk - 3/2*M^-4*ExtM*qDpp*kDpp - 3*M^-4*ExtM*pDk
  *kDpp + 2*M^-4*ExtM*kDpp^2 )
 
 + NOM(q3,M)*NOM(q4,M)*D(a,c)*D(b,d)
  * ( - 3*M^-4*A2*qDp*pDk - 5/2*M^-4*A2*qDp*kDpp - 3/2*M^-4*A2*qDk
  *pDk - 3/2*M^-4*A2*qDk*kDpp + 1/2*M^-4*A2*pDk*kDpp + 2*M^-4*A2*pDk^2
   - 2*M^-4*A2*kDpp^2 )
 
 + NOM(q3,M)*NOM(q4,M)*D(a,d)*D(b,c)
  * ( - 2*M^-4*N*ExtM*qDpp*kDpp + 2*M^-4*N*ExtM*kDpp^2 - 3/2*M^-4*A2
  *qDp*pDk - 2*M^-4*A2*qDp*kDpp - 3/2*M^-4*A2*qDk*pDk - 3/2*M^-4*A2
  *qDk*kDpp - 1/2*M^-4*A2*pDk*kDpp + M^-4*A2*pDk^2 - M^-4*A2*kDpp^2
   - M^-4*ExtM*qDp*kDpp + M^-4*ExtM*qDk*pDk - 2*M^-4*ExtM*qDpp*pDk
   + 3/2*M^-4*ExtM*qDpp*kDpp + 3*M^-4*ExtM*pDk*kDpp - 2*M^-4*ExtM*kDpp^2 )
 
 + NOM(q3,M)*NOM(q4,m)*D(a,b)*D(c,d)
  * ( 1/4*M^-4*m^2*ExtM*qDp + 1/8*M^-4*m^2*ExtM*qDk + 1/8*M^-4*m^2
  *ExtM*qDpp - 1/8*M^-4*m^2*ExtM*kDpp + 1/4*M^-4*ExtM*qDpp*kDpp
  - 1/4*M^-4*ExtM*kDpp^2 )
 
 + NOM(q3,M)*NOM(q4,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^2*A2*kDpp + 3/8*M^-4*m^2*R1Z*Extm*kDpp )
 
 + NOM(q3,M)*NOM(q4,m)*D(a,d)*D(b,c)
  * ( - 1/4*M^-4*m^2*ExtM*qDp - 1/8*M^-4*m^2*ExtM*qDk - 1/8*M^-4*m^2
  *ExtM*qDpp + 1/8*M^-4*m^2*ExtM*kDpp - 1/4*M^-4*ExtM*qDpp*kDpp
  + 1/4*M^-4*ExtM*kDpp^2 )
 
 + NOM(q3,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^2*A0 - 1/4*M^-4*ExtM*qDp - 1/8*M^-4*ExtM*qDk
  - 1/8*M^-4*ExtM*qDpp + 1/8*M^-4*ExtM*kDpp )
 
 + NOM(q3,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^2*A0 + 1/8*M^-4*A2*kDpp - 1/8*M^-4*R1Z*Extm*kDpp )
 
 + NOM(q3,m)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^2*A0 + 1/4*M^-4*ExtM*qDp + 1/8*M^-4*ExtM*qDk
  + 1/8*M^-4*ExtM*qDpp - 1/8*M^-4*ExtM*kDpp )
 
 + NOM(q2,M)*D(a,b)*D(c,d)
  * ( 2*M^-4*N*A0*qDp + 2*M^-4*N*A0*qDk + 2*M^-4*N*A0*qDpp
  - 4*M^-4*N*A0*pDk - 4*M^-4*N*A0*kDpp - 29/8*M^-4*A0*qDp
  - 29/8*M^-4*A0*qDk - 29/8*M^-4*A0*qDpp + 3/2*M^-4*A0*pDk
  + 9/4*M^-4*A0*kDpp )
 
 + NOM(q2,M)*D(a,c)*D(b,d)
  * ( - 3/8*M^-4*A0*qDp - 3/8*M^-4*A0*qDk - 3/8*M^-4*A0*qDpp
  + 3/4*M^-4*A0*pDk + 3/4*M^-4*A0*kDpp )
 
 + NOM(q2,M)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*A0 + 2*M^-4*N*A0*qDp + 2*M^-4*N*A0*qDk
  + 2*M^-4*N*A0*qDpp - 4*M^-4*N*A0*pDk - 4*M^-4*N*A0*kDpp
  - 29/8*M^-4*A0*qDp - 29/8*M^-4*A0*qDk - 29/8*M^-4*A0*qDpp
  + 3/2*M^-4*A0*pDk + 9/4*M^-4*A0*kDpp )
 
 + NOM(q2,M)*NOM(q,m)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/8*M^-4*m^2*A0
  *pDk + 1/8*M^-4*m^2*A0*kDpp + 1/4*M^-4*A0*qDp*qDpp - 1/4*M^-4*A0
  *qDp*pDk - 1/4*M^-4*A0*qDp*kDpp + 1/4*M^-4*A0*qDk*qDpp - 1/4*M^-4
  *A0*qDk*pDk - 1/4*M^-4*A0*qDk*kDpp - 1/2*M^-4*A0*qDpp*pDk
  - 1/2*M^-4*A0*qDpp*kDpp + 1/4*M^-4*A0*qDpp^2 + 1/2*M^-4*A0*pDk*kDpp
   + 1/4*M^-4*A0*pDk^2 + 1/4*M^-4*A0*kDpp^2 )
 
 + NOM(q2,M)*NOM(q,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2*A0
  *pDk - 1/8*M^-4*m^2*A0*kDpp - 1/4*M^-4*A0*qDp*qDpp + 1/4*M^-4*A0
  *qDp*pDk + 1/4*M^-4*A0*qDp*kDpp - 1/4*M^-4*A0*qDk*qDpp + 1/4*M^-4
  *A0*qDk*pDk + 1/4*M^-4*A0*qDk*kDpp + 1/2*M^-4*A0*qDpp*pDk
  + 1/2*M^-4*A0*qDpp*kDpp - 1/4*M^-4*A0*qDpp^2 - 1/2*M^-4*A0*pDk*kDpp
   - 1/4*M^-4*A0*pDk^2 - 1/4*M^-4*A0*kDpp^2 )
 
 + NOM(q2,M)*NOM(q1,m)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/4*M^-4*m^2*A0
  *pDk + 1/4*M^-4*m^2*A0*kDpp - 1/4*M^-4*A0*qDpp*pDk - 1/4*M^-4*A0
  *qDpp*kDpp + 1/2*M^-4*A0*pDk*kDpp + 1/4*M^-4*A0*pDk^2 + 1/4*M^-4
  *A0*kDpp^2 )
 
 + NOM(q2,M)*NOM(q1,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/4*M^-4*m^2*A0
  *pDk - 1/4*M^-4*m^2*A0*kDpp - 1/16*M^-4*m^4*A0 + 1/4*M^-4*A0*qDpp
  *pDk + 1/4*M^-4*A0*qDpp*kDpp - 1/2*M^-4*A0*pDk*kDpp - 1/4*M^-4*A0
  *pDk^2 - 1/4*M^-4*A0*kDpp^2 )
 
 + NOM(q2,M)*NOM(q1,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/4*M^-4*m^2*A0
  *pDk + 1/4*M^-4*m^2*A0*kDpp + 1/16*M^-4*m^4*A0 - 1/4*M^-4*A0*qDpp
  *pDk - 1/4*M^-4*A0*qDpp*kDpp + 1/2*M^-4*A0*pDk*kDpp + 1/4*M^-4*A0
  *pDk^2 + 1/4*M^-4*A0*kDpp^2 )
 
 + NOM(q2,M)*NOM(q1,m)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( - 1/8*M^-4*m^4*A0*qDp + 1/16*M^-4*m^6*A0 )
 
 + NOM(q2,M)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( - 1/4*M^-4*m^2*A0*qDp - 1/4*M^-4*m^2*A0*qDk - 1/4*M^-4*m^2*A0
  *qDpp + 1/4*M^-4*m^2*A0*pDk + 1/4*M^-4*m^2*A0*kDpp + 1/8*M^-4*m^4
  *A0 + 1/4*M^-4*A0*qDp*qDk + 1/4*M^-4*A0*qDp*qDpp - 1/4*M^-4*A0*qDp
  *pDk - 1/4*M^-4*A0*qDp*kDpp + 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q2,M)*NOM(q3,m)*D(a,c)*D(b,d)
  * ( 1/4*M^-4*m^2*A0*qDp + 1/4*M^-4*m^2*A0*qDk + 1/4*M^-4*m^2*A0*qDpp
   - 1/4*M^-4*m^2*A0*pDk - 1/4*M^-4*m^2*A0*kDpp - 1/8*M^-4*m^4*A0
  - 1/4*M^-4*A0*qDp*qDk - 1/4*M^-4*A0*qDp*qDpp + 1/4*M^-4*A0*qDp*pDk
   + 1/4*M^-4*A0*qDp*kDpp - 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q2,M)*NOM(q3,m)*D(a,d)*D(b,c)
  * ( - 1/4*M^-4*m^2*A0*qDp - 1/4*M^-4*m^2*A0*qDk - 1/4*M^-4*m^2*A0
  *qDpp + 1/4*M^-4*m^2*A0*pDk + 1/4*M^-4*m^2*A0*kDpp + 1/8*M^-4*m^4
  *A0 + 1/4*M^-4*A0*qDp*qDk + 1/4*M^-4*A0*qDp*qDpp - 1/4*M^-4*A0*qDp
  *pDk - 1/4*M^-4*A0*qDp*kDpp + 1/4*M^-4*A0*qDp^2 )
 
 + NOM(q2,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*A0*qDp + 1/8*M^-4*A0*qDk + 1/8*M^-4*A0*qDpp
  - 1/4*M^-4*A0*pDk - 1/4*M^-4*A0*kDpp )
 
 + NOM(q2,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*A0*qDp - 1/8*M^-4*A0*qDk - 1/8*M^-4*A0*qDpp
  + 1/4*M^-4*A0*pDk + 1/4*M^-4*A0*kDpp )
 
 + NOM(q2,m)*D(a,d)*D(b,c)
  * ( 1/8*M^-4*m^2*A0 + 1/8*M^-4*A0*qDp + 1/8*M^-4*A0*qDk
  + 1/8*M^-4*A0*qDpp - 1/4*M^-4*A0*pDk - 1/4*M^-4*A0*kDpp )
 
 + NOM(q4,M)*D(a,b)*D(c,d)
  * ( - M^-4*N*A2*kDpp + 2*M^-4*N*ExtM*qDp + M^-4*N*ExtM*qDk
  + M^-4*N*ExtM*qDpp - M^-4*N*ExtM*kDpp - 1/2*M^-4*A1*kDpp
  + 3/4*M^-4*A2*pDk + 5/2*M^-4*A2*kDpp - 13/4*M^-4*ExtM*qDp
  - 13/8*M^-4*ExtM*qDk - 13/8*M^-4*ExtM*qDpp - 2*M^-4*ExtM*pDk
  + 5/8*M^-4*ExtM*kDpp - 2*M^-4*ExtM^2*pDk - M^-4*ExtM^2*kDpp )
 
 + NOM(q4,M)*D(a,c)*D(b,d)
  * ( - 2*M^-4*N*A2*kDpp - 3/2*M^-4*A1*pDk - 5/2*M^-4*A1*kDpp
  + 31/8*M^-4*A2*kDpp + 3/8*M^-4*R1Z*Extm*kDpp )
 
 + NOM(q4,M)*D(a,d)*D(b,c)
  * ( - M^-4*N*A2*kDpp - 2*M^-4*N*ExtM*qDp - M^-4*N*ExtM*qDk
  - M^-4*N*ExtM*qDpp + M^-4*N*ExtM*kDpp - 3/2*M^-4*A1*pDk
  - 2*M^-4*A1*kDpp - 3/4*M^-4*A2*pDk + 7/4*M^-4*A2*kDpp + 13/4*M^-4
  *ExtM*qDp + 13/8*M^-4*ExtM*qDk + 13/8*M^-4*ExtM*qDpp + 2*M^-4*ExtM
  *pDk - 5/8*M^-4*ExtM*kDpp + 2*M^-4*ExtM^2*pDk + M^-4*ExtM^2*kDpp )
 
 + NOM(q4,M)*NOM(q,m)*D(a,b)*D(c,d)
  * ( - 1/4*M^-4*m^2*ExtM*qDp - 1/8*M^-4*m^2*ExtM*qDk - 3/8*M^-4*m^2
  *ExtM*qDpp + 1/8*M^-4*m^2*ExtM*kDpp - 1/16*M^-4*m^4*ExtM
  + 1/4*M^-4*ExtM*qDp*qDk - 3/4*M^-4*ExtM*qDp*qDpp + 1/2*M^-4*ExtM
  *qDp*kDpp - 1/4*M^-4*ExtM*qDk*qDpp + 1/4*M^-4*ExtM*qDk^2
  + 1/2*M^-4*ExtM*qDpp*kDpp - 1/2*M^-4*ExtM*qDpp^2 )
 
 + NOM(q4,M)*NOM(q,m)*D(a,d)*D(b,c)
  * ( 1/4*M^-4*m^2*ExtM*qDp + 1/8*M^-4*m^2*ExtM*qDk + 3/8*M^-4*m^2
  *ExtM*qDpp - 1/8*M^-4*m^2*ExtM*kDpp + 1/16*M^-4*m^4*ExtM
  - 1/4*M^-4*ExtM*qDp*qDk + 3/4*M^-4*ExtM*qDp*qDpp - 1/2*M^-4*ExtM
  *qDp*kDpp + 1/4*M^-4*ExtM*qDk*qDpp - 1/4*M^-4*ExtM*qDk^2
  - 1/2*M^-4*ExtM*qDpp*kDpp + 1/2*M^-4*ExtM*qDpp^2 )
 
 + NOM(q4,M)*NOM(q1,m)*D(a,b)*D(c,d)
  * ( 1/8*M^-4*m^2*ExtM*qDp + 1/8*M^-4*m^2*ExtM*qDk + 1/8*M^-4*m^2
  *ExtM*qDpp - 1/8*M^-4*m^2*ExtM*kDpp - 1/4*M^-4*ExtM*qDp*qDk
  + 1/4*M^-4*ExtM*qDp*qDpp + 1/4*M^-4*ExtM*qDk*kDpp - 1/4*M^-4*ExtM
  *qDk^2 - 1/4*M^-4*ExtM*qDpp*kDpp + 1/4*M^-4*ExtM*qDpp^2 )
 
 + NOM(q4,M)*NOM(q1,m)*D(a,c)*D(b,d)
  * ( - 1/4*M^-4*A1*qDp*kDpp - 1/4*M^-4*A1*qDk*kDpp - 1/4*M^-4*A1*qDpp
  *kDpp + 1/4*M^-4*A1*kDpp^2 + 1/4*M^-4*R1Z*Extm*qDp*kDpp
  + 1/4*M^-4*R1Z*Extm*qDk*kDpp + 1/4*M^-4*R1Z*Extm*qDpp*kDpp
  - 1/4*M^-4*R1Z*Extm*kDpp^2 )
 
 + NOM(q4,M)*NOM(q1,m)*D(a,d)*D(b,c)
  * ( - 1/8*M^-4*m^2*ExtM*qDp - 1/8*M^-4*m^2*ExtM*qDk - 1/8*M^-4*m^2
  *ExtM*qDpp + 1/8*M^-4*m^2*ExtM*kDpp + 1/4*M^-4*ExtM*qDp*qDk
  - 1/4*M^-4*ExtM*qDp*qDpp - 1/4*M^-4*ExtM*qDk*kDpp + 1/4*M^-4*ExtM
  *qDk^2 + 1/4*M^-4*ExtM*qDpp*kDpp - 1/4*M^-4*ExtM*qDpp^2 )
 
 + NOM(q4,M)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( - 1/4*M^-4*m^2*ExtM*qDp - 1/8*M^-4*m^2*ExtM*qDk - 1/8*M^-4*m^2
  *ExtM*qDpp + 1/8*M^-4*m^2*ExtM*kDpp - 1/16*M^-4*m^4*ExtM
  + 1/4*M^-4*ExtM*qDpp*kDpp - 1/4*M^-4*ExtM*kDpp^2 )
 
 + NOM(q4,M)*NOM(q3,m)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A2*kDpp - 1/8*M^-4*m^2*R1Z*Extm*kDpp )
 
 + NOM(q4,M)*NOM(q3,m)*D(a,d)*D(b,c)
  * ( 1/4*M^-4*m^2*ExtM*qDp + 1/8*M^-4*m^2*ExtM*qDk + 1/8*M^-4*m^2
  *ExtM*qDpp - 1/8*M^-4*m^2*ExtM*kDpp + 1/16*M^-4*m^4*ExtM
  - 1/4*M^-4*ExtM*qDpp*kDpp + 1/4*M^-4*ExtM*kDpp^2 )
 
 + NOM(q4,m)*D(a,b)*D(c,d)
  * ( 1/4*M^-4*ExtM*qDp + 1/8*M^-4*ExtM*qDk + 1/8*M^-4*ExtM*qDpp
  - 1/8*M^-4*ExtM*kDpp )
 
 + NOM(q4,m)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*A2*kDpp + 3/8*M^-4*R1Z*Extm*kDpp )
 
 + NOM(q4,m)*D(a,d)*D(b,c)
  * ( - 1/4*M^-4*ExtM*qDp - 1/8*M^-4*ExtM*qDk - 1/8*M^-4*ExtM*qDpp
   + 1/8*M^-4*ExtM*kDpp ) + 0.
 

Begin. Time 500 sec.

Terms in output 0
Running time 501 sec			Used	Maximum
Generated terms 0 	Input space 	3600 	100000
Equal terms 0     	Output space 	0 	250000
Cancellations 0   	Nr of expr.  	7 	255
Multiplications 0	String space 	0 	4096
Records written 94 	Merging		0 	0


End run. Time 501 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 19:06:37.  Memory: start 0001B84C, length 476348.


C WW-scattering 12. One loop W-W scattering, part 2. 605 sec.
  Uses output from 11. Produces BoxWW2, containing BoxWW.

C Part 2 of BoxWW.

C The input file contains terms (three-point functions, no Higgs propagators)
  labelled with 'Error'. They add up to zero; see program 15 for proof.
  Here only the inifinite part is kept, and shown to add up to zero as
  no 'Error' label remains.

C Work done:
 - Expand all Higgs propagators: 1/((q+qx)^2+m^2) => 1/(q^2+m^2)
 - The assumption at this point is that that there are no more
   than 2 non-Higgs propagators. If two, take them together in
   the function Two(qa,qb). If qa not q then shift momentum so
   that only Two(q,qx) occurs. The Higgs propagators become shifted
   again. They are expanded again.
 - Expand Two(q,qx) times any non-zero number of Higgs propagators:
   Rationalize 1/(q^2+M^2)* 1/(q^2+m^2), the result contains a NOM
   but no more Two.
   Reduce any non-zero number of qDq together with Two(q,qx).
 - Work out NOM(qx,M) with qx not q, and any number of Higgs propagators.
   Shift qx to q. Expand shifted Higgs propagators.
 - Rationalize again.
 - Reduce all qDq occurences.
 - After this work there are the following types of terms:
   One Two function and no Higgs propagator;
   One NOM(q,M);
   Any number of Higgs propagators.

> P ninput

Begin. Time 3 sec.
> P stats

Terms in output 1310
Running time 6 sec			Used	Maximum
Generated terms 1310 	Input space 	2096 	100000
Equal terms 0     	Output space 	41538 	250000
Cancellations 0   	Nr of expr.  	35 	255
Multiplications 6931	String space 	0 	4096
Records written 4 	Merging		0 	0


Terms out 1310, in 1310.

Terms in output 2987
Running time 21 sec			Used	Maximum
Generated terms 5243 	Input space 	3490 	100000
Equal terms 2114     	Output space 	95906 	250000
Cancellations 142   	Nr of expr.  	50 	255
Multiplications 28917	String space 	0 	4096
Records written 7 	Merging		0 	0


Terms out 2987, in 2987.

Terms in output 3059
Running time 29 sec			Used	Maximum
Generated terms 3074 	Input space 	3360 	100000
Equal terms 12     	Output space 	94712 	250000
Cancellations 3   	Nr of expr.  	49 	255
Multiplications 7855	String space 	0 	4096
Records written 12 	Merging		0 	0


Terms out 3059, in 3059.

Terms in output 2549
Running time 59 sec			Used	Maximum
Generated terms 2674 	Input space 	2450 	100000
Equal terms 114     	Output space 	79402 	250000
Cancellations 11   	Nr of expr.  	34 	255
Multiplications 41357	String space 	8 	4096
Records written 17 	Merging		0 	0


Terms out 2549, in 2549.

Terms in output 2702
Running time 72 sec			Used	Maximum
Generated terms 2880 	Input space 	3878 	100000
Equal terms 156     	Output space 	83984 	250000
Cancellations 22   	Nr of expr.  	56 	255
Multiplications 14070	String space 	8 	4096
Records written 21 	Merging		0 	0


Terms out 2702, in 2702.

Terms in output 2610
Running time 95 sec			Used	Maximum
Generated terms 2767 	Input space 	5362 	100000
Equal terms 126     	Output space 	80724 	250000
Cancellations 31   	Nr of expr.  	86 	255
Multiplications 22387	String space 	8 	4096
Records written 26 	Merging		0 	0


Terms out 2610, in 2610.

Terms in output 2610
Running time 101 sec			Used	Maximum
Generated terms 2610 	Input space 	1724 	100000
Equal terms 0     	Output space 	80474 	250000
Cancellations 0   	Nr of expr.  	34 	255
Multiplications 6379	String space 	8 	4096
Records written 30 	Merging		0 	0


Terms out 2610, in 2610.

Terms in output 3129
Running time 123 sec			Used	Maximum
Generated terms 3129 	Input space 	3124 	100000
Equal terms 0     	Output space 	96710 	250000
Cancellations 0   	Nr of expr.  	42 	255
Multiplications 26708	String space 	8 	4096
Records written 34 	Merging		0 	0


Terms in output 4495
Running time 163 sec			Used	Maximum
Generated terms 8192 	Input space 	3816 	100000
Equal terms 3678     	Output space 	139710 	250000
Cancellations 19   	Nr of expr.  	59 	255
Multiplications 78813	String space 	8 	4096
Records written 39 	Merging		0 	0


Terms in output 7502
Running time 201 sec			Used	Maximum
Generated terms 16384 	Input space 	3816 	100000
Equal terms 8434     	Output space 	239476 	250000
Cancellations 448   	Nr of expr.  	59 	255
Multiplications 169247	String space 	8 	4096
Records written 39 	Merging		0 	0


Terms out 3129, in 3129.

Terms in output 7819
Running time 212 sec			Used	Maximum
Generated terms 17527 	Input space 	3816 	100000
Equal terms 9230     	Output space 	258220 	270412
Cancellations 478   	Nr of expr.  	59 	255
Multiplications 181313	String space 	8 	4096
Records written 55 	Merging		0 	2


Terms out 7819, in 7819.

Terms in output 3275
Running time 362 sec			Used	Maximum
Generated terms 7681 	Input space 	5628 	100000
Equal terms 3788     	Output space 	111432 	250000
Cancellations 618   	Nr of expr.  	89 	255
Multiplications 186793	String space 	8 	4096
Records written 69 	Merging		0 	0


Terms in output 5143
Running time 381 sec			Used	Maximum
Generated terms 8192 	Input space 	1698 	100000
Equal terms 2835     	Output space 	168840 	250000
Cancellations 214   	Nr of expr.  	24 	255
Multiplications 40312	String space 	8 	4096
Records written 75 	Merging		0 	0


Terms out 3275, in 3275.

Terms in output 5996
Running time 383 sec			Used	Maximum
Generated terms 9427 	Input space 	1698 	100000
Equal terms 3212     	Output space 	196144 	250000
Cancellations 219   	Nr of expr.  	24 	255
Multiplications 44076	String space 	8 	4096
Records written 75 	Merging		0 	0


Terms out 5996, in 5996.

Terms in output 5996
Running time 421 sec			Used	Maximum
Generated terms 5996 	Input space 	2392 	100000
Equal terms 0     	Output space 	189430 	250000
Cancellations 0   	Nr of expr.  	41 	255
Multiplications 62904	String space 	8 	4096
Records written 85 	Merging		0 	0

 
BoxWW(a,al,k,b,be,p,c,ga,pp,d,de,kp) = 
 + D(a,b)*D(c,d)*Nom
  * ( - 2*N*M^-4*A0*kDpp - 2*N*M^-4*A0*pDpp + N*M^-4*ExtM*kDpp
  + 2*N*M^-4*ExtM*pDpp + 2*N*M^-4*ExtM^2*kDp + N*M^-4*ExtM^2*kDpp
  - 1/8*M^-4*m^2*A0 - 27*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp*qDpp^2
  - 27*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp^2*qDpp - 7*M^-4*m^2*A0*
 [m2-M2]^-4*qDk*qDp^3 - 11*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDpp^3
  - 24*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDp*qDpp - 12*M^-4*m^2*A0*
 [m2-M2]^-4*qDk^2*qDp^2 - 12*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDpp^2
  - 8*M^-4*m^2*A0*[m2-M2]^-4*qDk^3*qDp - 10*M^-4*m^2*A0*[m2-M2]^-4
  *qDk^3*qDpp - 4*M^-4*m^2*A0*[m2-M2]^-4*qDk^4 - 11*M^-4*m^2*A0*
 [m2-M2]^-4*qDp*qDpp^3 - 15*M^-4*m^2*A0*[m2-M2]^-4*qDp^2*qDpp^2
  - 7*M^-4*m^2*A0*[m2-M2]^-4*qDp^3*qDpp - 5*M^-4*m^2*A0*[m2-M2]^-4
  *qDpp^4 - 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*qDpp + 8*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp*kDp + 8*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*kDpp
  + 9*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*pDpp - 7/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp^2 + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDp
  + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDpp + 8*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDpp*pDpp - 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp^2
  - 3*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDp - 3*M^-4*m^2*A0*[m2-M2]^-3*qDk^2
  *qDpp + 4*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*kDp + 9/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*kDpp + 4*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*pDpp
  - M^-4*m^2*A0*[m2-M2]^-3*qDk^3 + 10*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp
  *kDp + 10*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*kDpp + 10*M^-4*m^2*A0*
 [m2-M2]^-3*qDp*qDpp*pDpp - 4*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp^2
  - 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*qDpp + 9/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDp^2*kDp + 5*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*kDpp
  + 4*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*pDpp - M^-4*m^2*A0*[m2-M2]^-3*qDp^3
   + 4*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*kDp + 9/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDpp^2*kDpp + 9/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*pDpp
  - 3/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^3 - 3/4*M^-4*m^2*A0*[m2-M2]^-2
  *qDk*qDp - 9/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp + 9/4*M^-4*m^2*A0
  *[m2-M2]^-2*qDk*kDp + 2*M^-4*m^2*A0*[m2-M2]^-2*qDk*kDpp
  + 2*M^-4*m^2*A0*[m2-M2]^-2*qDk*pDpp - M^-4*m^2*A0*[m2-M2]^-2*qDk^2
   - 3/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp + 5/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDp*kDp + 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDp*kDpp
  + 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDp*pDpp + 15/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDpp*kDp + 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp*kDpp
  + 11/4*M^-4*m^2*A0*[m2-M2]^-2*qDpp*pDpp - 5/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDpp^2 - 13/4*M^-4*m^2*A0*[m2-M2]^-2*kDp*kDpp
  - 7/2*M^-4*m^2*A0*[m2-M2]^-2*kDp*pDpp - 7/4*M^-4*m^2*A0*
 [m2-M2]^-2*kDp^2 - 13/4*M^-4*m^2*A0*[m2-M2]^-2*kDpp*pDpp
  - 3/2*M^-4*m^2*A0*[m2-M2]^-2*kDpp^2 - 3/2*M^-4*m^2*A0*[m2-M2]^-2
  *pDpp^2 - 3/8*M^-4*m^2*A0*[m2-M2]^-1*qDk - 1/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDp - 3/8*M^-4*m^2*A0*[m2-M2]^-1*qDpp + 5/8*M^-4*m^2*A0
  *[m2-M2]^-1*kDp + M^-4*m^2*A0*[m2-M2]^-1*kDpp + 1/2*M^-4*m^2*A0*
 [m2-M2]^-1*pDpp - 1/8*M^-4*m^2*ExtM - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk
  *qDp*qDpp^2 - 12*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDp^2*qDpp
  - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDp^3 + 8*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk*qDpp^3 - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^2*qDp*qDpp
   - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^2*qDp^2 + 6*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk^2*qDpp^2 - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^3*qDp
  - 2*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^4 + 2*M^-4*m^2*ExtM*[m2-M2]^-4*qDp
  *qDpp^3 - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDp^2*qDpp^2 - 2*M^-4*m^2*ExtM
  *[m2-M2]^-4*qDp^3*qDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-4*qDp^4
  + 4*M^-4*m^2*ExtM*[m2-M2]^-4*qDpp^4 + M^-4*m^2*ExtM*[m2-M2]^-3*qDk
  *qDp*qDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp*kDp + M^-4*m^2*ExtM
  *[m2-M2]^-3*qDk*qDp*kDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp*pDpp
   + 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp^2 + M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk*qDpp*kDp - 4*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp*kDpp
   + M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp*pDpp - 2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk*qDpp^2 + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDp
  - M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDpp + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^2*kDp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*kDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*pDpp + 3*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp*qDpp*kDp + M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp*kDpp
  + 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp*pDpp + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp*qDpp^2 + 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*qDpp
  + 2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*kDp + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp^2*kDpp + M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*pDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^3 + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDpp^2*kDp - 7/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^2*kDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^2*pDpp - M^-4*m^2*ExtM*
 [m2-M2]^-3*qDpp^3 - 3/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDpp - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*kDp + 1/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*kDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2 + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp*qDpp - 1/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*kDp
  - 3/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*pDpp - 3/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp^2 + M^-4*m^2*ExtM*[m2-M2]^-2*qDpp*kDp + 5/4*M^-4*m^2
  *ExtM*[m2-M2]^-2*qDpp*kDpp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp*pDpp
   + M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^2 - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*kDp*pDpp - 1/4*M^-4*m^2*ExtM*[m2-M2]^-2*kDp^2
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*kDpp^2 - 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*pDpp^2 - 1/8*M^-4*m^2*ExtM*[m2-M2]^-1*qDp - 1/4*M^-4*m^2
  *ExtM*[m2-M2]^-1*qDpp + 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*kDp
  - 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*kDpp - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*pDpp + 7*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp*qDpp^2
  + 3*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp^2*qDpp - 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDk*qDp^3 + 9*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDpp^3
  + 8*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDp*qDpp + 12*M^-4*m^4*A0*
 [m2-M2]^-5*qDk^2*qDpp^2 + 2*M^-4*m^4*A0*[m2-M2]^-5*qDk^3*qDp
  + 10*M^-4*m^4*A0*[m2-M2]^-5*qDk^3*qDpp + 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDk^4 - M^-4*m^4*A0*[m2-M2]^-5*qDp*qDpp^3 - 3*M^-4*m^4
  *A0*[m2-M2]^-5*qDp^2*qDpp^2 - 5*M^-4*m^4*A0*[m2-M2]^-5*qDp^3*qDpp
   - 4*M^-4*m^4*A0*[m2-M2]^-5*qDp^4 + 2*M^-4*m^4*A0*[m2-M2]^-5*qDpp^4
   + 4*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*qDpp - 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp*kDp - 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*kDpp
  - 2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*pDpp + 2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp^2 - 4*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDp
  - 6*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDpp - 5/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDpp*pDpp + 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp^2
  + 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDp + 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*qDpp - 5/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDp
  - 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDpp - M^-4*m^4*A0*[m2-M2]^-4
  *qDk^2*pDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^3 - 7/2*M^-4*m^4*A0
  *[m2-M2]^-4*qDp*qDpp*kDp - 5/2*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*kDpp
   - M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*pDpp + 5/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDp*qDpp^2 + 2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*qDpp
  - M^-4*m^4*A0*[m2-M2]^-4*qDp^2*kDp - 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2
  *kDpp + M^-4*m^4*A0*[m2-M2]^-4*qDp^3 - 2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2
  *kDp - 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*kDpp - M^-4*m^4*A0*
 [m2-M2]^-4*qDpp^2*pDpp + M^-4*m^4*A0*[m2-M2]^-4*qDpp^3 - 1/4*M^-4
  *m^4*A0*[m2-M2]^-3*qDk*qDp + 7/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp
   - 7/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*kDp - 5/4*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*kDpp + 3/4*M^-4*m^4*A0*[m2-M2]^-3*qDk^2 - 3/4*M^-4
  *m^4*A0*[m2-M2]^-3*qDp*qDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDp*kDp
   + 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDp*kDpp - M^-4*m^4*A0*[m2-M2]^-3*qDp^2
   - 2*M^-4*m^4*A0*[m2-M2]^-3*qDpp*kDp - 5/4*M^-4*m^4*A0*
 [m2-M2]^-3*qDpp*kDpp - 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDpp*pDpp
  + 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2 + M^-4*m^4*A0*[m2-M2]^-3*kDp
  *kDpp + M^-4*m^4*A0*[m2-M2]^-3*kDp^2 + 1/2*M^-4*m^4*A0*
 [m2-M2]^-3*kDpp^2 + 1/4*M^-4*m^4*A0*[m2-M2]^-2*qDk + 1/4*M^-4*m^4
  *A0*[m2-M2]^-2*qDp + 1/4*M^-4*m^4*A0*[m2-M2]^-2*qDpp - 1/4*M^-4*m^4
  *A0*[m2-M2]^-2*kDp - 1/2*M^-4*m^4*A0*[m2-M2]^-2*kDpp + 10*M^-4*m^4
  *ExtM*[m2-M2]^-5*qDk*qDp*qDpp^2 + 12*M^-4*m^4*ExtM*[m2-M2]^-5*qDk
  *qDp^2*qDpp + 8*M^-4*m^4*ExtM*[m2-M2]^-5*qDk*qDp^3 - 2*M^-4*m^4*ExtM
  *[m2-M2]^-5*qDk*qDpp^3 + 14*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^2*qDp*qDpp
   + 12*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^2*qDp^2 + 10*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDk^3*qDp + 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^3*qDpp
  + 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^4 - 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDp
  *qDpp^3 + 3*M^-4*m^4*ExtM*[m2-M2]^-5*qDp^4 - 2*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDpp^4 - 4*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*qDpp
  - 6*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*kDp - 5/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDp*kDpp - 6*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*pDpp
   - 3*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp^2 - 4*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDpp*kDp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp*kDpp
   - 4*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp*pDpp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDpp^2 - 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*qDp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*qDpp - 2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk^2*kDp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*kDpp
  - 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*pDpp - 5/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDp*qDpp*kDpp + M^-4*m^4*ExtM*[m2-M2]^-4*qDp*qDpp^2
  - 3/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDp^2*kDpp - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDp^3 + M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^2*kDp + 3/2*M^-4
  *m^4*ExtM*[m2-M2]^-4*qDpp^2*kDpp + M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^2
  *pDpp + M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^3 + 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDp + 3/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*kDp
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*kDpp + 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*pDpp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDp*qDpp + M^-4*m^4*ExtM*
 [m2-M2]^-3*qDp*kDpp + 3/4*M^-4*m^4*ExtM*[m2-M2]^-3*qDp^2
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp*kDp - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDpp*kDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp*pDpp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^2 + M^-4*m^4*ExtM*[m2-M2]^-3
  *kDp*kDpp + M^-4*m^4*ExtM*[m2-M2]^-3*kDpp*pDpp + 1/4*M^-4*m^4*ExtM
  *[m2-M2]^-3*kDpp^2 + 1/8*M^-4*m^4*ExtM*[m2-M2]^-2*qDp + 1/4*M^-4
  *m^4*ExtM*[m2-M2]^-2*qDpp + 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*kDp
  + 1/8*M^-4*m^4*ExtM*[m2-M2]^-2*kDpp + 1/4*M^-4*m^4*ExtM*
 [m2-M2]^-2*pDpp + 1/8*M^-4*m^4*ExtM*[m2-M2]^-1 + 35*M^-4*m^6*A0*
 [m2-M2]^-6*qDk*qDp*qDpp^2 + 30*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDp^2*qDpp
   + 8*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDp^3 + 15*M^-4*m^6*A0*
 [m2-M2]^-6*qDk*qDpp^3 + 35*M^-4*m^6*A0*[m2-M2]^-6*qDk^2*qDp*qDpp
  + 17*M^-4*m^6*A0*[m2-M2]^-6*qDk^2*qDp^2 + 20*M^-4*m^6*A0*
 [m2-M2]^-6*qDk^2*qDpp^2 + 13*M^-4*m^6*A0*[m2-M2]^-6*qDk^3*qDp
  + 15*M^-4*m^6*A0*[m2-M2]^-6*qDk^3*qDpp + 7*M^-4*m^6*A0*
 [m2-M2]^-6*qDk^4 + 13*M^-4*m^6*A0*[m2-M2]^-6*qDp*qDpp^3 + 17*M^-4
  *m^6*A0*[m2-M2]^-6*qDp^2*qDpp^2 + 8*M^-4*m^6*A0*[m2-M2]^-6*qDp^3
  *qDpp + 4*M^-4*m^6*A0*[m2-M2]^-6*qDp^4 + 7*M^-4*m^6*A0*
 [m2-M2]^-6*qDpp^4 + 8*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp*qDpp
  - 9*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp*kDp - 9*M^-4*m^6*A0*
 [m2-M2]^-5*qDk*qDp*kDpp - 7*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp*pDpp
  + 4*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp^2 - 10*M^-4*m^6*A0*[m2-M2]^-5
  *qDk*qDpp*kDp - 10*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDpp*kDpp
  - 8*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDpp*pDpp + 5*M^-4*m^6*A0*
 [m2-M2]^-5*qDk*qDpp^2 + 4*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDp
  + 5*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDpp - 15/2*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^2*kDp - 15/2*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*kDpp
  - 9/2*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*pDpp + 3*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^3 - 8*M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp*kDp
  - 8*M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp*kDpp - 8*M^-4*m^6*A0*
 [m2-M2]^-5*qDp*qDpp*pDpp + 4*M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp^2
  + 4*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*qDpp - 7/2*M^-4*m^6*A0*
 [m2-M2]^-5*qDp^2*kDp - 7/2*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*kDpp
  - 3/2*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*pDpp - 5*M^-4*m^6*A0*
 [m2-M2]^-5*qDpp^2*kDp - 5*M^-4*m^6*A0*[m2-M2]^-5*qDpp^2*kDpp
  - 4*M^-4*m^6*A0*[m2-M2]^-5*qDpp^2*pDpp + 3*M^-4*m^6*A0*
 [m2-M2]^-5*qDpp^3 + M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp + 3/2*M^-4*m^6
  *A0*[m2-M2]^-4*qDk*qDpp - 2*M^-4*m^6*A0*[m2-M2]^-4*qDk*kDp
  - 2*M^-4*m^6*A0*[m2-M2]^-4*qDk*kDpp - 5/4*M^-4*m^6*A0*[m2-M2]^-4
  *qDk*pDpp + 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDk^2 + M^-4*m^6*A0*
 [m2-M2]^-4*qDp*qDpp - 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDp*kDp
  - 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDp*kDpp - 3/2*M^-4*m^6*A0*
 [m2-M2]^-4*qDp*pDpp + M^-4*m^6*A0*[m2-M2]^-4*qDp^2 - 3/2*M^-4*m^6
  *A0*[m2-M2]^-4*qDpp*kDp - 3/2*M^-4*m^6*A0*[m2-M2]^-4*qDpp*kDpp
  - M^-4*m^6*A0*[m2-M2]^-4*qDpp*pDpp + 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDpp^2
   + 2*M^-4*m^6*A0*[m2-M2]^-4*kDp*kDpp + 5/4*M^-4*m^6*A0*
 [m2-M2]^-4*kDp*pDpp + M^-4*m^6*A0*[m2-M2]^-4*kDp^2 + 5/4*M^-4*m^6
  *A0*[m2-M2]^-4*kDpp*pDpp + M^-4*m^6*A0*[m2-M2]^-4*kDpp^2
  + 3/4*M^-4*m^6*A0*[m2-M2]^-4*pDpp^2 + 1/2*M^-4*m^6*A0*[m2-M2]^-3
  *qDk + 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDpp - 3/8*M^-4*m^6*A0*
 [m2-M2]^-3*kDp - 3/8*M^-4*m^6*A0*[m2-M2]^-3*kDpp - 1/8*M^-4*m^6*A0
  *[m2-M2]^-3*pDpp + 1/4*M^-4*m^6*A0*[m2-M2]^-2 - 25*M^-4*m^8*A0*
 [m2-M2]^-7*qDk*qDp*qDpp^2 - 20*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDp^2*qDpp
   - 4*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDp^3 - 15*M^-4*m^8*A0*
 [m2-M2]^-7*qDk*qDpp^3 - 25*M^-4*m^8*A0*[m2-M2]^-7*qDk^2*qDp*qDpp
  - 11*M^-4*m^8*A0*[m2-M2]^-7*qDk^2*qDp^2 - 20*M^-4*m^8*A0*
 [m2-M2]^-7*qDk^2*qDpp^2 - 9*M^-4*m^8*A0*[m2-M2]^-7*qDk^3*qDp
  - 15*M^-4*m^8*A0*[m2-M2]^-7*qDk^3*qDpp - 6*M^-4*m^8*A0*
 [m2-M2]^-7*qDk^4 - 9*M^-4*m^8*A0*[m2-M2]^-7*qDp*qDpp^3 - 11*M^-4*m^8
  *A0*[m2-M2]^-7*qDp^2*qDpp^2 - 4*M^-4*m^8*A0*[m2-M2]^-7*qDp^3*qDpp
   - 2*M^-4*m^8*A0*[m2-M2]^-7*qDp^4 - 6*M^-4*m^8*A0*[m2-M2]^-7*qDpp^4
   - 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp*qDpp + 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDp*kDp + 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp*kDpp
  + 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp*pDpp - 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDp^2 + 10*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp*kDp
  + 10*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp*kDpp + 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDpp*pDpp - 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp^2
  - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDp - 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk^2*qDpp + 15/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*kDp
  + 15/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*kDpp + 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDk^2*pDpp - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^3
  + 5*M^-4*m^8*A0*[m2-M2]^-6*qDp*qDpp*kDp + 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDp*qDpp*kDpp + 5*M^-4*m^8*A0*[m2-M2]^-6*qDp*qDpp*pDpp
   - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp*qDpp^2 - 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDp^2*qDpp + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp^2*kDp
  + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp^2*kDpp + 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDpp^2*kDp + 5*M^-4*m^8*A0*[m2-M2]^-6*qDpp^2*kDpp
  + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDpp^2*pDpp - 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDpp^3 - 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp - 3/2*M^-4
  *m^8*A0*[m2-M2]^-5*qDk*qDpp + 2*M^-4*m^8*A0*[m2-M2]^-5*qDk*kDp
  + 2*M^-4*m^8*A0*[m2-M2]^-5*qDk*kDpp + 1/2*M^-4*m^8*A0*[m2-M2]^-5
  *qDk*pDpp - M^-4*m^8*A0*[m2-M2]^-5*qDk^2 - 1/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDp*qDpp + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp*kDp
  + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp*kDpp + M^-4*m^8*A0*[m2-M2]^-5*qDp
  *pDpp - 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp^2 + 3/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDpp*kDp + 3/2*M^-4*m^8*A0*[m2-M2]^-5*qDpp*kDpp
  + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDpp*pDpp - M^-4*m^8*A0*[m2-M2]^-5*qDpp^2
   - 2*M^-4*m^8*A0*[m2-M2]^-5*kDp*kDpp - 1/2*M^-4*m^8*A0*
 [m2-M2]^-5*kDp*pDpp - M^-4*m^8*A0*[m2-M2]^-5*kDp^2 - 1/2*M^-4*m^8
  *A0*[m2-M2]^-5*kDpp*pDpp - M^-4*m^8*A0*[m2-M2]^-5*kDpp^2
  - 1/2*M^-4*m^8*A0*[m2-M2]^-5*pDpp^2 - 3/8*M^-4*m^8*A0*[m2-M2]^-4
  *qDk - 3/8*M^-4*m^8*A0*[m2-M2]^-4*qDpp + 3/8*M^-4*m^8*A0*
 [m2-M2]^-4*kDp + 3/8*M^-4*m^8*A0*[m2-M2]^-4*kDpp - 1/8*M^-4*m^8*A0
  *[m2-M2]^-3 + 10*M^-4*A0*[m2-M2]^-3*qDk*qDp*qDpp^2 + 14*M^-4*A0*
 [m2-M2]^-3*qDk*qDp^2*qDpp + 6*M^-4*A0*[m2-M2]^-3*qDk*qDp^3
  + 2*M^-4*A0*[m2-M2]^-3*qDk*qDpp^3 + 6*M^-4*A0*[m2-M2]^-3*qDk^2*qDp
  *qDpp + 6*M^-4*A0*[m2-M2]^-3*qDk^2*qDp^2 + 2*M^-4*A0*[m2-M2]^-3*qDk^3
  *qDp + 8*M^-4*A0*[m2-M2]^-3*qDp*qDpp^3 + 12*M^-4*A0*[m2-M2]^-3*qDp^2
  *qDpp^2 + 8*M^-4*A0*[m2-M2]^-3*qDp^3*qDpp + 2*M^-4*A0*[m2-M2]^-3
  *qDp^4 + 2*M^-4*A0*[m2-M2]^-3*qDpp^4 - 5/2*M^-4*A0*[m2-M2]^-2*qDk
  *qDp*kDp - 3/2*M^-4*A0*[m2-M2]^-2*qDk*qDp*kDpp - 3*M^-4*A0*
 [m2-M2]^-2*qDk*qDp*pDpp - 1/2*M^-4*A0*[m2-M2]^-2*qDk*qDpp*kDp
  + 1/2*M^-4*A0*[m2-M2]^-2*qDk*qDpp*kDpp - 2*M^-4*A0*[m2-M2]^-2*qDk
  *qDpp*pDpp - 1/2*M^-4*A0*[m2-M2]^-2*qDk^2*kDp - 1/2*M^-4*A0*
 [m2-M2]^-2*qDk^2*pDpp - 5/2*M^-4*A0*[m2-M2]^-2*qDp*qDpp*kDp
  - 3/2*M^-4*A0*[m2-M2]^-2*qDp*qDpp*kDpp - 5*M^-4*A0*[m2-M2]^-2*qDp
  *qDpp*pDpp - 2*M^-4*A0*[m2-M2]^-2*qDp^2*kDp - 3/2*M^-4*A0*
 [m2-M2]^-2*qDp^2*kDpp - 5/2*M^-4*A0*[m2-M2]^-2*qDp^2*pDpp
  - 1/2*M^-4*A0*[m2-M2]^-2*qDpp^2*kDp - 5/2*M^-4*A0*[m2-M2]^-2*qDpp^2
  *pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDk*qDp + 1/2*M^-4*A0*[m2-M2]^-1*qDk
  *qDpp - 1/4*M^-4*A0*[m2-M2]^-1*qDk*kDp - 1/2*M^-4*A0*[m2-M2]^-1*qDk
  *kDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDk*pDpp + M^-4*A0*[m2-M2]^-1*qDp
  *qDpp - 3/4*M^-4*A0*[m2-M2]^-1*qDp*kDp - M^-4*A0*[m2-M2]^-1*qDp*kDpp
   - M^-4*A0*[m2-M2]^-1*qDp*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDp^2
  - 3/2*M^-4*A0*[m2-M2]^-1*qDpp*kDp - 7/4*M^-4*A0*[m2-M2]^-1*qDpp*kDpp
   - M^-4*A0*[m2-M2]^-1*qDpp*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDpp^2
  + 5/2*M^-4*A0*[m2-M2]^-1*kDp*kDpp + 2*M^-4*A0*[m2-M2]^-1*kDp*pDpp
   + 5/4*M^-4*A0*[m2-M2]^-1*kDp^2 + 2*M^-4*A0*[m2-M2]^-1*kDpp*pDpp
   + 5/4*M^-4*A0*[m2-M2]^-1*kDpp^2 + M^-4*A0*[m2-M2]^-1*pDpp^2
  + 29/8*M^-4*A0*kDpp + 29/8*M^-4*A0*pDpp - 3/4*M^-4*T3*ExtM^2*kDp
   - 3/8*M^-4*T3*ExtM^2*kDpp - 4*M^-4*ExtM*[m2-M2]^-3*qDk*qDp*qDpp^2
   - 2*M^-4*ExtM*[m2-M2]^-3*qDk*qDp^3 - 6*M^-4*ExtM*[m2-M2]^-3*qDk
  *qDpp^3 - 8*M^-4*ExtM*[m2-M2]^-3*qDk^2*qDp*qDpp - 6*M^-4*ExtM*
 [m2-M2]^-3*qDk^2*qDp^2 - 6*M^-4*ExtM*[m2-M2]^-3*qDk^2*qDpp^2
  - 4*M^-4*ExtM*[m2-M2]^-3*qDk^3*qDp - 2*M^-4*ExtM*[m2-M2]^-3*qDk^3
  *qDpp + 6*M^-4*ExtM*[m2-M2]^-3*qDp^2*qDpp^2 + 2*M^-4*ExtM*
 [m2-M2]^-3*qDp^3*qDpp - 2*M^-4*ExtM*[m2-M2]^-3*qDpp^4 + 3*M^-4*ExtM
  *[m2-M2]^-2*qDk*qDp*kDp + 2*M^-4*ExtM*[m2-M2]^-2*qDk*qDp*kDpp
  + M^-4*ExtM*[m2-M2]^-2*qDk*qDp*pDpp + 2*M^-4*ExtM*[m2-M2]^-2*qDk
  *qDpp*kDp + 3*M^-4*ExtM*[m2-M2]^-2*qDk*qDpp*kDpp + 2*M^-4*ExtM*
 [m2-M2]^-2*qDk^2*kDp + 1/2*M^-4*ExtM*[m2-M2]^-2*qDk^2*kDpp
  + M^-4*ExtM*[m2-M2]^-2*qDk^2*pDpp - M^-4*ExtM*[m2-M2]^-2*qDp*qDpp
  *kDp + 2*M^-4*ExtM*[m2-M2]^-2*qDp*qDpp*kDpp - 3*M^-4*ExtM*
 [m2-M2]^-2*qDp*qDpp*pDpp + 1/2*M^-4*ExtM*[m2-M2]^-2*qDp^2*kDp
  - 1/2*M^-4*ExtM*[m2-M2]^-2*qDp^2*pDpp + 5/2*M^-4*ExtM*[m2-M2]^-2
  *qDpp^2*kDpp - M^-4*ExtM*[m2-M2]^-2*qDpp^2*pDpp - 1/2*M^-4*ExtM*
 [m2-M2]^-1*qDk*qDpp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDk*kDp + 1/4*M^-4
  *ExtM*[m2-M2]^-1*qDk*kDpp - M^-4*ExtM*[m2-M2]^-1*qDp*qDpp
  + 1/4*M^-4*ExtM*[m2-M2]^-1*qDp*kDp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDp
  *kDpp - 1/4*M^-4*ExtM*[m2-M2]^-1*qDp*pDpp - 1/2*M^-4*ExtM*
 [m2-M2]^-1*qDpp*kDp + 1/4*M^-4*ExtM*[m2-M2]^-1*qDpp*kDpp
  - M^-4*ExtM*[m2-M2]^-1*qDpp*pDpp - 1/2*M^-4*ExtM*[m2-M2]^-1*qDpp^2
   - 1/4*M^-4*ExtM*[m2-M2]^-1*kDp*kDpp - 1/4*M^-4*ExtM*[m2-M2]^-1*kDp^2
   + 1/4*M^-4*ExtM*[m2-M2]^-1*kDpp*pDpp + 1/4*M^-4*ExtM*[m2-M2]^-1
  *pDpp^2 - 13/8*M^-4*ExtM*kDpp - 13/4*M^-4*ExtM*pDpp + 2*M^-4*ExtM^2
  *[m2-M2]^-3*qDk*qDp*qDpp^2 + 2*M^-4*ExtM^2*[m2-M2]^-3*qDk*qDpp^3
   - 2*M^-4*ExtM^2*[m2-M2]^-3*qDk^2*qDp*qDpp - 2*M^-4*ExtM^2*
 [m2-M2]^-3*qDk^3*qDp - 2*M^-4*ExtM^2*[m2-M2]^-3*qDk^3*qDpp
  - M^-4*ExtM^2*[m2-M2]^-3*qDk^4 + 2*M^-4*ExtM^2*[m2-M2]^-3*qDp*qDpp^3
   + M^-4*ExtM^2*[m2-M2]^-3*qDpp^4 + M^-4*ExtM^2*[m2-M2]^-2*qDk*qDp
  *kDpp + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk*qDpp^2 - M^-4*ExtM^2*
 [m2-M2]^-2*qDk^2*qDp - 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk^2*qDpp
  + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk^2*kDpp - 1/2*M^-4*ExtM^2*
 [m2-M2]^-2*qDk^3 - M^-4*ExtM^2*[m2-M2]^-2*qDp*qDpp*kDpp + M^-4*ExtM^2
  *[m2-M2]^-2*qDp*qDpp^2 - 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDpp^2*kDpp
  + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDpp^3 - 1/2*M^-4*ExtM^2*[m2-M2]^-1
  *qDk*qDp - 1/4*M^-4*ExtM^2*[m2-M2]^-1*qDk^2 + 1/2*M^-4*ExtM^2*
 [m2-M2]^-1*qDp*qDpp + 1/4*M^-4*ExtM^2*[m2-M2]^-1*qDpp^2 - 13/4*M^-4
  *ExtM^2*kDp - 13/8*M^-4*ExtM^2*kDpp )
 
 + D(a,b)*D(c,d)*Nohm
  * ( 1/8*M^-4*m^2*A0 + 27*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp*qDpp^2
  + 27*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp^2*qDpp + 7*M^-4*m^2*A0*
 [m2-M2]^-4*qDk*qDp^3 + 11*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDpp^3
  + 24*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDp*qDpp + 12*M^-4*m^2*A0*
 [m2-M2]^-4*qDk^2*qDp^2 + 12*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDpp^2
  + 8*M^-4*m^2*A0*[m2-M2]^-4*qDk^3*qDp + 10*M^-4*m^2*A0*[m2-M2]^-4
  *qDk^3*qDpp + 4*M^-4*m^2*A0*[m2-M2]^-4*qDk^4 + 11*M^-4*m^2*A0*
 [m2-M2]^-4*qDp*qDpp^3 + 15*M^-4*m^2*A0*[m2-M2]^-4*qDp^2*qDpp^2
  + 7*M^-4*m^2*A0*[m2-M2]^-4*qDp^3*qDpp + 5*M^-4*m^2*A0*[m2-M2]^-4
  *qDpp^4 + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*qDpp - 8*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp*kDp - 8*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*kDpp
  - 9*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*pDpp + 7/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp^2 - 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDp
  - 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDpp - 8*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDpp*pDpp + 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp^2
  + 3*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDp + 3*M^-4*m^2*A0*[m2-M2]^-3*qDk^2
  *qDpp - 4*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*kDp - 9/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*kDpp - 4*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*pDpp
  + M^-4*m^2*A0*[m2-M2]^-3*qDk^3 - 10*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp
  *kDp - 10*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*kDpp - 10*M^-4*m^2*A0*
 [m2-M2]^-3*qDp*qDpp*pDpp + 4*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp^2
  + 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*qDpp - 9/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDp^2*kDp - 5*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*kDpp
  - 4*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*pDpp + M^-4*m^2*A0*[m2-M2]^-3*qDp^3
   - 4*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*kDp - 9/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDpp^2*kDpp - 9/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*pDpp
  + 3/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^3 + 3/4*M^-4*m^2*A0*[m2-M2]^-2
  *qDk*qDp + 9/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp - 9/4*M^-4*m^2*A0
  *[m2-M2]^-2*qDk*kDp - 2*M^-4*m^2*A0*[m2-M2]^-2*qDk*kDpp
  - 2*M^-4*m^2*A0*[m2-M2]^-2*qDk*pDpp + M^-4*m^2*A0*[m2-M2]^-2*qDk^2
   + 3/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp - 5/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDp*kDp - 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDp*kDpp
  - 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDp*pDpp - 15/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDpp*kDp - 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp*kDpp
  - 11/4*M^-4*m^2*A0*[m2-M2]^-2*qDpp*pDpp + 5/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDpp^2 + 13/4*M^-4*m^2*A0*[m2-M2]^-2*kDp*kDpp
  + 7/2*M^-4*m^2*A0*[m2-M2]^-2*kDp*pDpp + 7/4*M^-4*m^2*A0*
 [m2-M2]^-2*kDp^2 + 13/4*M^-4*m^2*A0*[m2-M2]^-2*kDpp*pDpp
  + 3/2*M^-4*m^2*A0*[m2-M2]^-2*kDpp^2 + 3/2*M^-4*m^2*A0*[m2-M2]^-2
  *pDpp^2 + 3/8*M^-4*m^2*A0*[m2-M2]^-1*qDk + 1/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDp + 3/8*M^-4*m^2*A0*[m2-M2]^-1*qDpp - 5/8*M^-4*m^2*A0
  *[m2-M2]^-1*kDp - M^-4*m^2*A0*[m2-M2]^-1*kDpp - 1/2*M^-4*m^2*A0*
 [m2-M2]^-1*pDpp + 1/8*M^-4*m^2*ExtM + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk
  *qDp*qDpp^2 + 12*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDp^2*qDpp
  + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDp^3 - 8*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk*qDpp^3 + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^2*qDp*qDpp
   + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^2*qDp^2 - 6*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk^2*qDpp^2 + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^3*qDp
  + 2*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^4 - 2*M^-4*m^2*ExtM*[m2-M2]^-4*qDp
  *qDpp^3 + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDp^2*qDpp^2 + 2*M^-4*m^2*ExtM
  *[m2-M2]^-4*qDp^3*qDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-4*qDp^4
  - 4*M^-4*m^2*ExtM*[m2-M2]^-4*qDpp^4 - M^-4*m^2*ExtM*[m2-M2]^-3*qDk
  *qDp*qDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp*kDp - M^-4*m^2*ExtM
  *[m2-M2]^-3*qDk*qDp*kDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp*pDpp
   - 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp^2 - M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk*qDpp*kDp + 4*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp*kDpp
   - M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp*pDpp + 2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk*qDpp^2 - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDp
  + M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDpp - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^2*kDp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*kDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*pDpp - 3*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp*qDpp*kDp - M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp*kDpp
  - 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp*pDpp - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp*qDpp^2 - 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*qDpp
  - 2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*kDp - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp^2*kDpp - M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*pDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^3 - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDpp^2*kDp + 7/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^2*kDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^2*pDpp + M^-4*m^2*ExtM*
 [m2-M2]^-3*qDpp^3 + 3/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDpp + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*kDp - 1/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*kDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2 - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp*qDpp + 1/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*kDp
  + 3/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*pDpp + 3/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp^2 - M^-4*m^2*ExtM*[m2-M2]^-2*qDpp*kDp - 5/4*M^-4*m^2
  *ExtM*[m2-M2]^-2*qDpp*kDpp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp*pDpp
   - M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^2 + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*kDp*pDpp + 1/4*M^-4*m^2*ExtM*[m2-M2]^-2*kDp^2
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*kDpp^2 + 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*pDpp^2 + 1/8*M^-4*m^2*ExtM*[m2-M2]^-1*qDp + 1/4*M^-4*m^2
  *ExtM*[m2-M2]^-1*qDpp - 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*kDp
  + 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*kDpp + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*pDpp - 7*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp*qDpp^2
  - 3*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp^2*qDpp + 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDk*qDp^3 - 9*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDpp^3
  - 8*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDp*qDpp - 12*M^-4*m^4*A0*
 [m2-M2]^-5*qDk^2*qDpp^2 - 2*M^-4*m^4*A0*[m2-M2]^-5*qDk^3*qDp
  - 10*M^-4*m^4*A0*[m2-M2]^-5*qDk^3*qDpp - 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDk^4 + M^-4*m^4*A0*[m2-M2]^-5*qDp*qDpp^3 + 3*M^-4*m^4
  *A0*[m2-M2]^-5*qDp^2*qDpp^2 + 5*M^-4*m^4*A0*[m2-M2]^-5*qDp^3*qDpp
   + 4*M^-4*m^4*A0*[m2-M2]^-5*qDp^4 - 2*M^-4*m^4*A0*[m2-M2]^-5*qDpp^4
   - 4*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*qDpp + 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp*kDp + 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*kDpp
  + 2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*pDpp - 2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp^2 + 4*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDp
  + 6*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDpp + 5/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDpp*pDpp - 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp^2
  - 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDp - 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*qDpp + 5/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDp
  + 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDpp + M^-4*m^4*A0*[m2-M2]^-4
  *qDk^2*pDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^3 + 7/2*M^-4*m^4*A0
  *[m2-M2]^-4*qDp*qDpp*kDp + 5/2*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*kDpp
   + M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*pDpp - 5/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDp*qDpp^2 - 2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*qDpp
  + M^-4*m^4*A0*[m2-M2]^-4*qDp^2*kDp + 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2
  *kDpp - M^-4*m^4*A0*[m2-M2]^-4*qDp^3 + 2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2
  *kDp + 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*kDpp + M^-4*m^4*A0*
 [m2-M2]^-4*qDpp^2*pDpp - M^-4*m^4*A0*[m2-M2]^-4*qDpp^3 + 1/4*M^-4
  *m^4*A0*[m2-M2]^-3*qDk*qDp - 7/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp
   + 7/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*kDp + 5/4*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*kDpp - 3/4*M^-4*m^4*A0*[m2-M2]^-3*qDk^2 + 3/4*M^-4
  *m^4*A0*[m2-M2]^-3*qDp*qDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDp*kDp
   - 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDp*kDpp + M^-4*m^4*A0*[m2-M2]^-3*qDp^2
   + 2*M^-4*m^4*A0*[m2-M2]^-3*qDpp*kDp + 5/4*M^-4*m^4*A0*
 [m2-M2]^-3*qDpp*kDpp + 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDpp*pDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2 - M^-4*m^4*A0*[m2-M2]^-3*kDp
  *kDpp - M^-4*m^4*A0*[m2-M2]^-3*kDp^2 - 1/2*M^-4*m^4*A0*
 [m2-M2]^-3*kDpp^2 - 1/4*M^-4*m^4*A0*[m2-M2]^-2*qDk - 1/4*M^-4*m^4
  *A0*[m2-M2]^-2*qDp - 1/4*M^-4*m^4*A0*[m2-M2]^-2*qDpp + 1/4*M^-4*m^4
  *A0*[m2-M2]^-2*kDp + 1/2*M^-4*m^4*A0*[m2-M2]^-2*kDpp - 10*M^-4*m^4
  *ExtM*[m2-M2]^-5*qDk*qDp*qDpp^2 - 12*M^-4*m^4*ExtM*[m2-M2]^-5*qDk
  *qDp^2*qDpp - 8*M^-4*m^4*ExtM*[m2-M2]^-5*qDk*qDp^3 + 2*M^-4*m^4*ExtM
  *[m2-M2]^-5*qDk*qDpp^3 - 14*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^2*qDp*qDpp
   - 12*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^2*qDp^2 - 10*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDk^3*qDp - 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^3*qDpp
  - 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^4 + 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDp
  *qDpp^3 - 3*M^-4*m^4*ExtM*[m2-M2]^-5*qDp^4 + 2*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDpp^4 + 4*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*qDpp
  + 6*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*kDp + 5/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDp*kDpp + 6*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*pDpp
   + 3*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp^2 + 4*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDpp*kDp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp*kDpp
   + 4*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp*pDpp - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDpp^2 + 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*qDp
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*qDpp + 2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk^2*kDp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*kDpp
  + 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*pDpp + 5/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDp*qDpp*kDpp - M^-4*m^4*ExtM*[m2-M2]^-4*qDp*qDpp^2
  + 3/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDp^2*kDpp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDp^3 - M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^2*kDp - 3/2*M^-4
  *m^4*ExtM*[m2-M2]^-4*qDpp^2*kDpp - M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^2
  *pDpp - M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^3 - 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDp - 3/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*kDp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*kDpp - 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*pDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDp*qDpp - M^-4*m^4*ExtM*
 [m2-M2]^-3*qDp*kDpp - 3/4*M^-4*m^4*ExtM*[m2-M2]^-3*qDp^2
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp*kDp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDpp*kDpp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp*pDpp
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^2 - M^-4*m^4*ExtM*[m2-M2]^-3
  *kDp*kDpp - M^-4*m^4*ExtM*[m2-M2]^-3*kDpp*pDpp - 1/4*M^-4*m^4*ExtM
  *[m2-M2]^-3*kDpp^2 - 1/8*M^-4*m^4*ExtM*[m2-M2]^-2*qDp - 1/4*M^-4
  *m^4*ExtM*[m2-M2]^-2*qDpp - 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*kDp
  - 1/8*M^-4*m^4*ExtM*[m2-M2]^-2*kDpp - 1/4*M^-4*m^4*ExtM*
 [m2-M2]^-2*pDpp - 1/8*M^-4*m^4*ExtM*[m2-M2]^-1 - 35*M^-4*m^6*A0*
 [m2-M2]^-6*qDk*qDp*qDpp^2 - 30*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDp^2*qDpp
   - 8*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDp^3 - 15*M^-4*m^6*A0*
 [m2-M2]^-6*qDk*qDpp^3 - 35*M^-4*m^6*A0*[m2-M2]^-6*qDk^2*qDp*qDpp
  - 17*M^-4*m^6*A0*[m2-M2]^-6*qDk^2*qDp^2 - 20*M^-4*m^6*A0*
 [m2-M2]^-6*qDk^2*qDpp^2 - 13*M^-4*m^6*A0*[m2-M2]^-6*qDk^3*qDp
  - 15*M^-4*m^6*A0*[m2-M2]^-6*qDk^3*qDpp - 7*M^-4*m^6*A0*
 [m2-M2]^-6*qDk^4 - 13*M^-4*m^6*A0*[m2-M2]^-6*qDp*qDpp^3 - 17*M^-4
  *m^6*A0*[m2-M2]^-6*qDp^2*qDpp^2 - 8*M^-4*m^6*A0*[m2-M2]^-6*qDp^3
  *qDpp - 4*M^-4*m^6*A0*[m2-M2]^-6*qDp^4 - 7*M^-4*m^6*A0*
 [m2-M2]^-6*qDpp^4 - 8*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp*qDpp
  + 9*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp*kDp + 9*M^-4*m^6*A0*
 [m2-M2]^-5*qDk*qDp*kDpp + 7*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp*pDpp
  - 4*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp^2 + 10*M^-4*m^6*A0*[m2-M2]^-5
  *qDk*qDpp*kDp + 10*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDpp*kDpp
  + 8*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDpp*pDpp - 5*M^-4*m^6*A0*
 [m2-M2]^-5*qDk*qDpp^2 - 4*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDp
  - 5*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDpp + 15/2*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^2*kDp + 15/2*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*kDpp
  + 9/2*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*pDpp - 3*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^3 + 8*M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp*kDp
  + 8*M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp*kDpp + 8*M^-4*m^6*A0*
 [m2-M2]^-5*qDp*qDpp*pDpp - 4*M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp^2
  - 4*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*qDpp + 7/2*M^-4*m^6*A0*
 [m2-M2]^-5*qDp^2*kDp + 7/2*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*kDpp
  + 3/2*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*pDpp + 5*M^-4*m^6*A0*
 [m2-M2]^-5*qDpp^2*kDp + 5*M^-4*m^6*A0*[m2-M2]^-5*qDpp^2*kDpp
  + 4*M^-4*m^6*A0*[m2-M2]^-5*qDpp^2*pDpp - 3*M^-4*m^6*A0*
 [m2-M2]^-5*qDpp^3 - M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp - 3/2*M^-4*m^6
  *A0*[m2-M2]^-4*qDk*qDpp + 2*M^-4*m^6*A0*[m2-M2]^-4*qDk*kDp
  + 2*M^-4*m^6*A0*[m2-M2]^-4*qDk*kDpp + 5/4*M^-4*m^6*A0*[m2-M2]^-4
  *qDk*pDpp - 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDk^2 - M^-4*m^6*A0*
 [m2-M2]^-4*qDp*qDpp + 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDp*kDp
  + 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDp*kDpp + 3/2*M^-4*m^6*A0*
 [m2-M2]^-4*qDp*pDpp - M^-4*m^6*A0*[m2-M2]^-4*qDp^2 + 3/2*M^-4*m^6
  *A0*[m2-M2]^-4*qDpp*kDp + 3/2*M^-4*m^6*A0*[m2-M2]^-4*qDpp*kDpp
  + M^-4*m^6*A0*[m2-M2]^-4*qDpp*pDpp - 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDpp^2
   - 2*M^-4*m^6*A0*[m2-M2]^-4*kDp*kDpp - 5/4*M^-4*m^6*A0*
 [m2-M2]^-4*kDp*pDpp - M^-4*m^6*A0*[m2-M2]^-4*kDp^2 - 5/4*M^-4*m^6
  *A0*[m2-M2]^-4*kDpp*pDpp - M^-4*m^6*A0*[m2-M2]^-4*kDpp^2
  - 3/4*M^-4*m^6*A0*[m2-M2]^-4*pDpp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-3
  *qDk - 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDpp + 3/8*M^-4*m^6*A0*
 [m2-M2]^-3*kDp + 3/8*M^-4*m^6*A0*[m2-M2]^-3*kDpp + 1/8*M^-4*m^6*A0
  *[m2-M2]^-3*pDpp - 1/4*M^-4*m^6*A0*[m2-M2]^-2 + 25*M^-4*m^8*A0*
 [m2-M2]^-7*qDk*qDp*qDpp^2 + 20*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDp^2*qDpp
   + 4*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDp^3 + 15*M^-4*m^8*A0*
 [m2-M2]^-7*qDk*qDpp^3 + 25*M^-4*m^8*A0*[m2-M2]^-7*qDk^2*qDp*qDpp
  + 11*M^-4*m^8*A0*[m2-M2]^-7*qDk^2*qDp^2 + 20*M^-4*m^8*A0*
 [m2-M2]^-7*qDk^2*qDpp^2 + 9*M^-4*m^8*A0*[m2-M2]^-7*qDk^3*qDp
  + 15*M^-4*m^8*A0*[m2-M2]^-7*qDk^3*qDpp + 6*M^-4*m^8*A0*
 [m2-M2]^-7*qDk^4 + 9*M^-4*m^8*A0*[m2-M2]^-7*qDp*qDpp^3 + 11*M^-4*m^8
  *A0*[m2-M2]^-7*qDp^2*qDpp^2 + 4*M^-4*m^8*A0*[m2-M2]^-7*qDp^3*qDpp
   + 2*M^-4*m^8*A0*[m2-M2]^-7*qDp^4 + 6*M^-4*m^8*A0*[m2-M2]^-7*qDpp^4
   + 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp*qDpp - 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDp*kDp - 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp*kDpp
  - 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp*pDpp + 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDp^2 - 10*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp*kDp
  - 10*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp*kDpp - 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDpp*pDpp + 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp^2
  + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDp + 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk^2*qDpp - 15/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*kDp
  - 15/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*kDpp - 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDk^2*pDpp + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^3
  - 5*M^-4*m^8*A0*[m2-M2]^-6*qDp*qDpp*kDp - 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDp*qDpp*kDpp - 5*M^-4*m^8*A0*[m2-M2]^-6*qDp*qDpp*pDpp
   + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp*qDpp^2 + 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDp^2*qDpp - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp^2*kDp
  - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp^2*kDpp - 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDpp^2*kDp - 5*M^-4*m^8*A0*[m2-M2]^-6*qDpp^2*kDpp
  - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDpp^2*pDpp + 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDpp^3 + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp + 3/2*M^-4
  *m^8*A0*[m2-M2]^-5*qDk*qDpp - 2*M^-4*m^8*A0*[m2-M2]^-5*qDk*kDp
  - 2*M^-4*m^8*A0*[m2-M2]^-5*qDk*kDpp - 1/2*M^-4*m^8*A0*[m2-M2]^-5
  *qDk*pDpp + M^-4*m^8*A0*[m2-M2]^-5*qDk^2 + 1/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDp*qDpp - 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp*kDp
  - 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp*kDpp - M^-4*m^8*A0*[m2-M2]^-5*qDp
  *pDpp + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp^2 - 3/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDpp*kDp - 3/2*M^-4*m^8*A0*[m2-M2]^-5*qDpp*kDpp
  - 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDpp*pDpp + M^-4*m^8*A0*[m2-M2]^-5*qDpp^2
   + 2*M^-4*m^8*A0*[m2-M2]^-5*kDp*kDpp + 1/2*M^-4*m^8*A0*
 [m2-M2]^-5*kDp*pDpp + M^-4*m^8*A0*[m2-M2]^-5*kDp^2 + 1/2*M^-4*m^8
  *A0*[m2-M2]^-5*kDpp*pDpp + M^-4*m^8*A0*[m2-M2]^-5*kDpp^2
  + 1/2*M^-4*m^8*A0*[m2-M2]^-5*pDpp^2 + 3/8*M^-4*m^8*A0*[m2-M2]^-4
  *qDk + 3/8*M^-4*m^8*A0*[m2-M2]^-4*qDpp - 3/8*M^-4*m^8*A0*
 [m2-M2]^-4*kDp - 3/8*M^-4*m^8*A0*[m2-M2]^-4*kDpp + 1/8*M^-4*m^8*A0
  *[m2-M2]^-3 - 1/4*M^-4*gu*T3*ExtM^2*kDp - 1/8*M^-4*gu*T3*ExtM^2*kDpp
   - 10*M^-4*A0*[m2-M2]^-3*qDk*qDp*qDpp^2 - 14*M^-4*A0*[m2-M2]^-3*qDk
  *qDp^2*qDpp - 6*M^-4*A0*[m2-M2]^-3*qDk*qDp^3 - 2*M^-4*A0*
 [m2-M2]^-3*qDk*qDpp^3 - 6*M^-4*A0*[m2-M2]^-3*qDk^2*qDp*qDpp
  - 6*M^-4*A0*[m2-M2]^-3*qDk^2*qDp^2 - 2*M^-4*A0*[m2-M2]^-3*qDk^3*qDp
   - 8*M^-4*A0*[m2-M2]^-3*qDp*qDpp^3 - 12*M^-4*A0*[m2-M2]^-3*qDp^2
  *qDpp^2 - 8*M^-4*A0*[m2-M2]^-3*qDp^3*qDpp - 2*M^-4*A0*[m2-M2]^-3
  *qDp^4 - 2*M^-4*A0*[m2-M2]^-3*qDpp^4 + 5/2*M^-4*A0*[m2-M2]^-2*qDk
  *qDp*kDp + 3/2*M^-4*A0*[m2-M2]^-2*qDk*qDp*kDpp + 3*M^-4*A0*
 [m2-M2]^-2*qDk*qDp*pDpp + 1/2*M^-4*A0*[m2-M2]^-2*qDk*qDpp*kDp
  - 1/2*M^-4*A0*[m2-M2]^-2*qDk*qDpp*kDpp + 2*M^-4*A0*[m2-M2]^-2*qDk
  *qDpp*pDpp + 1/2*M^-4*A0*[m2-M2]^-2*qDk^2*kDp + 1/2*M^-4*A0*
 [m2-M2]^-2*qDk^2*pDpp + 5/2*M^-4*A0*[m2-M2]^-2*qDp*qDpp*kDp
  + 3/2*M^-4*A0*[m2-M2]^-2*qDp*qDpp*kDpp + 5*M^-4*A0*[m2-M2]^-2*qDp
  *qDpp*pDpp + 2*M^-4*A0*[m2-M2]^-2*qDp^2*kDp + 3/2*M^-4*A0*
 [m2-M2]^-2*qDp^2*kDpp + 5/2*M^-4*A0*[m2-M2]^-2*qDp^2*pDpp
  + 1/2*M^-4*A0*[m2-M2]^-2*qDpp^2*kDp + 5/2*M^-4*A0*[m2-M2]^-2*qDpp^2
  *pDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDk*qDp - 1/2*M^-4*A0*[m2-M2]^-1*qDk
  *qDpp + 1/4*M^-4*A0*[m2-M2]^-1*qDk*kDp + 1/2*M^-4*A0*[m2-M2]^-1*qDk
  *kDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDk*pDpp - M^-4*A0*[m2-M2]^-1*qDp
  *qDpp + 3/4*M^-4*A0*[m2-M2]^-1*qDp*kDp + M^-4*A0*[m2-M2]^-1*qDp*kDpp
   + M^-4*A0*[m2-M2]^-1*qDp*pDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDp^2
  + 3/2*M^-4*A0*[m2-M2]^-1*qDpp*kDp + 7/4*M^-4*A0*[m2-M2]^-1*qDpp*kDpp
   + M^-4*A0*[m2-M2]^-1*qDpp*pDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDpp^2
  - 5/2*M^-4*A0*[m2-M2]^-1*kDp*kDpp - 2*M^-4*A0*[m2-M2]^-1*kDp*pDpp
   - 5/4*M^-4*A0*[m2-M2]^-1*kDp^2 - 2*M^-4*A0*[m2-M2]^-1*kDpp*pDpp
   - 5/4*M^-4*A0*[m2-M2]^-1*kDpp^2 - M^-4*A0*[m2-M2]^-1*pDpp^2
  - 3/4*M^-4*T3*ExtM^2*kDp - 3/8*M^-4*T3*ExtM^2*kDpp + 4*M^-4*ExtM
  *[m2-M2]^-3*qDk*qDp*qDpp^2 + 2*M^-4*ExtM*[m2-M2]^-3*qDk*qDp^3
  + 6*M^-4*ExtM*[m2-M2]^-3*qDk*qDpp^3 + 8*M^-4*ExtM*[m2-M2]^-3*qDk^2
  *qDp*qDpp + 6*M^-4*ExtM*[m2-M2]^-3*qDk^2*qDp^2 + 6*M^-4*ExtM*
 [m2-M2]^-3*qDk^2*qDpp^2 + 4*M^-4*ExtM*[m2-M2]^-3*qDk^3*qDp
  + 2*M^-4*ExtM*[m2-M2]^-3*qDk^3*qDpp - 6*M^-4*ExtM*[m2-M2]^-3*qDp^2
  *qDpp^2 - 2*M^-4*ExtM*[m2-M2]^-3*qDp^3*qDpp + 2*M^-4*ExtM*
 [m2-M2]^-3*qDpp^4 - 3*M^-4*ExtM*[m2-M2]^-2*qDk*qDp*kDp - 2*M^-4*ExtM
  *[m2-M2]^-2*qDk*qDp*kDpp - M^-4*ExtM*[m2-M2]^-2*qDk*qDp*pDpp
  - 2*M^-4*ExtM*[m2-M2]^-2*qDk*qDpp*kDp - 3*M^-4*ExtM*[m2-M2]^-2*qDk
  *qDpp*kDpp - 2*M^-4*ExtM*[m2-M2]^-2*qDk^2*kDp - 1/2*M^-4*ExtM*
 [m2-M2]^-2*qDk^2*kDpp - M^-4*ExtM*[m2-M2]^-2*qDk^2*pDpp + M^-4*ExtM
  *[m2-M2]^-2*qDp*qDpp*kDp - 2*M^-4*ExtM*[m2-M2]^-2*qDp*qDpp*kDpp
  + 3*M^-4*ExtM*[m2-M2]^-2*qDp*qDpp*pDpp - 1/2*M^-4*ExtM*
 [m2-M2]^-2*qDp^2*kDp + 1/2*M^-4*ExtM*[m2-M2]^-2*qDp^2*pDpp
  - 5/2*M^-4*ExtM*[m2-M2]^-2*qDpp^2*kDpp + M^-4*ExtM*[m2-M2]^-2*qDpp^2
  *pDpp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDk*qDpp - 1/2*M^-4*ExtM*
 [m2-M2]^-1*qDk*kDp - 1/4*M^-4*ExtM*[m2-M2]^-1*qDk*kDpp + M^-4*ExtM
  *[m2-M2]^-1*qDp*qDpp - 1/4*M^-4*ExtM*[m2-M2]^-1*qDp*kDp
  - 1/2*M^-4*ExtM*[m2-M2]^-1*qDp*kDpp + 1/4*M^-4*ExtM*[m2-M2]^-1*qDp
  *pDpp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDpp*kDp - 1/4*M^-4*ExtM*
 [m2-M2]^-1*qDpp*kDpp + M^-4*ExtM*[m2-M2]^-1*qDpp*pDpp + 1/2*M^-4*ExtM
  *[m2-M2]^-1*qDpp^2 + 1/4*M^-4*ExtM*[m2-M2]^-1*kDp*kDpp + 1/4*M^-4
  *ExtM*[m2-M2]^-1*kDp^2 - 1/4*M^-4*ExtM*[m2-M2]^-1*kDpp*pDpp
  - 1/4*M^-4*ExtM*[m2-M2]^-1*pDpp^2 - 2*M^-4*ExtM^2*[m2-M2]^-3*qDk
  *qDp*qDpp^2 - 2*M^-4*ExtM^2*[m2-M2]^-3*qDk*qDpp^3 + 2*M^-4*ExtM^2
  *[m2-M2]^-3*qDk^2*qDp*qDpp + 2*M^-4*ExtM^2*[m2-M2]^-3*qDk^3*qDp
  + 2*M^-4*ExtM^2*[m2-M2]^-3*qDk^3*qDpp + M^-4*ExtM^2*[m2-M2]^-3*qDk^4
   - 2*M^-4*ExtM^2*[m2-M2]^-3*qDp*qDpp^3 - M^-4*ExtM^2*[m2-M2]^-3*qDpp^4
   - M^-4*ExtM^2*[m2-M2]^-2*qDk*qDp*kDpp - 1/2*M^-4*ExtM^2*
 [m2-M2]^-2*qDk*qDpp^2 + M^-4*ExtM^2*[m2-M2]^-2*qDk^2*qDp
  + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk^2*qDpp - 1/2*M^-4*ExtM^2*
 [m2-M2]^-2*qDk^2*kDpp + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk^3
  + M^-4*ExtM^2*[m2-M2]^-2*qDp*qDpp*kDpp - M^-4*ExtM^2*[m2-M2]^-2*qDp
  *qDpp^2 + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDpp^2*kDpp - 1/2*M^-4*ExtM^2
  *[m2-M2]^-2*qDpp^3 + 1/2*M^-4*ExtM^2*[m2-M2]^-1*qDk*qDp
  + 1/4*M^-4*ExtM^2*[m2-M2]^-1*qDk^2 - 1/2*M^-4*ExtM^2*[m2-M2]^-1*qDp
  *qDpp - 1/4*M^-4*ExtM^2*[m2-M2]^-1*qDpp^2 + 1/4*M^-4*ExtM^2*kDp
  + 1/8*M^-4*ExtM^2*kDpp )
 
 + D(a,b)*D(c,d)*Nohm^2
  * ( 27*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*qDpp^2 + 27*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp^2*qDpp + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp^3
  + 11*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp^3 + 24*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*qDp*qDpp + 12*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDp^2
   + 12*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDpp^2 + 8*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^3*qDp + 10*M^-4*m^2*A0*[m2-M2]^-3*qDk^3*qDpp
  + 4*M^-4*m^2*A0*[m2-M2]^-3*qDk^4 + 11*M^-4*m^2*A0*[m2-M2]^-3*qDp
  *qDpp^3 + 15*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*qDpp^2 + 7*M^-4*m^2*A0
  *[m2-M2]^-3*qDp^3*qDpp + 5*M^-4*m^2*A0*[m2-M2]^-3*qDpp^4
  + 7*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp*qDpp - 8*M^-4*m^2*A0*
 [m2-M2]^-2*qDk*qDp*kDp - 8*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp*kDpp
  - 9*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp*pDpp + 7/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDk*qDp^2 - 7*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp*kDp
  - 7*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp*kDpp - 8*M^-4*m^2*A0*
 [m2-M2]^-2*qDk*qDpp*pDpp + 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp^2
  + 3*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*qDp + 3*M^-4*m^2*A0*[m2-M2]^-2*qDk^2
  *qDpp - 4*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*kDp - 9/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2*kDpp - 4*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*pDpp
  + M^-4*m^2*A0*[m2-M2]^-2*qDk^3 - 10*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp
  *kDp - 10*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp*kDpp - 10*M^-4*m^2*A0*
 [m2-M2]^-2*qDp*qDpp*pDpp + 4*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp^2
  + 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDp^2*qDpp - 9/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDp^2*kDp - 5*M^-4*m^2*A0*[m2-M2]^-2*qDp^2*kDpp
  - 4*M^-4*m^2*A0*[m2-M2]^-2*qDp^2*pDpp + M^-4*m^2*A0*[m2-M2]^-2*qDp^3
   - 4*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2*kDp - 9/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDpp^2*kDpp - 9/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2*pDpp
  + 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp^3 + 3/4*M^-4*m^2*A0*[m2-M2]^-1
  *qDk*qDp + 9/4*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp - 9/4*M^-4*m^2*A0
  *[m2-M2]^-1*qDk*kDp - 2*M^-4*m^2*A0*[m2-M2]^-1*qDk*kDpp
  - 2*M^-4*m^2*A0*[m2-M2]^-1*qDk*pDpp + M^-4*m^2*A0*[m2-M2]^-1*qDk^2
   + 3/4*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp - 5/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDp*kDp - 3/2*M^-4*m^2*A0*[m2-M2]^-1*qDp*kDpp
  - 3/2*M^-4*m^2*A0*[m2-M2]^-1*qDp*pDpp - 15/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDpp*kDp - 7/2*M^-4*m^2*A0*[m2-M2]^-1*qDpp*kDpp
  - 11/4*M^-4*m^2*A0*[m2-M2]^-1*qDpp*pDpp + 5/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDpp^2 + 13/4*M^-4*m^2*A0*[m2-M2]^-1*kDp*kDpp
  + 7/2*M^-4*m^2*A0*[m2-M2]^-1*kDp*pDpp + 7/4*M^-4*m^2*A0*
 [m2-M2]^-1*kDp^2 + 13/4*M^-4*m^2*A0*[m2-M2]^-1*kDpp*pDpp
  + 3/2*M^-4*m^2*A0*[m2-M2]^-1*kDpp^2 + 3/2*M^-4*m^2*A0*[m2-M2]^-1
  *pDpp^2 + 3/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2
  *A0*kDp - 1/8*M^-4*m^2*A0*kDpp + 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp
  *qDpp^2 + 12*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp^2*qDpp + 6*M^-4*m^2
  *ExtM*[m2-M2]^-3*qDk*qDp^3 - 8*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp^3
   + 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDp*qDpp + 6*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^2*qDp^2 - 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDpp^2
  + 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^3*qDp + 2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^4 - 2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp^3
  + 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*qDpp^2 + 2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp^3*qDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^4
  - 4*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^4 - M^-4*m^2*ExtM*[m2-M2]^-2*qDk
  *qDp*qDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp*kDp - M^-4*m^2*ExtM
  *[m2-M2]^-2*qDk*qDp*kDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp*pDpp
   - 3/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp^2 - M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*qDpp*kDp + 4*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDpp*kDpp
   - M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDpp*pDpp + 2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*qDpp^2 - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*qDp
  + M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*qDpp - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk^2*kDp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*kDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*pDpp - 3*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp*qDpp*kDp - M^-4*m^2*ExtM*[m2-M2]^-2*qDp*qDpp*kDpp
  - 3*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*qDpp*pDpp - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp*qDpp^2 - 3/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2*qDpp
  - 2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2*kDp - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp^2*kDpp - M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2*pDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^3 - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDpp^2*kDp + 7/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^2*kDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^2*pDpp + M^-4*m^2*ExtM*
 [m2-M2]^-2*qDpp^3 + 3/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDpp + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*kDp - 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*kDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2 - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp*qDpp + 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*qDp*kDp
  + 3/4*M^-4*m^2*ExtM*[m2-M2]^-1*qDp*pDpp + 3/4*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp^2 - M^-4*m^2*ExtM*[m2-M2]^-1*qDpp*kDp - 5/4*M^-4*m^2
  *ExtM*[m2-M2]^-1*qDpp*kDpp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp*pDpp
   - M^-4*m^2*ExtM*[m2-M2]^-1*qDpp^2 + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*kDp*pDpp + 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*kDp^2
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*kDpp^2 + 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-1*pDpp^2 - 1/4*M^-4*m^2*ExtM*qDp + 1/16*M^-4*m^4*A0
  - 7*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*qDpp^2 - 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp^2*qDpp + 2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp^3
  - 9*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp^3 - 8*M^-4*m^4*A0*[m2-M2]^-4
  *qDk^2*qDp*qDpp - 12*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDpp^2
  - 3*M^-4*m^4*A0*[m2-M2]^-4*qDk^3*qDp - 10*M^-4*m^4*A0*[m2-M2]^-4
  *qDk^3*qDpp - 3*M^-4*m^4*A0*[m2-M2]^-4*qDk^4 + 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDp^2*qDpp^2 + 4*M^-4*m^4*A0*[m2-M2]^-4*qDp^3*qDpp
  + 4*M^-4*m^4*A0*[m2-M2]^-4*qDp^4 - 2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^4
   - 4*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp*qDpp + 5/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDp*kDp + 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp*kDpp
  + M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp*pDpp - 3/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDp^2 + 4*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp*kDp
  + 6*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp*kDpp + 5/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDpp*pDpp - 7/2*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp^2
  - 2*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDp - 3*M^-4*m^4*A0*[m2-M2]^-3*qDk^2
  *qDpp + 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*kDp + 7/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk^2*kDpp + 3/2*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*pDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDk^3 + 3/2*M^-4*m^4*A0*[m2-M2]^-3*qDp
  *qDpp*kDp + 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDp*qDpp*kDpp + M^-4*m^4*A0
  *[m2-M2]^-3*qDp*qDpp*pDpp - 2*M^-4*m^4*A0*[m2-M2]^-3*qDp*qDpp^2
  - 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDp^2*qDpp + M^-4*m^4*A0*[m2-M2]^-3
  *qDp^2*kDp + M^-4*m^4*A0*[m2-M2]^-3*qDp^2*kDpp - M^-4*m^4*A0*
 [m2-M2]^-3*qDp^3 + 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2*kDp
  + 7/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2*kDpp + M^-4*m^4*A0*
 [m2-M2]^-3*qDpp^2*pDpp - M^-4*m^4*A0*[m2-M2]^-3*qDpp^3 - 1/4*M^-4
  *m^4*A0*[m2-M2]^-2*qDk*qDp - 7/4*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp
   + 7/4*M^-4*m^4*A0*[m2-M2]^-2*qDk*kDp + 5/4*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*kDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*pDpp
  - 3/4*M^-4*m^4*A0*[m2-M2]^-2*qDk^2 + 1/4*M^-4*m^4*A0*[m2-M2]^-2*qDp
  *qDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*kDp + 1/4*M^-4*m^4*A0*
 [m2-M2]^-2*qDp*kDpp + M^-4*m^4*A0*[m2-M2]^-2*qDp^2 + 3/2*M^-4*m^4
  *A0*[m2-M2]^-2*qDpp*kDp + 5/4*M^-4*m^4*A0*[m2-M2]^-2*qDpp*kDpp
  + 1/4*M^-4*m^4*A0*[m2-M2]^-2*qDpp*pDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDpp^2 - M^-4*m^4*A0*[m2-M2]^-2*kDp*kDpp - 1/2*M^-4*m^4
  *A0*[m2-M2]^-2*kDp*pDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-2*kDp^2
  - 1/2*M^-4*m^4*A0*[m2-M2]^-2*kDpp*pDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*kDpp^2 - 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDk - 1/4*M^-4*m^4
  *A0*[m2-M2]^-1*qDp - 3/8*M^-4*m^4*A0*[m2-M2]^-1*qDpp + 3/8*M^-4*m^4
  *A0*[m2-M2]^-1*kDp + 3/8*M^-4*m^4*A0*[m2-M2]^-1*kDpp + 1/8*M^-4*m^4
  *A0*[m2-M2]^-1*pDpp - 10*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*qDpp^2
   - 12*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp^2*qDpp - 6*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDp^3 + 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp^3
  - 14*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*qDp*qDpp - 12*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk^2*qDp^2 - 8*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^3*qDp
  - 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^3*qDpp - 2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk^4 + 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDp*qDpp^3
  - 3*M^-4*m^4*ExtM*[m2-M2]^-4*qDp^4 + 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^4
   + 4*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp*qDpp + 4*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDp*kDp + 9/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp*kDpp
   + 4*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp*pDpp + 2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDp^2 + 4*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDpp*kDp
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDpp*kDpp + 4*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDpp*pDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDpp^2
   + 3*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*qDp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk^2*qDpp + 3*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*kDp
  + M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*kDpp + 3*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk^2*pDpp + 5/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDp*qDpp*kDpp
   - M^-4*m^4*ExtM*[m2-M2]^-3*qDp*qDpp^2 + M^-4*m^4*ExtM*
 [m2-M2]^-3*qDp^2*kDpp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDp^3
  - M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^2*kDp - 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDpp^2*kDpp - M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^2*pDpp
  - M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^3 - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2
  *qDk*qDp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*kDp - 1/4*M^-4*m^4*ExtM
  *[m2-M2]^-2*qDk*kDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*pDpp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2 + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDp*qDpp - 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*qDp*kDpp
  - 3/4*M^-4*m^4*ExtM*[m2-M2]^-2*qDp^2 + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDpp*kDp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDpp*kDpp
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDpp*pDpp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDpp^2 - 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*kDp*kDpp
  - 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*kDpp*pDpp - 1/4*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDk + 1/8*M^-4*m^4*ExtM*[m2-M2]^-1*qDp - 1/4*M^-4*m^4*ExtM
  *[m2-M2]^-1*qDpp - 1/8*M^-4*m^4*ExtM*[m2-M2]^-1*kDpp - 35*M^-4*m^6
  *A0*[m2-M2]^-5*qDk*qDp*qDpp^2 - 30*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp^2
  *qDpp - 8*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp^3 - 15*M^-4*m^6*A0*
 [m2-M2]^-5*qDk*qDpp^3 - 35*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDp*qDpp
  - 17*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDp^2 - 20*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^2*qDpp^2 - 13*M^-4*m^6*A0*[m2-M2]^-5*qDk^3*qDp
  - 15*M^-4*m^6*A0*[m2-M2]^-5*qDk^3*qDpp - 6*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^4 - 13*M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp^3 - 17*M^-4
  *m^6*A0*[m2-M2]^-5*qDp^2*qDpp^2 - 8*M^-4*m^6*A0*[m2-M2]^-5*qDp^3
  *qDpp - 3*M^-4*m^6*A0*[m2-M2]^-5*qDp^4 - 7*M^-4*m^6*A0*
 [m2-M2]^-5*qDpp^4 - 8*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp*qDpp
  + 9*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp*kDp + 9*M^-4*m^6*A0*
 [m2-M2]^-4*qDk*qDp*kDpp + 7*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp*pDpp
  - 4*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp^2 + 10*M^-4*m^6*A0*[m2-M2]^-4
  *qDk*qDpp*kDp + 10*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDpp*kDpp
  + 8*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDpp*pDpp - 5*M^-4*m^6*A0*
 [m2-M2]^-4*qDk*qDpp^2 - 4*M^-4*m^6*A0*[m2-M2]^-4*qDk^2*qDp
  - 5*M^-4*m^6*A0*[m2-M2]^-4*qDk^2*qDpp + 6*M^-4*m^6*A0*[m2-M2]^-4
  *qDk^2*kDp + 6*M^-4*m^6*A0*[m2-M2]^-4*qDk^2*kDpp + 9/2*M^-4*m^6*A0
  *[m2-M2]^-4*qDk^2*pDpp - 5/2*M^-4*m^6*A0*[m2-M2]^-4*qDk^3
  + 8*M^-4*m^6*A0*[m2-M2]^-4*qDp*qDpp*kDp + 8*M^-4*m^6*A0*
 [m2-M2]^-4*qDp*qDpp*kDpp + 8*M^-4*m^6*A0*[m2-M2]^-4*qDp*qDpp*pDpp
   - 4*M^-4*m^6*A0*[m2-M2]^-4*qDp*qDpp^2 - 4*M^-4*m^6*A0*
 [m2-M2]^-4*qDp^2*qDpp + 7/2*M^-4*m^6*A0*[m2-M2]^-4*qDp^2*kDp
  + 7/2*M^-4*m^6*A0*[m2-M2]^-4*qDp^2*kDpp + 3*M^-4*m^6*A0*
 [m2-M2]^-4*qDp^2*pDpp - 1/2*M^-4*m^6*A0*[m2-M2]^-4*qDp^3
  + 5*M^-4*m^6*A0*[m2-M2]^-4*qDpp^2*kDp + 5*M^-4*m^6*A0*[m2-M2]^-4
  *qDpp^2*kDpp + 4*M^-4*m^6*A0*[m2-M2]^-4*qDpp^2*pDpp - 3*M^-4*m^6
  *A0*[m2-M2]^-4*qDpp^3 - M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp - 3/2*M^-4
  *m^6*A0*[m2-M2]^-3*qDk*qDpp + 3/2*M^-4*m^6*A0*[m2-M2]^-3*qDk*kDp
   + 3/2*M^-4*m^6*A0*[m2-M2]^-3*qDk*kDpp + 5/4*M^-4*m^6*A0*
 [m2-M2]^-3*qDk*pDpp - M^-4*m^6*A0*[m2-M2]^-3*qDk^2 - M^-4*m^6*A0*
 [m2-M2]^-3*qDp*qDpp + 5/4*M^-4*m^6*A0*[m2-M2]^-3*qDp*kDp
  + 5/4*M^-4*m^6*A0*[m2-M2]^-3*qDp*kDpp + M^-4*m^6*A0*[m2-M2]^-3*qDp
  *pDpp - 3/4*M^-4*m^6*A0*[m2-M2]^-3*qDp^2 + 3/2*M^-4*m^6*A0*
 [m2-M2]^-3*qDpp*kDp + 3/2*M^-4*m^6*A0*[m2-M2]^-3*qDpp*kDpp
  + M^-4*m^6*A0*[m2-M2]^-3*qDpp*pDpp - 5/4*M^-4*m^6*A0*[m2-M2]^-3*qDpp^2
   - 3/2*M^-4*m^6*A0*[m2-M2]^-3*kDp*kDpp - 5/4*M^-4*m^6*A0*
 [m2-M2]^-3*kDp*pDpp - 3/4*M^-4*m^6*A0*[m2-M2]^-3*kDp^2 - 5/4*M^-4
  *m^6*A0*[m2-M2]^-3*kDpp*pDpp - 3/4*M^-4*m^6*A0*[m2-M2]^-3*kDpp^2
   - 1/2*M^-4*m^6*A0*[m2-M2]^-3*pDpp^2 - 3/8*M^-4*m^6*A0*
 [m2-M2]^-2*qDk - 1/8*M^-4*m^6*A0*[m2-M2]^-2*qDp - 1/2*M^-4*m^6*A0
  *[m2-M2]^-2*qDpp + 1/4*M^-4*m^6*A0*[m2-M2]^-2*kDp + 1/4*M^-4*m^6
  *A0*[m2-M2]^-2*kDpp + 1/4*M^-4*m^6*A0*[m2-M2]^-2*pDpp - 1/8*M^-4
  *m^6*A0*[m2-M2]^-1 + 25*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp*qDpp^2
  + 20*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp^2*qDpp + 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDp^3 + 15*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp^3
  + 25*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDp*qDpp + 10*M^-4*m^8*A0*
 [m2-M2]^-6*qDk^2*qDp^2 + 20*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDpp^2
  + 10*M^-4*m^8*A0*[m2-M2]^-6*qDk^3*qDp + 15*M^-4*m^8*A0*
 [m2-M2]^-6*qDk^3*qDpp + 5*M^-4*m^8*A0*[m2-M2]^-6*qDk^4 + 9*M^-4*m^8
  *A0*[m2-M2]^-6*qDp*qDpp^3 + 11*M^-4*m^8*A0*[m2-M2]^-6*qDp^2*qDpp^2
   + 4*M^-4*m^8*A0*[m2-M2]^-6*qDp^3*qDpp + M^-4*m^8*A0*[m2-M2]^-6*qDp^4
   + 6*M^-4*m^8*A0*[m2-M2]^-6*qDpp^4 + 5*M^-4*m^8*A0*[m2-M2]^-5*qDk
  *qDp*qDpp - 6*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp*kDp - 6*M^-4*m^8*A0
  *[m2-M2]^-5*qDk*qDp*kDpp - 4*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp*pDpp
   + 2*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp^2 - 10*M^-4*m^8*A0*
 [m2-M2]^-5*qDk*qDpp*kDp - 10*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDpp*kDpp
   - 5*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDpp*pDpp + 5*M^-4*m^8*A0*
 [m2-M2]^-5*qDk*qDpp^2 + 3*M^-4*m^8*A0*[m2-M2]^-5*qDk^2*qDp
  + 5*M^-4*m^8*A0*[m2-M2]^-5*qDk^2*qDpp - 6*M^-4*m^8*A0*[m2-M2]^-5
  *qDk^2*kDp - 6*M^-4*m^8*A0*[m2-M2]^-5*qDk^2*kDpp - 3*M^-4*m^8*A0
  *[m2-M2]^-5*qDk^2*pDpp + 2*M^-4*m^8*A0*[m2-M2]^-5*qDk^3
  - 5*M^-4*m^8*A0*[m2-M2]^-5*qDp*qDpp*kDp - 5*M^-4*m^8*A0*
 [m2-M2]^-5*qDp*qDpp*kDpp - 5*M^-4*m^8*A0*[m2-M2]^-5*qDp*qDpp*pDpp
   + 5/2*M^-4*m^8*A0*[m2-M2]^-5*qDp*qDpp^2 + 5/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDp^2*qDpp - 2*M^-4*m^8*A0*[m2-M2]^-5*qDp^2*kDp
  - 2*M^-4*m^8*A0*[m2-M2]^-5*qDp^2*kDpp - 3/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDp^2*pDpp + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp^3
  - 5*M^-4*m^8*A0*[m2-M2]^-5*qDpp^2*kDp - 5*M^-4*m^8*A0*[m2-M2]^-5
  *qDpp^2*kDpp - 5/2*M^-4*m^8*A0*[m2-M2]^-5*qDpp^2*pDpp + 5/2*M^-4
  *m^8*A0*[m2-M2]^-5*qDpp^3 + 3/4*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp
  + 3/2*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDpp - 3/2*M^-4*m^8*A0*
 [m2-M2]^-4*qDk*kDp - 3/2*M^-4*m^8*A0*[m2-M2]^-4*qDk*kDpp
  - 3/4*M^-4*m^8*A0*[m2-M2]^-4*qDk*pDpp + 3/4*M^-4*m^8*A0*
 [m2-M2]^-4*qDk^2 + 1/2*M^-4*m^8*A0*[m2-M2]^-4*qDp*qDpp - 3/4*M^-4
  *m^8*A0*[m2-M2]^-4*qDp*kDp - 3/4*M^-4*m^8*A0*[m2-M2]^-4*qDp*kDpp
   - 1/2*M^-4*m^8*A0*[m2-M2]^-4*qDp*pDpp + 1/4*M^-4*m^8*A0*
 [m2-M2]^-4*qDp^2 - 3/2*M^-4*m^8*A0*[m2-M2]^-4*qDpp*kDp - 3/2*M^-4
  *m^8*A0*[m2-M2]^-4*qDpp*kDpp - 1/2*M^-4*m^8*A0*[m2-M2]^-4*qDpp*pDpp
   + M^-4*m^8*A0*[m2-M2]^-4*qDpp^2 + 3/2*M^-4*m^8*A0*[m2-M2]^-4*kDp
  *kDpp + 3/4*M^-4*m^8*A0*[m2-M2]^-4*kDp*pDpp + 3/4*M^-4*m^8*A0*
 [m2-M2]^-4*kDp^2 + 3/4*M^-4*m^8*A0*[m2-M2]^-4*kDpp*pDpp + 3/4*M^-4
  *m^8*A0*[m2-M2]^-4*kDpp^2 + 1/4*M^-4*m^8*A0*[m2-M2]^-4*pDpp^2
  + 1/4*M^-4*m^8*A0*[m2-M2]^-3*qDk + 1/8*M^-4*m^8*A0*[m2-M2]^-3*qDp
   + 3/8*M^-4*m^8*A0*[m2-M2]^-3*qDpp - 1/4*M^-4*m^8*A0*[m2-M2]^-3*kDp
   - 1/4*M^-4*m^8*A0*[m2-M2]^-3*kDpp - 1/8*M^-4*m^8*A0*[m2-M2]^-3*pDpp
   + 1/16*M^-4*m^8*A0*[m2-M2]^-2 - 10*M^-4*A0*[m2-M2]^-2*qDk*qDp*qDpp^2
   - 14*M^-4*A0*[m2-M2]^-2*qDk*qDp^2*qDpp - 6*M^-4*A0*[m2-M2]^-2*qDk
  *qDp^3 - 2*M^-4*A0*[m2-M2]^-2*qDk*qDpp^3 - 6*M^-4*A0*[m2-M2]^-2*qDk^2
  *qDp*qDpp - 6*M^-4*A0*[m2-M2]^-2*qDk^2*qDp^2 - 2*M^-4*A0*
 [m2-M2]^-2*qDk^3*qDp - 8*M^-4*A0*[m2-M2]^-2*qDp*qDpp^3 - 12*M^-4*A0
  *[m2-M2]^-2*qDp^2*qDpp^2 - 8*M^-4*A0*[m2-M2]^-2*qDp^3*qDpp
  - 2*M^-4*A0*[m2-M2]^-2*qDp^4 - 2*M^-4*A0*[m2-M2]^-2*qDpp^4
  + 5/2*M^-4*A0*[m2-M2]^-1*qDk*qDp*kDp + 3/2*M^-4*A0*[m2-M2]^-1*qDk
  *qDp*kDpp + 3*M^-4*A0*[m2-M2]^-1*qDk*qDp*pDpp + 1/2*M^-4*A0*
 [m2-M2]^-1*qDk*qDpp*kDp - 1/2*M^-4*A0*[m2-M2]^-1*qDk*qDpp*kDpp
  + 2*M^-4*A0*[m2-M2]^-1*qDk*qDpp*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDk^2
  *kDp + 1/2*M^-4*A0*[m2-M2]^-1*qDk^2*pDpp + 5/2*M^-4*A0*
 [m2-M2]^-1*qDp*qDpp*kDp + 3/2*M^-4*A0*[m2-M2]^-1*qDp*qDpp*kDpp
  + 5*M^-4*A0*[m2-M2]^-1*qDp*qDpp*pDpp + 2*M^-4*A0*[m2-M2]^-1*qDp^2
  *kDp + 3/2*M^-4*A0*[m2-M2]^-1*qDp^2*kDpp + 5/2*M^-4*A0*
 [m2-M2]^-1*qDp^2*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDpp^2*kDp
  + 5/2*M^-4*A0*[m2-M2]^-1*qDpp^2*pDpp - 1/4*M^-4*A0*qDk*qDp
  - 1/4*M^-4*A0*qDk*qDpp + 1/4*M^-4*A0*qDk*kDp + 1/4*M^-4*A0*qDk*kDpp
   - 1/2*M^-4*A0*qDp*qDpp + 1/2*M^-4*A0*qDp*kDp + 1/2*M^-4*A0*qDp*kDpp
   - 1/4*M^-4*A0*qDp^2 + 3/4*M^-4*A0*qDpp*kDp + 3/4*M^-4*A0*qDpp*kDpp
   - 1/4*M^-4*A0*qDpp^2 - M^-4*A0*kDp*kDpp - 1/2*M^-4*A0*kDp^2
  - 1/2*M^-4*A0*kDpp^2 + 4*M^-4*ExtM*[m2-M2]^-2*qDk*qDp*qDpp^2
  + 2*M^-4*ExtM*[m2-M2]^-2*qDk*qDp^3 + 6*M^-4*ExtM*[m2-M2]^-2*qDk*qDpp^3
   + 8*M^-4*ExtM*[m2-M2]^-2*qDk^2*qDp*qDpp + 6*M^-4*ExtM*
 [m2-M2]^-2*qDk^2*qDp^2 + 6*M^-4*ExtM*[m2-M2]^-2*qDk^2*qDpp^2
  + 4*M^-4*ExtM*[m2-M2]^-2*qDk^3*qDp + 2*M^-4*ExtM*[m2-M2]^-2*qDk^3
  *qDpp - 6*M^-4*ExtM*[m2-M2]^-2*qDp^2*qDpp^2 - 2*M^-4*ExtM*
 [m2-M2]^-2*qDp^3*qDpp + 2*M^-4*ExtM*[m2-M2]^-2*qDpp^4 - 3*M^-4*ExtM
  *[m2-M2]^-1*qDk*qDp*kDp - 2*M^-4*ExtM*[m2-M2]^-1*qDk*qDp*kDpp
  - M^-4*ExtM*[m2-M2]^-1*qDk*qDp*pDpp - 2*M^-4*ExtM*[m2-M2]^-1*qDk
  *qDpp*kDp - 3*M^-4*ExtM*[m2-M2]^-1*qDk*qDpp*kDpp - 2*M^-4*ExtM*
 [m2-M2]^-1*qDk^2*kDp - 1/2*M^-4*ExtM*[m2-M2]^-1*qDk^2*kDpp
  - M^-4*ExtM*[m2-M2]^-1*qDk^2*pDpp + M^-4*ExtM*[m2-M2]^-1*qDp*qDpp
  *kDp - 2*M^-4*ExtM*[m2-M2]^-1*qDp*qDpp*kDpp + 3*M^-4*ExtM*
 [m2-M2]^-1*qDp*qDpp*pDpp - 1/2*M^-4*ExtM*[m2-M2]^-1*qDp^2*kDp
  + 1/2*M^-4*ExtM*[m2-M2]^-1*qDp^2*pDpp - 5/2*M^-4*ExtM*[m2-M2]^-1
  *qDpp^2*kDpp + M^-4*ExtM*[m2-M2]^-1*qDpp^2*pDpp + 1/4*M^-4*ExtM*qDk
  *qDpp - 1/4*M^-4*ExtM*qDk*kDpp + 1/2*M^-4*ExtM*qDp*qDpp
  - 1/2*M^-4*ExtM*qDp*kDpp - 1/2*M^-4*ExtM*qDpp*kDpp + 1/4*M^-4*ExtM
  *qDpp^2 + 1/4*M^-4*ExtM*kDpp^2 - 2*M^-4*ExtM^2*[m2-M2]^-2*qDk*qDp
  *qDpp^2 - 2*M^-4*ExtM^2*[m2-M2]^-2*qDk*qDpp^3 + 2*M^-4*ExtM^2*
 [m2-M2]^-2*qDk^2*qDp*qDpp + 2*M^-4*ExtM^2*[m2-M2]^-2*qDk^3*qDp
  + 2*M^-4*ExtM^2*[m2-M2]^-2*qDk^3*qDpp + M^-4*ExtM^2*[m2-M2]^-2*qDk^4
   - 2*M^-4*ExtM^2*[m2-M2]^-2*qDp*qDpp^3 - M^-4*ExtM^2*[m2-M2]^-2*qDpp^4
   - M^-4*ExtM^2*[m2-M2]^-1*qDk*qDp*kDpp - 1/2*M^-4*ExtM^2*
 [m2-M2]^-1*qDk*qDpp^2 + M^-4*ExtM^2*[m2-M2]^-1*qDk^2*qDp
  + 1/2*M^-4*ExtM^2*[m2-M2]^-1*qDk^2*qDpp - 1/2*M^-4*ExtM^2*
 [m2-M2]^-1*qDk^2*kDpp + 1/2*M^-4*ExtM^2*[m2-M2]^-1*qDk^3
  + M^-4*ExtM^2*[m2-M2]^-1*qDp*qDpp*kDpp - M^-4*ExtM^2*[m2-M2]^-1*qDp
  *qDpp^2 + 1/2*M^-4*ExtM^2*[m2-M2]^-1*qDpp^2*kDpp - 1/2*M^-4*ExtM^2
  *[m2-M2]^-1*qDpp^3 )
 
 + D(a,b)*D(c,d)*Nohm^3
  * ( 27*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp*qDpp^2 + 27*M^-4*m^2*A0*
 [m2-M2]^-2*qDk*qDp^2*qDpp + 7*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp^3
  + 11*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp^3 + 24*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2*qDp*qDpp + 12*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*qDp^2
   + 12*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*qDpp^2 + 8*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^3*qDp + 10*M^-4*m^2*A0*[m2-M2]^-2*qDk^3*qDpp
  + 4*M^-4*m^2*A0*[m2-M2]^-2*qDk^4 + 11*M^-4*m^2*A0*[m2-M2]^-2*qDp
  *qDpp^3 + 15*M^-4*m^2*A0*[m2-M2]^-2*qDp^2*qDpp^2 + 7*M^-4*m^2*A0
  *[m2-M2]^-2*qDp^3*qDpp + 5*M^-4*m^2*A0*[m2-M2]^-2*qDpp^4
  + 7*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*qDpp - 8*M^-4*m^2*A0*
 [m2-M2]^-1*qDk*qDp*kDp - 8*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*kDpp
  - 9*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*pDpp + 7/2*M^-4*m^2*A0*
 [m2-M2]^-1*qDk*qDp^2 - 7*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp*kDp
  - 7*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp*kDpp - 8*M^-4*m^2*A0*
 [m2-M2]^-1*qDk*qDpp*pDpp + 7/2*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp^2
  + 3*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*qDp + 3*M^-4*m^2*A0*[m2-M2]^-1*qDk^2
  *qDpp - 4*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*kDp - 9/2*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^2*kDpp - 4*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*pDpp
  + M^-4*m^2*A0*[m2-M2]^-1*qDk^3 - 10*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp
  *kDp - 10*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp*kDpp - 10*M^-4*m^2*A0*
 [m2-M2]^-1*qDp*qDpp*pDpp + 4*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp^2
  + 7/2*M^-4*m^2*A0*[m2-M2]^-1*qDp^2*qDpp - 9/2*M^-4*m^2*A0*
 [m2-M2]^-1*qDp^2*kDp - 5*M^-4*m^2*A0*[m2-M2]^-1*qDp^2*kDpp
  - 4*M^-4*m^2*A0*[m2-M2]^-1*qDp^2*pDpp + M^-4*m^2*A0*[m2-M2]^-1*qDp^3
   - 4*M^-4*m^2*A0*[m2-M2]^-1*qDpp^2*kDp - 9/2*M^-4*m^2*A0*
 [m2-M2]^-1*qDpp^2*kDpp - 9/2*M^-4*m^2*A0*[m2-M2]^-1*qDpp^2*pDpp
  + 3/2*M^-4*m^2*A0*[m2-M2]^-1*qDpp^3 - 1/4*M^-4*m^2*A0*qDk*qDp
  + 1/4*M^-4*m^2*A0*qDk*qDpp - 1/4*M^-4*m^2*A0*qDk*kDp - 1/4*M^-4*m^2
  *A0*qDk*kDpp + 3/4*M^-4*m^2*A0*qDk^2 - 1/4*M^-4*m^2*A0*qDp*qDpp
  + 1/4*M^-4*m^2*A0*qDp*kDp + 1/4*M^-4*m^2*A0*qDp*kDpp + 6*M^-4*m^2
  *ExtM*[m2-M2]^-2*qDk*qDp*qDpp^2 + 12*M^-4*m^2*ExtM*[m2-M2]^-2*qDk
  *qDp^2*qDpp + 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp^3 - 8*M^-4*m^2*ExtM
  *[m2-M2]^-2*qDk*qDpp^3 + 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*qDp*qDpp
   + 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*qDp^2 - 6*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk^2*qDpp^2 + 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^3*qDp
  + 2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^4 - 2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp
  *qDpp^3 + 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2*qDpp^2 + 2*M^-4*m^2*ExtM
  *[m2-M2]^-2*qDp^3*qDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^4
  - 4*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^4 - M^-4*m^2*ExtM*[m2-M2]^-1*qDk
  *qDp*qDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp*kDp - M^-4*m^2*ExtM
  *[m2-M2]^-1*qDk*qDp*kDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp*pDpp
   - 3/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp^2 - M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*qDpp*kDp + 4*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDpp*kDpp
   - M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDpp*pDpp + 2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*qDpp^2 - 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*qDp
  + M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*qDpp - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk^2*kDp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*kDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*pDpp - 3*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp*qDpp*kDp - M^-4*m^2*ExtM*[m2-M2]^-1*qDp*qDpp*kDpp
  - 3*M^-4*m^2*ExtM*[m2-M2]^-1*qDp*qDpp*pDpp - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp*qDpp^2 - 3/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^2*qDpp
  - 2*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^2*kDp - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp^2*kDpp - M^-4*m^2*ExtM*[m2-M2]^-1*qDp^2*pDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^3 - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDpp^2*kDp + 7/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp^2*kDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp^2*pDpp + M^-4*m^2*ExtM*
 [m2-M2]^-1*qDpp^3 + 1/2*M^-4*m^2*ExtM*qDp^2 - 8*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDp*qDpp^2 - M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp^2*qDpp
   + 2*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp^3 - 9*M^-4*m^4*A0*[m2-M2]^-3
  *qDk*qDpp^3 - 9*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDp*qDpp - M^-4*m^4
  *A0*[m2-M2]^-3*qDk^2*qDp^2 - 12*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDpp^2
   - 4*M^-4*m^4*A0*[m2-M2]^-3*qDk^3*qDp - 10*M^-4*m^4*A0*
 [m2-M2]^-3*qDk^3*qDpp - 3*M^-4*m^4*A0*[m2-M2]^-3*qDk^4 - M^-4*m^4
  *A0*[m2-M2]^-3*qDp*qDpp^3 + 2*M^-4*m^4*A0*[m2-M2]^-3*qDp^2*qDpp^2
   + 4*M^-4*m^4*A0*[m2-M2]^-3*qDp^3*qDpp + 4*M^-4*m^4*A0*
 [m2-M2]^-3*qDp^4 - 2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^4 - 4*M^-4*m^4*A0
  *[m2-M2]^-2*qDk*qDp*qDpp + 5/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*kDp
   + 7/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*kDpp + 2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*qDp*pDpp - 2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp^2
  + 5*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp*kDp + 6*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*qDpp*kDpp + 7/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp*pDpp
   - 7/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp^2 - 5/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^2*qDp - 3*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDpp
  + 5/2*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*kDp + 7/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^2*kDpp + 2*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*pDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDk^3 + 5/2*M^-4*m^4*A0*[m2-M2]^-2*qDp
  *qDpp*kDp + 7/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp*kDpp + M^-4*m^4*A0
  *[m2-M2]^-2*qDp*qDpp*pDpp - 3/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp^2
   - 2*M^-4*m^4*A0*[m2-M2]^-2*qDp^2*qDpp + M^-4*m^4*A0*[m2-M2]^-2*qDp^2
  *kDp + 3/2*M^-4*m^4*A0*[m2-M2]^-2*qDp^2*kDpp - M^-4*m^4*A0*
 [m2-M2]^-2*qDp^3 + 3*M^-4*m^4*A0*[m2-M2]^-2*qDpp^2*kDp + 7/2*M^-4
  *m^4*A0*[m2-M2]^-2*qDpp^2*kDpp + M^-4*m^4*A0*[m2-M2]^-2*qDpp^2*pDpp
   - M^-4*m^4*A0*[m2-M2]^-2*qDpp^3 - 3/4*M^-4*m^4*A0*[m2-M2]^-1*qDk
  *qDp - 5/4*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp + 5/4*M^-4*m^4*A0*
 [m2-M2]^-1*qDk*kDp + 5/4*M^-4*m^4*A0*[m2-M2]^-1*qDk*kDpp
  + 3/4*M^-4*m^4*A0*[m2-M2]^-1*qDk*pDpp - 3/4*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^2 - 1/4*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp + 1/2*M^-4
  *m^4*A0*[m2-M2]^-1*qDp*kDp + 1/2*M^-4*m^4*A0*[m2-M2]^-1*qDp*kDpp
   + 1/2*M^-4*m^4*A0*[m2-M2]^-1*qDp*pDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-1*qDp^2 + M^-4*m^4*A0*[m2-M2]^-1*qDpp*kDp + M^-4*m^4*A0*
 [m2-M2]^-1*qDpp*kDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-1*qDpp*pDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-1*qDpp^2 - M^-4*m^4*A0*[m2-M2]^-1*kDp
  *kDpp - 3/4*M^-4*m^4*A0*[m2-M2]^-1*kDp*pDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-1*kDp^2 - 3/4*M^-4*m^4*A0*[m2-M2]^-1*kDpp*pDpp - 1/2*M^-4
  *m^4*A0*[m2-M2]^-1*kDpp^2 - 1/4*M^-4*m^4*A0*[m2-M2]^-1*pDpp^2
  + 1/8*M^-4*m^4*A0*qDk - 1/8*M^-4*m^4*A0*qDp - 10*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDp*qDpp^2 - 10*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp^2
  *qDpp - 4*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp^3 + 2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDpp^3 - 16*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*qDp*qDpp
   - 10*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*qDp^2 - 8*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk^3*qDp - 2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^3*qDpp
  - 2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^4 + 2*M^-4*m^4*ExtM*[m2-M2]^-3*qDp
  *qDpp^3 - 3*M^-4*m^4*ExtM*[m2-M2]^-3*qDp^4 + 2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDpp^4 + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp*qDpp
  + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp*kDp + 3*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk*qDp*kDpp + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp*pDpp
   + M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp^2 + 2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk*qDpp*kDp + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDpp*pDpp
   - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDpp^2 + 2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk^2*qDp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*qDpp
  + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*kDp + M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk^2*kDpp + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*pDpp
  + M^-4*m^4*ExtM*[m2-M2]^-2*qDp*qDpp*kDpp - M^-4*m^4*ExtM*
 [m2-M2]^-2*qDp*qDpp^2 + 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDp^2*kDpp
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDp^3 - M^-4*m^4*ExtM*[m2-M2]^-2*qDpp^2
  *kDp - 3/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDpp^2*kDpp - M^-4*m^4*ExtM*
 [m2-M2]^-2*qDpp^2*pDpp - M^-4*m^4*ExtM*[m2-M2]^-2*qDpp^3
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDk*qDpp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDk*kDpp - 3/4*M^-4*m^4*ExtM*[m2-M2]^-1*qDp^2
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDpp*kDpp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDpp^2 + 1/4*M^-4*m^4*ExtM*[m2-M2]^-1*kDpp^2 - 35*M^-4
  *m^6*A0*[m2-M2]^-4*qDk*qDp*qDpp^2 - 30*M^-4*m^6*A0*[m2-M2]^-4*qDk
  *qDp^2*qDpp - 8*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp^3 - 15*M^-4*m^6*A0
  *[m2-M2]^-4*qDk*qDpp^3 - 35*M^-4*m^6*A0*[m2-M2]^-4*qDk^2*qDp*qDpp
   - 17*M^-4*m^6*A0*[m2-M2]^-4*qDk^2*qDp^2 - 20*M^-4*m^6*A0*
 [m2-M2]^-4*qDk^2*qDpp^2 - 12*M^-4*m^6*A0*[m2-M2]^-4*qDk^3*qDp
  - 14*M^-4*m^6*A0*[m2-M2]^-4*qDk^3*qDpp - 5*M^-4*m^6*A0*
 [m2-M2]^-4*qDk^4 - 13*M^-4*m^6*A0*[m2-M2]^-4*qDp*qDpp^3 - 17*M^-4
  *m^6*A0*[m2-M2]^-4*qDp^2*qDpp^2 - 9*M^-4*m^6*A0*[m2-M2]^-4*qDp^3
  *qDpp - 3*M^-4*m^6*A0*[m2-M2]^-4*qDp^4 - 7*M^-4*m^6*A0*
 [m2-M2]^-4*qDpp^4 - 8*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp*qDpp
  + 8*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp*kDp + 8*M^-4*m^6*A0*
 [m2-M2]^-3*qDk*qDp*kDpp + 7*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp*pDpp
  - 4*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp^2 + 9*M^-4*m^6*A0*[m2-M2]^-3*qDk
  *qDpp*kDp + 9*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDpp*kDpp + 8*M^-4*m^6*A0
  *[m2-M2]^-3*qDk*qDpp*pDpp - 5*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDpp^2
  - 7/2*M^-4*m^6*A0*[m2-M2]^-3*qDk^2*qDp - 9/2*M^-4*m^6*A0*
 [m2-M2]^-3*qDk^2*qDpp + 9/2*M^-4*m^6*A0*[m2-M2]^-3*qDk^2*kDp
  + 9/2*M^-4*m^6*A0*[m2-M2]^-3*qDk^2*kDpp + 4*M^-4*m^6*A0*
 [m2-M2]^-3*qDk^2*pDpp - 2*M^-4*m^6*A0*[m2-M2]^-3*qDk^3 + 8*M^-4*m^6
  *A0*[m2-M2]^-3*qDp*qDpp*kDp + 8*M^-4*m^6*A0*[m2-M2]^-3*qDp*qDpp*kDpp
   + 7*M^-4*m^6*A0*[m2-M2]^-3*qDp*qDpp*pDpp - 4*M^-4*m^6*A0*
 [m2-M2]^-3*qDp*qDpp^2 - 7/2*M^-4*m^6*A0*[m2-M2]^-3*qDp^2*qDpp
  + 7/2*M^-4*m^6*A0*[m2-M2]^-3*qDp^2*kDp + 7/2*M^-4*m^6*A0*
 [m2-M2]^-3*qDp^2*kDpp + 3*M^-4*m^6*A0*[m2-M2]^-3*qDp^2*pDpp
  - 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDp^3 + 5*M^-4*m^6*A0*[m2-M2]^-3*qDpp^2
  *kDp + 5*M^-4*m^6*A0*[m2-M2]^-3*qDpp^2*kDpp + 4*M^-4*m^6*A0*
 [m2-M2]^-3*qDpp^2*pDpp - 3*M^-4*m^6*A0*[m2-M2]^-3*qDpp^3
  - 3/4*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDp - 5/4*M^-4*m^6*A0*
 [m2-M2]^-2*qDk*qDpp + M^-4*m^6*A0*[m2-M2]^-2*qDk*kDp + M^-4*m^6*A0
  *[m2-M2]^-2*qDk*kDpp + M^-4*m^6*A0*[m2-M2]^-2*qDk*pDpp - 3/4*M^-4
  *m^6*A0*[m2-M2]^-2*qDk^2 - 5/4*M^-4*m^6*A0*[m2-M2]^-2*qDp*qDpp
  + M^-4*m^6*A0*[m2-M2]^-2*qDp*kDp + M^-4*m^6*A0*[m2-M2]^-2*qDp*kDpp
   + M^-4*m^6*A0*[m2-M2]^-2*qDp*pDpp - 3/4*M^-4*m^6*A0*[m2-M2]^-2*qDp^2
   + 5/4*M^-4*m^6*A0*[m2-M2]^-2*qDpp*kDp + 5/4*M^-4*m^6*A0*
 [m2-M2]^-2*qDpp*kDpp + 5/4*M^-4*m^6*A0*[m2-M2]^-2*qDpp*pDpp
  - 5/4*M^-4*m^6*A0*[m2-M2]^-2*qDpp^2 - M^-4*m^6*A0*[m2-M2]^-2*kDp
  *kDpp - M^-4*m^6*A0*[m2-M2]^-2*kDp*pDpp - 1/2*M^-4*m^6*A0*
 [m2-M2]^-2*kDp^2 - M^-4*m^6*A0*[m2-M2]^-2*kDpp*pDpp - 1/2*M^-4*m^6
  *A0*[m2-M2]^-2*kDpp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-2*pDpp^2
  - 1/4*M^-4*m^6*A0*[m2-M2]^-1*qDk - 1/4*M^-4*m^6*A0*[m2-M2]^-1*qDpp
   + 1/8*M^-4*m^6*A0*[m2-M2]^-1*kDp + 1/8*M^-4*m^6*A0*[m2-M2]^-1*kDpp
   + 1/8*M^-4*m^6*A0*[m2-M2]^-1*pDpp + 25*M^-4*m^8*A0*[m2-M2]^-5*qDk
  *qDp*qDpp^2 + 19*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp^2*qDpp + 5*M^-4*m^8
  *A0*[m2-M2]^-5*qDk*qDp^3 + 15*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDpp^3
  + 26*M^-4*m^8*A0*[m2-M2]^-5*qDk^2*qDp*qDpp + 10*M^-4*m^8*A0*
 [m2-M2]^-5*qDk^2*qDp^2 + 20*M^-4*m^8*A0*[m2-M2]^-5*qDk^2*qDpp^2
  + 10*M^-4*m^8*A0*[m2-M2]^-5*qDk^3*qDp + 14*M^-4*m^8*A0*
 [m2-M2]^-5*qDk^3*qDpp + 4*M^-4*m^8*A0*[m2-M2]^-5*qDk^4 + 9*M^-4*m^8
  *A0*[m2-M2]^-5*qDp*qDpp^3 + 11*M^-4*m^8*A0*[m2-M2]^-5*qDp^2*qDpp^2
   + 5*M^-4*m^8*A0*[m2-M2]^-5*qDp^3*qDpp + M^-4*m^8*A0*[m2-M2]^-5*qDp^4
   + 6*M^-4*m^8*A0*[m2-M2]^-5*qDpp^4 + 11/2*M^-4*m^8*A0*[m2-M2]^-4
  *qDk*qDp*qDpp - 6*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp*kDp - 6*M^-4*m^8
  *A0*[m2-M2]^-4*qDk*qDp*kDpp - 4*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp*pDpp
   + 2*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp^2 - 9*M^-4*m^8*A0*[m2-M2]^-4
  *qDk*qDpp*kDp - 9*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDpp*kDpp - 11/2*M^-4
  *m^8*A0*[m2-M2]^-4*qDk*qDpp*pDpp + 5*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDpp^2
   + 3*M^-4*m^8*A0*[m2-M2]^-4*qDk^2*qDp + 9/2*M^-4*m^8*A0*
 [m2-M2]^-4*qDk^2*qDpp - 9/2*M^-4*m^8*A0*[m2-M2]^-4*qDk^2*kDp
  - 9/2*M^-4*m^8*A0*[m2-M2]^-4*qDk^2*kDpp - 3*M^-4*m^8*A0*
 [m2-M2]^-4*qDk^2*pDpp + 3/2*M^-4*m^8*A0*[m2-M2]^-4*qDk^3
  - 11/2*M^-4*m^8*A0*[m2-M2]^-4*qDp*qDpp*kDp - 11/2*M^-4*m^8*A0*
 [m2-M2]^-4*qDp*qDpp*kDpp - 4*M^-4*m^8*A0*[m2-M2]^-4*qDp*qDpp*pDpp
   + 5/2*M^-4*m^8*A0*[m2-M2]^-4*qDp*qDpp^2 + 2*M^-4*m^8*A0*
 [m2-M2]^-4*qDp^2*qDpp - 2*M^-4*m^8*A0*[m2-M2]^-4*qDp^2*kDp
  - 2*M^-4*m^8*A0*[m2-M2]^-4*qDp^2*kDpp - 3/2*M^-4*m^8*A0*
 [m2-M2]^-4*qDp^2*pDpp + 1/2*M^-4*m^8*A0*[m2-M2]^-4*qDp^3
  - 5*M^-4*m^8*A0*[m2-M2]^-4*qDpp^2*kDp - 5*M^-4*m^8*A0*[m2-M2]^-4
  *qDpp^2*kDpp - 5/2*M^-4*m^8*A0*[m2-M2]^-4*qDpp^2*pDpp + 5/2*M^-4
  *m^8*A0*[m2-M2]^-4*qDpp^3 + 3/4*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp
  + 5/4*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDpp - M^-4*m^8*A0*[m2-M2]^-3*qDk
  *kDp - M^-4*m^8*A0*[m2-M2]^-3*qDk*kDpp - 3/4*M^-4*m^8*A0*
 [m2-M2]^-3*qDk*pDpp + 1/2*M^-4*m^8*A0*[m2-M2]^-3*qDk^2 + 3/4*M^-4
  *m^8*A0*[m2-M2]^-3*qDp*qDpp - 3/4*M^-4*m^8*A0*[m2-M2]^-3*qDp*kDp
   - 3/4*M^-4*m^8*A0*[m2-M2]^-3*qDp*kDpp - 1/2*M^-4*m^8*A0*
 [m2-M2]^-3*qDp*pDpp + 1/4*M^-4*m^8*A0*[m2-M2]^-3*qDp^2 - 5/4*M^-4
  *m^8*A0*[m2-M2]^-3*qDpp*kDp - 5/4*M^-4*m^8*A0*[m2-M2]^-3*qDpp*kDpp
   - 3/4*M^-4*m^8*A0*[m2-M2]^-3*qDpp*pDpp + M^-4*m^8*A0*[m2-M2]^-3
  *qDpp^2 + M^-4*m^8*A0*[m2-M2]^-3*kDp*kDpp + 3/4*M^-4*m^8*A0*
 [m2-M2]^-3*kDp*pDpp + 1/2*M^-4*m^8*A0*[m2-M2]^-3*kDp^2 + 3/4*M^-4
  *m^8*A0*[m2-M2]^-3*kDpp*pDpp + 1/2*M^-4*m^8*A0*[m2-M2]^-3*kDpp^2
   + 1/4*M^-4*m^8*A0*[m2-M2]^-3*pDpp^2 + 1/8*M^-4*m^8*A0*
 [m2-M2]^-2*qDk + 1/8*M^-4*m^8*A0*[m2-M2]^-2*qDp + 1/4*M^-4*m^8*A0
  *[m2-M2]^-2*qDpp - 1/8*M^-4*m^8*A0*[m2-M2]^-2*kDp - 1/8*M^-4*m^8
  *A0*[m2-M2]^-2*kDpp - 1/8*M^-4*m^8*A0*[m2-M2]^-2*pDpp - 10*M^-4*A0
  *[m2-M2]^-1*qDk*qDp*qDpp^2 - 14*M^-4*A0*[m2-M2]^-1*qDk*qDp^2*qDpp
   - 6*M^-4*A0*[m2-M2]^-1*qDk*qDp^3 - 2*M^-4*A0*[m2-M2]^-1*qDk*qDpp^3
   - 6*M^-4*A0*[m2-M2]^-1*qDk^2*qDp*qDpp - 6*M^-4*A0*[m2-M2]^-1*qDk^2
  *qDp^2 - 2*M^-4*A0*[m2-M2]^-1*qDk^3*qDp - 8*M^-4*A0*[m2-M2]^-1*qDp
  *qDpp^3 - 12*M^-4*A0*[m2-M2]^-1*qDp^2*qDpp^2 - 8*M^-4*A0*
 [m2-M2]^-1*qDp^3*qDpp - 2*M^-4*A0*[m2-M2]^-1*qDp^4 - 2*M^-4*A0*
 [m2-M2]^-1*qDpp^4 + 1/2*M^-4*A0*qDk*qDp*qDpp - 1/2*M^-4*A0*qDk*qDp
  *kDp - 1/2*M^-4*A0*qDk*qDp*kDpp - M^-4*A0*qDk*qDpp*kDp - M^-4*A0
  *qDk*qDpp*kDpp + 1/2*M^-4*A0*qDk*qDpp^2 - 1/2*M^-4*A0*qDk^2*qDp
  - 4*M^-4*A0*qDp*qDpp*kDp - 4*M^-4*A0*qDp*qDpp*kDpp + 3/2*M^-4*A0
  *qDp*qDpp^2 + 3/2*M^-4*A0*qDp^2*qDpp - 3/2*M^-4*A0*qDp^2*kDp
  - 3/2*M^-4*A0*qDp^2*kDpp + 1/2*M^-4*A0*qDp^3 - 2*M^-4*A0*qDpp^2*kDp
   - 2*M^-4*A0*qDpp^2*kDpp + 1/2*M^-4*A0*qDpp^3 + 4*M^-4*ExtM*
 [m2-M2]^-1*qDk*qDp*qDpp^2 + 2*M^-4*ExtM*[m2-M2]^-1*qDk*qDp^3
  + 6*M^-4*ExtM*[m2-M2]^-1*qDk*qDpp^3 + 8*M^-4*ExtM*[m2-M2]^-1*qDk^2
  *qDp*qDpp + 6*M^-4*ExtM*[m2-M2]^-1*qDk^2*qDp^2 + 6*M^-4*ExtM*
 [m2-M2]^-1*qDk^2*qDpp^2 + 4*M^-4*ExtM*[m2-M2]^-1*qDk^3*qDp
  + 2*M^-4*ExtM*[m2-M2]^-1*qDk^3*qDpp - 6*M^-4*ExtM*[m2-M2]^-1*qDp^2
  *qDpp^2 - 2*M^-4*ExtM*[m2-M2]^-1*qDp^3*qDpp + 2*M^-4*ExtM*
 [m2-M2]^-1*qDpp^4 + 2*M^-4*ExtM*qDk*qDp*qDpp - 2*M^-4*ExtM*qDk*qDp
  *kDpp - 3*M^-4*ExtM*qDk*qDpp*kDpp + 3/2*M^-4*ExtM*qDk*qDpp^2
  + M^-4*ExtM*qDk^2*qDpp - M^-4*ExtM*qDk^2*kDpp - 2*M^-4*ExtM*qDp*qDpp
  *kDpp + M^-4*ExtM*qDp*qDpp^2 - 3/2*M^-4*ExtM*qDpp^2*kDpp
  + 1/2*M^-4*ExtM*qDpp^3 - 2*M^-4*ExtM^2*[m2-M2]^-1*qDk*qDp*qDpp^2
   - 2*M^-4*ExtM^2*[m2-M2]^-1*qDk*qDpp^3 + 2*M^-4*ExtM^2*
 [m2-M2]^-1*qDk^2*qDp*qDpp + 2*M^-4*ExtM^2*[m2-M2]^-1*qDk^3*qDp
  + 2*M^-4*ExtM^2*[m2-M2]^-1*qDk^3*qDpp + M^-4*ExtM^2*[m2-M2]^-1*qDk^4
   - 2*M^-4*ExtM^2*[m2-M2]^-1*qDp*qDpp^3 - M^-4*ExtM^2*[m2-M2]^-1*qDpp^4 )
 
 + D(a,b)*D(c,d)*Nohm^4
  * ( 27*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*qDpp^2 + 27*M^-4*m^2*A0*
 [m2-M2]^-1*qDk*qDp^2*qDpp + 7*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp^3
  + 11*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp^3 + 24*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^2*qDp*qDpp + 12*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*qDp^2
   + 12*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*qDpp^2 + 8*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^3*qDp + 10*M^-4*m^2*A0*[m2-M2]^-1*qDk^3*qDpp
  + 4*M^-4*m^2*A0*[m2-M2]^-1*qDk^4 + 11*M^-4*m^2*A0*[m2-M2]^-1*qDp
  *qDpp^3 + 15*M^-4*m^2*A0*[m2-M2]^-1*qDp^2*qDpp^2 + 7*M^-4*m^2*A0
  *[m2-M2]^-1*qDp^3*qDpp + 5*M^-4*m^2*A0*[m2-M2]^-1*qDpp^4
  - 1/2*M^-4*m^2*A0*qDk*qDp*qDpp + 1/2*M^-4*m^2*A0*qDk*qDp*kDp
  + 1/2*M^-4*m^2*A0*qDk*qDp*kDpp + 1/2*M^-4*m^2*A0*qDk*qDp^2
  - 1/2*M^-4*m^2*A0*qDk^2*qDp + 1/2*M^-4*m^2*A0*qDk^2*qDpp
  - 1/2*M^-4*m^2*A0*qDk^2*kDp - 1/2*M^-4*m^2*A0*qDk^2*kDpp
  + 3/2*M^-4*m^2*A0*qDk^3 + 1/2*M^-4*m^2*A0*qDp^2*qDpp - 1/2*M^-4*m^2
  *A0*qDp^2*kDp - 1/2*M^-4*m^2*A0*qDp^2*kDpp + 6*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*qDp*qDpp^2 + 12*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp^2
  *qDpp + 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp^3 - 8*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*qDpp^3 + 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*qDp*qDpp
   + 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*qDp^2 - 6*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk^2*qDpp^2 + 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^3*qDp
  + 2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^4 - 2*M^-4*m^2*ExtM*[m2-M2]^-1*qDp
  *qDpp^3 + 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^2*qDpp^2 + 2*M^-4*m^2*ExtM
  *[m2-M2]^-1*qDp^3*qDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^4
  - 4*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp^4 - M^-4*m^2*ExtM*qDp^3
  - 12*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*qDpp^2 - 5*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*qDp^2*qDpp + M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp^3
  - 9*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp^3 - 13*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^2*qDp*qDpp - 3*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDp^2
  - 12*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDpp^2 - 5*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^3*qDp - 10*M^-4*m^4*A0*[m2-M2]^-2*qDk^3*qDpp
  - 3*M^-4*m^4*A0*[m2-M2]^-2*qDk^4 - 2*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp^3
   + 3*M^-4*m^4*A0*[m2-M2]^-2*qDp^3*qDpp + 4*M^-4*m^4*A0*
 [m2-M2]^-2*qDp^4 - 2*M^-4*m^4*A0*[m2-M2]^-2*qDpp^4 - 4*M^-4*m^4*A0
  *[m2-M2]^-1*qDk*qDp*qDpp + 9/2*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp*kDp
   + 9/2*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp*kDpp + 4*M^-4*m^4*A0*
 [m2-M2]^-1*qDk*qDp*pDpp - 2*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp^2
  + 6*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp*kDp + 6*M^-4*m^4*A0*
 [m2-M2]^-1*qDk*qDpp*kDpp + 9/2*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp*pDpp
   - 3*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp^2 - 5/2*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^2*qDp - 7/2*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*qDpp
  + 7/2*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*kDp + 7/2*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^2*kDpp + 5/2*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*pDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-1*qDk^3 + 9/2*M^-4*m^4*A0*[m2-M2]^-1*qDp
  *qDpp*kDp + 9/2*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp*kDpp + 3*M^-4*m^4
  *A0*[m2-M2]^-1*qDp*qDpp*pDpp - 3/2*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp^2
   - 2*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*qDpp + 5/2*M^-4*m^4*A0*
 [m2-M2]^-1*qDp^2*kDp + 5/2*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*kDpp
  + 3/2*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*pDpp - M^-4*m^4*A0*[m2-M2]^-1
  *qDp^3 + 3*M^-4*m^4*A0*[m2-M2]^-1*qDpp^2*kDp + 3*M^-4*m^4*A0*
 [m2-M2]^-1*qDpp^2*kDpp + 3/2*M^-4*m^4*A0*[m2-M2]^-1*qDpp^2*pDpp
  - M^-4*m^4*A0*[m2-M2]^-1*qDpp^3 - 1/4*M^-4*m^4*A0*qDk*qDp
  + 1/4*M^-4*m^4*A0*qDk^2 + 1/4*M^-4*m^4*A0*qDp^2 - 6*M^-4*m^4*ExtM
  *[m2-M2]^-2*qDk*qDp*qDpp^2 - 6*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp^2
  *qDpp - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp^3 + 2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk*qDpp^3 - 12*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*qDp*qDpp
   - 6*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*qDp^2 - 6*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk^3*qDp - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^3*qDpp
  - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^4 + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDp
  *qDpp^3 - 3*M^-4*m^4*ExtM*[m2-M2]^-2*qDp^4 + 2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDpp^4 - 3*M^-4*m^4*ExtM*[m2-M2]^-1*qDk*qDpp*kDpp
  - 3/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDk*qDpp^2 - 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDk^2*qDpp - 3/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDk^2*kDpp
  - M^-4*m^4*ExtM*[m2-M2]^-1*qDk^3 + 1/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDp^3
   - 3/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDpp^2*kDpp - M^-4*m^4*ExtM*
 [m2-M2]^-1*qDpp^3 - 35*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp*qDpp^2
  - 30*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp^2*qDpp - 8*M^-4*m^6*A0*
 [m2-M2]^-3*qDk*qDp^3 - 15*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDpp^3
  - 33*M^-4*m^6*A0*[m2-M2]^-3*qDk^2*qDp*qDpp - 16*M^-4*m^6*A0*
 [m2-M2]^-3*qDk^2*qDp^2 - 19*M^-4*m^6*A0*[m2-M2]^-3*qDk^2*qDpp^2
  - 10*M^-4*m^6*A0*[m2-M2]^-3*qDk^3*qDp - 12*M^-4*m^6*A0*
 [m2-M2]^-3*qDk^3*qDpp - 4*M^-4*m^6*A0*[m2-M2]^-3*qDk^4 - 13*M^-4*m^6
  *A0*[m2-M2]^-3*qDp*qDpp^3 - 16*M^-4*m^6*A0*[m2-M2]^-3*qDp^2*qDpp^2
   - 9*M^-4*m^6*A0*[m2-M2]^-3*qDp^3*qDpp - 3*M^-4*m^6*A0*
 [m2-M2]^-3*qDp^4 - 7*M^-4*m^6*A0*[m2-M2]^-3*qDpp^4 - 7*M^-4*m^6*A0
  *[m2-M2]^-2*qDk*qDp*qDpp + 6*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDp*kDp
  + 6*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDp*kDpp + 6*M^-4*m^6*A0*
 [m2-M2]^-2*qDk*qDp*pDpp - 7/2*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDp^2
  + 7*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDpp*kDp + 7*M^-4*m^6*A0*
 [m2-M2]^-2*qDk*qDpp*kDpp + 7*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDpp*pDpp
   - 9/2*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDpp^2 - 5/2*M^-4*m^6*A0*
 [m2-M2]^-2*qDk^2*qDp - 7/2*M^-4*m^6*A0*[m2-M2]^-2*qDk^2*qDpp
  + 3*M^-4*m^6*A0*[m2-M2]^-2*qDk^2*kDp + 3*M^-4*m^6*A0*[m2-M2]^-2*qDk^2
  *kDpp + 3*M^-4*m^6*A0*[m2-M2]^-2*qDk^2*pDpp - 3/2*M^-4*m^6*A0*
 [m2-M2]^-2*qDk^3 + 7*M^-4*m^6*A0*[m2-M2]^-2*qDp*qDpp*kDp
  + 7*M^-4*m^6*A0*[m2-M2]^-2*qDp*qDpp*kDpp + 7*M^-4*m^6*A0*
 [m2-M2]^-2*qDp*qDpp*pDpp - 9/2*M^-4*m^6*A0*[m2-M2]^-2*qDp*qDpp^2
  - 7/2*M^-4*m^6*A0*[m2-M2]^-2*qDp^2*qDpp + 3*M^-4*m^6*A0*
 [m2-M2]^-2*qDp^2*kDp + 3*M^-4*m^6*A0*[m2-M2]^-2*qDp^2*kDpp
  + 3*M^-4*m^6*A0*[m2-M2]^-2*qDp^2*pDpp - 1/2*M^-4*m^6*A0*
 [m2-M2]^-2*qDp^3 + 9/2*M^-4*m^6*A0*[m2-M2]^-2*qDpp^2*kDp
  + 9/2*M^-4*m^6*A0*[m2-M2]^-2*qDpp^2*kDpp + 9/2*M^-4*m^6*A0*
 [m2-M2]^-2*qDpp^2*pDpp - 3*M^-4*m^6*A0*[m2-M2]^-2*qDpp^3
  - 1/4*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp - 3/4*M^-4*m^6*A0*
 [m2-M2]^-1*qDk*qDpp + 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDk*kDp
  + 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDk*kDpp + 1/2*M^-4*m^6*A0*
 [m2-M2]^-1*qDk*pDpp - 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDk^2 - 3/4*M^-4
  *m^6*A0*[m2-M2]^-1*qDp*qDpp + 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDp*kDp
   + 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDp*kDpp + 1/2*M^-4*m^6*A0*
 [m2-M2]^-1*qDp*pDpp - 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDp^2 + 3/4*M^-4
  *m^6*A0*[m2-M2]^-1*qDpp*kDp + 3/4*M^-4*m^6*A0*[m2-M2]^-1*qDpp*kDpp
   + 3/4*M^-4*m^6*A0*[m2-M2]^-1*qDpp*pDpp - 3/4*M^-4*m^6*A0*
 [m2-M2]^-1*qDpp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-1*kDp*kDpp - 1/2*M^-4
  *m^6*A0*[m2-M2]^-1*kDp*pDpp - 1/4*M^-4*m^6*A0*[m2-M2]^-1*kDp^2
  - 1/2*M^-4*m^6*A0*[m2-M2]^-1*kDpp*pDpp - 1/4*M^-4*m^6*A0*
 [m2-M2]^-1*kDpp^2 - 1/4*M^-4*m^6*A0*[m2-M2]^-1*pDpp^2 + 26*M^-4*m^8
  *A0*[m2-M2]^-4*qDk*qDp*qDpp^2 + 19*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp^2
  *qDpp + 5*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp^3 + 15*M^-4*m^8*A0*
 [m2-M2]^-4*qDk*qDpp^3 + 26*M^-4*m^8*A0*[m2-M2]^-4*qDk^2*qDp*qDpp
  + 10*M^-4*m^8*A0*[m2-M2]^-4*qDk^2*qDp^2 + 19*M^-4*m^8*A0*
 [m2-M2]^-4*qDk^2*qDpp^2 + 9*M^-4*m^8*A0*[m2-M2]^-4*qDk^3*qDp
  + 12*M^-4*m^8*A0*[m2-M2]^-4*qDk^3*qDpp + 3*M^-4*m^8*A0*
 [m2-M2]^-4*qDk^4 + 9*M^-4*m^8*A0*[m2-M2]^-4*qDp*qDpp^3 + 10*M^-4*m^8
  *A0*[m2-M2]^-4*qDp^2*qDpp^2 + 5*M^-4*m^8*A0*[m2-M2]^-4*qDp^3*qDpp
   + M^-4*m^8*A0*[m2-M2]^-4*qDp^4 + 6*M^-4*m^8*A0*[m2-M2]^-4*qDpp^4
   + 11/2*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp*qDpp - 5*M^-4*m^8*A0*
 [m2-M2]^-3*qDk*qDp*kDp - 5*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp*kDpp
  - 4*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp*pDpp + 2*M^-4*m^8*A0*
 [m2-M2]^-3*qDk*qDp^2 - 7*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDpp*kDp
  - 7*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDpp*kDpp - 11/2*M^-4*m^8*A0*
 [m2-M2]^-3*qDk*qDpp*pDpp + 9/2*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDpp^2
  + 5/2*M^-4*m^8*A0*[m2-M2]^-3*qDk^2*qDp + 7/2*M^-4*m^8*A0*
 [m2-M2]^-3*qDk^2*qDpp - 3*M^-4*m^8*A0*[m2-M2]^-3*qDk^2*kDp
  - 3*M^-4*m^8*A0*[m2-M2]^-3*qDk^2*kDpp - 5/2*M^-4*m^8*A0*
 [m2-M2]^-3*qDk^2*pDpp + M^-4*m^8*A0*[m2-M2]^-3*qDk^3 - 11/2*M^-4*m^8
  *A0*[m2-M2]^-3*qDp*qDpp*kDp - 11/2*M^-4*m^8*A0*[m2-M2]^-3*qDp*qDpp
  *kDpp - 4*M^-4*m^8*A0*[m2-M2]^-3*qDp*qDpp*pDpp + 3*M^-4*m^8*A0*
 [m2-M2]^-3*qDp*qDpp^2 + 2*M^-4*m^8*A0*[m2-M2]^-3*qDp^2*qDpp
  - 2*M^-4*m^8*A0*[m2-M2]^-3*qDp^2*kDp - 2*M^-4*m^8*A0*[m2-M2]^-3*qDp^2
  *kDpp - 3/2*M^-4*m^8*A0*[m2-M2]^-3*qDp^2*pDpp + 1/2*M^-4*m^8*A0*
 [m2-M2]^-3*qDp^3 - 9/2*M^-4*m^8*A0*[m2-M2]^-3*qDpp^2*kDp
  - 9/2*M^-4*m^8*A0*[m2-M2]^-3*qDpp^2*kDpp - 3*M^-4*m^8*A0*
 [m2-M2]^-3*qDpp^2*pDpp + 5/2*M^-4*m^8*A0*[m2-M2]^-3*qDpp^3
  + 1/2*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp + 3/4*M^-4*m^8*A0*
 [m2-M2]^-2*qDk*qDpp - 1/2*M^-4*m^8*A0*[m2-M2]^-2*qDk*kDp
  - 1/2*M^-4*m^8*A0*[m2-M2]^-2*qDk*kDpp - 1/2*M^-4*m^8*A0*
 [m2-M2]^-2*qDk*pDpp + 1/4*M^-4*m^8*A0*[m2-M2]^-2*qDk^2 + 3/4*M^-4
  *m^8*A0*[m2-M2]^-2*qDp*qDpp - 1/2*M^-4*m^8*A0*[m2-M2]^-2*qDp*kDp
   - 1/2*M^-4*m^8*A0*[m2-M2]^-2*qDp*kDpp - 1/2*M^-4*m^8*A0*
 [m2-M2]^-2*qDp*pDpp + 1/4*M^-4*m^8*A0*[m2-M2]^-2*qDp^2 - 3/4*M^-4
  *m^8*A0*[m2-M2]^-2*qDpp*kDp - 3/4*M^-4*m^8*A0*[m2-M2]^-2*qDpp*kDpp
   - 3/4*M^-4*m^8*A0*[m2-M2]^-2*qDpp*pDpp + 3/4*M^-4*m^8*A0*
 [m2-M2]^-2*qDpp^2 + 1/2*M^-4*m^8*A0*[m2-M2]^-2*kDp*kDpp + 1/2*M^-4
  *m^8*A0*[m2-M2]^-2*kDp*pDpp + 1/4*M^-4*m^8*A0*[m2-M2]^-2*kDp^2
  + 1/2*M^-4*m^8*A0*[m2-M2]^-2*kDpp*pDpp + 1/4*M^-4*m^8*A0*
 [m2-M2]^-2*kDpp^2 + 1/4*M^-4*m^8*A0*[m2-M2]^-2*pDpp^2 - 3*M^-4*A0
  *qDk*qDp*qDpp^2 - 2*M^-4*A0*qDk*qDp^2*qDpp - M^-4*A0*qDk*qDpp^3
  - M^-4*A0*qDk^2*qDp*qDpp - M^-4*A0*qDk^3*qDp - 4*M^-4*A0*qDp*qDpp^3
   - 6*M^-4*A0*qDp^2*qDpp^2 - 4*M^-4*A0*qDp^3*qDpp - M^-4*A0*qDp^4
   - M^-4*A0*qDpp^4 + 6*M^-4*ExtM*qDk*qDp*qDpp^2 + 4*M^-4*ExtM*qDk
  *qDpp^3 + 6*M^-4*ExtM*qDk^2*qDp*qDpp + 6*M^-4*ExtM*qDk^2*qDpp^2
  + 3*M^-4*ExtM*qDk^3*qDpp + 2*M^-4*ExtM*qDp*qDpp^3 + M^-4*ExtM*qDpp^4 )
 
 + D(a,b)*D(c,d)*Nohm^5
  * ( M^-4*m^2*A0*qDk*qDp^2*qDpp - M^-4*m^2*A0*qDk*qDp^3 - M^-4*m^2
  *A0*qDk^2*qDp*qDpp + M^-4*m^2*A0*qDk^2*qDp^2 - M^-4*m^2*A0*qDk^3
  *qDp + M^-4*m^2*A0*qDk^3*qDpp + 3*M^-4*m^2*A0*qDk^4 - M^-4*m^2*A0
  *qDp^3*qDpp + 2*M^-4*m^2*ExtM*qDp^4 - 18*M^-4*m^4*A0*[m2-M2]^-1*qDk
  *qDp*qDpp^2 - 17*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp^2*qDpp - 5*M^-4*m^4
  *A0*[m2-M2]^-1*qDk*qDp^3 - 8*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp^3
  - 19*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*qDp*qDpp - 9*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^2*qDp^2 - 12*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*qDpp^2
  - 7*M^-4*m^4*A0*[m2-M2]^-1*qDk^3*qDp - 9*M^-4*m^4*A0*[m2-M2]^-1*qDk^3
  *qDpp - 3*M^-4*m^4*A0*[m2-M2]^-1*qDk^4 - 4*M^-4*m^4*A0*
 [m2-M2]^-1*qDp*qDpp^3 - 6*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*qDpp^2
  - 3*M^-4*m^4*A0*[m2-M2]^-1*qDp^3*qDpp + 2*M^-4*m^4*A0*[m2-M2]^-1
  *qDp^4 - 2*M^-4*m^4*A0*[m2-M2]^-1*qDpp^4 + 1/2*M^-4*m^4*A0*qDk*qDp^2
   - 1/2*M^-4*m^4*A0*qDk^2*qDp + 1/2*M^-4*m^4*A0*qDk^3 - 1/2*M^-4*m^4
  *A0*qDp^3 + 4*M^-4*m^4*ExtM*[m2-M2]^-1*qDk*qDpp^3 + 6*M^-4*m^4*ExtM
  *[m2-M2]^-1*qDk^2*qDpp^2 + 4*M^-4*m^4*ExtM*[m2-M2]^-1*qDk^3*qDpp
   - 3*M^-4*m^4*ExtM*[m2-M2]^-1*qDp^4 + 2*M^-4*m^4*ExtM*[m2-M2]^-1
  *qDpp^4 - 32*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDp*qDpp^2 - 27*M^-4*m^6
  *A0*[m2-M2]^-2*qDk*qDp^2*qDpp - 7*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDp^3
   - 14*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDpp^3 - 27*M^-4*m^6*A0*
 [m2-M2]^-2*qDk^2*qDp*qDpp - 13*M^-4*m^6*A0*[m2-M2]^-2*qDk^2*qDp^2
   - 16*M^-4*m^6*A0*[m2-M2]^-2*qDk^2*qDpp^2 - 7*M^-4*m^6*A0*
 [m2-M2]^-2*qDk^3*qDp - 9*M^-4*m^6*A0*[m2-M2]^-2*qDk^3*qDpp
  - 3*M^-4*m^6*A0*[m2-M2]^-2*qDk^4 - 14*M^-4*m^6*A0*[m2-M2]^-2*qDp
  *qDpp^3 - 16*M^-4*m^6*A0*[m2-M2]^-2*qDp^2*qDpp^2 - 9*M^-4*m^6*A0
  *[m2-M2]^-2*qDp^3*qDpp - 3*M^-4*m^6*A0*[m2-M2]^-2*qDp^4
  - 7*M^-4*m^6*A0*[m2-M2]^-2*qDpp^4 - 4*M^-4*m^6*A0*[m2-M2]^-1*qDk
  *qDp*qDpp + 3*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp*kDp + 3*M^-4*m^6*A0
  *[m2-M2]^-1*qDk*qDp*kDpp + 3*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp*pDpp
   - 2*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp^2 + 4*M^-4*m^6*A0*[m2-M2]^-1
  *qDk*qDpp*kDp + 4*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDpp*kDpp + 4*M^-4*m^6
  *A0*[m2-M2]^-1*qDk*qDpp*pDpp - 3*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDpp^2
   - M^-4*m^6*A0*[m2-M2]^-1*qDk^2*qDp - 2*M^-4*m^6*A0*[m2-M2]^-1*qDk^2
  *qDpp + 3/2*M^-4*m^6*A0*[m2-M2]^-1*qDk^2*kDp + 3/2*M^-4*m^6*A0*
 [m2-M2]^-1*qDk^2*kDpp + 3/2*M^-4*m^6*A0*[m2-M2]^-1*qDk^2*pDpp
  - M^-4*m^6*A0*[m2-M2]^-1*qDk^3 + 4*M^-4*m^6*A0*[m2-M2]^-1*qDp*qDpp
  *kDp + 4*M^-4*m^6*A0*[m2-M2]^-1*qDp*qDpp*kDpp + 4*M^-4*m^6*A0*
 [m2-M2]^-1*qDp*qDpp*pDpp - 3*M^-4*m^6*A0*[m2-M2]^-1*qDp*qDpp^2
  - 2*M^-4*m^6*A0*[m2-M2]^-1*qDp^2*qDpp + 3/2*M^-4*m^6*A0*
 [m2-M2]^-1*qDp^2*kDp + 3/2*M^-4*m^6*A0*[m2-M2]^-1*qDp^2*kDpp
  + 3/2*M^-4*m^6*A0*[m2-M2]^-1*qDp^2*pDpp + 3*M^-4*m^6*A0*
 [m2-M2]^-1*qDpp^2*kDp + 3*M^-4*m^6*A0*[m2-M2]^-1*qDpp^2*kDpp
  + 3*M^-4*m^6*A0*[m2-M2]^-1*qDpp^2*pDpp - 2*M^-4*m^6*A0*
 [m2-M2]^-1*qDpp^3 + 26*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp*qDpp^2
  + 19*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp^2*qDpp + 5*M^-4*m^8*A0*
 [m2-M2]^-3*qDk*qDp^3 + 14*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDpp^3
  + 23*M^-4*m^8*A0*[m2-M2]^-3*qDk^2*qDp*qDpp + 9*M^-4*m^8*A0*
 [m2-M2]^-3*qDk^2*qDp^2 + 16*M^-4*m^8*A0*[m2-M2]^-3*qDk^2*qDpp^2
  + 7*M^-4*m^8*A0*[m2-M2]^-3*qDk^3*qDp + 9*M^-4*m^8*A0*[m2-M2]^-3*qDk^3
  *qDpp + 2*M^-4*m^8*A0*[m2-M2]^-3*qDk^4 + 10*M^-4*m^8*A0*
 [m2-M2]^-3*qDp*qDpp^3 + 10*M^-4*m^8*A0*[m2-M2]^-3*qDp^2*qDpp^2
  + 5*M^-4*m^8*A0*[m2-M2]^-3*qDp^3*qDpp + M^-4*m^8*A0*[m2-M2]^-3*qDp^4
   + 6*M^-4*m^8*A0*[m2-M2]^-3*qDpp^4 + 4*M^-4*m^8*A0*[m2-M2]^-2*qDk
  *qDp*qDpp - 3*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp*kDp - 3*M^-4*m^8*A0
  *[m2-M2]^-2*qDk*qDp*kDpp - 3*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp*pDpp
   + 3/2*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp^2 - 4*M^-4*m^8*A0*
 [m2-M2]^-2*qDk*qDpp*kDp - 4*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDpp*kDpp
  - 4*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDpp*pDpp + 3*M^-4*m^8*A0*
 [m2-M2]^-2*qDk*qDpp^2 + 3/2*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*qDp
  + 2*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*qDpp - 3/2*M^-4*m^8*A0*
 [m2-M2]^-2*qDk^2*kDp - 3/2*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*kDpp
  - 3/2*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*pDpp + 1/2*M^-4*m^8*A0*
 [m2-M2]^-2*qDk^3 - 4*M^-4*m^8*A0*[m2-M2]^-2*qDp*qDpp*kDp
  - 4*M^-4*m^8*A0*[m2-M2]^-2*qDp*qDpp*kDpp - 4*M^-4*m^8*A0*
 [m2-M2]^-2*qDp*qDpp*pDpp + 3*M^-4*m^8*A0*[m2-M2]^-2*qDp*qDpp^2
  + 2*M^-4*m^8*A0*[m2-M2]^-2*qDp^2*qDpp - 3/2*M^-4*m^8*A0*
 [m2-M2]^-2*qDp^2*kDp - 3/2*M^-4*m^8*A0*[m2-M2]^-2*qDp^2*kDpp
  - 3/2*M^-4*m^8*A0*[m2-M2]^-2*qDp^2*pDpp + 1/2*M^-4*m^8*A0*
 [m2-M2]^-2*qDp^3 - 3*M^-4*m^8*A0*[m2-M2]^-2*qDpp^2*kDp - 3*M^-4*m^8
  *A0*[m2-M2]^-2*qDpp^2*kDpp - 3*M^-4*m^8*A0*[m2-M2]^-2*qDpp^2*pDpp
   + 2*M^-4*m^8*A0*[m2-M2]^-2*qDpp^3 )
 
 + D(a,b)*D(c,d)*Nohm^6
  * ( - M^-4*m^4*A0*qDk*qDp^3 + M^-4*m^4*A0*qDk^2*qDp^2 - M^-4*m^4
  *A0*qDk^3*qDp + M^-4*m^4*A0*qDk^4 + M^-4*m^4*A0*qDp^4 - 20*M^-4*m^6
  *A0*[m2-M2]^-1*qDk*qDp*qDpp^2 - 15*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp^2
  *qDpp - 3*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp^3 - 10*M^-4*m^6*A0*
 [m2-M2]^-1*qDk*qDpp^3 - 15*M^-4*m^6*A0*[m2-M2]^-1*qDk^2*qDp*qDpp
  - 7*M^-4*m^6*A0*[m2-M2]^-1*qDk^2*qDp^2 - 10*M^-4*m^6*A0*
 [m2-M2]^-1*qDk^2*qDpp^2 - 3*M^-4*m^6*A0*[m2-M2]^-1*qDk^3*qDp
  - 5*M^-4*m^6*A0*[m2-M2]^-1*qDk^3*qDpp - 2*M^-4*m^6*A0*[m2-M2]^-1
  *qDk^4 - 10*M^-4*m^6*A0*[m2-M2]^-1*qDp*qDpp^3 - 10*M^-4*m^6*A0*
 [m2-M2]^-1*qDp^2*qDpp^2 - 5*M^-4*m^6*A0*[m2-M2]^-1*qDp^3*qDpp
  - 2*M^-4*m^6*A0*[m2-M2]^-1*qDp^4 - 5*M^-4*m^6*A0*[m2-M2]^-1*qDpp^4
   + 20*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp*qDpp^2 + 15*M^-4*m^8*A0*
 [m2-M2]^-2*qDk*qDp^2*qDpp + 4*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp^3
  + 10*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDpp^3 + 15*M^-4*m^8*A0*
 [m2-M2]^-2*qDk^2*qDp*qDpp + 6*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*qDp^2
  + 10*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*qDpp^2 + 4*M^-4*m^8*A0*
 [m2-M2]^-2*qDk^3*qDp + 5*M^-4*m^8*A0*[m2-M2]^-2*qDk^3*qDpp
  + M^-4*m^8*A0*[m2-M2]^-2*qDk^4 + 10*M^-4*m^8*A0*[m2-M2]^-2*qDp*qDpp^3
   + 10*M^-4*m^8*A0*[m2-M2]^-2*qDp^2*qDpp^2 + 5*M^-4*m^8*A0*
 [m2-M2]^-2*qDp^3*qDpp + M^-4*m^8*A0*[m2-M2]^-2*qDp^4 + 5*M^-4*m^8
  *A0*[m2-M2]^-2*qDpp^4 )
 
 + D(a,c)*D(b,d)*Nom
  * ( - 1/2*M^-4*m^2*A1*[m2-M2]^-2*qDp*kDpp + 1/2*M^-4*m^2*A2*
 [m2-M2]^-2*qDk*kDpp - 1/2*M^-4*m^2*A2*[m2-M2]^-2*qDpp*kDpp
  + 1/8*M^-4*m^2*A0 + 27*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp*qDpp^2
  + 24*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp^2*qDpp + 11*M^-4*m^2*A0*
 [m2-M2]^-4*qDk*qDpp^3 + 21*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDp*qDpp
  + 3*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDp^2 + 12*M^-4*m^2*A0*
 [m2-M2]^-4*qDk^2*qDpp^2 + 3*M^-4*m^2*A0*[m2-M2]^-4*qDk^3*qDp
  + 9*M^-4*m^2*A0*[m2-M2]^-4*qDk^3*qDpp + 3*M^-4*m^2*A0*[m2-M2]^-4
  *qDk^4 + 11*M^-4*m^2*A0*[m2-M2]^-4*qDp*qDpp^3 + 15*M^-4*m^2*A0*
 [m2-M2]^-4*qDp^2*qDpp^2 + 6*M^-4*m^2*A0*[m2-M2]^-4*qDp^3*qDpp
  - 2*M^-4*m^2*A0*[m2-M2]^-4*qDp^4 + 5*M^-4*m^2*A0*[m2-M2]^-4*qDpp^4
   + 6*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*qDpp - 2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp*kDp - 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*kDpp
  - 8*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*pDpp + 3*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp^2 - 6*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDp
  - 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDpp - 8*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDpp*pDpp + 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp^2
  + 2*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDp + 5/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*qDpp - 3/2*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*kDp
  - 4*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*kDpp - 7/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*pDpp + 1/2*M^-4*m^2*A0*[m2-M2]^-3*qDk^3
  - 9*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*kDp - 10*M^-4*m^2*A0*
 [m2-M2]^-3*qDp*qDpp*kDpp - 10*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*pDpp
   + 4*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp^2 + 3*M^-4*m^2*A0*
 [m2-M2]^-3*qDp^2*qDpp - M^-4*m^2*A0*[m2-M2]^-3*qDp^2*kDp
  - 9/2*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*kDpp - 7/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDp^2*pDpp + M^-4*m^2*A0*[m2-M2]^-3*qDp^3 - 4*M^-4*m^2
  *A0*[m2-M2]^-3*qDpp^2*kDp - 9/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*kDpp
   - 9/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*pDpp + 3/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDpp^3 + 2*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp - 7/4*M^-4*m^2
  *A0*[m2-M2]^-2*qDk*kDp - 7/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*kDpp
  - 7/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*pDpp + 3/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2 + 1/2*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp - M^-4*m^2
  *A0*[m2-M2]^-2*qDp*kDp - 5/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*kDpp
  - 5/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*pDpp - 1/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDp^2 - 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp*kDp - 7/2*M^-4
  *m^2*A0*[m2-M2]^-2*qDpp*kDpp - 11/4*M^-4*m^2*A0*[m2-M2]^-2*qDpp*pDpp
   + 5/4*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2 + 3*M^-4*m^2*A0*[m2-M2]^-2*kDp
  *kDpp + 13/4*M^-4*m^2*A0*[m2-M2]^-2*kDp*pDpp + M^-4*m^2*A0*
 [m2-M2]^-2*kDp^2 + 13/4*M^-4*m^2*A0*[m2-M2]^-2*kDpp*pDpp
  + 3/2*M^-4*m^2*A0*[m2-M2]^-2*kDpp^2 + 3/2*M^-4*m^2*A0*[m2-M2]^-2
  *pDpp^2 + 1/4*M^-4*m^2*A0*[m2-M2]^-1*qDk + 1/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDp + 1/4*M^-4*m^2*A0*[m2-M2]^-1*qDpp - 1/4*M^-4*m^2*A0
  *[m2-M2]^-1*kDp - 7/8*M^-4*m^2*A0*[m2-M2]^-1*kDpp - 3/8*M^-4*m^2
  *A0*[m2-M2]^-1*pDpp + M^-4*m^2*R1Z*Extm*[m2-M2]^-3*qDk^2*kDpp
  + M^-4*m^2*R1Z*Extm*[m2-M2]^-3*qDp^2*kDpp + M^-4*m^2*R1Z*Extm*
 [m2-M2]^-3*qDpp^2*kDpp - M^-4*m^2*R1Z*Extm*[m2-M2]^-2*qDk*kDpp
  + M^-4*m^2*R1Z*Extm*[m2-M2]^-2*qDp*kDpp + M^-4*m^2*R1Z*Extm*
 [m2-M2]^-2*qDpp*kDpp + 3/4*M^-4*m^2*R1Z*Extm*[m2-M2]^-1*kDpp
  + 1/2*M^-4*m^4*A1*[m2-M2]^-3*qDk*kDpp + M^-4*m^4*A1*[m2-M2]^-3*qDp
  *kDpp + 1/2*M^-4*m^4*A1*[m2-M2]^-3*qDpp*kDpp + 1/4*M^-4*m^4*A1*
 [m2-M2]^-3*kDp*kDpp + 1/4*M^-4*m^4*A1*[m2-M2]^-3*kDpp*pDpp
  - 1/2*M^-4*m^4*A2*[m2-M2]^-3*qDk*kDpp + 1/2*M^-4*m^4*A2*
 [m2-M2]^-3*qDpp*kDpp - 1/4*M^-4*m^4*A2*[m2-M2]^-3*kDpp^2
  - 13*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp*qDpp^2 - 10*M^-4*m^4*A0*
 [m2-M2]^-5*qDk*qDp^2*qDpp - 9*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDpp^3
  - 13*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDp*qDpp - 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDk^2*qDp^2 - 12*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDpp^2
  - 3*M^-4*m^4*A0*[m2-M2]^-5*qDk^3*qDp - 9*M^-4*m^4*A0*[m2-M2]^-5*qDk^3
  *qDpp - 3*M^-4*m^4*A0*[m2-M2]^-5*qDk^4 - 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDp*qDpp^3 - 3*M^-4*m^4*A0*[m2-M2]^-5*qDp^2*qDpp^2
  + 2*M^-4*m^4*A0*[m2-M2]^-5*qDp^4 - 3*M^-4*m^4*A0*[m2-M2]^-5*qDpp^4
   - 6*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*qDpp + 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp*kDp + 3*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*kDpp
  + 4*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*pDpp - 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp^2 + 4*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDp
  + 6*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDpp + 4*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDpp*pDpp - 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp^2
  - 2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDp - 5/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*qDpp + 2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDp
  + 3*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDpp + 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*pDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^3
  + 5*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*kDp + 4*M^-4*m^4*A0*
 [m2-M2]^-4*qDp*qDpp*kDpp + 4*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*pDpp
   - 4*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp^2 - 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDp^2*qDpp + 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*kDp
  + 2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*kDpp + 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDp^2*pDpp - M^-4*m^4*A0*[m2-M2]^-4*qDp^3 + 2*M^-4*m^4
  *A0*[m2-M2]^-4*qDpp^2*kDp + 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*kDpp
   + 5/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*pDpp - 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDpp^3 - 3/2*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp + 3/2*M^-4
  *m^4*A0*[m2-M2]^-3*qDk*kDp + M^-4*m^4*A0*[m2-M2]^-3*qDk*kDpp
  + 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*pDpp - 3/4*M^-4*m^4*A0*
 [m2-M2]^-3*qDk^2 + 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDp*kDpp + 1/2*M^-4
  *m^4*A0*[m2-M2]^-3*qDp*pDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDp^2
  + 2*M^-4*m^4*A0*[m2-M2]^-3*qDpp*kDp + 5/4*M^-4*m^4*A0*[m2-M2]^-3
  *qDpp*kDpp + 3/4*M^-4*m^4*A0*[m2-M2]^-3*qDpp*pDpp - 3/4*M^-4*m^4
  *A0*[m2-M2]^-3*qDpp^2 - M^-4*m^4*A0*[m2-M2]^-3*kDp*kDpp
  - 1/4*M^-4*m^4*A0*[m2-M2]^-3*kDp*pDpp - M^-4*m^4*A0*[m2-M2]^-3*kDp^2
   - 1/4*M^-4*m^4*A0*[m2-M2]^-3*kDpp*pDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-3*kDpp^2 - 1/4*M^-4*m^4*A0*[m2-M2]^-3*pDpp^2 - 1/4*M^-4*m^4
  *A0*[m2-M2]^-2*qDk - 1/4*M^-4*m^4*A0*[m2-M2]^-2*qDp - 1/4*M^-4*m^4
  *A0*[m2-M2]^-2*qDpp + 1/8*M^-4*m^4*A0*[m2-M2]^-2*kDp + 3/8*M^-4*m^4
  *A0*[m2-M2]^-2*kDpp + 1/8*M^-4*m^4*A0*[m2-M2]^-2*pDpp - 1/8*M^-4
  *m^4*A0*[m2-M2]^-1 - 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk*qDp*kDpp
   - M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk*qDpp*kDpp - 2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-4*qDk^2*kDpp - 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDp*qDpp
  *kDpp - 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDp^2*kDpp - 2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-4*qDpp^2*kDpp - 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp
  *kDpp - 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDpp*kDpp + 1/4*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-3*kDp*kDpp + 1/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*kDpp
  *pDpp + 3/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*kDpp^2 - 1/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-2*kDpp - 1/2*M^-4*A1*[m2-M2]^-1*qDk*kDpp
  - 1/2*M^-4*A1*[m2-M2]^-1*qDp*kDpp - 1/2*M^-4*A1*[m2-M2]^-1*qDpp*kDpp
   - 10*M^-4*A0*[m2-M2]^-3*qDk*qDp*qDpp^2 - 10*M^-4*A0*[m2-M2]^-3*qDk
  *qDp^2*qDpp - 2*M^-4*A0*[m2-M2]^-3*qDk*qDpp^3 - 4*M^-4*A0*
 [m2-M2]^-3*qDk^2*qDp*qDpp - 8*M^-4*A0*[m2-M2]^-3*qDp*qDpp^3
  - 12*M^-4*A0*[m2-M2]^-3*qDp^2*qDpp^2 - 6*M^-4*A0*[m2-M2]^-3*qDp^3
  *qDpp - 2*M^-4*A0*[m2-M2]^-3*qDpp^4 - 1/2*M^-4*A0*[m2-M2]^-2*qDk
  *qDp*kDp + M^-4*A0*[m2-M2]^-2*qDk*qDp*kDpp + 5/2*M^-4*A0*
 [m2-M2]^-2*qDk*qDp*pDpp - 1/2*M^-4*A0*[m2-M2]^-2*qDk*qDpp*kDpp
  + 2*M^-4*A0*[m2-M2]^-2*qDk*qDpp*pDpp + 1/2*M^-4*A0*[m2-M2]^-2*qDk^2
  *pDpp + M^-4*A0*[m2-M2]^-2*qDp*qDpp*kDp + 3/2*M^-4*A0*[m2-M2]^-2
  *qDp*qDpp*kDpp + 5*M^-4*A0*[m2-M2]^-2*qDp*qDpp*pDpp - 1/2*M^-4*A0
  *[m2-M2]^-2*qDp^2*kDp + M^-4*A0*[m2-M2]^-2*qDp^2*kDpp + 2*M^-4*A0
  *[m2-M2]^-2*qDp^2*pDpp + 1/2*M^-4*A0*[m2-M2]^-2*qDpp^2*kDp
  + 5/2*M^-4*A0*[m2-M2]^-2*qDpp^2*pDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDk
  *qDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDk*kDp + 1/2*M^-4*A0*[m2-M2]^-1*qDk
  *kDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDk*pDpp - 1/2*M^-4*A0*[m2-M2]^-1
  *qDp*qDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDp*kDp + 3/4*M^-4*A0*
 [m2-M2]^-1*qDp*kDpp + 3/4*M^-4*A0*[m2-M2]^-1*qDp*pDpp + 7/4*M^-4*A0
  *[m2-M2]^-1*qDpp*kDp + 7/4*M^-4*A0*[m2-M2]^-1*qDpp*kDpp
  + M^-4*A0*[m2-M2]^-1*qDpp*pDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDpp^2
  - 5/2*M^-4*A0*[m2-M2]^-1*kDp*kDpp - 2*M^-4*A0*[m2-M2]^-1*kDp*pDpp
   - 5/4*M^-4*A0*[m2-M2]^-1*kDp^2 - 2*M^-4*A0*[m2-M2]^-1*kDpp*pDpp
   - 5/4*M^-4*A0*[m2-M2]^-1*kDpp^2 - M^-4*A0*[m2-M2]^-1*pDpp^2
  + 3/8*M^-4*A0*kDpp + 3/8*M^-4*A0*pDpp + 2*M^-4*R1Z*Extm*
 [m2-M2]^-2*qDk*qDp*kDpp + 2*M^-4*R1Z*Extm*[m2-M2]^-2*qDk*qDpp*kDpp
   + M^-4*R1Z*Extm*[m2-M2]^-2*qDk^2*kDpp + 2*M^-4*R1Z*Extm*
 [m2-M2]^-2*qDp*qDpp*kDpp + M^-4*R1Z*Extm*[m2-M2]^-2*qDp^2*kDpp
  + M^-4*R1Z*Extm*[m2-M2]^-2*qDpp^2*kDpp + M^-4*R1Z*Extm*
 [m2-M2]^-1*qDk*kDpp + M^-4*R1Z*Extm*[m2-M2]^-1*qDp*kDpp + M^-4*R1Z
  *Extm*[m2-M2]^-1*qDpp*kDpp - 1/2*M^-4*R1Z*Extm*[m2-M2]^-1*kDp*kDpp
   - 1/2*M^-4*R1Z*Extm*[m2-M2]^-1*kDpp*pDpp - 1/2*M^-4*R1Z*Extm*
 [m2-M2]^-1*kDpp^2 - 1/4*M^-4*R1Z*Extm*kDpp )
 
 + D(a,c)*D(b,d)*Nohm
  * ( 1/2*M^-4*m^2*A1*[m2-M2]^-2*qDp*kDpp - 1/2*M^-4*m^2*A2*
 [m2-M2]^-2*qDk*kDpp + 1/2*M^-4*m^2*A2*[m2-M2]^-2*qDpp*kDpp
  - 1/8*M^-4*m^2*A0 - 27*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp*qDpp^2
  - 24*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp^2*qDpp - 11*M^-4*m^2*A0*
 [m2-M2]^-4*qDk*qDpp^3 - 21*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDp*qDpp
  - 3*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDp^2 - 12*M^-4*m^2*A0*
 [m2-M2]^-4*qDk^2*qDpp^2 - 3*M^-4*m^2*A0*[m2-M2]^-4*qDk^3*qDp
  - 9*M^-4*m^2*A0*[m2-M2]^-4*qDk^3*qDpp - 3*M^-4*m^2*A0*[m2-M2]^-4
  *qDk^4 - 11*M^-4*m^2*A0*[m2-M2]^-4*qDp*qDpp^3 - 15*M^-4*m^2*A0*
 [m2-M2]^-4*qDp^2*qDpp^2 - 6*M^-4*m^2*A0*[m2-M2]^-4*qDp^3*qDpp
  + 2*M^-4*m^2*A0*[m2-M2]^-4*qDp^4 - 5*M^-4*m^2*A0*[m2-M2]^-4*qDpp^4
   - 6*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*qDpp + 2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp*kDp + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*kDpp
  + 8*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*pDpp - 3*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp^2 + 6*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDp
  + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDpp + 8*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDpp*pDpp - 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp^2
  - 2*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDp - 5/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*qDpp + 3/2*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*kDp
  + 4*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*kDpp + 7/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*pDpp - 1/2*M^-4*m^2*A0*[m2-M2]^-3*qDk^3
  + 9*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*kDp + 10*M^-4*m^2*A0*
 [m2-M2]^-3*qDp*qDpp*kDpp + 10*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*pDpp
   - 4*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp^2 - 3*M^-4*m^2*A0*
 [m2-M2]^-3*qDp^2*qDpp + M^-4*m^2*A0*[m2-M2]^-3*qDp^2*kDp
  + 9/2*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*kDpp + 7/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDp^2*pDpp - M^-4*m^2*A0*[m2-M2]^-3*qDp^3 + 4*M^-4*m^2
  *A0*[m2-M2]^-3*qDpp^2*kDp + 9/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*kDpp
   + 9/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*pDpp - 3/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDpp^3 - 2*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp + 7/4*M^-4*m^2
  *A0*[m2-M2]^-2*qDk*kDp + 7/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*kDpp
  + 7/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*pDpp - 3/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2 - 1/2*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp + M^-4*m^2
  *A0*[m2-M2]^-2*qDp*kDp + 5/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*kDpp
  + 5/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*pDpp + 1/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDp^2 + 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp*kDp + 7/2*M^-4
  *m^2*A0*[m2-M2]^-2*qDpp*kDpp + 11/4*M^-4*m^2*A0*[m2-M2]^-2*qDpp*pDpp
   - 5/4*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2 - 3*M^-4*m^2*A0*[m2-M2]^-2*kDp
  *kDpp - 13/4*M^-4*m^2*A0*[m2-M2]^-2*kDp*pDpp - M^-4*m^2*A0*
 [m2-M2]^-2*kDp^2 - 13/4*M^-4*m^2*A0*[m2-M2]^-2*kDpp*pDpp
  - 3/2*M^-4*m^2*A0*[m2-M2]^-2*kDpp^2 - 3/2*M^-4*m^2*A0*[m2-M2]^-2
  *pDpp^2 - 1/4*M^-4*m^2*A0*[m2-M2]^-1*qDk - 1/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDp - 1/4*M^-4*m^2*A0*[m2-M2]^-1*qDpp + 1/4*M^-4*m^2*A0
  *[m2-M2]^-1*kDp + 7/8*M^-4*m^2*A0*[m2-M2]^-1*kDpp + 3/8*M^-4*m^2
  *A0*[m2-M2]^-1*pDpp - M^-4*m^2*R1Z*Extm*[m2-M2]^-3*qDk^2*kDpp
  - M^-4*m^2*R1Z*Extm*[m2-M2]^-3*qDp^2*kDpp - M^-4*m^2*R1Z*Extm*
 [m2-M2]^-3*qDpp^2*kDpp + M^-4*m^2*R1Z*Extm*[m2-M2]^-2*qDk*kDpp
  - M^-4*m^2*R1Z*Extm*[m2-M2]^-2*qDp*kDpp - M^-4*m^2*R1Z*Extm*
 [m2-M2]^-2*qDpp*kDpp - 3/4*M^-4*m^2*R1Z*Extm*[m2-M2]^-1*kDpp
  - 1/2*M^-4*m^4*A1*[m2-M2]^-3*qDk*kDpp - M^-4*m^4*A1*[m2-M2]^-3*qDp
  *kDpp - 1/2*M^-4*m^4*A1*[m2-M2]^-3*qDpp*kDpp - 1/4*M^-4*m^4*A1*
 [m2-M2]^-3*kDp*kDpp - 1/4*M^-4*m^4*A1*[m2-M2]^-3*kDpp*pDpp
  + 1/2*M^-4*m^4*A2*[m2-M2]^-3*qDk*kDpp - 1/2*M^-4*m^4*A2*
 [m2-M2]^-3*qDpp*kDpp + 1/4*M^-4*m^4*A2*[m2-M2]^-3*kDpp^2
  + 13*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp*qDpp^2 + 10*M^-4*m^4*A0*
 [m2-M2]^-5*qDk*qDp^2*qDpp + 9*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDpp^3
  + 13*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDp*qDpp + 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDk^2*qDp^2 + 12*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDpp^2
  + 3*M^-4*m^4*A0*[m2-M2]^-5*qDk^3*qDp + 9*M^-4*m^4*A0*[m2-M2]^-5*qDk^3
  *qDpp + 3*M^-4*m^4*A0*[m2-M2]^-5*qDk^4 + 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDp*qDpp^3 + 3*M^-4*m^4*A0*[m2-M2]^-5*qDp^2*qDpp^2
  - 2*M^-4*m^4*A0*[m2-M2]^-5*qDp^4 + 3*M^-4*m^4*A0*[m2-M2]^-5*qDpp^4
   + 6*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*qDpp - 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp*kDp - 3*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*kDpp
  - 4*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*pDpp + 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp^2 - 4*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDp
  - 6*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDpp - 4*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDpp*pDpp + 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp^2
  + 2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDp + 5/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*qDpp - 2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDp
  - 3*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDpp - 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*pDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^3
  - 5*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*kDp - 4*M^-4*m^4*A0*
 [m2-M2]^-4*qDp*qDpp*kDpp - 4*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*pDpp
   + 4*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp^2 + 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDp^2*qDpp - 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*kDp
  - 2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*kDpp - 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDp^2*pDpp + M^-4*m^4*A0*[m2-M2]^-4*qDp^3 - 2*M^-4*m^4
  *A0*[m2-M2]^-4*qDpp^2*kDp - 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*kDpp
   - 5/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*pDpp + 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDpp^3 + 3/2*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp - 3/2*M^-4
  *m^4*A0*[m2-M2]^-3*qDk*kDp - M^-4*m^4*A0*[m2-M2]^-3*qDk*kDpp
  - 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*pDpp + 3/4*M^-4*m^4*A0*
 [m2-M2]^-3*qDk^2 - 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDp*kDpp - 1/2*M^-4
  *m^4*A0*[m2-M2]^-3*qDp*pDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDp^2
  - 2*M^-4*m^4*A0*[m2-M2]^-3*qDpp*kDp - 5/4*M^-4*m^4*A0*[m2-M2]^-3
  *qDpp*kDpp - 3/4*M^-4*m^4*A0*[m2-M2]^-3*qDpp*pDpp + 3/4*M^-4*m^4
  *A0*[m2-M2]^-3*qDpp^2 + M^-4*m^4*A0*[m2-M2]^-3*kDp*kDpp
  + 1/4*M^-4*m^4*A0*[m2-M2]^-3*kDp*pDpp + M^-4*m^4*A0*[m2-M2]^-3*kDp^2
   + 1/4*M^-4*m^4*A0*[m2-M2]^-3*kDpp*pDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-3*kDpp^2 + 1/4*M^-4*m^4*A0*[m2-M2]^-3*pDpp^2 + 1/4*M^-4*m^4
  *A0*[m2-M2]^-2*qDk + 1/4*M^-4*m^4*A0*[m2-M2]^-2*qDp + 1/4*M^-4*m^4
  *A0*[m2-M2]^-2*qDpp - 1/8*M^-4*m^4*A0*[m2-M2]^-2*kDp - 3/8*M^-4*m^4
  *A0*[m2-M2]^-2*kDpp - 1/8*M^-4*m^4*A0*[m2-M2]^-2*pDpp + 1/8*M^-4
  *m^4*A0*[m2-M2]^-1 + 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk*qDp*kDpp
   + M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk*qDpp*kDpp + 2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-4*qDk^2*kDpp + 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDp*qDpp
  *kDpp + 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDp^2*kDpp + 2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-4*qDpp^2*kDpp + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp
  *kDpp + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDpp*kDpp - 1/4*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-3*kDp*kDpp - 1/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*kDpp
  *pDpp - 3/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*kDpp^2 + 1/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-2*kDpp - 1/8*M^-4*m^-2*gu*T1*Extm*kDpp^2
  - 1/8*M^-4*m^-2*gu*T2*Extm*kDpp^2 + 3/8*M^-4*m^-2*gu*T3*Extm^2*kDpp^2
   - 1/8*M^-4*m^-2*gu*R5Z*Extm^2*kDpp^2 - 3/8*M^-4*m^-2*T1*Extm*kDpp^2
   - 3/8*M^-4*m^-2*T2*Extm*kDpp^2 + 9/8*M^-4*m^-2*T3*Extm^2*kDpp^2
   - 3/8*M^-4*m^-2*R5Z*Extm^2*kDpp^2 + 1/2*M^-4*A1*[m2-M2]^-1*qDk*kDpp
   + 1/2*M^-4*A1*[m2-M2]^-1*qDp*kDpp + 1/2*M^-4*A1*[m2-M2]^-1*qDpp
  *kDpp + 10*M^-4*A0*[m2-M2]^-3*qDk*qDp*qDpp^2 + 10*M^-4*A0*
 [m2-M2]^-3*qDk*qDp^2*qDpp + 2*M^-4*A0*[m2-M2]^-3*qDk*qDpp^3
  + 4*M^-4*A0*[m2-M2]^-3*qDk^2*qDp*qDpp + 8*M^-4*A0*[m2-M2]^-3*qDp
  *qDpp^3 + 12*M^-4*A0*[m2-M2]^-3*qDp^2*qDpp^2 + 6*M^-4*A0*
 [m2-M2]^-3*qDp^3*qDpp + 2*M^-4*A0*[m2-M2]^-3*qDpp^4 + 1/2*M^-4*A0
  *[m2-M2]^-2*qDk*qDp*kDp - M^-4*A0*[m2-M2]^-2*qDk*qDp*kDpp
  - 5/2*M^-4*A0*[m2-M2]^-2*qDk*qDp*pDpp + 1/2*M^-4*A0*[m2-M2]^-2*qDk
  *qDpp*kDpp - 2*M^-4*A0*[m2-M2]^-2*qDk*qDpp*pDpp - 1/2*M^-4*A0*
 [m2-M2]^-2*qDk^2*pDpp - M^-4*A0*[m2-M2]^-2*qDp*qDpp*kDp - 3/2*M^-4
  *A0*[m2-M2]^-2*qDp*qDpp*kDpp - 5*M^-4*A0*[m2-M2]^-2*qDp*qDpp*pDpp
   + 1/2*M^-4*A0*[m2-M2]^-2*qDp^2*kDp - M^-4*A0*[m2-M2]^-2*qDp^2*kDpp
   - 2*M^-4*A0*[m2-M2]^-2*qDp^2*pDpp - 1/2*M^-4*A0*[m2-M2]^-2*qDpp^2
  *kDp - 5/2*M^-4*A0*[m2-M2]^-2*qDpp^2*pDpp + 1/2*M^-4*A0*
 [m2-M2]^-1*qDk*qDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDk*kDp - 1/2*M^-4*A0
  *[m2-M2]^-1*qDk*kDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDk*pDpp + 1/2*M^-4
  *A0*[m2-M2]^-1*qDp*qDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDp*kDp
  - 3/4*M^-4*A0*[m2-M2]^-1*qDp*kDpp - 3/4*M^-4*A0*[m2-M2]^-1*qDp*pDpp
   - 7/4*M^-4*A0*[m2-M2]^-1*qDpp*kDp - 7/4*M^-4*A0*[m2-M2]^-1*qDpp
  *kDpp - M^-4*A0*[m2-M2]^-1*qDpp*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDpp^2
   + 5/2*M^-4*A0*[m2-M2]^-1*kDp*kDpp + 2*M^-4*A0*[m2-M2]^-1*kDp*pDpp
   + 5/4*M^-4*A0*[m2-M2]^-1*kDp^2 + 2*M^-4*A0*[m2-M2]^-1*kDpp*pDpp
   + 5/4*M^-4*A0*[m2-M2]^-1*kDpp^2 + M^-4*A0*[m2-M2]^-1*pDpp^2
  - 2*M^-4*R1Z*Extm*[m2-M2]^-2*qDk*qDp*kDpp - 2*M^-4*R1Z*Extm*
 [m2-M2]^-2*qDk*qDpp*kDpp - M^-4*R1Z*Extm*[m2-M2]^-2*qDk^2*kDpp
  - 2*M^-4*R1Z*Extm*[m2-M2]^-2*qDp*qDpp*kDpp - M^-4*R1Z*Extm*
 [m2-M2]^-2*qDp^2*kDpp - M^-4*R1Z*Extm*[m2-M2]^-2*qDpp^2*kDpp
  - M^-4*R1Z*Extm*[m2-M2]^-1*qDk*kDpp - M^-4*R1Z*Extm*[m2-M2]^-1*qDp
  *kDpp - M^-4*R1Z*Extm*[m2-M2]^-1*qDpp*kDpp + 1/2*M^-4*R1Z*Extm*
 [m2-M2]^-1*kDp*kDpp + 1/2*M^-4*R1Z*Extm*[m2-M2]^-1*kDpp*pDpp
  + 1/2*M^-4*R1Z*Extm*[m2-M2]^-1*kDpp^2 + 1/4*M^-4*R1Z*Extm*kDpp )
 
 + D(a,c)*D(b,d)*Nohm^2
  * ( 1/2*M^-4*m^2*A1*[m2-M2]^-1*qDp*kDpp + 1/8*M^-4*m^2*A1*kDpp
  - 1/2*M^-4*m^2*A2*[m2-M2]^-1*qDk*kDpp + 1/2*M^-4*m^2*A2*
 [m2-M2]^-1*qDpp*kDpp + 1/8*M^-4*m^2*A2*kDpp - 27*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp*qDpp^2 - 24*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp^2*qDpp
   - 11*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp^3 - 21*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*qDp*qDpp - 3*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDp^2
  - 12*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDpp^2 - 3*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^3*qDp - 9*M^-4*m^2*A0*[m2-M2]^-3*qDk^3*qDpp
  - 3*M^-4*m^2*A0*[m2-M2]^-3*qDk^4 - 11*M^-4*m^2*A0*[m2-M2]^-3*qDp
  *qDpp^3 - 15*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*qDpp^2 - 6*M^-4*m^2*A0
  *[m2-M2]^-3*qDp^3*qDpp + 2*M^-4*m^2*A0*[m2-M2]^-3*qDp^4
  - 5*M^-4*m^2*A0*[m2-M2]^-3*qDpp^4 - 6*M^-4*m^2*A0*[m2-M2]^-2*qDk
  *qDp*qDpp + 2*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp*kDp + 7*M^-4*m^2*A0
  *[m2-M2]^-2*qDk*qDp*kDpp + 8*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp*pDpp
   - 3*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp^2 + 6*M^-4*m^2*A0*[m2-M2]^-2
  *qDk*qDpp*kDp + 7*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp*kDpp + 8*M^-4*m^2
  *A0*[m2-M2]^-2*qDk*qDpp*pDpp - 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp^2
   - 2*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*qDp - 5/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2*qDpp + 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*kDp
  + 4*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*kDpp + 7/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2*pDpp - 1/2*M^-4*m^2*A0*[m2-M2]^-2*qDk^3
  + 9*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp*kDp + 10*M^-4*m^2*A0*
 [m2-M2]^-2*qDp*qDpp*kDpp + 10*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp*pDpp
   - 4*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp^2 - 3*M^-4*m^2*A0*
 [m2-M2]^-2*qDp^2*qDpp + M^-4*m^2*A0*[m2-M2]^-2*qDp^2*kDp
  + 9/2*M^-4*m^2*A0*[m2-M2]^-2*qDp^2*kDpp + 7/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDp^2*pDpp - M^-4*m^2*A0*[m2-M2]^-2*qDp^3 + 4*M^-4*m^2
  *A0*[m2-M2]^-2*qDpp^2*kDp + 9/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2*kDpp
   + 9/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2*pDpp - 3/2*M^-4*m^2*A0*
 [m2-M2]^-2*qDpp^3 - 2*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp + 7/4*M^-4*m^2
  *A0*[m2-M2]^-1*qDk*kDp + 7/4*M^-4*m^2*A0*[m2-M2]^-1*qDk*kDpp
  + 7/4*M^-4*m^2*A0*[m2-M2]^-1*qDk*pDpp - 3/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^2 - 1/2*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp + M^-4*m^2
  *A0*[m2-M2]^-1*qDp*kDp + 5/4*M^-4*m^2*A0*[m2-M2]^-1*qDp*kDpp
  + 5/4*M^-4*m^2*A0*[m2-M2]^-1*qDp*pDpp + 1/2*M^-4*m^2*A0*
 [m2-M2]^-1*qDp^2 + 7/2*M^-4*m^2*A0*[m2-M2]^-1*qDpp*kDp + 7/2*M^-4
  *m^2*A0*[m2-M2]^-1*qDpp*kDpp + 11/4*M^-4*m^2*A0*[m2-M2]^-1*qDpp*pDpp
   - 5/4*M^-4*m^2*A0*[m2-M2]^-1*qDpp^2 - 3*M^-4*m^2*A0*[m2-M2]^-1*kDp
  *kDpp - 13/4*M^-4*m^2*A0*[m2-M2]^-1*kDp*pDpp - M^-4*m^2*A0*
 [m2-M2]^-1*kDp^2 - 13/4*M^-4*m^2*A0*[m2-M2]^-1*kDpp*pDpp
  - 3/2*M^-4*m^2*A0*[m2-M2]^-1*kDpp^2 - 3/2*M^-4*m^2*A0*[m2-M2]^-1
  *pDpp^2 - 1/4*M^-4*m^2*A0*qDk - M^-4*m^2*R1Z*Extm*[m2-M2]^-2*qDk^2
  *kDpp - M^-4*m^2*R1Z*Extm*[m2-M2]^-2*qDp^2*kDpp - M^-4*m^2*R1Z*Extm
  *[m2-M2]^-2*qDpp^2*kDpp + M^-4*m^2*R1Z*Extm*[m2-M2]^-1*qDk*kDpp
  - M^-4*m^2*R1Z*Extm*[m2-M2]^-1*qDp*kDpp - M^-4*m^2*R1Z*Extm*
 [m2-M2]^-1*qDpp*kDpp - 3/4*M^-4*m^2*R1Z*Extm*kDpp - 1/2*M^-4*m^4*A1
  *[m2-M2]^-3*qDp^2*kDpp - 1/2*M^-4*m^4*A1*[m2-M2]^-2*qDk*kDpp
  - 3/4*M^-4*m^4*A1*[m2-M2]^-2*qDp*kDpp - 1/2*M^-4*m^4*A1*
 [m2-M2]^-2*qDpp*kDpp - 1/8*M^-4*m^4*A1*[m2-M2]^-1*kDpp - 1/2*M^-4
  *m^4*A2*[m2-M2]^-3*qDk^2*kDpp + 1/4*M^-4*m^4*A2*[m2-M2]^-2*qDk*kDpp
   - 1/2*M^-4*m^4*A2*[m2-M2]^-2*qDpp*kDpp - 1/8*M^-4*m^4*A2*
 [m2-M2]^-1*kDpp + 13*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*qDpp^2
  + 10*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp^2*qDpp + M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp^3 + 9*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp^3
  + 13*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDp*qDpp + 3*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*qDp^2 + 12*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDpp^2
  + 4*M^-4*m^4*A0*[m2-M2]^-4*qDk^3*qDp + 9*M^-4*m^4*A0*[m2-M2]^-4*qDk^3
  *qDpp + 3*M^-4*m^4*A0*[m2-M2]^-4*qDk^4 + 4*M^-4*m^4*A0*
 [m2-M2]^-4*qDp*qDpp^3 + 3*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*qDpp^2
  + M^-4*m^4*A0*[m2-M2]^-4*qDp^3*qDpp - 2*M^-4*m^4*A0*[m2-M2]^-4*qDp^4
   + 3*M^-4*m^4*A0*[m2-M2]^-4*qDpp^4 + 6*M^-4*m^4*A0*[m2-M2]^-3*qDk
  *qDp*qDpp - 4*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp*kDp - 4*M^-4*m^4*A0
  *[m2-M2]^-3*qDk*qDp*kDpp - 3*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp*pDpp
   + 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp^2 - 4*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDpp*kDp - 6*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp*kDpp
  - 4*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp*pDpp + 7/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDpp^2 + 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDp
  + 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDpp - 2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk^2*kDp - 3*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*kDpp
  - 2*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*pDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk^3 - 3*M^-4*m^4*A0*[m2-M2]^-3*qDp*qDpp*kDp
  - 4*M^-4*m^4*A0*[m2-M2]^-3*qDp*qDpp*kDpp - 4*M^-4*m^4*A0*
 [m2-M2]^-3*qDp*qDpp*pDpp + 7/2*M^-4*m^4*A0*[m2-M2]^-3*qDp*qDpp^2
  + 7/2*M^-4*m^4*A0*[m2-M2]^-3*qDp^2*qDpp - 3/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDp^2*kDp - 3/2*M^-4*m^4*A0*[m2-M2]^-3*qDp^2*kDpp
  - 3/2*M^-4*m^4*A0*[m2-M2]^-3*qDp^2*pDpp + M^-4*m^4*A0*[m2-M2]^-3
  *qDp^3 - 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2*kDp - 7/2*M^-4*m^4*A0
  *[m2-M2]^-3*qDpp^2*kDpp - 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2*pDpp
   + 3/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^3 + 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*qDp + 3/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp
  - 3/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*kDp - M^-4*m^4*A0*[m2-M2]^-2*qDk
  *kDpp - 3/4*M^-4*m^4*A0*[m2-M2]^-2*qDk*pDpp + 3/4*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^2 + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp - M^-4*m^4
  *A0*[m2-M2]^-2*qDp*kDp - 3/4*M^-4*m^4*A0*[m2-M2]^-2*qDp*kDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*pDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDp^2 - 3/2*M^-4*m^4*A0*[m2-M2]^-2*qDpp*kDp - 5/4*M^-4
  *m^4*A0*[m2-M2]^-2*qDpp*kDpp - 3/4*M^-4*m^4*A0*[m2-M2]^-2*qDpp*pDpp
   + 3/4*M^-4*m^4*A0*[m2-M2]^-2*qDpp^2 + M^-4*m^4*A0*[m2-M2]^-2*kDp
  *kDpp + 3/4*M^-4*m^4*A0*[m2-M2]^-2*kDp*pDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*kDp^2 + 3/4*M^-4*m^4*A0*[m2-M2]^-2*kDpp*pDpp + 1/2*M^-4
  *m^4*A0*[m2-M2]^-2*kDpp^2 + 1/4*M^-4*m^4*A0*[m2-M2]^-2*pDpp^2
  + 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDk + 1/4*M^-4*m^4*A0*[m2-M2]^-1*qDp
   + 3/8*M^-4*m^4*A0*[m2-M2]^-1*qDpp - 1/4*M^-4*m^4*A0*[m2-M2]^-1*kDp
   - 1/4*M^-4*m^4*A0*[m2-M2]^-1*kDpp - 1/4*M^-4*m^4*A0*[m2-M2]^-1*pDpp
   + 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk*qDp*kDpp + M^-4*m^4*R1Z*Extm
  *[m2-M2]^-3*qDk*qDpp*kDpp + 5/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk^2
  *kDpp + 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp*qDpp*kDpp + 7/2*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-3*qDp^2*kDpp + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3
  *qDpp^2*kDpp + 1/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk*kDpp
  + 7/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDp*kDpp + 2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-2*qDpp*kDpp - 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*kDp*kDpp
   - 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*kDpp*pDpp - 1/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-2*kDpp^2 + 3/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*kDpp
  + 1/8*M^-4*gu^2*R5Z*Extm^2*kDpp^2 + 1/8*M^-4*A3*kDpp^2 + 1/4*M^-4
  *A1*qDk*kDpp + 1/4*M^-4*A1*qDp*kDpp + 1/4*M^-4*A1*qDpp*kDpp
  - 1/4*M^-4*A1*kDpp^2 + 10*M^-4*A0*[m2-M2]^-2*qDk*qDp*qDpp^2
  + 10*M^-4*A0*[m2-M2]^-2*qDk*qDp^2*qDpp + 2*M^-4*A0*[m2-M2]^-2*qDk
  *qDpp^3 + 4*M^-4*A0*[m2-M2]^-2*qDk^2*qDp*qDpp + 8*M^-4*A0*
 [m2-M2]^-2*qDp*qDpp^3 + 12*M^-4*A0*[m2-M2]^-2*qDp^2*qDpp^2
  + 6*M^-4*A0*[m2-M2]^-2*qDp^3*qDpp + 2*M^-4*A0*[m2-M2]^-2*qDpp^4
  + 1/2*M^-4*A0*[m2-M2]^-1*qDk*qDp*kDp - M^-4*A0*[m2-M2]^-1*qDk*qDp
  *kDpp - 5/2*M^-4*A0*[m2-M2]^-1*qDk*qDp*pDpp + 1/2*M^-4*A0*
 [m2-M2]^-1*qDk*qDpp*kDpp - 2*M^-4*A0*[m2-M2]^-1*qDk*qDpp*pDpp
  - 1/2*M^-4*A0*[m2-M2]^-1*qDk^2*pDpp - M^-4*A0*[m2-M2]^-1*qDp*qDpp
  *kDp - 3/2*M^-4*A0*[m2-M2]^-1*qDp*qDpp*kDpp - 5*M^-4*A0*
 [m2-M2]^-1*qDp*qDpp*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDp^2*kDp
  - M^-4*A0*[m2-M2]^-1*qDp^2*kDpp - 2*M^-4*A0*[m2-M2]^-1*qDp^2*pDpp
   - 1/2*M^-4*A0*[m2-M2]^-1*qDpp^2*kDp - 5/2*M^-4*A0*[m2-M2]^-1*qDpp^2
  *pDpp + 1/4*M^-4*A0*qDk*qDpp - 1/4*M^-4*A0*qDk*kDp - 1/4*M^-4*A0
  *qDk*kDpp + 1/4*M^-4*A0*qDp*qDpp - 1/4*M^-4*A0*qDp*kDp - 1/4*M^-4
  *A0*qDp*kDpp - 3/4*M^-4*A0*qDpp*kDp - 3/4*M^-4*A0*qDpp*kDpp
  + 1/4*M^-4*A0*qDpp^2 + M^-4*A0*kDp*kDpp + 1/2*M^-4*A0*kDp^2
  + 1/2*M^-4*A0*kDpp^2 - 2*M^-4*R1Z*Extm*[m2-M2]^-1*qDk*qDp*kDpp
  - 2*M^-4*R1Z*Extm*[m2-M2]^-1*qDk*qDpp*kDpp - M^-4*R1Z*Extm*
 [m2-M2]^-1*qDk^2*kDpp - 2*M^-4*R1Z*Extm*[m2-M2]^-1*qDp*qDpp*kDpp
  - M^-4*R1Z*Extm*[m2-M2]^-1*qDp^2*kDpp - M^-4*R1Z*Extm*[m2-M2]^-1
  *qDpp^2*kDpp - 1/4*M^-4*R1Z*Extm*qDk*kDpp - 3/4*M^-4*R1Z*Extm*qDp
  *kDpp - 3/4*M^-4*R1Z*Extm*qDpp*kDpp + 9/8*M^-4*R5Z*Extm^2*kDpp^2 )
 
 + D(a,c)*D(b,d)*Nohm^3
  * ( 1/4*M^-4*m^2*A1*qDk*kDpp + 1/4*M^-4*m^2*A1*qDpp*kDpp
  - 1/4*M^-4*m^2*A1*kDpp^2 + 1/4*M^-4*m^2*A2*qDk*kDpp + 1/4*M^-4*m^2
  *A2*qDpp*kDpp - 1/4*M^-4*m^2*A2*kDpp^2 - 27*M^-4*m^2*A0*
 [m2-M2]^-2*qDk*qDp*qDpp^2 - 24*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp^2*qDpp
   - 11*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp^3 - 21*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2*qDp*qDpp - 3*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*qDp^2
  - 12*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*qDpp^2 - 3*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^3*qDp - 9*M^-4*m^2*A0*[m2-M2]^-2*qDk^3*qDpp
  - 3*M^-4*m^2*A0*[m2-M2]^-2*qDk^4 - 11*M^-4*m^2*A0*[m2-M2]^-2*qDp
  *qDpp^3 - 15*M^-4*m^2*A0*[m2-M2]^-2*qDp^2*qDpp^2 - 6*M^-4*m^2*A0
  *[m2-M2]^-2*qDp^3*qDpp + 2*M^-4*m^2*A0*[m2-M2]^-2*qDp^4
  - 5*M^-4*m^2*A0*[m2-M2]^-2*qDpp^4 - 6*M^-4*m^2*A0*[m2-M2]^-1*qDk
  *qDp*qDpp + 2*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*kDp + 7*M^-4*m^2*A0
  *[m2-M2]^-1*qDk*qDp*kDpp + 8*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*pDpp
   - 3*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp^2 + 6*M^-4*m^2*A0*[m2-M2]^-1
  *qDk*qDpp*kDp + 7*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp*kDpp + 8*M^-4*m^2
  *A0*[m2-M2]^-1*qDk*qDpp*pDpp - 7/2*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp^2
   - 2*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*qDp - 5/2*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^2*qDpp + 3/2*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*kDp
  + 4*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*kDpp + 7/2*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^2*pDpp - 1/2*M^-4*m^2*A0*[m2-M2]^-1*qDk^3
  + 9*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp*kDp + 10*M^-4*m^2*A0*
 [m2-M2]^-1*qDp*qDpp*kDpp + 10*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp*pDpp
   - 4*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp^2 - 3*M^-4*m^2*A0*
 [m2-M2]^-1*qDp^2*qDpp + M^-4*m^2*A0*[m2-M2]^-1*qDp^2*kDp
  + 9/2*M^-4*m^2*A0*[m2-M2]^-1*qDp^2*kDpp + 7/2*M^-4*m^2*A0*
 [m2-M2]^-1*qDp^2*pDpp - M^-4*m^2*A0*[m2-M2]^-1*qDp^3 + 4*M^-4*m^2
  *A0*[m2-M2]^-1*qDpp^2*kDp + 9/2*M^-4*m^2*A0*[m2-M2]^-1*qDpp^2*kDpp
   + 9/2*M^-4*m^2*A0*[m2-M2]^-1*qDpp^2*pDpp - 3/2*M^-4*m^2*A0*
 [m2-M2]^-1*qDpp^3 - 1/2*M^-4*m^2*A0*qDk^2 - M^-4*m^2*R1Z*Extm*
 [m2-M2]^-1*qDk^2*kDpp - M^-4*m^2*R1Z*Extm*[m2-M2]^-1*qDp^2*kDpp
  - M^-4*m^2*R1Z*Extm*[m2-M2]^-1*qDpp^2*kDpp - 3/2*M^-4*m^2*R1Z*Extm
  *qDk*kDpp - 3/2*M^-4*m^2*R1Z*Extm*qDpp*kDpp + 3/2*M^-4*m^2*R1Z*Extm
  *kDpp^2 - 1/2*M^-4*m^4*A1*[m2-M2]^-2*qDk*qDp*kDpp - 1/2*M^-4*m^4
  *A1*[m2-M2]^-2*qDp*qDpp*kDpp - M^-4*m^4*A1*[m2-M2]^-2*qDp^2*kDpp
   - 1/4*M^-4*m^4*A1*[m2-M2]^-1*qDk*kDpp - 1/2*M^-4*m^4*A1*
 [m2-M2]^-1*qDp*kDpp - 1/4*M^-4*m^4*A1*[m2-M2]^-1*qDpp*kDpp
  + 1/4*M^-4*m^4*A1*[m2-M2]^-1*kDp*kDpp + 1/4*M^-4*m^4*A1*
 [m2-M2]^-1*kDpp*pDpp + 1/4*M^-4*m^4*A1*[m2-M2]^-1*kDpp^2
  + 1/2*M^-4*m^4*A2*[m2-M2]^-2*qDk*qDpp*kDpp - 1/2*M^-4*m^4*A2*
 [m2-M2]^-2*qDk^2*kDpp + 1/4*M^-4*m^4*A2*[m2-M2]^-1*qDk*kDpp
  - 1/4*M^-4*m^4*A2*[m2-M2]^-1*qDpp*kDpp + 14*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDp*qDpp^2 + 8*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp^2*qDpp
   + M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp^3 + 9*M^-4*m^4*A0*[m2-M2]^-3*qDk
  *qDpp^3 + 14*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDp*qDpp + 4*M^-4*m^4*A0
  *[m2-M2]^-3*qDk^2*qDp^2 + 12*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDpp^2
   + 5*M^-4*m^4*A0*[m2-M2]^-3*qDk^3*qDp + 9*M^-4*m^4*A0*[m2-M2]^-3
  *qDk^3*qDpp + 3*M^-4*m^4*A0*[m2-M2]^-3*qDk^4 + 5*M^-4*m^4*A0*
 [m2-M2]^-3*qDp*qDpp^3 + 4*M^-4*m^4*A0*[m2-M2]^-3*qDp^2*qDpp^2
  + M^-4*m^4*A0*[m2-M2]^-3*qDp^3*qDpp - 2*M^-4*m^4*A0*[m2-M2]^-3*qDp^4
   + 3*M^-4*m^4*A0*[m2-M2]^-3*qDpp^4 + 6*M^-4*m^4*A0*[m2-M2]^-2*qDk
  *qDp*qDpp - 4*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*kDp - 5*M^-4*m^4*A0
  *[m2-M2]^-2*qDk*qDp*kDpp - 4*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*pDpp
   + 3*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp^2 - 5*M^-4*m^4*A0*[m2-M2]^-2
  *qDk*qDpp*kDp - 6*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp*kDpp - 5*M^-4*m^4
  *A0*[m2-M2]^-2*qDk*qDpp*pDpp + 7/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp^2
   + 3*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDp + 5/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^2*qDpp - 2*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*kDp
  - 3*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*kDpp - 5/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^2*pDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDk^3
  - 4*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp*kDp - 5*M^-4*m^4*A0*
 [m2-M2]^-2*qDp*qDpp*kDpp - 4*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp*pDpp
   + 3*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp^2 + 3*M^-4*m^4*A0*
 [m2-M2]^-2*qDp^2*qDpp - 3/2*M^-4*m^4*A0*[m2-M2]^-2*qDp^2*kDp
  - 2*M^-4*m^4*A0*[m2-M2]^-2*qDp^2*kDpp - 3/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDp^2*pDpp + M^-4*m^4*A0*[m2-M2]^-2*qDp^3 - 3*M^-4*m^4
  *A0*[m2-M2]^-2*qDpp^2*kDp - 7/2*M^-4*m^4*A0*[m2-M2]^-2*qDpp^2*kDpp
   - 5/2*M^-4*m^4*A0*[m2-M2]^-2*qDpp^2*pDpp + 3/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDpp^3 + M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp + M^-4*m^4*A0*
 [m2-M2]^-1*qDk*qDpp - M^-4*m^4*A0*[m2-M2]^-1*qDk*kDp - M^-4*m^4*A0
  *[m2-M2]^-1*qDk*kDpp - M^-4*m^4*A0*[m2-M2]^-1*qDk*pDpp + 3/4*M^-4
  *m^4*A0*[m2-M2]^-1*qDk^2 + M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp
  - M^-4*m^4*A0*[m2-M2]^-1*qDp*kDp - M^-4*m^4*A0*[m2-M2]^-1*qDp*kDpp
   - M^-4*m^4*A0*[m2-M2]^-1*qDp*pDpp - M^-4*m^4*A0*[m2-M2]^-1*qDpp
  *kDp - M^-4*m^4*A0*[m2-M2]^-1*qDpp*kDpp - M^-4*m^4*A0*[m2-M2]^-1
  *qDpp*pDpp + 3/4*M^-4*m^4*A0*[m2-M2]^-1*qDpp^2 + M^-4*m^4*A0*
 [m2-M2]^-1*kDp*kDpp + M^-4*m^4*A0*[m2-M2]^-1*kDp*pDpp + 1/2*M^-4*m^4
  *A0*[m2-M2]^-1*kDp^2 + M^-4*m^4*A0*[m2-M2]^-1*kDpp*pDpp
  + 1/2*M^-4*m^4*A0*[m2-M2]^-1*kDpp^2 + 1/2*M^-4*m^4*A0*[m2-M2]^-1
  *pDpp^2 + 7/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk*qDp*kDpp
  + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk*qDpp*kDpp + 5/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-2*qDk^2*kDpp + 7/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDp
  *qDpp*kDpp + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDp^2*kDpp + 2*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-2*qDpp^2*kDpp + 3/2*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-1*qDp*kDpp + 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDpp*kDpp
  - 3/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*kDp*kDpp - 3/4*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-1*kDpp*pDpp - 3/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*kDpp^2
  + 1/2*M^-4*A1*qDk*qDp*kDpp + M^-4*A1*qDk*qDpp*kDpp + 1/2*M^-4*A1
  *qDk^2*kDpp + 1/2*M^-4*A1*qDp*qDpp*kDpp + 1/2*M^-4*A1*qDpp^2*kDpp
   - 1/2*M^-4*A2*qDk*qDpp*kDpp + 10*M^-4*A0*[m2-M2]^-1*qDk*qDp*qDpp^2
   + 10*M^-4*A0*[m2-M2]^-1*qDk*qDp^2*qDpp + 2*M^-4*A0*[m2-M2]^-1*qDk
  *qDpp^3 + 4*M^-4*A0*[m2-M2]^-1*qDk^2*qDp*qDpp + 8*M^-4*A0*
 [m2-M2]^-1*qDp*qDpp^3 + 12*M^-4*A0*[m2-M2]^-1*qDp^2*qDpp^2
  + 6*M^-4*A0*[m2-M2]^-1*qDp^3*qDpp + 2*M^-4*A0*[m2-M2]^-1*qDpp^4
  - M^-4*A0*qDk*qDp*qDpp + M^-4*A0*qDk*qDp*kDp + M^-4*A0*qDk*qDp*kDpp
   + M^-4*A0*qDk*qDpp*kDp + M^-4*A0*qDk*qDpp*kDpp - 1/2*M^-4*A0*qDk
  *qDpp^2 + 4*M^-4*A0*qDp*qDpp*kDp + 4*M^-4*A0*qDp*qDpp*kDpp
  - 3/2*M^-4*A0*qDp*qDpp^2 - M^-4*A0*qDp^2*qDpp + M^-4*A0*qDp^2*kDp
   + M^-4*A0*qDp^2*kDpp + 2*M^-4*A0*qDpp^2*kDp + 2*M^-4*A0*qDpp^2*kDpp
   - 1/2*M^-4*A0*qDpp^3 - 3/2*M^-4*R1Z*Extm*qDk*qDp*kDpp - 3/2*M^-4
  *R1Z*Extm*qDk*qDpp*kDpp - 1/2*M^-4*R1Z*Extm*qDk^2*kDpp - 3/2*M^-4
  *R1Z*Extm*qDp*qDpp*kDpp - 3/2*M^-4*R1Z*Extm*qDpp^2*kDpp )
 
 + D(a,c)*D(b,d)*Nohm^4
  * ( M^-4*m^2*A1*qDk*qDpp*kDpp + 1/2*M^-4*m^2*A1*qDk^2*kDpp
  + 1/2*M^-4*m^2*A1*qDpp^2*kDpp + M^-4*m^2*A2*qDk*qDpp*kDpp
  + 1/2*M^-4*m^2*A2*qDk^2*kDpp + 1/2*M^-4*m^2*A2*qDpp^2*kDpp
  - 27*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*qDpp^2 - 24*M^-4*m^2*A0*
 [m2-M2]^-1*qDk*qDp^2*qDpp - 11*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp^3
  - 21*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*qDp*qDpp - 3*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^2*qDp^2 - 12*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*qDpp^2
  - 3*M^-4*m^2*A0*[m2-M2]^-1*qDk^3*qDp - 9*M^-4*m^2*A0*[m2-M2]^-1*qDk^3
  *qDpp - 3*M^-4*m^2*A0*[m2-M2]^-1*qDk^4 - 11*M^-4*m^2*A0*
 [m2-M2]^-1*qDp*qDpp^3 - 15*M^-4*m^2*A0*[m2-M2]^-1*qDp^2*qDpp^2
  - 6*M^-4*m^2*A0*[m2-M2]^-1*qDp^3*qDpp + 2*M^-4*m^2*A0*[m2-M2]^-1
  *qDp^4 - 5*M^-4*m^2*A0*[m2-M2]^-1*qDpp^4 - M^-4*m^2*A0*qDk^3
  - 6*M^-4*m^2*R1Z*Extm*qDk*qDpp*kDpp - 3*M^-4*m^2*R1Z*Extm*qDk^2*kDpp
   - 3*M^-4*m^2*R1Z*Extm*qDpp^2*kDpp - 3/2*M^-4*m^4*A1*[m2-M2]^-1*qDk
  *qDp*kDpp - M^-4*m^4*A1*[m2-M2]^-1*qDk*qDpp*kDpp - 1/2*M^-4*m^4*A1
  *[m2-M2]^-1*qDk^2*kDpp - 3/2*M^-4*m^4*A1*[m2-M2]^-1*qDp*qDpp*kDpp
   - 3/2*M^-4*m^4*A1*[m2-M2]^-1*qDp^2*kDpp - 1/2*M^-4*m^4*A1*
 [m2-M2]^-1*qDpp^2*kDpp + 1/2*M^-4*m^4*A2*[m2-M2]^-1*qDk*qDpp*kDpp
   - 1/2*M^-4*m^4*A2*[m2-M2]^-1*qDk^2*kDpp - 1/2*M^-4*m^4*A2*
 [m2-M2]^-1*qDpp^2*kDpp + 18*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*qDpp^2
   + 12*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp^2*qDpp + 2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*qDp^3 + 9*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp^3
  + 18*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDp*qDpp + 6*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^2*qDp^2 + 12*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDpp^2
  + 6*M^-4*m^4*A0*[m2-M2]^-2*qDk^3*qDp + 9*M^-4*m^4*A0*[m2-M2]^-2*qDk^3
  *qDpp + 3*M^-4*m^4*A0*[m2-M2]^-2*qDk^4 + 6*M^-4*m^4*A0*
 [m2-M2]^-2*qDp*qDpp^3 + 6*M^-4*m^4*A0*[m2-M2]^-2*qDp^2*qDpp^2
  + 2*M^-4*m^4*A0*[m2-M2]^-2*qDp^3*qDpp - 2*M^-4*m^4*A0*[m2-M2]^-2
  *qDp^4 + 3*M^-4*m^4*A0*[m2-M2]^-2*qDpp^4 + 6*M^-4*m^4*A0*
 [m2-M2]^-1*qDk*qDp*qDpp - 6*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp*kDp
  - 6*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp*kDpp - 6*M^-4*m^4*A0*
 [m2-M2]^-1*qDk*qDp*pDpp + 3*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp^2
  - 6*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp*kDp - 6*M^-4*m^4*A0*
 [m2-M2]^-1*qDk*qDpp*kDpp - 6*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp*pDpp
   + 3*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp^2 + 3*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^2*qDp + 3*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*qDpp
  - 3*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*kDp - 3*M^-4*m^4*A0*[m2-M2]^-1*qDk^2
  *kDpp - 3*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*pDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^3 - 6*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp*kDp
  - 6*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp*kDpp - 6*M^-4*m^4*A0*
 [m2-M2]^-1*qDp*qDpp*pDpp + 3*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp^2
  + 3*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*qDpp - 3*M^-4*m^4*A0*[m2-M2]^-1
  *qDp^2*kDp - 3*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*kDpp - 3*M^-4*m^4*A0
  *[m2-M2]^-1*qDp^2*pDpp + M^-4*m^4*A0*[m2-M2]^-1*qDp^3 - 3*M^-4*m^4
  *A0*[m2-M2]^-1*qDpp^2*kDp - 3*M^-4*m^4*A0*[m2-M2]^-1*qDpp^2*kDpp
   - 3*M^-4*m^4*A0*[m2-M2]^-1*qDpp^2*pDpp + 3/2*M^-4*m^4*A0*
 [m2-M2]^-1*qDpp^3 + 9/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk*qDp*kDpp
   + 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk*qDpp*kDpp + 3*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-1*qDk^2*kDpp + 9/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDp
  *qDpp*kDpp + 9/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDp^2*kDpp
  + 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDpp^2*kDpp + 3*M^-4*A0*qDk*qDp
  *qDpp^2 + 3*M^-4*A0*qDk*qDp^2*qDpp + M^-4*A0*qDk*qDpp^3
  + 4*M^-4*A0*qDp*qDpp^3 + 6*M^-4*A0*qDp^2*qDpp^2 + 3*M^-4*A0*qDp^3
  *qDpp + M^-4*A0*qDpp^4 )
 
 + D(a,c)*D(b,d)*Nohm^5
  * ( - 2*M^-4*m^2*A0*qDk^4 + 24*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp*qDpp^2
   + 24*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp^2*qDpp + 8*M^-4*m^4*A0*
 [m2-M2]^-1*qDk*qDp^3 + 8*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp^3
  + 24*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*qDp*qDpp + 12*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^2*qDp^2 + 12*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*qDpp^2
  + 8*M^-4*m^4*A0*[m2-M2]^-1*qDk^3*qDp + 8*M^-4*m^4*A0*[m2-M2]^-1*qDk^3
  *qDpp + 3*M^-4*m^4*A0*[m2-M2]^-1*qDk^4 + 8*M^-4*m^4*A0*
 [m2-M2]^-1*qDp*qDpp^3 + 12*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*qDpp^2
  + 8*M^-4*m^4*A0*[m2-M2]^-1*qDp^3*qDpp + 3*M^-4*m^4*A0*[m2-M2]^-1
  *qDpp^4 )
 
 + D(a,d)*D(b,c)*Nom
  * ( - 2*N*M^-4*A0*kDpp - 2*N*M^-4*A0*pDpp - N*M^-4*ExtM*kDpp
  - 2*N*M^-4*ExtM*pDpp - 2*N*M^-4*ExtM^2*kDp - N*M^-4*ExtM^2*kDpp
  - 1/4*M^-4*m^2*A0 - 48*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp*qDpp^2
  - 45*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp^2*qDpp - 7*M^-4*m^2*A0*
 [m2-M2]^-4*qDk*qDp^3 - 18*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDpp^3
  - 45*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDp*qDpp - 15*M^-4*m^2*A0*
 [m2-M2]^-4*qDk^2*qDp^2 - 24*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDpp^2
  - 11*M^-4*m^2*A0*[m2-M2]^-4*qDk^3*qDp - 17*M^-4*m^2*A0*
 [m2-M2]^-4*qDk^3*qDpp - 5*M^-4*m^2*A0*[m2-M2]^-4*qDk^4 - 16*M^-4*m^2
  *A0*[m2-M2]^-4*qDp*qDpp^3 - 24*M^-4*m^2*A0*[m2-M2]^-4*qDp^2*qDpp^2
   - 13*M^-4*m^2*A0*[m2-M2]^-4*qDp^3*qDpp - 6*M^-4*m^2*A0*
 [m2-M2]^-4*qDpp^4 + M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*qDpp + 2*M^-4*m^2
  *A0*[m2-M2]^-3*qDk*qDp*kDp + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*kDpp
   + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*pDpp + 1/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp^2 + 6*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDp
  + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDpp + 7*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDpp*pDpp + M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDp
  + 1/2*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDpp + 3/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*kDp + 4*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*kDpp
  + 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*pDpp + 1/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^3 + 7*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*kDp
  + 8*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*kDpp + 8*M^-4*m^2*A0*
 [m2-M2]^-3*qDp*qDpp*pDpp + 1/2*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*qDpp
  + 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*kDpp + 3*M^-4*m^2*A0*
 [m2-M2]^-3*qDp^2*pDpp + 3*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*kDp
  + 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*kDpp + 3*M^-4*m^2*A0*
 [m2-M2]^-3*qDpp^2*pDpp - 3/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp
  - 11/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp + 7/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDk*kDp + 7/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*kDpp
  + 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDk*pDpp - 5/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2 - 5/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp + 1/2*M^-4
  *m^2*A0*[m2-M2]^-2*qDp*kDp + 3/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*kDpp
   + M^-4*m^2*A0*[m2-M2]^-2*qDp*pDpp + 3*M^-4*m^2*A0*[m2-M2]^-2*qDpp
  *kDp + 3*M^-4*m^2*A0*[m2-M2]^-2*qDpp*kDpp + 9/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDpp*pDpp - 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2
  - 3*M^-4*m^2*A0*[m2-M2]^-2*kDp*kDpp - 11/4*M^-4*m^2*A0*
 [m2-M2]^-2*kDp*pDpp - M^-4*m^2*A0*[m2-M2]^-2*kDp^2 - 11/4*M^-4*m^2
  *A0*[m2-M2]^-2*kDpp*pDpp - 3/2*M^-4*m^2*A0*[m2-M2]^-2*kDpp^2
  - 5/4*M^-4*m^2*A0*[m2-M2]^-2*pDpp^2 + 1/8*M^-4*m^2*A0*[m2-M2]^-1
  *qDk + 1/8*M^-4*m^2*A0*[m2-M2]^-1*qDpp + 5/8*M^-4*m^2*A0*
 [m2-M2]^-1*kDpp + 1/4*M^-4*m^2*A0*[m2-M2]^-1*pDpp + 1/8*M^-4*m^2*ExtM
   + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDp*qDpp^2 + 12*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk*qDp^2*qDpp + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDp^3
  - 8*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDpp^3 + 6*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk^2*qDp*qDpp + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^2*qDp^2
   - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^2*qDpp^2 + 6*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk^3*qDp + 2*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^4 - 2*M^-4*m^2
  *ExtM*[m2-M2]^-4*qDp*qDpp^3 + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDp^2*qDpp^2
   + 2*M^-4*m^2*ExtM*[m2-M2]^-4*qDp^3*qDpp + 3*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDp^4 - 4*M^-4*m^2*ExtM*[m2-M2]^-4*qDpp^4 - M^-4*m^2*ExtM
  *[m2-M2]^-3*qDk*qDp*qDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp*kDp
   - M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp*kDpp - 3*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk*qDp*pDpp - 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp^2
  - M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp*kDp + 4*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk*qDpp*kDpp - M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp*pDpp
   + 2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp^2 - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^2*qDp + M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDpp
  - 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*kDp + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^2*kDpp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*pDpp
  - 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp*kDp - M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp*qDpp*kDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp*pDpp
   - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp^2 - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp^2*qDpp - 2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*kDp
  - 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*kDpp - M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp^2*pDpp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^3
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^2*kDp + 7/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDpp^2*kDpp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^2*pDpp
   + M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^3 + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*qDp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*kDp - 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*kDpp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2
  - 3/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*qDpp + 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp*kDp + 3/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*pDpp
  + 3/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2 - M^-4*m^2*ExtM*[m2-M2]^-2*qDpp
  *kDp - 5/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp*kDpp - 1/2*M^-4*m^2*ExtM
  *[m2-M2]^-2*qDpp*pDpp - M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^2
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*kDp*pDpp + 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*kDp^2 - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*kDpp^2 + 1/4*M^-4
  *m^2*ExtM*[m2-M2]^-2*pDpp^2 + 1/8*M^-4*m^2*ExtM*[m2-M2]^-1*qDp
  + 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp - 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-1*kDp + 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*kDpp + 1/2*M^-4*m^2
  *ExtM*[m2-M2]^-1*pDpp + 32*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp*qDpp^2
   + 27*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp^2*qDpp + 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDk*qDp^3 + 18*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDpp^3
  + 31*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDp*qDpp + 9*M^-4*m^4*A0*
 [m2-M2]^-5*qDk^2*qDp^2 + 24*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDpp^2
  + 7*M^-4*m^4*A0*[m2-M2]^-5*qDk^3*qDp + 17*M^-4*m^4*A0*[m2-M2]^-5
  *qDk^3*qDpp + 4*M^-4*m^4*A0*[m2-M2]^-5*qDk^4 + 10*M^-4*m^4*A0*
 [m2-M2]^-5*qDp*qDpp^3 + 12*M^-4*m^4*A0*[m2-M2]^-5*qDp^2*qDpp^2
  + 5*M^-4*m^4*A0*[m2-M2]^-5*qDp^3*qDpp - 2*M^-4*m^4*A0*[m2-M2]^-5
  *qDp^4 + 5*M^-4*m^4*A0*[m2-M2]^-5*qDpp^4 + 2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp*qDpp - 2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*kDp
  - 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*kDpp - 9/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp*pDpp + M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp^2
  - 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDp - 5*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDpp*kDpp - 3*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*pDpp
   + 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*qDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDp
  - 3*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDpp - 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*pDpp - 9/2*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*kDp
  - 4*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*kDpp - 4*M^-4*m^4*A0*
 [m2-M2]^-4*qDp*qDpp*pDpp + 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp^2
  + M^-4*m^4*A0*[m2-M2]^-4*qDp^2*qDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-4
  *qDp^2*kDp - 2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*kDpp - 3/2*M^-4*m^4*A0
  *[m2-M2]^-4*qDp^2*pDpp - M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*kDp
  - 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*kDpp - 5/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDpp^2*pDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^3
  + 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp + 11/4*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDpp - 9/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*kDp
  - 5/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*kDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*pDpp + M^-4*m^4*A0*[m2-M2]^-3*qDk^2 + 3/4*M^-4*m^4
  *A0*[m2-M2]^-3*qDp*qDpp - 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDp*kDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDp*pDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDp^2 - 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp*kDp - 5/4*M^-4
  *m^4*A0*[m2-M2]^-3*qDpp*kDpp - 3/4*M^-4*m^4*A0*[m2-M2]^-3*qDpp*pDpp
   + 5/4*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2 + 5/4*M^-4*m^4*A0*
 [m2-M2]^-3*kDp*kDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-3*kDp*pDpp
  + 5/4*M^-4*m^4*A0*[m2-M2]^-3*kDp^2 + 1/4*M^-4*m^4*A0*[m2-M2]^-3*kDpp
  *pDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-3*kDpp^2 + 1/4*M^-4*m^4*A0*
 [m2-M2]^-3*pDpp^2 + 1/8*M^-4*m^4*A0*[m2-M2]^-2*kDp - 3/8*M^-4*m^4
  *A0*[m2-M2]^-2*kDpp - 1/8*M^-4*m^4*A0*[m2-M2]^-2*pDpp + 1/8*M^-4
  *m^4*A0*[m2-M2]^-1 - 10*M^-4*m^4*ExtM*[m2-M2]^-5*qDk*qDp*qDpp^2
  - 12*M^-4*m^4*ExtM*[m2-M2]^-5*qDk*qDp^2*qDpp - 8*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDk*qDp^3 + 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDk*qDpp^3
  - 14*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^2*qDp*qDpp - 12*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDk^2*qDp^2 - 10*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^3*qDp
  - 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^3*qDpp - 2*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDk^4 + 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDp*qDpp^3
  - 3*M^-4*m^4*ExtM*[m2-M2]^-5*qDp^4 + 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDpp^4
   + 4*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*qDpp + 6*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDp*kDp + 5/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*kDpp
   + 6*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*pDpp + 3*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDp^2 + 4*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp*kDp
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp*kDpp + 4*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDpp*pDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp^2
   + 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*qDp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk^2*qDpp + 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*kDp
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*kDpp + 2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk^2*pDpp + 5/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDp*qDpp*kDpp
   - M^-4*m^4*ExtM*[m2-M2]^-4*qDp*qDpp^2 + 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDp^2*kDpp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDp^3
  - M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^2*kDp - 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDpp^2*kDpp - M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^2*pDpp
  - M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^3 - 3/2*M^-4*m^4*ExtM*[m2-M2]^-3
  *qDk*qDp - 3/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*kDp - 1/2*M^-4*m^4*ExtM
  *[m2-M2]^-3*qDk*kDpp - 3/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*pDpp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2 + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDp*qDpp - M^-4*m^4*ExtM*[m2-M2]^-3*qDp*kDpp - 3/4*M^-4
  *m^4*ExtM*[m2-M2]^-3*qDp^2 + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp*kDp
   + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp*kDpp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDpp*pDpp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^2
  - M^-4*m^4*ExtM*[m2-M2]^-3*kDp*kDpp - M^-4*m^4*ExtM*[m2-M2]^-3*kDpp
  *pDpp - 1/4*M^-4*m^4*ExtM*[m2-M2]^-3*kDpp^2 - 1/8*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDp - 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*qDpp - 1/4*M^-4*m^4
  *ExtM*[m2-M2]^-2*kDp - 1/8*M^-4*m^4*ExtM*[m2-M2]^-2*kDpp
  - 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*pDpp - 1/8*M^-4*m^4*ExtM*
 [m2-M2]^-1 + 35*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDp*qDpp^2 + 30*M^-4*m^6
  *A0*[m2-M2]^-6*qDk*qDp^2*qDpp + 8*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDp^3
   + 15*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDpp^3 + 35*M^-4*m^6*A0*
 [m2-M2]^-6*qDk^2*qDp*qDpp + 17*M^-4*m^6*A0*[m2-M2]^-6*qDk^2*qDp^2
   + 20*M^-4*m^6*A0*[m2-M2]^-6*qDk^2*qDpp^2 + 13*M^-4*m^6*A0*
 [m2-M2]^-6*qDk^3*qDp + 15*M^-4*m^6*A0*[m2-M2]^-6*qDk^3*qDpp
  + 7*M^-4*m^6*A0*[m2-M2]^-6*qDk^4 + 13*M^-4*m^6*A0*[m2-M2]^-6*qDp
  *qDpp^3 + 17*M^-4*m^6*A0*[m2-M2]^-6*qDp^2*qDpp^2 + 8*M^-4*m^6*A0
  *[m2-M2]^-6*qDp^3*qDpp + 4*M^-4*m^6*A0*[m2-M2]^-6*qDp^4
  + 7*M^-4*m^6*A0*[m2-M2]^-6*qDpp^4 - 8*M^-4*m^6*A0*[m2-M2]^-5*qDk
  *qDp*qDpp - 4*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp^2 + 2*M^-4*m^6*A0*
 [m2-M2]^-5*qDk*qDpp*kDp - 5*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDpp^2
  - 4*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDp - 5*M^-4*m^6*A0*[m2-M2]^-5*qDk^2
  *qDpp + M^-4*m^6*A0*[m2-M2]^-5*qDk^2*kDp - 3*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^3 + M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp*kDp - M^-4*m^6
  *A0*[m2-M2]^-5*qDp*qDpp*kDpp - M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp*pDpp
   - 4*M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp^2 - 4*M^-4*m^6*A0*
 [m2-M2]^-5*qDp^2*qDpp + 5/2*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*kDp
  + 1/2*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*kDpp + 1/2*M^-4*m^6*A0*
 [m2-M2]^-5*qDp^2*pDpp + 9/2*M^-4*m^6*A0*[m2-M2]^-5*qDpp^2*kDp
  + 3/2*M^-4*m^6*A0*[m2-M2]^-5*qDpp^2*kDpp + 3/2*M^-4*m^6*A0*
 [m2-M2]^-5*qDpp^2*pDpp - 3*M^-4*m^6*A0*[m2-M2]^-5*qDpp^3
  + M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp + 3/2*M^-4*m^6*A0*[m2-M2]^-4*qDk
  *qDpp - 1/2*M^-4*m^6*A0*[m2-M2]^-4*qDk*kDp + 5/4*M^-4*m^6*A0*
 [m2-M2]^-4*qDk^2 + M^-4*m^6*A0*[m2-M2]^-4*qDp*qDpp + 1/2*M^-4*m^6
  *A0*[m2-M2]^-4*qDp*kDp + 1/4*M^-4*m^6*A0*[m2-M2]^-4*qDp*kDpp
  + 1/4*M^-4*m^6*A0*[m2-M2]^-4*qDp*pDpp + M^-4*m^6*A0*[m2-M2]^-4*qDp^2
   - 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDpp*kDp - 1/2*M^-4*m^6*A0*
 [m2-M2]^-4*qDpp*kDpp - 1/2*M^-4*m^6*A0*[m2-M2]^-4*qDpp*pDpp
  + 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDpp^2 + 1/2*M^-4*m^6*A0*[m2-M2]^-4
  *kDp*kDpp + 1/2*M^-4*m^6*A0*[m2-M2]^-4*kDp*pDpp + 3/4*M^-4*m^6*A0
  *[m2-M2]^-4*kDp^2 + 1/2*M^-4*m^6*A0*[m2-M2]^-4*kDpp*pDpp
  + 1/4*M^-4*m^6*A0*[m2-M2]^-4*kDpp^2 + 1/4*M^-4*m^6*A0*[m2-M2]^-4
  *pDpp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDk - 1/2*M^-4*m^6*A0*
 [m2-M2]^-3*qDpp + 3/8*M^-4*m^6*A0*[m2-M2]^-3*kDp + 1/8*M^-4*m^6*A0
  *[m2-M2]^-3*kDpp + 1/8*M^-4*m^6*A0*[m2-M2]^-3*pDpp + 1/4*M^-4*m^6
  *A0*[m2-M2]^-2 - 25*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDp*qDpp^2
  - 20*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDp^2*qDpp - 4*M^-4*m^8*A0*
 [m2-M2]^-7*qDk*qDp^3 - 15*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDpp^3
  - 25*M^-4*m^8*A0*[m2-M2]^-7*qDk^2*qDp*qDpp - 11*M^-4*m^8*A0*
 [m2-M2]^-7*qDk^2*qDp^2 - 20*M^-4*m^8*A0*[m2-M2]^-7*qDk^2*qDpp^2
  - 9*M^-4*m^8*A0*[m2-M2]^-7*qDk^3*qDp - 15*M^-4*m^8*A0*[m2-M2]^-7
  *qDk^3*qDpp - 6*M^-4*m^8*A0*[m2-M2]^-7*qDk^4 - 9*M^-4*m^8*A0*
 [m2-M2]^-7*qDp*qDpp^3 - 11*M^-4*m^8*A0*[m2-M2]^-7*qDp^2*qDpp^2
  - 4*M^-4*m^8*A0*[m2-M2]^-7*qDp^3*qDpp - 2*M^-4*m^8*A0*[m2-M2]^-7
  *qDp^4 - 6*M^-4*m^8*A0*[m2-M2]^-7*qDpp^4 + 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDp*qDpp + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp^2
  - 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp*kDp + 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDpp^2 + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDp
  + 5*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDpp - 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDk^2*kDp + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^3 + 5/2*M^-4
  *m^8*A0*[m2-M2]^-6*qDp*qDpp^2 + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp^2
  *qDpp - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp^2*kDp - 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDpp^2*kDp + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDpp^3
  - 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp - 3/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDk*qDpp + M^-4*m^8*A0*[m2-M2]^-5*qDk*kDp - M^-4*m^8*A0
  *[m2-M2]^-5*qDk^2 - 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp*qDpp
  - 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp*kDp - 1/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDp^2 + 3/2*M^-4*m^8*A0*[m2-M2]^-5*qDpp*kDp - M^-4*m^8
  *A0*[m2-M2]^-5*qDpp^2 - M^-4*m^8*A0*[m2-M2]^-5*kDp^2 + 3/8*M^-4*m^8
  *A0*[m2-M2]^-4*qDk + 3/8*M^-4*m^8*A0*[m2-M2]^-4*qDpp - 3/8*M^-4*m^8
  *A0*[m2-M2]^-4*kDp - 1/8*M^-4*m^8*A0*[m2-M2]^-3 + 6*M^-4*A0*
 [m2-M2]^-3*qDk*qDp*qDpp^2 + 8*M^-4*A0*[m2-M2]^-3*qDk*qDp^2*qDpp
  + 4*M^-4*A0*[m2-M2]^-3*qDk^2*qDp*qDpp + 2*M^-4*A0*[m2-M2]^-3*qDp
  *qDpp^3 + 6*M^-4*A0*[m2-M2]^-3*qDp^2*qDpp^2 + 4*M^-4*A0*
 [m2-M2]^-3*qDp^3*qDpp + 1/2*M^-4*A0*[m2-M2]^-2*qDk*qDp*kDp
  - M^-4*A0*[m2-M2]^-2*qDk*qDp*kDpp - 2*M^-4*A0*[m2-M2]^-2*qDk*qDp
  *pDpp - 1/2*M^-4*A0*[m2-M2]^-2*qDk*qDpp*kDp - M^-4*A0*[m2-M2]^-2
  *qDk*qDpp*pDpp - 1/2*M^-4*A0*[m2-M2]^-2*qDk^2*pDpp - M^-4*A0*
 [m2-M2]^-2*qDp*qDpp*kDp - 3/2*M^-4*A0*[m2-M2]^-2*qDp*qDpp*kDpp
  - 5/2*M^-4*A0*[m2-M2]^-2*qDp*qDpp*pDpp + 1/2*M^-4*A0*[m2-M2]^-2*qDp^2
  *kDp - M^-4*A0*[m2-M2]^-2*qDp^2*kDpp - 3/2*M^-4*A0*[m2-M2]^-2*qDp^2
  *pDpp - 1/2*M^-4*A0*[m2-M2]^-2*qDpp^2*kDp - 1/2*M^-4*A0*
 [m2-M2]^-2*qDpp^2*pDpp - 1/4*M^-4*A0*[m2-M2]^-1*qDk*pDpp
  - 1/4*M^-4*A0*[m2-M2]^-1*qDp*kDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDp*pDpp
   - 1/2*M^-4*A0*[m2-M2]^-1*qDpp*kDp - 1/2*M^-4*A0*[m2-M2]^-1*qDpp
  *kDpp - 1/4*M^-4*A0*[m2-M2]^-1*qDpp*pDpp + M^-4*A0*[m2-M2]^-1*kDp
  *kDpp + M^-4*A0*[m2-M2]^-1*kDp*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*kDp^2
   + M^-4*A0*[m2-M2]^-1*kDpp*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*kDpp^2
  + 1/2*M^-4*A0*[m2-M2]^-1*pDpp^2 + 29/8*M^-4*A0*kDpp + 29/8*M^-4*A0
  *pDpp + 3/4*M^-4*T3*ExtM^2*kDp + 3/8*M^-4*T3*ExtM^2*kDpp
  + 4*M^-4*ExtM*[m2-M2]^-3*qDk*qDp*qDpp^2 + 2*M^-4*ExtM*[m2-M2]^-3
  *qDk*qDp^3 + 6*M^-4*ExtM*[m2-M2]^-3*qDk*qDpp^3 + 8*M^-4*ExtM*
 [m2-M2]^-3*qDk^2*qDp*qDpp + 6*M^-4*ExtM*[m2-M2]^-3*qDk^2*qDp^2
  + 6*M^-4*ExtM*[m2-M2]^-3*qDk^2*qDpp^2 + 4*M^-4*ExtM*[m2-M2]^-3*qDk^3
  *qDp + 2*M^-4*ExtM*[m2-M2]^-3*qDk^3*qDpp - 6*M^-4*ExtM*
 [m2-M2]^-3*qDp^2*qDpp^2 - 2*M^-4*ExtM*[m2-M2]^-3*qDp^3*qDpp
  + 2*M^-4*ExtM*[m2-M2]^-3*qDpp^4 - 3*M^-4*ExtM*[m2-M2]^-2*qDk*qDp
  *kDp - 2*M^-4*ExtM*[m2-M2]^-2*qDk*qDp*kDpp - M^-4*ExtM*
 [m2-M2]^-2*qDk*qDp*pDpp - 2*M^-4*ExtM*[m2-M2]^-2*qDk*qDpp*kDp
  - 3*M^-4*ExtM*[m2-M2]^-2*qDk*qDpp*kDpp - 2*M^-4*ExtM*[m2-M2]^-2*qDk^2
  *kDp - 1/2*M^-4*ExtM*[m2-M2]^-2*qDk^2*kDpp - M^-4*ExtM*
 [m2-M2]^-2*qDk^2*pDpp + M^-4*ExtM*[m2-M2]^-2*qDp*qDpp*kDp
  - 2*M^-4*ExtM*[m2-M2]^-2*qDp*qDpp*kDpp + 3*M^-4*ExtM*[m2-M2]^-2*qDp
  *qDpp*pDpp - 1/2*M^-4*ExtM*[m2-M2]^-2*qDp^2*kDp + 1/2*M^-4*ExtM*
 [m2-M2]^-2*qDp^2*pDpp - 5/2*M^-4*ExtM*[m2-M2]^-2*qDpp^2*kDpp
  + M^-4*ExtM*[m2-M2]^-2*qDpp^2*pDpp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDk
  *qDpp - 1/2*M^-4*ExtM*[m2-M2]^-1*qDk*kDp - 1/4*M^-4*ExtM*
 [m2-M2]^-1*qDk*kDpp + M^-4*ExtM*[m2-M2]^-1*qDp*qDpp - 1/4*M^-4*ExtM
  *[m2-M2]^-1*qDp*kDp - 1/2*M^-4*ExtM*[m2-M2]^-1*qDp*kDpp
  + 1/4*M^-4*ExtM*[m2-M2]^-1*qDp*pDpp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDpp
  *kDp - 1/4*M^-4*ExtM*[m2-M2]^-1*qDpp*kDpp + M^-4*ExtM*[m2-M2]^-1
  *qDpp*pDpp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDpp^2 + 1/4*M^-4*ExtM*
 [m2-M2]^-1*kDp*kDpp + 1/4*M^-4*ExtM*[m2-M2]^-1*kDp^2 - 1/4*M^-4*ExtM
  *[m2-M2]^-1*kDpp*pDpp - 1/4*M^-4*ExtM*[m2-M2]^-1*pDpp^2
  + 13/8*M^-4*ExtM*kDpp + 13/4*M^-4*ExtM*pDpp - 2*M^-4*ExtM^2*
 [m2-M2]^-3*qDk*qDp*qDpp^2 - 2*M^-4*ExtM^2*[m2-M2]^-3*qDk*qDpp^3
  + 2*M^-4*ExtM^2*[m2-M2]^-3*qDk^2*qDp*qDpp + 2*M^-4*ExtM^2*
 [m2-M2]^-3*qDk^3*qDp + 2*M^-4*ExtM^2*[m2-M2]^-3*qDk^3*qDpp
  + M^-4*ExtM^2*[m2-M2]^-3*qDk^4 - 2*M^-4*ExtM^2*[m2-M2]^-3*qDp*qDpp^3
   - M^-4*ExtM^2*[m2-M2]^-3*qDpp^4 - M^-4*ExtM^2*[m2-M2]^-2*qDk*qDp
  *kDpp - 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk*qDpp^2 + M^-4*ExtM^2*
 [m2-M2]^-2*qDk^2*qDp + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk^2*qDpp
  - 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk^2*kDpp + 1/2*M^-4*ExtM^2*
 [m2-M2]^-2*qDk^3 + M^-4*ExtM^2*[m2-M2]^-2*qDp*qDpp*kDpp - M^-4*ExtM^2
  *[m2-M2]^-2*qDp*qDpp^2 + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDpp^2*kDpp
  - 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDpp^3 + 1/2*M^-4*ExtM^2*[m2-M2]^-1
  *qDk*qDp + 1/4*M^-4*ExtM^2*[m2-M2]^-1*qDk^2 - 1/2*M^-4*ExtM^2*
 [m2-M2]^-1*qDp*qDpp - 1/4*M^-4*ExtM^2*[m2-M2]^-1*qDpp^2 + 13/4*M^-4
  *ExtM^2*kDp + 13/8*M^-4*ExtM^2*kDpp )
 
 + D(a,d)*D(b,c)*Nohm
  * ( 1/4*M^-4*m^2*A0 + 48*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp*qDpp^2
  + 45*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDp^2*qDpp + 7*M^-4*m^2*A0*
 [m2-M2]^-4*qDk*qDp^3 + 18*M^-4*m^2*A0*[m2-M2]^-4*qDk*qDpp^3
  + 45*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDp*qDpp + 15*M^-4*m^2*A0*
 [m2-M2]^-4*qDk^2*qDp^2 + 24*M^-4*m^2*A0*[m2-M2]^-4*qDk^2*qDpp^2
  + 11*M^-4*m^2*A0*[m2-M2]^-4*qDk^3*qDp + 17*M^-4*m^2*A0*
 [m2-M2]^-4*qDk^3*qDpp + 5*M^-4*m^2*A0*[m2-M2]^-4*qDk^4 + 16*M^-4*m^2
  *A0*[m2-M2]^-4*qDp*qDpp^3 + 24*M^-4*m^2*A0*[m2-M2]^-4*qDp^2*qDpp^2
   + 13*M^-4*m^2*A0*[m2-M2]^-4*qDp^3*qDpp + 6*M^-4*m^2*A0*
 [m2-M2]^-4*qDpp^4 - M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*qDpp - 2*M^-4*m^2
  *A0*[m2-M2]^-3*qDk*qDp*kDp - 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*kDpp
   - 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*pDpp - 1/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp^2 - 6*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDp
  - 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp*kDpp - 7*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDpp*pDpp - M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDp
  - 1/2*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDpp - 3/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*kDp - 4*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*kDpp
  - 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*pDpp - 1/2*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^3 - 7*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*kDp
  - 8*M^-4*m^2*A0*[m2-M2]^-3*qDp*qDpp*kDpp - 8*M^-4*m^2*A0*
 [m2-M2]^-3*qDp*qDpp*pDpp - 1/2*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*qDpp
  - 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*kDpp - 3*M^-4*m^2*A0*
 [m2-M2]^-3*qDp^2*pDpp - 3*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*kDp
  - 7/2*M^-4*m^2*A0*[m2-M2]^-3*qDpp^2*kDpp - 3*M^-4*m^2*A0*
 [m2-M2]^-3*qDpp^2*pDpp + 3/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp
  + 11/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp - 7/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDk*kDp - 7/4*M^-4*m^2*A0*[m2-M2]^-2*qDk*kDpp
  - 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDk*pDpp + 5/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2 + 5/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp - 1/2*M^-4
  *m^2*A0*[m2-M2]^-2*qDp*kDp - 3/4*M^-4*m^2*A0*[m2-M2]^-2*qDp*kDpp
   - M^-4*m^2*A0*[m2-M2]^-2*qDp*pDpp - 3*M^-4*m^2*A0*[m2-M2]^-2*qDpp
  *kDp - 3*M^-4*m^2*A0*[m2-M2]^-2*qDpp*kDpp - 9/4*M^-4*m^2*A0*
 [m2-M2]^-2*qDpp*pDpp + 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2
  + 3*M^-4*m^2*A0*[m2-M2]^-2*kDp*kDpp + 11/4*M^-4*m^2*A0*
 [m2-M2]^-2*kDp*pDpp + M^-4*m^2*A0*[m2-M2]^-2*kDp^2 + 11/4*M^-4*m^2
  *A0*[m2-M2]^-2*kDpp*pDpp + 3/2*M^-4*m^2*A0*[m2-M2]^-2*kDpp^2
  + 5/4*M^-4*m^2*A0*[m2-M2]^-2*pDpp^2 - 1/8*M^-4*m^2*A0*[m2-M2]^-1
  *qDk - 1/8*M^-4*m^2*A0*[m2-M2]^-1*qDpp - 5/8*M^-4*m^2*A0*
 [m2-M2]^-1*kDpp - 1/4*M^-4*m^2*A0*[m2-M2]^-1*pDpp - 1/8*M^-4*m^2*ExtM
   - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDp*qDpp^2 - 12*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk*qDp^2*qDpp - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDp^3
  + 8*M^-4*m^2*ExtM*[m2-M2]^-4*qDk*qDpp^3 - 6*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk^2*qDp*qDpp - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^2*qDp^2
   + 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^2*qDpp^2 - 6*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDk^3*qDp - 2*M^-4*m^2*ExtM*[m2-M2]^-4*qDk^4 + 2*M^-4*m^2
  *ExtM*[m2-M2]^-4*qDp*qDpp^3 - 6*M^-4*m^2*ExtM*[m2-M2]^-4*qDp^2*qDpp^2
   - 2*M^-4*m^2*ExtM*[m2-M2]^-4*qDp^3*qDpp - 3*M^-4*m^2*ExtM*
 [m2-M2]^-4*qDp^4 + 4*M^-4*m^2*ExtM*[m2-M2]^-4*qDpp^4 + M^-4*m^2*ExtM
  *[m2-M2]^-3*qDk*qDp*qDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp*kDp
   + M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp*kDpp + 3*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk*qDp*pDpp + 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp^2
  + M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp*kDp - 4*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk*qDpp*kDpp + M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp*pDpp
   - 2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp^2 + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^2*qDp - M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDpp
  + 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*kDp - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^2*kDpp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*pDpp
  + 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp*kDp + M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp*qDpp*kDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp*pDpp
   + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp^2 + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp^2*qDpp + 2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*kDp
  + 3/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*kDpp + M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp^2*pDpp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^3
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^2*kDp - 7/2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDpp^2*kDpp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^2*pDpp
   - M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^3 - 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*qDp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*kDp + 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*kDpp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2
  + 3/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*qDpp - 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp*kDp - 3/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*pDpp
  - 3/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2 + M^-4*m^2*ExtM*[m2-M2]^-2*qDpp
  *kDp + 5/4*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp*kDpp + 1/2*M^-4*m^2*ExtM
  *[m2-M2]^-2*qDpp*pDpp + M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^2
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*kDp*pDpp - 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-2*kDp^2 + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*kDpp^2 - 1/4*M^-4
  *m^2*ExtM*[m2-M2]^-2*pDpp^2 - 1/8*M^-4*m^2*ExtM*[m2-M2]^-1*qDp
  - 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp + 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-1*kDp - 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*kDpp - 1/2*M^-4*m^2
  *ExtM*[m2-M2]^-1*pDpp - 32*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp*qDpp^2
   - 27*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDp^2*qDpp - 3*M^-4*m^4*A0*
 [m2-M2]^-5*qDk*qDp^3 - 18*M^-4*m^4*A0*[m2-M2]^-5*qDk*qDpp^3
  - 31*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDp*qDpp - 9*M^-4*m^4*A0*
 [m2-M2]^-5*qDk^2*qDp^2 - 24*M^-4*m^4*A0*[m2-M2]^-5*qDk^2*qDpp^2
  - 7*M^-4*m^4*A0*[m2-M2]^-5*qDk^3*qDp - 17*M^-4*m^4*A0*[m2-M2]^-5
  *qDk^3*qDpp - 4*M^-4*m^4*A0*[m2-M2]^-5*qDk^4 - 10*M^-4*m^4*A0*
 [m2-M2]^-5*qDp*qDpp^3 - 12*M^-4*m^4*A0*[m2-M2]^-5*qDp^2*qDpp^2
  - 5*M^-4*m^4*A0*[m2-M2]^-5*qDp^3*qDpp + 2*M^-4*m^4*A0*[m2-M2]^-5
  *qDp^4 - 5*M^-4*m^4*A0*[m2-M2]^-5*qDpp^4 - 2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp*qDpp + 2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*kDp
  + 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*kDpp + 9/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp*pDpp - M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp^2
  + 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*kDp + 5*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDpp*kDpp + 3*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp*pDpp
   - 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*qDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDp
  + 3*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*kDpp + 3/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*pDpp + 9/2*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*kDp
  + 4*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp*kDpp + 4*M^-4*m^4*A0*
 [m2-M2]^-4*qDp*qDpp*pDpp - 3/2*M^-4*m^4*A0*[m2-M2]^-4*qDp*qDpp^2
  - M^-4*m^4*A0*[m2-M2]^-4*qDp^2*qDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-4
  *qDp^2*kDp + 2*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*kDpp + 3/2*M^-4*m^4*A0
  *[m2-M2]^-4*qDp^2*pDpp + M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*kDp
  + 7/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^2*kDpp + 5/2*M^-4*m^4*A0*
 [m2-M2]^-4*qDpp^2*pDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-4*qDpp^3
  - 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp - 11/4*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDpp + 9/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*kDp
  + 5/4*M^-4*m^4*A0*[m2-M2]^-3*qDk*kDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*pDpp - M^-4*m^4*A0*[m2-M2]^-3*qDk^2 - 3/4*M^-4*m^4
  *A0*[m2-M2]^-3*qDp*qDpp + 1/4*M^-4*m^4*A0*[m2-M2]^-3*qDp*kDpp
  + 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDp*pDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDp^2 + 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp*kDp + 5/4*M^-4
  *m^4*A0*[m2-M2]^-3*qDpp*kDpp + 3/4*M^-4*m^4*A0*[m2-M2]^-3*qDpp*pDpp
   - 5/4*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2 - 5/4*M^-4*m^4*A0*
 [m2-M2]^-3*kDp*kDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-3*kDp*pDpp
  - 5/4*M^-4*m^4*A0*[m2-M2]^-3*kDp^2 - 1/4*M^-4*m^4*A0*[m2-M2]^-3*kDpp
  *pDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-3*kDpp^2 - 1/4*M^-4*m^4*A0*
 [m2-M2]^-3*pDpp^2 - 1/8*M^-4*m^4*A0*[m2-M2]^-2*kDp + 3/8*M^-4*m^4
  *A0*[m2-M2]^-2*kDpp + 1/8*M^-4*m^4*A0*[m2-M2]^-2*pDpp - 1/8*M^-4
  *m^4*A0*[m2-M2]^-1 + 10*M^-4*m^4*ExtM*[m2-M2]^-5*qDk*qDp*qDpp^2
  + 12*M^-4*m^4*ExtM*[m2-M2]^-5*qDk*qDp^2*qDpp + 8*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDk*qDp^3 - 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDk*qDpp^3
  + 14*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^2*qDp*qDpp + 12*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDk^2*qDp^2 + 10*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^3*qDp
  + 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDk^3*qDpp + 2*M^-4*m^4*ExtM*
 [m2-M2]^-5*qDk^4 - 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDp*qDpp^3
  + 3*M^-4*m^4*ExtM*[m2-M2]^-5*qDp^4 - 2*M^-4*m^4*ExtM*[m2-M2]^-5*qDpp^4
   - 4*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*qDpp - 6*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDp*kDp - 5/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*kDpp
   - 6*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp*pDpp - 3*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDp^2 - 4*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp*kDp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp*kDpp - 4*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDpp*pDpp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDpp^2
   - 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*qDp - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk^2*qDpp - 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*kDp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*kDpp - 2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk^2*pDpp - 5/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDp*qDpp*kDpp
   + M^-4*m^4*ExtM*[m2-M2]^-4*qDp*qDpp^2 - 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDp^2*kDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-4*qDp^3
  + M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^2*kDp + 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDpp^2*kDpp + M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^2*pDpp
  + M^-4*m^4*ExtM*[m2-M2]^-4*qDpp^3 + 3/2*M^-4*m^4*ExtM*[m2-M2]^-3
  *qDk*qDp + 3/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*kDp + 1/2*M^-4*m^4*ExtM
  *[m2-M2]^-3*qDk*kDpp + 3/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*pDpp
  + 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2 - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDp*qDpp + M^-4*m^4*ExtM*[m2-M2]^-3*qDp*kDpp + 3/4*M^-4
  *m^4*ExtM*[m2-M2]^-3*qDp^2 - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp*kDp
   - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp*kDpp - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDpp*pDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^2
  + M^-4*m^4*ExtM*[m2-M2]^-3*kDp*kDpp + M^-4*m^4*ExtM*[m2-M2]^-3*kDpp
  *pDpp + 1/4*M^-4*m^4*ExtM*[m2-M2]^-3*kDpp^2 + 1/8*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDp + 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*qDpp + 1/4*M^-4*m^4
  *ExtM*[m2-M2]^-2*kDp + 1/8*M^-4*m^4*ExtM*[m2-M2]^-2*kDpp
  + 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*pDpp + 1/8*M^-4*m^4*ExtM*
 [m2-M2]^-1 - 35*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDp*qDpp^2 - 30*M^-4*m^6
  *A0*[m2-M2]^-6*qDk*qDp^2*qDpp - 8*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDp^3
   - 15*M^-4*m^6*A0*[m2-M2]^-6*qDk*qDpp^3 - 35*M^-4*m^6*A0*
 [m2-M2]^-6*qDk^2*qDp*qDpp - 17*M^-4*m^6*A0*[m2-M2]^-6*qDk^2*qDp^2
   - 20*M^-4*m^6*A0*[m2-M2]^-6*qDk^2*qDpp^2 - 13*M^-4*m^6*A0*
 [m2-M2]^-6*qDk^3*qDp - 15*M^-4*m^6*A0*[m2-M2]^-6*qDk^3*qDpp
  - 7*M^-4*m^6*A0*[m2-M2]^-6*qDk^4 - 13*M^-4*m^6*A0*[m2-M2]^-6*qDp
  *qDpp^3 - 17*M^-4*m^6*A0*[m2-M2]^-6*qDp^2*qDpp^2 - 8*M^-4*m^6*A0
  *[m2-M2]^-6*qDp^3*qDpp - 4*M^-4*m^6*A0*[m2-M2]^-6*qDp^4
  - 7*M^-4*m^6*A0*[m2-M2]^-6*qDpp^4 + 8*M^-4*m^6*A0*[m2-M2]^-5*qDk
  *qDp*qDpp + 4*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp^2 - 2*M^-4*m^6*A0*
 [m2-M2]^-5*qDk*qDpp*kDp + 5*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDpp^2
  + 4*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDp + 5*M^-4*m^6*A0*[m2-M2]^-5*qDk^2
  *qDpp - M^-4*m^6*A0*[m2-M2]^-5*qDk^2*kDp + 3*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^3 - M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp*kDp + M^-4*m^6
  *A0*[m2-M2]^-5*qDp*qDpp*kDpp + M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp*pDpp
   + 4*M^-4*m^6*A0*[m2-M2]^-5*qDp*qDpp^2 + 4*M^-4*m^6*A0*
 [m2-M2]^-5*qDp^2*qDpp - 5/2*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*kDp
  - 1/2*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*kDpp - 1/2*M^-4*m^6*A0*
 [m2-M2]^-5*qDp^2*pDpp - 9/2*M^-4*m^6*A0*[m2-M2]^-5*qDpp^2*kDp
  - 3/2*M^-4*m^6*A0*[m2-M2]^-5*qDpp^2*kDpp - 3/2*M^-4*m^6*A0*
 [m2-M2]^-5*qDpp^2*pDpp + 3*M^-4*m^6*A0*[m2-M2]^-5*qDpp^3
  - M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp - 3/2*M^-4*m^6*A0*[m2-M2]^-4*qDk
  *qDpp + 1/2*M^-4*m^6*A0*[m2-M2]^-4*qDk*kDp - 5/4*M^-4*m^6*A0*
 [m2-M2]^-4*qDk^2 - M^-4*m^6*A0*[m2-M2]^-4*qDp*qDpp - 1/2*M^-4*m^6
  *A0*[m2-M2]^-4*qDp*kDp - 1/4*M^-4*m^6*A0*[m2-M2]^-4*qDp*kDpp
  - 1/4*M^-4*m^6*A0*[m2-M2]^-4*qDp*pDpp - M^-4*m^6*A0*[m2-M2]^-4*qDp^2
   + 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDpp*kDp + 1/2*M^-4*m^6*A0*
 [m2-M2]^-4*qDpp*kDpp + 1/2*M^-4*m^6*A0*[m2-M2]^-4*qDpp*pDpp
  - 5/4*M^-4*m^6*A0*[m2-M2]^-4*qDpp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-4
  *kDp*kDpp - 1/2*M^-4*m^6*A0*[m2-M2]^-4*kDp*pDpp - 3/4*M^-4*m^6*A0
  *[m2-M2]^-4*kDp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-4*kDpp*pDpp
  - 1/4*M^-4*m^6*A0*[m2-M2]^-4*kDpp^2 - 1/4*M^-4*m^6*A0*[m2-M2]^-4
  *pDpp^2 + 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDk + 1/2*M^-4*m^6*A0*
 [m2-M2]^-3*qDpp - 3/8*M^-4*m^6*A0*[m2-M2]^-3*kDp - 1/8*M^-4*m^6*A0
  *[m2-M2]^-3*kDpp - 1/8*M^-4*m^6*A0*[m2-M2]^-3*pDpp - 1/4*M^-4*m^6
  *A0*[m2-M2]^-2 + 25*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDp*qDpp^2
  + 20*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDp^2*qDpp + 4*M^-4*m^8*A0*
 [m2-M2]^-7*qDk*qDp^3 + 15*M^-4*m^8*A0*[m2-M2]^-7*qDk*qDpp^3
  + 25*M^-4*m^8*A0*[m2-M2]^-7*qDk^2*qDp*qDpp + 11*M^-4*m^8*A0*
 [m2-M2]^-7*qDk^2*qDp^2 + 20*M^-4*m^8*A0*[m2-M2]^-7*qDk^2*qDpp^2
  + 9*M^-4*m^8*A0*[m2-M2]^-7*qDk^3*qDp + 15*M^-4*m^8*A0*[m2-M2]^-7
  *qDk^3*qDpp + 6*M^-4*m^8*A0*[m2-M2]^-7*qDk^4 + 9*M^-4*m^8*A0*
 [m2-M2]^-7*qDp*qDpp^3 + 11*M^-4*m^8*A0*[m2-M2]^-7*qDp^2*qDpp^2
  + 4*M^-4*m^8*A0*[m2-M2]^-7*qDp^3*qDpp + 2*M^-4*m^8*A0*[m2-M2]^-7
  *qDp^4 + 6*M^-4*m^8*A0*[m2-M2]^-7*qDpp^4 - 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDp*qDpp - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp^2
  + 5*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp*kDp - 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDk*qDpp^2 - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDp
  - 5*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDpp + 5/2*M^-4*m^8*A0*
 [m2-M2]^-6*qDk^2*kDp - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDk^3 - 5/2*M^-4
  *m^8*A0*[m2-M2]^-6*qDp*qDpp^2 - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp^2
  *qDpp + 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDp^2*kDp + 5*M^-4*m^8*A0*
 [m2-M2]^-6*qDpp^2*kDp - 5/2*M^-4*m^8*A0*[m2-M2]^-6*qDpp^3
  + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp + 3/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDk*qDpp - M^-4*m^8*A0*[m2-M2]^-5*qDk*kDp + M^-4*m^8*A0
  *[m2-M2]^-5*qDk^2 + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp*qDpp
  + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp*kDp + 1/2*M^-4*m^8*A0*
 [m2-M2]^-5*qDp^2 - 3/2*M^-4*m^8*A0*[m2-M2]^-5*qDpp*kDp + M^-4*m^8
  *A0*[m2-M2]^-5*qDpp^2 + M^-4*m^8*A0*[m2-M2]^-5*kDp^2 - 3/8*M^-4*m^8
  *A0*[m2-M2]^-4*qDk - 3/8*M^-4*m^8*A0*[m2-M2]^-4*qDpp + 3/8*M^-4*m^8
  *A0*[m2-M2]^-4*kDp + 1/8*M^-4*m^8*A0*[m2-M2]^-3 + 1/4*M^-4*gu*T3
  *ExtM^2*kDp + 1/8*M^-4*gu*T3*ExtM^2*kDpp - 6*M^-4*A0*[m2-M2]^-3*qDk
  *qDp*qDpp^2 - 8*M^-4*A0*[m2-M2]^-3*qDk*qDp^2*qDpp - 4*M^-4*A0*
 [m2-M2]^-3*qDk^2*qDp*qDpp - 2*M^-4*A0*[m2-M2]^-3*qDp*qDpp^3
  - 6*M^-4*A0*[m2-M2]^-3*qDp^2*qDpp^2 - 4*M^-4*A0*[m2-M2]^-3*qDp^3
  *qDpp - 1/2*M^-4*A0*[m2-M2]^-2*qDk*qDp*kDp + M^-4*A0*[m2-M2]^-2*qDk
  *qDp*kDpp + 2*M^-4*A0*[m2-M2]^-2*qDk*qDp*pDpp + 1/2*M^-4*A0*
 [m2-M2]^-2*qDk*qDpp*kDp + M^-4*A0*[m2-M2]^-2*qDk*qDpp*pDpp
  + 1/2*M^-4*A0*[m2-M2]^-2*qDk^2*pDpp + M^-4*A0*[m2-M2]^-2*qDp*qDpp
  *kDp + 3/2*M^-4*A0*[m2-M2]^-2*qDp*qDpp*kDpp + 5/2*M^-4*A0*
 [m2-M2]^-2*qDp*qDpp*pDpp - 1/2*M^-4*A0*[m2-M2]^-2*qDp^2*kDp
  + M^-4*A0*[m2-M2]^-2*qDp^2*kDpp + 3/2*M^-4*A0*[m2-M2]^-2*qDp^2*pDpp
   + 1/2*M^-4*A0*[m2-M2]^-2*qDpp^2*kDp + 1/2*M^-4*A0*[m2-M2]^-2*qDpp^2
  *pDpp + 1/4*M^-4*A0*[m2-M2]^-1*qDk*pDpp + 1/4*M^-4*A0*[m2-M2]^-1
  *qDp*kDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDp*pDpp + 1/2*M^-4*A0*
 [m2-M2]^-1*qDpp*kDp + 1/2*M^-4*A0*[m2-M2]^-1*qDpp*kDpp + 1/4*M^-4
  *A0*[m2-M2]^-1*qDpp*pDpp - M^-4*A0*[m2-M2]^-1*kDp*kDpp - M^-4*A0
  *[m2-M2]^-1*kDp*pDpp - 1/2*M^-4*A0*[m2-M2]^-1*kDp^2 - M^-4*A0*
 [m2-M2]^-1*kDpp*pDpp - 1/2*M^-4*A0*[m2-M2]^-1*kDpp^2 - 1/2*M^-4*A0
  *[m2-M2]^-1*pDpp^2 + 3/4*M^-4*T3*ExtM^2*kDp + 3/8*M^-4*T3*ExtM^2
  *kDpp - 4*M^-4*ExtM*[m2-M2]^-3*qDk*qDp*qDpp^2 - 2*M^-4*ExtM*
 [m2-M2]^-3*qDk*qDp^3 - 6*M^-4*ExtM*[m2-M2]^-3*qDk*qDpp^3
  - 8*M^-4*ExtM*[m2-M2]^-3*qDk^2*qDp*qDpp - 6*M^-4*ExtM*[m2-M2]^-3
  *qDk^2*qDp^2 - 6*M^-4*ExtM*[m2-M2]^-3*qDk^2*qDpp^2 - 4*M^-4*ExtM
  *[m2-M2]^-3*qDk^3*qDp - 2*M^-4*ExtM*[m2-M2]^-3*qDk^3*qDpp
  + 6*M^-4*ExtM*[m2-M2]^-3*qDp^2*qDpp^2 + 2*M^-4*ExtM*[m2-M2]^-3*qDp^3
  *qDpp - 2*M^-4*ExtM*[m2-M2]^-3*qDpp^4 + 3*M^-4*ExtM*[m2-M2]^-2*qDk
  *qDp*kDp + 2*M^-4*ExtM*[m2-M2]^-2*qDk*qDp*kDpp + M^-4*ExtM*
 [m2-M2]^-2*qDk*qDp*pDpp + 2*M^-4*ExtM*[m2-M2]^-2*qDk*qDpp*kDp
  + 3*M^-4*ExtM*[m2-M2]^-2*qDk*qDpp*kDpp + 2*M^-4*ExtM*[m2-M2]^-2*qDk^2
  *kDp + 1/2*M^-4*ExtM*[m2-M2]^-2*qDk^2*kDpp + M^-4*ExtM*
 [m2-M2]^-2*qDk^2*pDpp - M^-4*ExtM*[m2-M2]^-2*qDp*qDpp*kDp
  + 2*M^-4*ExtM*[m2-M2]^-2*qDp*qDpp*kDpp - 3*M^-4*ExtM*[m2-M2]^-2*qDp
  *qDpp*pDpp + 1/2*M^-4*ExtM*[m2-M2]^-2*qDp^2*kDp - 1/2*M^-4*ExtM*
 [m2-M2]^-2*qDp^2*pDpp + 5/2*M^-4*ExtM*[m2-M2]^-2*qDpp^2*kDpp
  - M^-4*ExtM*[m2-M2]^-2*qDpp^2*pDpp - 1/2*M^-4*ExtM*[m2-M2]^-1*qDk
  *qDpp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDk*kDp + 1/4*M^-4*ExtM*
 [m2-M2]^-1*qDk*kDpp - M^-4*ExtM*[m2-M2]^-1*qDp*qDpp + 1/4*M^-4*ExtM
  *[m2-M2]^-1*qDp*kDp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDp*kDpp
  - 1/4*M^-4*ExtM*[m2-M2]^-1*qDp*pDpp - 1/2*M^-4*ExtM*[m2-M2]^-1*qDpp
  *kDp + 1/4*M^-4*ExtM*[m2-M2]^-1*qDpp*kDpp - M^-4*ExtM*[m2-M2]^-1
  *qDpp*pDpp - 1/2*M^-4*ExtM*[m2-M2]^-1*qDpp^2 - 1/4*M^-4*ExtM*
 [m2-M2]^-1*kDp*kDpp - 1/4*M^-4*ExtM*[m2-M2]^-1*kDp^2 + 1/4*M^-4*ExtM
  *[m2-M2]^-1*kDpp*pDpp + 1/4*M^-4*ExtM*[m2-M2]^-1*pDpp^2
  + 2*M^-4*ExtM^2*[m2-M2]^-3*qDk*qDp*qDpp^2 + 2*M^-4*ExtM^2*
 [m2-M2]^-3*qDk*qDpp^3 - 2*M^-4*ExtM^2*[m2-M2]^-3*qDk^2*qDp*qDpp
  - 2*M^-4*ExtM^2*[m2-M2]^-3*qDk^3*qDp - 2*M^-4*ExtM^2*[m2-M2]^-3*qDk^3
  *qDpp - M^-4*ExtM^2*[m2-M2]^-3*qDk^4 + 2*M^-4*ExtM^2*[m2-M2]^-3*qDp
  *qDpp^3 + M^-4*ExtM^2*[m2-M2]^-3*qDpp^4 + M^-4*ExtM^2*[m2-M2]^-2
  *qDk*qDp*kDpp + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk*qDpp^2 - M^-4*ExtM^2
  *[m2-M2]^-2*qDk^2*qDp - 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk^2*qDpp
  + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDk^2*kDpp - 1/2*M^-4*ExtM^2*
 [m2-M2]^-2*qDk^3 - M^-4*ExtM^2*[m2-M2]^-2*qDp*qDpp*kDpp + M^-4*ExtM^2
  *[m2-M2]^-2*qDp*qDpp^2 - 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDpp^2*kDpp
  + 1/2*M^-4*ExtM^2*[m2-M2]^-2*qDpp^3 - 1/2*M^-4*ExtM^2*[m2-M2]^-1
  *qDk*qDp - 1/4*M^-4*ExtM^2*[m2-M2]^-1*qDk^2 + 1/2*M^-4*ExtM^2*
 [m2-M2]^-1*qDp*qDpp + 1/4*M^-4*ExtM^2*[m2-M2]^-1*qDpp^2 - 1/4*M^-4
  *ExtM^2*kDp - 1/8*M^-4*ExtM^2*kDpp )
 
 + D(a,d)*D(b,c)*Nohm^2
  * ( 48*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp*qDpp^2 + 45*M^-4*m^2*A0*
 [m2-M2]^-3*qDk*qDp^2*qDpp + 7*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDp^3
  + 18*M^-4*m^2*A0*[m2-M2]^-3*qDk*qDpp^3 + 45*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^2*qDp*qDpp + 15*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDp^2
   + 24*M^-4*m^2*A0*[m2-M2]^-3*qDk^2*qDpp^2 + 11*M^-4*m^2*A0*
 [m2-M2]^-3*qDk^3*qDp + 17*M^-4*m^2*A0*[m2-M2]^-3*qDk^3*qDpp
  + 5*M^-4*m^2*A0*[m2-M2]^-3*qDk^4 + 16*M^-4*m^2*A0*[m2-M2]^-3*qDp
  *qDpp^3 + 24*M^-4*m^2*A0*[m2-M2]^-3*qDp^2*qDpp^2 + 13*M^-4*m^2*A0
  *[m2-M2]^-3*qDp^3*qDpp + 6*M^-4*m^2*A0*[m2-M2]^-3*qDpp^4
  - M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp*qDpp - 2*M^-4*m^2*A0*[m2-M2]^-2
  *qDk*qDp*kDp - 7*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp*kDpp - 7*M^-4*m^2
  *A0*[m2-M2]^-2*qDk*qDp*pDpp - 1/2*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp^2
   - 6*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp*kDp - 7*M^-4*m^2*A0*
 [m2-M2]^-2*qDk*qDpp*kDpp - 7*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp*pDpp
   - M^-4*m^2*A0*[m2-M2]^-2*qDk^2*qDp - 1/2*M^-4*m^2*A0*[m2-M2]^-2
  *qDk^2*qDpp - 3/2*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*kDp - 4*M^-4*m^2*A0
  *[m2-M2]^-2*qDk^2*kDpp - 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*pDpp
  - 1/2*M^-4*m^2*A0*[m2-M2]^-2*qDk^3 - 7*M^-4*m^2*A0*[m2-M2]^-2*qDp
  *qDpp*kDp - 8*M^-4*m^2*A0*[m2-M2]^-2*qDp*qDpp*kDpp - 8*M^-4*m^2*A0
  *[m2-M2]^-2*qDp*qDpp*pDpp - 1/2*M^-4*m^2*A0*[m2-M2]^-2*qDp^2*qDpp
   - 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDp^2*kDpp - 3*M^-4*m^2*A0*
 [m2-M2]^-2*qDp^2*pDpp - 3*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2*kDp
  - 7/2*M^-4*m^2*A0*[m2-M2]^-2*qDpp^2*kDpp - 3*M^-4*m^2*A0*
 [m2-M2]^-2*qDpp^2*pDpp + 3/4*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp
  + 11/4*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp - 7/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDk*kDp - 7/4*M^-4*m^2*A0*[m2-M2]^-1*qDk*kDpp
  - 3/2*M^-4*m^2*A0*[m2-M2]^-1*qDk*pDpp + 5/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^2 + 5/4*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp - 1/2*M^-4
  *m^2*A0*[m2-M2]^-1*qDp*kDp - 3/4*M^-4*m^2*A0*[m2-M2]^-1*qDp*kDpp
   - M^-4*m^2*A0*[m2-M2]^-1*qDp*pDpp - 3*M^-4*m^2*A0*[m2-M2]^-1*qDpp
  *kDp - 3*M^-4*m^2*A0*[m2-M2]^-1*qDpp*kDpp - 9/4*M^-4*m^2*A0*
 [m2-M2]^-1*qDpp*pDpp + 3/2*M^-4*m^2*A0*[m2-M2]^-1*qDpp^2
  + 3*M^-4*m^2*A0*[m2-M2]^-1*kDp*kDpp + 11/4*M^-4*m^2*A0*
 [m2-M2]^-1*kDp*pDpp + M^-4*m^2*A0*[m2-M2]^-1*kDp^2 + 11/4*M^-4*m^2
  *A0*[m2-M2]^-1*kDpp*pDpp + 3/2*M^-4*m^2*A0*[m2-M2]^-1*kDpp^2
  + 5/4*M^-4*m^2*A0*[m2-M2]^-1*pDpp^2 + 1/8*M^-4*m^2*A0*qDk
  - 1/4*M^-4*m^2*A0*qDp - 3/8*M^-4*m^2*A0*qDpp + 3/8*M^-4*m^2*A0*kDp
   + 3/8*M^-4*m^2*A0*kDpp - 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp*qDpp^2
   - 12*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDp^2*qDpp - 6*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk*qDp^3 + 8*M^-4*m^2*ExtM*[m2-M2]^-3*qDk*qDpp^3
  - 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDp*qDpp - 6*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^2*qDp^2 + 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^2*qDpp^2
  - 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDk^3*qDp - 2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDk^4 + 2*M^-4*m^2*ExtM*[m2-M2]^-3*qDp*qDpp^3
  - 6*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^2*qDpp^2 - 2*M^-4*m^2*ExtM*
 [m2-M2]^-3*qDp^3*qDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-3*qDp^4
  + 4*M^-4*m^2*ExtM*[m2-M2]^-3*qDpp^4 + M^-4*m^2*ExtM*[m2-M2]^-2*qDk
  *qDp*qDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp*kDp + M^-4*m^2*ExtM
  *[m2-M2]^-2*qDk*qDp*kDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp*pDpp
   + 3/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp^2 + M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*qDpp*kDp - 4*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDpp*kDpp
   + M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDpp*pDpp - 2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*qDpp^2 + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*qDp
  - M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*qDpp + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk^2*kDp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*kDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*pDpp + 3*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp*qDpp*kDp + M^-4*m^2*ExtM*[m2-M2]^-2*qDp*qDpp*kDpp
  + 3*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*qDpp*pDpp + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp*qDpp^2 + 3/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2*qDpp
  + 2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2*kDp + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp^2*kDpp + M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2*pDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^3 + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDpp^2*kDp - 7/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^2*kDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^2*pDpp - M^-4*m^2*ExtM*
 [m2-M2]^-2*qDpp^3 - 3/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDpp - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*kDp + 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*kDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2 + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp*qDpp - 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*qDp*kDp
  - 3/4*M^-4*m^2*ExtM*[m2-M2]^-1*qDp*pDpp - 3/4*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp^2 + M^-4*m^2*ExtM*[m2-M2]^-1*qDpp*kDp + 5/4*M^-4*m^2
  *ExtM*[m2-M2]^-1*qDpp*kDpp + 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp*pDpp
   + M^-4*m^2*ExtM*[m2-M2]^-1*qDpp^2 - 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*kDp*pDpp - 1/4*M^-4*m^2*ExtM*[m2-M2]^-1*kDp^2
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*kDpp^2 - 1/4*M^-4*m^2*ExtM*
 [m2-M2]^-1*pDpp^2 + 1/4*M^-4*m^2*ExtM*qDp + 1/16*M^-4*m^4*A0
  - 32*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp*qDpp^2 - 27*M^-4*m^4*A0*
 [m2-M2]^-4*qDk*qDp^2*qDpp - 4*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDp^3
  - 18*M^-4*m^4*A0*[m2-M2]^-4*qDk*qDpp^3 - 31*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^2*qDp*qDpp - 9*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDp^2
  - 24*M^-4*m^4*A0*[m2-M2]^-4*qDk^2*qDpp^2 - 8*M^-4*m^4*A0*
 [m2-M2]^-4*qDk^3*qDp - 17*M^-4*m^4*A0*[m2-M2]^-4*qDk^3*qDpp
  - 4*M^-4*m^4*A0*[m2-M2]^-4*qDk^4 - 11*M^-4*m^4*A0*[m2-M2]^-4*qDp
  *qDpp^3 - 12*M^-4*m^4*A0*[m2-M2]^-4*qDp^2*qDpp^2 - 6*M^-4*m^4*A0
  *[m2-M2]^-4*qDp^3*qDpp + 2*M^-4*m^4*A0*[m2-M2]^-4*qDp^4
  - 5*M^-4*m^4*A0*[m2-M2]^-4*qDpp^4 - 2*M^-4*m^4*A0*[m2-M2]^-3*qDk
  *qDp*qDpp + 3*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp*kDp + 9/2*M^-4*m^4*A0
  *[m2-M2]^-3*qDk*qDp*kDpp + 7/2*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp*pDpp
   - 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp^2 + 3/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDpp*kDp + 5*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp*kDpp
  + 3*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDpp*pDpp - M^-4*m^4*A0*
 [m2-M2]^-3*qDk^2*qDp + 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDpp
  + 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*kDp + 3*M^-4*m^4*A0*
 [m2-M2]^-3*qDk^2*kDpp + 2*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*pDpp
  + 5/2*M^-4*m^4*A0*[m2-M2]^-3*qDp*qDpp*kDp + 4*M^-4*m^4*A0*
 [m2-M2]^-3*qDp*qDpp*kDpp + 4*M^-4*m^4*A0*[m2-M2]^-3*qDp*qDpp*pDpp
   - M^-4*m^4*A0*[m2-M2]^-3*qDp*qDpp^2 - 3/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDp^2*qDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDp^2*kDp
  + 3/2*M^-4*m^4*A0*[m2-M2]^-3*qDp^2*kDpp + 3/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDp^2*pDpp + 3/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2*kDp
  + 7/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^2*kDpp + 5/2*M^-4*m^4*A0*
 [m2-M2]^-3*qDpp^2*pDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-3*qDpp^3
  - 3/4*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp - 11/4*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*qDpp + 9/4*M^-4*m^4*A0*[m2-M2]^-2*qDk*kDp
  + 5/4*M^-4*m^4*A0*[m2-M2]^-2*qDk*kDpp + M^-4*m^4*A0*[m2-M2]^-2*qDk
  *pDpp - M^-4*m^4*A0*[m2-M2]^-2*qDk^2 - 5/4*M^-4*m^4*A0*
 [m2-M2]^-2*qDp*qDpp + M^-4*m^4*A0*[m2-M2]^-2*qDp*kDp + 3/4*M^-4*m^4
  *A0*[m2-M2]^-2*qDp*kDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*pDpp
  + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp^2 + 2*M^-4*m^4*A0*[m2-M2]^-2*qDpp
  *kDp + 5/4*M^-4*m^4*A0*[m2-M2]^-2*qDpp*kDpp + 3/4*M^-4*m^4*A0*
 [m2-M2]^-2*qDpp*pDpp - 5/4*M^-4*m^4*A0*[m2-M2]^-2*qDpp^2
  - 5/4*M^-4*m^4*A0*[m2-M2]^-2*kDp*kDpp - M^-4*m^4*A0*[m2-M2]^-2*kDp
  *pDpp - 3/4*M^-4*m^4*A0*[m2-M2]^-2*kDp^2 - 3/4*M^-4*m^4*A0*
 [m2-M2]^-2*kDpp*pDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-2*kDpp^2
  - 1/4*M^-4*m^4*A0*[m2-M2]^-2*pDpp^2 + 1/8*M^-4*m^4*A0*[m2-M2]^-1
  *qDk - 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDpp + 1/4*M^-4*m^4*A0*
 [m2-M2]^-1*kDpp + 1/4*M^-4*m^4*A0*[m2-M2]^-1*pDpp + 10*M^-4*m^4*ExtM
  *[m2-M2]^-4*qDk*qDp*qDpp^2 + 12*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp^2
  *qDpp + 6*M^-4*m^4*ExtM*[m2-M2]^-4*qDk*qDp^3 - 2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk*qDpp^3 + 14*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*qDp*qDpp
   + 12*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^2*qDp^2 + 8*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDk^3*qDp + 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^3*qDpp
  + 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDk^4 - 2*M^-4*m^4*ExtM*[m2-M2]^-4*qDp
  *qDpp^3 + 3*M^-4*m^4*ExtM*[m2-M2]^-4*qDp^4 - 2*M^-4*m^4*ExtM*
 [m2-M2]^-4*qDpp^4 - 4*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp*qDpp
  - 4*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp*kDp - 9/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDp*kDpp - 4*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp*pDpp
   - 2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp^2 - 4*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDpp*kDp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDpp*kDpp
   - 4*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDpp*pDpp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDpp^2 - 3*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*qDp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*qDpp - 3*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk^2*kDp - M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*kDpp
  - 3*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*pDpp - 5/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDp*qDpp*kDpp + M^-4*m^4*ExtM*[m2-M2]^-3*qDp*qDpp^2
  - M^-4*m^4*ExtM*[m2-M2]^-3*qDp^2*kDpp - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDp^3 + M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^2*kDp + 3/2*M^-4
  *m^4*ExtM*[m2-M2]^-3*qDpp^2*kDpp + M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^2
  *pDpp + M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^3 + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk*qDp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*kDp
  + 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*kDpp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk*pDpp + 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDp*qDpp + 1/4*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDp*kDpp + 3/4*M^-4*m^4*ExtM*[m2-M2]^-2*qDp^2
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDpp*kDp - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDpp*kDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDpp*pDpp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDpp^2 + 1/4*M^-4*m^4*ExtM*
 [m2-M2]^-2*kDp*kDpp + 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*kDpp*pDpp
  + 1/4*M^-4*m^4*ExtM*[m2-M2]^-1*qDk - 1/8*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDp + 1/4*M^-4*m^4*ExtM*[m2-M2]^-1*qDpp + 1/8*M^-4*m^4
  *ExtM*[m2-M2]^-1*kDpp - 35*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp*qDpp^2
   - 30*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDp^2*qDpp - 8*M^-4*m^6*A0*
 [m2-M2]^-5*qDk*qDp^3 - 15*M^-4*m^6*A0*[m2-M2]^-5*qDk*qDpp^3
  - 35*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDp*qDpp - 17*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^2*qDp^2 - 20*M^-4*m^6*A0*[m2-M2]^-5*qDk^2*qDpp^2
  - 13*M^-4*m^6*A0*[m2-M2]^-5*qDk^3*qDp - 15*M^-4*m^6*A0*
 [m2-M2]^-5*qDk^3*qDpp - 7*M^-4*m^6*A0*[m2-M2]^-5*qDk^4 - 13*M^-4*m^6
  *A0*[m2-M2]^-5*qDp*qDpp^3 - 17*M^-4*m^6*A0*[m2-M2]^-5*qDp^2*qDpp^2
   - 8*M^-4*m^6*A0*[m2-M2]^-5*qDp^3*qDpp - 3*M^-4*m^6*A0*
 [m2-M2]^-5*qDp^4 - 6*M^-4*m^6*A0*[m2-M2]^-5*qDpp^4 + 8*M^-4*m^6*A0
  *[m2-M2]^-4*qDk*qDp*qDpp + 4*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp^2
  - 2*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDpp*kDp + 5*M^-4*m^6*A0*
 [m2-M2]^-4*qDk*qDpp^2 + 4*M^-4*m^6*A0*[m2-M2]^-4*qDk^2*qDp
  + 5*M^-4*m^6*A0*[m2-M2]^-4*qDk^2*qDpp - M^-4*m^6*A0*[m2-M2]^-4*qDk^2
  *kDp + 3*M^-4*m^6*A0*[m2-M2]^-4*qDk^3 - M^-4*m^6*A0*[m2-M2]^-4*qDp
  *qDpp*kDp + M^-4*m^6*A0*[m2-M2]^-4*qDp*qDpp*kDpp + M^-4*m^6*A0*
 [m2-M2]^-4*qDp*qDpp*pDpp + 4*M^-4*m^6*A0*[m2-M2]^-4*qDp*qDpp^2
  + 4*M^-4*m^6*A0*[m2-M2]^-4*qDp^2*qDpp - M^-4*m^6*A0*[m2-M2]^-4*qDp^2
  *kDp - 1/2*M^-4*m^6*A0*[m2-M2]^-4*qDp^2*kDpp - 1/2*M^-4*m^6*A0*
 [m2-M2]^-4*qDp^2*pDpp + 1/2*M^-4*m^6*A0*[m2-M2]^-4*qDp^3
  - 3*M^-4*m^6*A0*[m2-M2]^-4*qDpp^2*kDp - 3/2*M^-4*m^6*A0*
 [m2-M2]^-4*qDpp^2*kDpp - 3/2*M^-4*m^6*A0*[m2-M2]^-4*qDpp^2*pDpp
  + 5/2*M^-4*m^6*A0*[m2-M2]^-4*qDpp^3 - M^-4*m^6*A0*[m2-M2]^-3*qDk
  *qDp - 3/2*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDpp + 1/2*M^-4*m^6*A0*
 [m2-M2]^-3*qDk*kDp - 5/4*M^-4*m^6*A0*[m2-M2]^-3*qDk^2 - M^-4*m^6*A0
  *[m2-M2]^-3*qDp*qDpp - 1/4*M^-4*m^6*A0*[m2-M2]^-3*qDp*kDpp
  - 1/4*M^-4*m^6*A0*[m2-M2]^-3*qDp*pDpp - 3/4*M^-4*m^6*A0*
 [m2-M2]^-3*qDp^2 + 3/4*M^-4*m^6*A0*[m2-M2]^-3*qDpp*kDp + 1/2*M^-4
  *m^6*A0*[m2-M2]^-3*qDpp*kDpp + 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDpp*pDpp
   - M^-4*m^6*A0*[m2-M2]^-3*qDpp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-3*kDp
  *kDpp - 1/2*M^-4*m^6*A0*[m2-M2]^-3*kDp*pDpp - 1/4*M^-4*m^6*A0*
 [m2-M2]^-3*kDp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-3*kDpp*pDpp - 1/4*M^-4
  *m^6*A0*[m2-M2]^-3*kDpp^2 - 1/4*M^-4*m^6*A0*[m2-M2]^-3*pDpp^2
  + 1/2*M^-4*m^6*A0*[m2-M2]^-2*qDk + 1/8*M^-4*m^6*A0*[m2-M2]^-2*qDp
   + 3/8*M^-4*m^6*A0*[m2-M2]^-2*qDpp - 1/8*M^-4*m^6*A0*[m2-M2]^-2*kDp
   - 1/8*M^-4*m^6*A0*[m2-M2]^-2*kDpp - 1/8*M^-4*m^6*A0*[m2-M2]^-2*pDpp
   - 1/8*M^-4*m^6*A0*[m2-M2]^-1 + 25*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp
  *qDpp^2 + 20*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDp^2*qDpp + 4*M^-4*m^8*A0
  *[m2-M2]^-6*qDk*qDp^3 + 15*M^-4*m^8*A0*[m2-M2]^-6*qDk*qDpp^3
  + 25*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDp*qDpp + 11*M^-4*m^8*A0*
 [m2-M2]^-6*qDk^2*qDp^2 + 20*M^-4*m^8*A0*[m2-M2]^-6*qDk^2*qDpp^2
  + 9*M^-4*m^8*A0*[m2-M2]^-6*qDk^3*qDp + 15*M^-4*m^8*A0*[m2-M2]^-6
  *qDk^3*qDpp + 6*M^-4*m^8*A0*[m2-M2]^-6*qDk^4 + 10*M^-4*m^8*A0*
 [m2-M2]^-6*qDp*qDpp^3 + 10*M^-4*m^8*A0*[m2-M2]^-6*qDp^2*qDpp^2
  + 5*M^-4*m^8*A0*[m2-M2]^-6*qDp^3*qDpp + M^-4*m^8*A0*[m2-M2]^-6*qDp^4
   + 5*M^-4*m^8*A0*[m2-M2]^-6*qDpp^4 - 5*M^-4*m^8*A0*[m2-M2]^-5*qDk
  *qDp*qDpp - 5/2*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp^2 + 5*M^-4*m^8*A0
  *[m2-M2]^-5*qDk*qDpp*kDp - 5*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDpp^2
  - 5/2*M^-4*m^8*A0*[m2-M2]^-5*qDk^2*qDp - 5*M^-4*m^8*A0*
 [m2-M2]^-5*qDk^2*qDpp + 5/2*M^-4*m^8*A0*[m2-M2]^-5*qDk^2*kDp
  - 5/2*M^-4*m^8*A0*[m2-M2]^-5*qDk^3 + 2*M^-4*m^8*A0*[m2-M2]^-5*qDp
  *qDpp*kDp - 3*M^-4*m^8*A0*[m2-M2]^-5*qDp*qDpp^2 - 2*M^-4*m^8*A0*
 [m2-M2]^-5*qDp^2*qDpp + 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp^2*kDp
  - 1/2*M^-4*m^8*A0*[m2-M2]^-5*qDp^3 + 3*M^-4*m^8*A0*[m2-M2]^-5*qDpp^2
  *kDp - 2*M^-4*m^8*A0*[m2-M2]^-5*qDpp^3 + 1/2*M^-4*m^8*A0*
 [m2-M2]^-4*qDk*qDp + 3/2*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDpp
  - M^-4*m^8*A0*[m2-M2]^-4*qDk*kDp + M^-4*m^8*A0*[m2-M2]^-4*qDk^2
  + 3/4*M^-4*m^8*A0*[m2-M2]^-4*qDp*qDpp - 1/4*M^-4*m^8*A0*
 [m2-M2]^-4*qDp*kDp + 1/4*M^-4*m^8*A0*[m2-M2]^-4*qDp^2 - 3/4*M^-4*m^8
  *A0*[m2-M2]^-4*qDpp*kDp + 3/4*M^-4*m^8*A0*[m2-M2]^-4*qDpp^2
  + 1/4*M^-4*m^8*A0*[m2-M2]^-4*kDp^2 - 3/8*M^-4*m^8*A0*[m2-M2]^-3*qDk
   - 1/8*M^-4*m^8*A0*[m2-M2]^-3*qDp - 1/4*M^-4*m^8*A0*[m2-M2]^-3*qDpp
   + 1/8*M^-4*m^8*A0*[m2-M2]^-3*kDp + 1/16*M^-4*m^8*A0*[m2-M2]^-2
  - 6*M^-4*A0*[m2-M2]^-2*qDk*qDp*qDpp^2 - 8*M^-4*A0*[m2-M2]^-2*qDk
  *qDp^2*qDpp - 4*M^-4*A0*[m2-M2]^-2*qDk^2*qDp*qDpp - 2*M^-4*A0*
 [m2-M2]^-2*qDp*qDpp^3 - 6*M^-4*A0*[m2-M2]^-2*qDp^2*qDpp^2
  - 4*M^-4*A0*[m2-M2]^-2*qDp^3*qDpp - 1/2*M^-4*A0*[m2-M2]^-1*qDk*qDp
  *kDp + M^-4*A0*[m2-M2]^-1*qDk*qDp*kDpp + 2*M^-4*A0*[m2-M2]^-1*qDk
  *qDp*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDk*qDpp*kDp + M^-4*A0*
 [m2-M2]^-1*qDk*qDpp*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDk^2*pDpp
  + M^-4*A0*[m2-M2]^-1*qDp*qDpp*kDp + 3/2*M^-4*A0*[m2-M2]^-1*qDp*qDpp
  *kDpp + 5/2*M^-4*A0*[m2-M2]^-1*qDp*qDpp*pDpp - 1/2*M^-4*A0*
 [m2-M2]^-1*qDp^2*kDp + M^-4*A0*[m2-M2]^-1*qDp^2*kDpp + 3/2*M^-4*A0
  *[m2-M2]^-1*qDp^2*pDpp + 1/2*M^-4*A0*[m2-M2]^-1*qDpp^2*kDp
  + 1/2*M^-4*A0*[m2-M2]^-1*qDpp^2*pDpp + 1/4*M^-4*A0*qDpp*kDp
  + 1/4*M^-4*A0*qDpp*kDpp - 1/2*M^-4*A0*kDp*kDpp - 1/4*M^-4*A0*kDp^2
   - 1/4*M^-4*A0*kDpp^2 - 4*M^-4*ExtM*[m2-M2]^-2*qDk*qDp*qDpp^2
  - 2*M^-4*ExtM*[m2-M2]^-2*qDk*qDp^3 - 6*M^-4*ExtM*[m2-M2]^-2*qDk*qDpp^3
   - 8*M^-4*ExtM*[m2-M2]^-2*qDk^2*qDp*qDpp - 6*M^-4*ExtM*
 [m2-M2]^-2*qDk^2*qDp^2 - 6*M^-4*ExtM*[m2-M2]^-2*qDk^2*qDpp^2
  - 4*M^-4*ExtM*[m2-M2]^-2*qDk^3*qDp - 2*M^-4*ExtM*[m2-M2]^-2*qDk^3
  *qDpp + 6*M^-4*ExtM*[m2-M2]^-2*qDp^2*qDpp^2 + 2*M^-4*ExtM*
 [m2-M2]^-2*qDp^3*qDpp - 2*M^-4*ExtM*[m2-M2]^-2*qDpp^4 + 3*M^-4*ExtM
  *[m2-M2]^-1*qDk*qDp*kDp + 2*M^-4*ExtM*[m2-M2]^-1*qDk*qDp*kDpp
  + M^-4*ExtM*[m2-M2]^-1*qDk*qDp*pDpp + 2*M^-4*ExtM*[m2-M2]^-1*qDk
  *qDpp*kDp + 3*M^-4*ExtM*[m2-M2]^-1*qDk*qDpp*kDpp + 2*M^-4*ExtM*
 [m2-M2]^-1*qDk^2*kDp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDk^2*kDpp
  + M^-4*ExtM*[m2-M2]^-1*qDk^2*pDpp - M^-4*ExtM*[m2-M2]^-1*qDp*qDpp
  *kDp + 2*M^-4*ExtM*[m2-M2]^-1*qDp*qDpp*kDpp - 3*M^-4*ExtM*
 [m2-M2]^-1*qDp*qDpp*pDpp + 1/2*M^-4*ExtM*[m2-M2]^-1*qDp^2*kDp
  - 1/2*M^-4*ExtM*[m2-M2]^-1*qDp^2*pDpp + 5/2*M^-4*ExtM*[m2-M2]^-1
  *qDpp^2*kDpp - M^-4*ExtM*[m2-M2]^-1*qDpp^2*pDpp - 1/4*M^-4*ExtM*qDk
  *qDpp + 1/4*M^-4*ExtM*qDk*kDpp - 1/2*M^-4*ExtM*qDp*qDpp
  + 1/2*M^-4*ExtM*qDp*kDpp + 1/2*M^-4*ExtM*qDpp*kDpp - 1/4*M^-4*ExtM
  *qDpp^2 - 1/4*M^-4*ExtM*kDpp^2 + 2*M^-4*ExtM^2*[m2-M2]^-2*qDk*qDp
  *qDpp^2 + 2*M^-4*ExtM^2*[m2-M2]^-2*qDk*qDpp^3 - 2*M^-4*ExtM^2*
 [m2-M2]^-2*qDk^2*qDp*qDpp - 2*M^-4*ExtM^2*[m2-M2]^-2*qDk^3*qDp
  - 2*M^-4*ExtM^2*[m2-M2]^-2*qDk^3*qDpp - M^-4*ExtM^2*[m2-M2]^-2*qDk^4
   + 2*M^-4*ExtM^2*[m2-M2]^-2*qDp*qDpp^3 + M^-4*ExtM^2*[m2-M2]^-2*qDpp^4
   + M^-4*ExtM^2*[m2-M2]^-1*qDk*qDp*kDpp + 1/2*M^-4*ExtM^2*
 [m2-M2]^-1*qDk*qDpp^2 - M^-4*ExtM^2*[m2-M2]^-1*qDk^2*qDp
  - 1/2*M^-4*ExtM^2*[m2-M2]^-1*qDk^2*qDpp + 1/2*M^-4*ExtM^2*
 [m2-M2]^-1*qDk^2*kDpp - 1/2*M^-4*ExtM^2*[m2-M2]^-1*qDk^3
  - M^-4*ExtM^2*[m2-M2]^-1*qDp*qDpp*kDpp + M^-4*ExtM^2*[m2-M2]^-1*qDp
  *qDpp^2 - 1/2*M^-4*ExtM^2*[m2-M2]^-1*qDpp^2*kDpp + 1/2*M^-4*ExtM^2
  *[m2-M2]^-1*qDpp^3 )
 
 + D(a,d)*D(b,c)*Nohm^3
  * ( 48*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp*qDpp^2 + 45*M^-4*m^2*A0*
 [m2-M2]^-2*qDk*qDp^2*qDpp + 7*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDp^3
  + 18*M^-4*m^2*A0*[m2-M2]^-2*qDk*qDpp^3 + 45*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^2*qDp*qDpp + 15*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*qDp^2
   + 24*M^-4*m^2*A0*[m2-M2]^-2*qDk^2*qDpp^2 + 11*M^-4*m^2*A0*
 [m2-M2]^-2*qDk^3*qDp + 17*M^-4*m^2*A0*[m2-M2]^-2*qDk^3*qDpp
  + 5*M^-4*m^2*A0*[m2-M2]^-2*qDk^4 + 16*M^-4*m^2*A0*[m2-M2]^-2*qDp
  *qDpp^3 + 24*M^-4*m^2*A0*[m2-M2]^-2*qDp^2*qDpp^2 + 13*M^-4*m^2*A0
  *[m2-M2]^-2*qDp^3*qDpp + 6*M^-4*m^2*A0*[m2-M2]^-2*qDpp^4
  - M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*qDpp - 2*M^-4*m^2*A0*[m2-M2]^-1
  *qDk*qDp*kDp - 7*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*kDpp - 7*M^-4*m^2
  *A0*[m2-M2]^-1*qDk*qDp*pDpp - 1/2*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp^2
   - 6*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp*kDp - 7*M^-4*m^2*A0*
 [m2-M2]^-1*qDk*qDpp*kDpp - 7*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp*pDpp
   - M^-4*m^2*A0*[m2-M2]^-1*qDk^2*qDp - 1/2*M^-4*m^2*A0*[m2-M2]^-1
  *qDk^2*qDpp - 3/2*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*kDp - 4*M^-4*m^2*A0
  *[m2-M2]^-1*qDk^2*kDpp - 7/2*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*pDpp
  - 1/2*M^-4*m^2*A0*[m2-M2]^-1*qDk^3 - 7*M^-4*m^2*A0*[m2-M2]^-1*qDp
  *qDpp*kDp - 8*M^-4*m^2*A0*[m2-M2]^-1*qDp*qDpp*kDpp - 8*M^-4*m^2*A0
  *[m2-M2]^-1*qDp*qDpp*pDpp - 1/2*M^-4*m^2*A0*[m2-M2]^-1*qDp^2*qDpp
   - 7/2*M^-4*m^2*A0*[m2-M2]^-1*qDp^2*kDpp - 3*M^-4*m^2*A0*
 [m2-M2]^-1*qDp^2*pDpp - 3*M^-4*m^2*A0*[m2-M2]^-1*qDpp^2*kDp
  - 7/2*M^-4*m^2*A0*[m2-M2]^-1*qDpp^2*kDpp - 3*M^-4*m^2*A0*
 [m2-M2]^-1*qDpp^2*pDpp + 1/4*M^-4*m^2*A0*qDk*qDp + 1/4*M^-4*m^2*A0
  *qDk*qDpp - 1/4*M^-4*m^2*A0*qDk*kDp - 1/4*M^-4*m^2*A0*qDk*kDpp
  + 1/2*M^-4*m^2*A0*qDk^2 + 5/4*M^-4*m^2*A0*qDp*qDpp - 5/4*M^-4*m^2
  *A0*qDp*kDp - 5/4*M^-4*m^2*A0*qDp*kDpp + 1/2*M^-4*m^2*A0*qDp^2
  - 3/2*M^-4*m^2*A0*qDpp*kDp - 3/2*M^-4*m^2*A0*qDpp*kDpp + 3/4*M^-4
  *m^2*A0*qDpp^2 + 3/2*M^-4*m^2*A0*kDp*kDpp + 3/4*M^-4*m^2*A0*kDp^2
   + 3/4*M^-4*m^2*A0*kDpp^2 - 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp*qDpp^2
   - 12*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDp^2*qDpp - 6*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk*qDp^3 + 8*M^-4*m^2*ExtM*[m2-M2]^-2*qDk*qDpp^3
  - 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*qDp*qDpp - 6*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk^2*qDp^2 + 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^2*qDpp^2
  - 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDk^3*qDp - 2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDk^4 + 2*M^-4*m^2*ExtM*[m2-M2]^-2*qDp*qDpp^3
  - 6*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^2*qDpp^2 - 2*M^-4*m^2*ExtM*
 [m2-M2]^-2*qDp^3*qDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-2*qDp^4
  + 4*M^-4*m^2*ExtM*[m2-M2]^-2*qDpp^4 + M^-4*m^2*ExtM*[m2-M2]^-1*qDk
  *qDp*qDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp*kDp + M^-4*m^2*ExtM
  *[m2-M2]^-1*qDk*qDp*kDpp + 3*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp*pDpp
   + 3/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp^2 + M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*qDpp*kDp - 4*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDpp*kDpp
   + M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDpp*pDpp - 2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*qDpp^2 + 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*qDp
  - M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*qDpp + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk^2*kDp - 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*kDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*pDpp + 3*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp*qDpp*kDp + M^-4*m^2*ExtM*[m2-M2]^-1*qDp*qDpp*kDpp
  + 3*M^-4*m^2*ExtM*[m2-M2]^-1*qDp*qDpp*pDpp + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp*qDpp^2 + 3/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^2*qDpp
  + 2*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^2*kDp + 3/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDp^2*kDpp + M^-4*m^2*ExtM*[m2-M2]^-1*qDp^2*pDpp
  + 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^3 + 1/2*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDpp^2*kDp - 7/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp^2*kDpp
  - 1/2*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp^2*pDpp - M^-4*m^2*ExtM*
 [m2-M2]^-1*qDpp^3 - 1/2*M^-4*m^2*ExtM*qDp^2 - 33*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDp*qDpp^2 - 25*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp^2*qDpp
   - 4*M^-4*m^4*A0*[m2-M2]^-3*qDk*qDp^3 - 18*M^-4*m^4*A0*
 [m2-M2]^-3*qDk*qDpp^3 - 32*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDp*qDpp
  - 10*M^-4*m^4*A0*[m2-M2]^-3*qDk^2*qDp^2 - 24*M^-4*m^4*A0*
 [m2-M2]^-3*qDk^2*qDpp^2 - 9*M^-4*m^4*A0*[m2-M2]^-3*qDk^3*qDp
  - 17*M^-4*m^4*A0*[m2-M2]^-3*qDk^3*qDpp - 4*M^-4*m^4*A0*
 [m2-M2]^-3*qDk^4 - 12*M^-4*m^4*A0*[m2-M2]^-3*qDp*qDpp^3 - 13*M^-4
  *m^4*A0*[m2-M2]^-3*qDp^2*qDpp^2 - 6*M^-4*m^4*A0*[m2-M2]^-3*qDp^3
  *qDpp + 2*M^-4*m^4*A0*[m2-M2]^-3*qDp^4 - 5*M^-4*m^4*A0*
 [m2-M2]^-3*qDpp^4 - 2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*qDpp
  + 3*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*kDp + 11/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*qDp*kDpp + 9/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*pDpp
   - M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp^2 + 5/2*M^-4*m^4*A0*[m2-M2]^-2
  *qDk*qDpp*kDp + 5*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp*kDpp + 4*M^-4*m^4
  *A0*[m2-M2]^-2*qDk*qDpp*pDpp - 3/2*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDp
   + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^2*kDp + 3*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*kDpp
  + 5/2*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*pDpp + 7/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDp*qDpp*kDp + 5*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp*kDpp
  + 4*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp*pDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDp*qDpp^2 - M^-4*m^4*A0*[m2-M2]^-2*qDp^2*qDpp
  + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp^2*kDp + 2*M^-4*m^4*A0*
 [m2-M2]^-2*qDp^2*kDpp + 3/2*M^-4*m^4*A0*[m2-M2]^-2*qDp^2*pDpp
  + 2*M^-4*m^4*A0*[m2-M2]^-2*qDpp^2*kDp + 7/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDpp^2*kDpp + 5/2*M^-4*m^4*A0*[m2-M2]^-2*qDpp^2*pDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDpp^3 - 5/4*M^-4*m^4*A0*[m2-M2]^-1
  *qDk*qDp - 9/4*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp + 7/4*M^-4*m^4*A0
  *[m2-M2]^-1*qDk*kDp + 5/4*M^-4*m^4*A0*[m2-M2]^-1*qDk*kDpp
  + 5/4*M^-4*m^4*A0*[m2-M2]^-1*qDk*pDpp - M^-4*m^4*A0*[m2-M2]^-1*qDk^2
   - 7/4*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp + M^-4*m^4*A0*[m2-M2]^-1*qDp
  *kDp + M^-4*m^4*A0*[m2-M2]^-1*qDp*kDpp + M^-4*m^4*A0*[m2-M2]^-1*qDp
  *pDpp + 3/2*M^-4*m^4*A0*[m2-M2]^-1*qDpp*kDp + M^-4*m^4*A0*
 [m2-M2]^-1*qDpp*kDpp + M^-4*m^4*A0*[m2-M2]^-1*qDpp*pDpp - 5/4*M^-4
  *m^4*A0*[m2-M2]^-1*qDpp^2 - 5/4*M^-4*m^4*A0*[m2-M2]^-1*kDp*kDpp
  - 5/4*M^-4*m^4*A0*[m2-M2]^-1*kDp*pDpp - 3/4*M^-4*m^4*A0*
 [m2-M2]^-1*kDp^2 - M^-4*m^4*A0*[m2-M2]^-1*kDpp*pDpp - 1/2*M^-4*m^4
  *A0*[m2-M2]^-1*kDpp^2 - 1/2*M^-4*m^4*A0*[m2-M2]^-1*pDpp^2
  - 1/8*M^-4*m^4*A0*qDp - 1/8*M^-4*m^4*A0*qDpp + 1/8*M^-4*m^4*A0*kDp
   + 1/8*M^-4*m^4*A0*kDpp + 10*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp*qDpp^2
   + 10*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDp^2*qDpp + 4*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk*qDp^3 - 2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk*qDpp^3
  + 16*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^2*qDp*qDpp + 10*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk^2*qDp^2 + 8*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^3*qDp
  + 2*M^-4*m^4*ExtM*[m2-M2]^-3*qDk^3*qDpp + 2*M^-4*m^4*ExtM*
 [m2-M2]^-3*qDk^4 - 2*M^-4*m^4*ExtM*[m2-M2]^-3*qDp*qDpp^3
  + 3*M^-4*m^4*ExtM*[m2-M2]^-3*qDp^4 - 2*M^-4*m^4*ExtM*[m2-M2]^-3*qDpp^4
   - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp*qDpp - 2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk*qDp*kDp - 3*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp*kDpp
  - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp*pDpp - M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk*qDp^2 - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDpp*kDp
  - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDpp*pDpp + 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk*qDpp^2 - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*qDp
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*qDpp - 2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk^2*kDp - M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*kDpp
  - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*pDpp - M^-4*m^4*ExtM*
 [m2-M2]^-2*qDp*qDpp*kDpp + M^-4*m^4*ExtM*[m2-M2]^-2*qDp*qDpp^2
  - 1/2*M^-4*m^4*ExtM*[m2-M2]^-2*qDp^2*kDpp - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDp^3 + M^-4*m^4*ExtM*[m2-M2]^-2*qDpp^2*kDp + 3/2*M^-4
  *m^4*ExtM*[m2-M2]^-2*qDpp^2*kDpp + M^-4*m^4*ExtM*[m2-M2]^-2*qDpp^2
  *pDpp + M^-4*m^4*ExtM*[m2-M2]^-2*qDpp^3 - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDk*qDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDk*kDpp
  + 3/4*M^-4*m^4*ExtM*[m2-M2]^-1*qDp^2 - 1/2*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDpp*kDpp - 1/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDpp^2
  - 1/4*M^-4*m^4*ExtM*[m2-M2]^-1*kDpp^2 - 35*M^-4*m^6*A0*
 [m2-M2]^-4*qDk*qDp*qDpp^2 - 30*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp^2*qDpp
   - 9*M^-4*m^6*A0*[m2-M2]^-4*qDk*qDp^3 - 14*M^-4*m^6*A0*
 [m2-M2]^-4*qDk*qDpp^3 - 35*M^-4*m^6*A0*[m2-M2]^-4*qDk^2*qDp*qDpp
  - 17*M^-4*m^6*A0*[m2-M2]^-4*qDk^2*qDp^2 - 20*M^-4*m^6*A0*
 [m2-M2]^-4*qDk^2*qDpp^2 - 13*M^-4*m^6*A0*[m2-M2]^-4*qDk^3*qDp
  - 15*M^-4*m^6*A0*[m2-M2]^-4*qDk^3*qDpp - 7*M^-4*m^6*A0*
 [m2-M2]^-4*qDk^4 - 12*M^-4*m^6*A0*[m2-M2]^-4*qDp*qDpp^3 - 17*M^-4
  *m^6*A0*[m2-M2]^-4*qDp^2*qDpp^2 - 8*M^-4*m^6*A0*[m2-M2]^-4*qDp^3
  *qDpp - 3*M^-4*m^6*A0*[m2-M2]^-4*qDp^4 - 5*M^-4*m^6*A0*
 [m2-M2]^-4*qDpp^4 + 8*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp*qDpp
  - M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp*kDp + 7/2*M^-4*m^6*A0*
 [m2-M2]^-3*qDk*qDp^2 - M^-4*m^6*A0*[m2-M2]^-3*qDk*qDpp*kDp
  + 9/2*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDpp^2 + 4*M^-4*m^6*A0*
 [m2-M2]^-3*qDk^2*qDp + 5*M^-4*m^6*A0*[m2-M2]^-3*qDk^2*qDpp
  - M^-4*m^6*A0*[m2-M2]^-3*qDk^2*kDp + 3*M^-4*m^6*A0*[m2-M2]^-3*qDk^3
   + M^-4*m^6*A0*[m2-M2]^-3*qDp*qDpp*kDpp + M^-4*m^6*A0*[m2-M2]^-3
  *qDp*qDpp*pDpp + 7/2*M^-4*m^6*A0*[m2-M2]^-3*qDp*qDpp^2 + 4*M^-4*m^6
  *A0*[m2-M2]^-3*qDp^2*qDpp - M^-4*m^6*A0*[m2-M2]^-3*qDp^2*kDp
  - 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDp^2*kDpp - 1/2*M^-4*m^6*A0*
 [m2-M2]^-3*qDp^2*pDpp + 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDp^3
  - 2*M^-4*m^6*A0*[m2-M2]^-3*qDpp^2*kDp - 3/2*M^-4*m^6*A0*
 [m2-M2]^-3*qDpp^2*kDpp - 3/2*M^-4*m^6*A0*[m2-M2]^-3*qDpp^2*pDpp
  + 2*M^-4*m^6*A0*[m2-M2]^-3*qDpp^3 - 5/4*M^-4*m^6*A0*[m2-M2]^-2*qDk
  *qDp - 5/4*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDpp - 5/4*M^-4*m^6*A0*
 [m2-M2]^-2*qDk^2 - 3/4*M^-4*m^6*A0*[m2-M2]^-2*qDp*qDpp - 1/4*M^-4
  *m^6*A0*[m2-M2]^-2*qDp*kDp - 1/4*M^-4*m^6*A0*[m2-M2]^-2*qDp*kDpp
   - 1/4*M^-4*m^6*A0*[m2-M2]^-2*qDp*pDpp - 3/4*M^-4*m^6*A0*
 [m2-M2]^-2*qDp^2 + 1/2*M^-4*m^6*A0*[m2-M2]^-2*qDpp*kDp + 1/2*M^-4
  *m^6*A0*[m2-M2]^-2*qDpp*kDpp + 1/2*M^-4*m^6*A0*[m2-M2]^-2*qDpp*pDpp
   - 3/4*M^-4*m^6*A0*[m2-M2]^-2*qDpp^2 - 1/2*M^-4*m^6*A0*
 [m2-M2]^-2*kDp*kDpp - 1/2*M^-4*m^6*A0*[m2-M2]^-2*kDp*pDpp
  - 1/4*M^-4*m^6*A0*[m2-M2]^-2*kDp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-2*kDpp
  *pDpp - 1/4*M^-4*m^6*A0*[m2-M2]^-2*kDpp^2 - 1/4*M^-4*m^6*A0*
 [m2-M2]^-2*pDpp^2 + 1/4*M^-4*m^6*A0*[m2-M2]^-1*qDk + 1/4*M^-4*m^6
  *A0*[m2-M2]^-1*qDpp - 1/8*M^-4*m^6*A0*[m2-M2]^-1*kDp - 1/8*M^-4*m^6
  *A0*[m2-M2]^-1*kDpp - 1/8*M^-4*m^6*A0*[m2-M2]^-1*pDpp + 26*M^-4*m^8
  *A0*[m2-M2]^-5*qDk*qDp*qDpp^2 + 19*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp^2
  *qDpp + 5*M^-4*m^8*A0*[m2-M2]^-5*qDk*qDp^3 + 14*M^-4*m^8*A0*
 [m2-M2]^-5*qDk*qDpp^3 + 25*M^-4*m^8*A0*[m2-M2]^-5*qDk^2*qDp*qDpp
  + 11*M^-4*m^8*A0*[m2-M2]^-5*qDk^2*qDp^2 + 20*M^-4*m^8*A0*
 [m2-M2]^-5*qDk^2*qDpp^2 + 9*M^-4*m^8*A0*[m2-M2]^-5*qDk^3*qDp
  + 15*M^-4*m^8*A0*[m2-M2]^-5*qDk^3*qDpp + 6*M^-4*m^8*A0*
 [m2-M2]^-5*qDk^4 + 10*M^-4*m^8*A0*[m2-M2]^-5*qDp*qDpp^3 + 10*M^-4
  *m^8*A0*[m2-M2]^-5*qDp^2*qDpp^2 + 5*M^-4*m^8*A0*[m2-M2]^-5*qDp^3
  *qDpp + M^-4*m^8*A0*[m2-M2]^-5*qDp^4 + 4*M^-4*m^8*A0*[m2-M2]^-5*qDpp^4
   - 11/2*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp*qDpp + 3/2*M^-4*m^8*A0*
 [m2-M2]^-4*qDk*qDp*kDp - 2*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp^2
  + 7/2*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDpp*kDp - 9/2*M^-4*m^8*A0*
 [m2-M2]^-4*qDk*qDpp^2 - 5/2*M^-4*m^8*A0*[m2-M2]^-4*qDk^2*qDp
  - 5*M^-4*m^8*A0*[m2-M2]^-4*qDk^2*qDpp + 5/2*M^-4*m^8*A0*
 [m2-M2]^-4*qDk^2*kDp - 5/2*M^-4*m^8*A0*[m2-M2]^-4*qDk^3 + 2*M^-4*m^8
  *A0*[m2-M2]^-4*qDp*qDpp*kDp - 3*M^-4*m^8*A0*[m2-M2]^-4*qDp*qDpp^2
   - 2*M^-4*m^8*A0*[m2-M2]^-4*qDp^2*qDpp + 1/2*M^-4*m^8*A0*
 [m2-M2]^-4*qDp^2*kDp - 1/2*M^-4*m^8*A0*[m2-M2]^-4*qDp^3 + 3/2*M^-4
  *m^8*A0*[m2-M2]^-4*qDpp^2*kDp - 3/2*M^-4*m^8*A0*[m2-M2]^-4*qDpp^3
   + 3/4*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp + 5/4*M^-4*m^8*A0*
 [m2-M2]^-3*qDk*qDpp - 1/2*M^-4*m^8*A0*[m2-M2]^-3*qDk*kDp
  + M^-4*m^8*A0*[m2-M2]^-3*qDk^2 + 3/4*M^-4*m^8*A0*[m2-M2]^-3*qDp*qDpp
   - 1/4*M^-4*m^8*A0*[m2-M2]^-3*qDp*kDp + 1/4*M^-4*m^8*A0*
 [m2-M2]^-3*qDp^2 - 1/4*M^-4*m^8*A0*[m2-M2]^-3*qDpp*kDp + 1/2*M^-4
  *m^8*A0*[m2-M2]^-3*qDpp^2 - 1/4*M^-4*m^8*A0*[m2-M2]^-2*qDk
  - 1/8*M^-4*m^8*A0*[m2-M2]^-2*qDp - 1/8*M^-4*m^8*A0*[m2-M2]^-2*qDpp
   - 6*M^-4*A0*[m2-M2]^-1*qDk*qDp*qDpp^2 - 8*M^-4*A0*[m2-M2]^-1*qDk
  *qDp^2*qDpp - 4*M^-4*A0*[m2-M2]^-1*qDk^2*qDp*qDpp - 2*M^-4*A0*
 [m2-M2]^-1*qDp*qDpp^3 - 6*M^-4*A0*[m2-M2]^-1*qDp^2*qDpp^2
  - 4*M^-4*A0*[m2-M2]^-1*qDp^3*qDpp + 1/2*M^-4*A0*qDk*qDp*qDpp
  - 1/2*M^-4*A0*qDk*qDp*kDp - 1/2*M^-4*A0*qDk*qDp*kDpp - 2*M^-4*A0
  *qDp*qDpp*kDp - 2*M^-4*A0*qDp*qDpp*kDpp + 1/2*M^-4*A0*qDp*qDpp^2
   + 1/2*M^-4*A0*qDp^2*qDpp - 1/2*M^-4*A0*qDp^2*kDp - 1/2*M^-4*A0*qDp^2
  *kDpp - 1/2*M^-4*A0*qDpp^2*kDp - 1/2*M^-4*A0*qDpp^2*kDpp
  - 4*M^-4*ExtM*[m2-M2]^-1*qDk*qDp*qDpp^2 - 2*M^-4*ExtM*[m2-M2]^-1
  *qDk*qDp^3 - 6*M^-4*ExtM*[m2-M2]^-1*qDk*qDpp^3 - 8*M^-4*ExtM*
 [m2-M2]^-1*qDk^2*qDp*qDpp - 6*M^-4*ExtM*[m2-M2]^-1*qDk^2*qDp^2
  - 6*M^-4*ExtM*[m2-M2]^-1*qDk^2*qDpp^2 - 4*M^-4*ExtM*[m2-M2]^-1*qDk^3
  *qDp - 2*M^-4*ExtM*[m2-M2]^-1*qDk^3*qDpp + 6*M^-4*ExtM*
 [m2-M2]^-1*qDp^2*qDpp^2 + 2*M^-4*ExtM*[m2-M2]^-1*qDp^3*qDpp
  - 2*M^-4*ExtM*[m2-M2]^-1*qDpp^4 - 2*M^-4*ExtM*qDk*qDp*qDpp
  + 2*M^-4*ExtM*qDk*qDp*kDpp + 3*M^-4*ExtM*qDk*qDpp*kDpp - 3/2*M^-4
  *ExtM*qDk*qDpp^2 - M^-4*ExtM*qDk^2*qDpp + M^-4*ExtM*qDk^2*kDpp
  + 2*M^-4*ExtM*qDp*qDpp*kDpp - M^-4*ExtM*qDp*qDpp^2 + 3/2*M^-4*ExtM
  *qDpp^2*kDpp - 1/2*M^-4*ExtM*qDpp^3 + 2*M^-4*ExtM^2*[m2-M2]^-1*qDk
  *qDp*qDpp^2 + 2*M^-4*ExtM^2*[m2-M2]^-1*qDk*qDpp^3 - 2*M^-4*ExtM^2
  *[m2-M2]^-1*qDk^2*qDp*qDpp - 2*M^-4*ExtM^2*[m2-M2]^-1*qDk^3*qDp
  - 2*M^-4*ExtM^2*[m2-M2]^-1*qDk^3*qDpp - M^-4*ExtM^2*[m2-M2]^-1*qDk^4
   + 2*M^-4*ExtM^2*[m2-M2]^-1*qDp*qDpp^3 + M^-4*ExtM^2*[m2-M2]^-1*qDpp^4 )
 
 + D(a,d)*D(b,c)*Nohm^4
  * ( 48*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp*qDpp^2 + 45*M^-4*m^2*A0*
 [m2-M2]^-1*qDk*qDp^2*qDpp + 7*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDp^3
  + 18*M^-4*m^2*A0*[m2-M2]^-1*qDk*qDpp^3 + 45*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^2*qDp*qDpp + 15*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*qDp^2
   + 24*M^-4*m^2*A0*[m2-M2]^-1*qDk^2*qDpp^2 + 11*M^-4*m^2*A0*
 [m2-M2]^-1*qDk^3*qDp + 17*M^-4*m^2*A0*[m2-M2]^-1*qDk^3*qDpp
  + 5*M^-4*m^2*A0*[m2-M2]^-1*qDk^4 + 16*M^-4*m^2*A0*[m2-M2]^-1*qDp
  *qDpp^3 + 24*M^-4*m^2*A0*[m2-M2]^-1*qDp^2*qDpp^2 + 13*M^-4*m^2*A0
  *[m2-M2]^-1*qDp^3*qDpp + 6*M^-4*m^2*A0*[m2-M2]^-1*qDpp^4
  - M^-4*m^2*A0*qDk*qDp*qDpp + M^-4*m^2*A0*qDk*qDp*kDp + M^-4*m^2*A0
  *qDk*qDp*kDpp - 1/2*M^-4*m^2*A0*qDk*qDp^2 + M^-4*m^2*A0*qDk*qDpp
  *kDp + M^-4*m^2*A0*qDk*qDpp*kDpp - 1/2*M^-4*m^2*A0*qDk*qDpp^2
  + M^-4*m^2*A0*qDk^3 + 8*M^-4*m^2*A0*qDp*qDpp*kDp + 8*M^-4*m^2*A0
  *qDp*qDpp*kDpp - 4*M^-4*m^2*A0*qDp*qDpp^2 - 7/2*M^-4*m^2*A0*qDp^2
  *qDpp + 7/2*M^-4*m^2*A0*qDp^2*kDp + 7/2*M^-4*m^2*A0*qDp^2*kDpp
  - M^-4*m^2*A0*qDp^3 + 9/2*M^-4*m^2*A0*qDpp^2*kDp + 9/2*M^-4*m^2*A0
  *qDpp^2*kDpp - 3/2*M^-4*m^2*A0*qDpp^3 - 6*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*qDp*qDpp^2 - 12*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp^2
  *qDpp - 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDk*qDp^3 + 8*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk*qDpp^3 - 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*qDp*qDpp
   - 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^2*qDp^2 + 6*M^-4*m^2*ExtM*
 [m2-M2]^-1*qDk^2*qDpp^2 - 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^3*qDp
  - 2*M^-4*m^2*ExtM*[m2-M2]^-1*qDk^4 + 2*M^-4*m^2*ExtM*[m2-M2]^-1*qDp
  *qDpp^3 - 6*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^2*qDpp^2 - 2*M^-4*m^2*ExtM
  *[m2-M2]^-1*qDp^3*qDpp - 3*M^-4*m^2*ExtM*[m2-M2]^-1*qDp^4
  + 4*M^-4*m^2*ExtM*[m2-M2]^-1*qDpp^4 + M^-4*m^2*ExtM*qDp^3
  - 37*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp*qDpp^2 - 29*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*qDp^2*qDpp - 5*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp^3
  - 18*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDpp^3 - 36*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^2*qDp*qDpp - 12*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDp^2
   - 24*M^-4*m^4*A0*[m2-M2]^-2*qDk^2*qDpp^2 - 10*M^-4*m^4*A0*
 [m2-M2]^-2*qDk^3*qDp - 17*M^-4*m^4*A0*[m2-M2]^-2*qDk^3*qDpp
  - 4*M^-4*m^4*A0*[m2-M2]^-2*qDk^4 - 13*M^-4*m^4*A0*[m2-M2]^-2*qDp
  *qDpp^3 - 15*M^-4*m^4*A0*[m2-M2]^-2*qDp^2*qDpp^2 - 7*M^-4*m^4*A0
  *[m2-M2]^-2*qDp^3*qDpp + 2*M^-4*m^4*A0*[m2-M2]^-2*qDp^4
  - 5*M^-4*m^4*A0*[m2-M2]^-2*qDpp^4 - 2*M^-4*m^4*A0*[m2-M2]^-1*qDk
  *qDp*qDpp + 5*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp*kDp + 13/2*M^-4*m^4
  *A0*[m2-M2]^-1*qDk*qDp*kDpp + 13/2*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp
  *pDpp - M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp^2 + 7/2*M^-4*m^4*A0*
 [m2-M2]^-1*qDk*qDpp*kDp + 5*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp*kDpp
  + 5*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp*pDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-1*qDk*qDpp^2 - 3/2*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*qDp
  + 3/2*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*kDp + 3*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^2*kDpp + 3*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*pDpp
  + 11/2*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp*kDp + 6*M^-4*m^4*A0*
 [m2-M2]^-1*qDp*qDpp*kDpp + 6*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp*pDpp
   - 1/2*M^-4*m^4*A0*[m2-M2]^-1*qDp*qDpp^2 - M^-4*m^4*A0*
 [m2-M2]^-1*qDp^2*qDpp + 2*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*kDp
  + 3*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*kDpp + 3*M^-4*m^4*A0*[m2-M2]^-1
  *qDp^2*pDpp + 2*M^-4*m^4*A0*[m2-M2]^-1*qDpp^2*kDp + 3*M^-4*m^4*A0
  *[m2-M2]^-1*qDpp^2*kDpp + 3*M^-4*m^4*A0*[m2-M2]^-1*qDpp^2*pDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-1*qDpp^3 + 1/2*M^-4*m^4*A0*qDp*qDpp
  - 1/2*M^-4*m^4*A0*qDp*kDp - 1/2*M^-4*m^4*A0*qDp*kDpp + 1/4*M^-4*m^4
  *A0*qDp^2 - 1/2*M^-4*m^4*A0*qDpp*kDp - 1/2*M^-4*m^4*A0*qDpp*kDpp
   + 1/4*M^-4*m^4*A0*qDpp^2 + 1/2*M^-4*m^4*A0*kDp*kDpp + 1/4*M^-4*m^4
  *A0*kDp^2 + 1/4*M^-4*m^4*A0*kDpp^2 + 6*M^-4*m^4*ExtM*[m2-M2]^-2*qDk
  *qDp*qDpp^2 + 6*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp^2*qDpp
  + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp^3 - 2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk*qDpp^3 + 12*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*qDp*qDpp
   + 6*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^2*qDp^2 + 6*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDk^3*qDp + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^3*qDpp
  + 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDk^4 - 2*M^-4*m^4*ExtM*[m2-M2]^-2*qDp
  *qDpp^3 + 3*M^-4*m^4*ExtM*[m2-M2]^-2*qDp^4 - 2*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDpp^4 + 3*M^-4*m^4*ExtM*[m2-M2]^-1*qDk*qDpp*kDpp
  + 3/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDk*qDpp^2 + 3/2*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDk^2*qDpp + 3/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDk^2*kDpp
  + M^-4*m^4*ExtM*[m2-M2]^-1*qDk^3 - 1/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDp^3
   + 3/2*M^-4*m^4*ExtM*[m2-M2]^-1*qDpp^2*kDpp + M^-4*m^4*ExtM*
 [m2-M2]^-1*qDpp^3 - 33*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp*qDpp^2
  - 30*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDp^2*qDpp - 9*M^-4*m^6*A0*
 [m2-M2]^-3*qDk*qDp^3 - 12*M^-4*m^6*A0*[m2-M2]^-3*qDk*qDpp^3
  - 35*M^-4*m^6*A0*[m2-M2]^-3*qDk^2*qDp*qDpp - 16*M^-4*m^6*A0*
 [m2-M2]^-3*qDk^2*qDp^2 - 19*M^-4*m^6*A0*[m2-M2]^-3*qDk^2*qDpp^2
  - 13*M^-4*m^6*A0*[m2-M2]^-3*qDk^3*qDp - 15*M^-4*m^6*A0*
 [m2-M2]^-3*qDk^3*qDpp - 7*M^-4*m^6*A0*[m2-M2]^-3*qDk^4 - 10*M^-4*m^6
  *A0*[m2-M2]^-3*qDp*qDpp^3 - 16*M^-4*m^6*A0*[m2-M2]^-3*qDp^2*qDpp^2
   - 8*M^-4*m^6*A0*[m2-M2]^-3*qDp^3*qDpp - 3*M^-4*m^6*A0*
 [m2-M2]^-3*qDp^4 - 4*M^-4*m^6*A0*[m2-M2]^-3*qDpp^4 + 7*M^-4*m^6*A0
  *[m2-M2]^-2*qDk*qDp*qDpp + 7/2*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDp^2
  + 7/2*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDpp^2 + 9/2*M^-4*m^6*A0*
 [m2-M2]^-2*qDk^2*qDp + 9/2*M^-4*m^6*A0*[m2-M2]^-2*qDk^2*qDpp
  + 3*M^-4*m^6*A0*[m2-M2]^-2*qDk^3 + M^-4*m^6*A0*[m2-M2]^-2*qDp*qDpp
  *kDp + M^-4*m^6*A0*[m2-M2]^-2*qDp*qDpp*kDpp + M^-4*m^6*A0*
 [m2-M2]^-2*qDp*qDpp*pDpp + 5/2*M^-4*m^6*A0*[m2-M2]^-2*qDp*qDpp^2
  + 7/2*M^-4*m^6*A0*[m2-M2]^-2*qDp^2*qDpp - 1/2*M^-4*m^6*A0*
 [m2-M2]^-2*qDp^2*kDp - 1/2*M^-4*m^6*A0*[m2-M2]^-2*qDp^2*kDpp
  - 1/2*M^-4*m^6*A0*[m2-M2]^-2*qDp^2*pDpp + 1/2*M^-4*m^6*A0*
 [m2-M2]^-2*qDp^3 - 3/2*M^-4*m^6*A0*[m2-M2]^-2*qDpp^2*kDp
  - 3/2*M^-4*m^6*A0*[m2-M2]^-2*qDpp^2*kDpp - 3/2*M^-4*m^6*A0*
 [m2-M2]^-2*qDpp^2*pDpp + 3/2*M^-4*m^6*A0*[m2-M2]^-2*qDpp^3
  - 3/4*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp - 3/4*M^-4*m^6*A0*
 [m2-M2]^-1*qDk*qDpp - 3/4*M^-4*m^6*A0*[m2-M2]^-1*qDk^2 - 1/4*M^-4
  *m^6*A0*[m2-M2]^-1*qDp*qDpp - 1/4*M^-4*m^6*A0*[m2-M2]^-1*qDp*kDp
   - 1/4*M^-4*m^6*A0*[m2-M2]^-1*qDp*kDpp - 1/4*M^-4*m^6*A0*
 [m2-M2]^-1*qDp*pDpp - 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDp^2 + 1/2*M^-4
  *m^6*A0*[m2-M2]^-1*qDpp*kDp + 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDpp*kDpp
   + 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDpp*pDpp - 1/2*M^-4*m^6*A0*
 [m2-M2]^-1*qDpp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-1*kDp*kDpp - 1/2*M^-4
  *m^6*A0*[m2-M2]^-1*kDp*pDpp - 1/4*M^-4*m^6*A0*[m2-M2]^-1*kDp^2
  - 1/2*M^-4*m^6*A0*[m2-M2]^-1*kDpp*pDpp - 1/4*M^-4*m^6*A0*
 [m2-M2]^-1*kDpp^2 - 1/4*M^-4*m^6*A0*[m2-M2]^-1*pDpp^2 + 26*M^-4*m^8
  *A0*[m2-M2]^-4*qDk*qDp*qDpp^2 + 19*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp^2
  *qDpp + 5*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp^3 + 12*M^-4*m^8*A0*
 [m2-M2]^-4*qDk*qDpp^3 + 26*M^-4*m^8*A0*[m2-M2]^-4*qDk^2*qDp*qDpp
  + 10*M^-4*m^8*A0*[m2-M2]^-4*qDk^2*qDp^2 + 19*M^-4*m^8*A0*
 [m2-M2]^-4*qDk^2*qDpp^2 + 9*M^-4*m^8*A0*[m2-M2]^-4*qDk^3*qDp
  + 15*M^-4*m^8*A0*[m2-M2]^-4*qDk^3*qDpp + 6*M^-4*m^8*A0*
 [m2-M2]^-4*qDk^4 + 9*M^-4*m^8*A0*[m2-M2]^-4*qDp*qDpp^3 + 10*M^-4*m^8
  *A0*[m2-M2]^-4*qDp^2*qDpp^2 + 5*M^-4*m^8*A0*[m2-M2]^-4*qDp^3*qDpp
   + M^-4*m^8*A0*[m2-M2]^-4*qDp^4 + 3*M^-4*m^8*A0*[m2-M2]^-4*qDpp^4
   - 11/2*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp*qDpp + 3/2*M^-4*m^8*A0*
 [m2-M2]^-3*qDk*qDp*kDp - 2*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp^2
  + 3/2*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDpp*kDp - 7/2*M^-4*m^8*A0*
 [m2-M2]^-3*qDk*qDpp^2 - 3*M^-4*m^8*A0*[m2-M2]^-3*qDk^2*qDp
  - 9/2*M^-4*m^8*A0*[m2-M2]^-3*qDk^2*qDpp + 3/2*M^-4*m^8*A0*
 [m2-M2]^-3*qDk^2*kDp - 5/2*M^-4*m^8*A0*[m2-M2]^-3*qDk^3 + M^-4*m^8
  *A0*[m2-M2]^-3*qDp*qDpp*kDp - 5/2*M^-4*m^8*A0*[m2-M2]^-3*qDp*qDpp^2
   - 2*M^-4*m^8*A0*[m2-M2]^-3*qDp^2*qDpp + 1/2*M^-4*m^8*A0*
 [m2-M2]^-3*qDp^2*kDp - 1/2*M^-4*m^8*A0*[m2-M2]^-3*qDp^3 + 1/2*M^-4
  *m^8*A0*[m2-M2]^-3*qDpp^2*kDp - M^-4*m^8*A0*[m2-M2]^-3*qDpp^3
  + 3/4*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp + 3/4*M^-4*m^8*A0*
 [m2-M2]^-2*qDk*qDpp + 3/4*M^-4*m^8*A0*[m2-M2]^-2*qDk^2 + 1/2*M^-4
  *m^8*A0*[m2-M2]^-2*qDp*qDpp + 1/4*M^-4*m^8*A0*[m2-M2]^-2*qDp^2
  + 1/4*M^-4*m^8*A0*[m2-M2]^-2*qDpp^2 - M^-4*A0*qDk*qDp*qDpp^2
  - 2*M^-4*A0*qDk*qDp^2*qDpp - M^-4*A0*qDp*qDpp^3 - 3*M^-4*A0*qDp^2
  *qDpp^2 - 2*M^-4*A0*qDp^3*qDpp - 6*M^-4*ExtM*qDk*qDp*qDpp^2
  - 4*M^-4*ExtM*qDk*qDpp^3 - 6*M^-4*ExtM*qDk^2*qDp*qDpp - 6*M^-4*ExtM
  *qDk^2*qDpp^2 - 3*M^-4*ExtM*qDk^3*qDpp - 2*M^-4*ExtM*qDp*qDpp^3
  - M^-4*ExtM*qDpp^4 )
 
 + D(a,d)*D(b,c)*Nohm^5
  * ( 3*M^-4*m^2*A0*qDk*qDp*qDpp^2 + 3*M^-4*m^2*A0*qDk*qDp^2*qDpp
  + M^-4*m^2*A0*qDk*qDp^3 + M^-4*m^2*A0*qDk*qDpp^3 + 2*M^-4*m^2*A0
  *qDk^4 + 11*M^-4*m^2*A0*qDp*qDpp^3 + 15*M^-4*m^2*A0*qDp^2*qDpp^2
   + 9*M^-4*m^2*A0*qDp^3*qDpp + 2*M^-4*m^2*A0*qDp^4 + 3*M^-4*m^2*A0
  *qDpp^4 - 2*M^-4*m^2*ExtM*qDp^4 - 43*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp
  *qDpp^2 - 41*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDp^2*qDpp - 11*M^-4*m^4
  *A0*[m2-M2]^-1*qDk*qDp^3 - 17*M^-4*m^4*A0*[m2-M2]^-1*qDk*qDpp^3
  - 42*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*qDp*qDpp - 18*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^2*qDp^2 - 24*M^-4*m^4*A0*[m2-M2]^-1*qDk^2*qDpp^2
  - 12*M^-4*m^4*A0*[m2-M2]^-1*qDk^3*qDp - 16*M^-4*m^4*A0*
 [m2-M2]^-1*qDk^3*qDpp - 4*M^-4*m^4*A0*[m2-M2]^-1*qDk^4 - 15*M^-4*m^4
  *A0*[m2-M2]^-1*qDp*qDpp^3 - 21*M^-4*m^4*A0*[m2-M2]^-1*qDp^2*qDpp^2
   - 13*M^-4*m^4*A0*[m2-M2]^-1*qDp^3*qDpp - 5*M^-4*m^4*A0*
 [m2-M2]^-1*qDpp^4 + 3*M^-4*m^4*A0*qDp*qDpp*kDp + 3*M^-4*m^4*A0*qDp
  *qDpp*kDpp - 3/2*M^-4*m^4*A0*qDp*qDpp^2 - 3/2*M^-4*m^4*A0*qDp^2*qDpp
   + 3/2*M^-4*m^4*A0*qDp^2*kDp + 3/2*M^-4*m^4*A0*qDp^2*kDpp
  - 1/2*M^-4*m^4*A0*qDp^3 + 3/2*M^-4*m^4*A0*qDpp^2*kDp + 3/2*M^-4*m^4
  *A0*qDpp^2*kDpp - 1/2*M^-4*m^4*A0*qDpp^3 - 4*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDk*qDpp^3 - 6*M^-4*m^4*ExtM*[m2-M2]^-1*qDk^2*qDpp^2
  - 4*M^-4*m^4*ExtM*[m2-M2]^-1*qDk^3*qDpp + 3*M^-4*m^4*ExtM*
 [m2-M2]^-1*qDp^4 - 2*M^-4*m^4*ExtM*[m2-M2]^-1*qDpp^4 - 27*M^-4*m^6
  *A0*[m2-M2]^-2*qDk*qDp*qDpp^2 - 27*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDp^2
  *qDpp - 9*M^-4*m^6*A0*[m2-M2]^-2*qDk*qDp^3 - 9*M^-4*m^6*A0*
 [m2-M2]^-2*qDk*qDpp^3 - 32*M^-4*m^6*A0*[m2-M2]^-2*qDk^2*qDp*qDpp
  - 16*M^-4*m^6*A0*[m2-M2]^-2*qDk^2*qDp^2 - 16*M^-4*m^6*A0*
 [m2-M2]^-2*qDk^2*qDpp^2 - 14*M^-4*m^6*A0*[m2-M2]^-2*qDk^3*qDp
  - 14*M^-4*m^6*A0*[m2-M2]^-2*qDk^3*qDpp - 7*M^-4*m^6*A0*
 [m2-M2]^-2*qDk^4 - 7*M^-4*m^6*A0*[m2-M2]^-2*qDp*qDpp^3 - 13*M^-4*m^6
  *A0*[m2-M2]^-2*qDp^2*qDpp^2 - 7*M^-4*m^6*A0*[m2-M2]^-2*qDp^3*qDpp
   - 3*M^-4*m^6*A0*[m2-M2]^-2*qDp^4 - 3*M^-4*m^6*A0*[m2-M2]^-2*qDpp^4
   + 4*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp*qDpp + 2*M^-4*m^6*A0*
 [m2-M2]^-1*qDk*qDp^2 + 2*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDpp^2
  + 3*M^-4*m^6*A0*[m2-M2]^-1*qDk^2*qDp + 3*M^-4*m^6*A0*[m2-M2]^-1*qDk^2
  *qDpp + 2*M^-4*m^6*A0*[m2-M2]^-1*qDk^3 + M^-4*m^6*A0*[m2-M2]^-1*qDp
  *qDpp*kDp + M^-4*m^6*A0*[m2-M2]^-1*qDp*qDpp*kDpp + M^-4*m^6*A0*
 [m2-M2]^-1*qDp*qDpp*pDpp + M^-4*m^6*A0*[m2-M2]^-1*qDp*qDpp^2
  + 2*M^-4*m^6*A0*[m2-M2]^-1*qDp^2*qDpp - 1/2*M^-4*m^6*A0*
 [m2-M2]^-1*qDp^2*kDp - 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDp^2*kDpp
  - 1/2*M^-4*m^6*A0*[m2-M2]^-1*qDp^2*pDpp - 3/2*M^-4*m^6*A0*
 [m2-M2]^-1*qDpp^2*kDp - 3/2*M^-4*m^6*A0*[m2-M2]^-1*qDpp^2*kDpp
  - 3/2*M^-4*m^6*A0*[m2-M2]^-1*qDpp^2*pDpp + M^-4*m^6*A0*
 [m2-M2]^-1*qDpp^3 + 23*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp*qDpp^2
  + 19*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDp^2*qDpp + 5*M^-4*m^8*A0*
 [m2-M2]^-3*qDk*qDp^3 + 9*M^-4*m^8*A0*[m2-M2]^-3*qDk*qDpp^3
  + 26*M^-4*m^8*A0*[m2-M2]^-3*qDk^2*qDp*qDpp + 10*M^-4*m^8*A0*
 [m2-M2]^-3*qDk^2*qDp^2 + 16*M^-4*m^8*A0*[m2-M2]^-3*qDk^2*qDpp^2
  + 10*M^-4*m^8*A0*[m2-M2]^-3*qDk^3*qDp + 14*M^-4*m^8*A0*
 [m2-M2]^-3*qDk^3*qDpp + 6*M^-4*m^8*A0*[m2-M2]^-3*qDk^4 + 7*M^-4*m^8
  *A0*[m2-M2]^-3*qDp*qDpp^3 + 9*M^-4*m^8*A0*[m2-M2]^-3*qDp^2*qDpp^2
   + 5*M^-4*m^8*A0*[m2-M2]^-3*qDp^3*qDpp + M^-4*m^8*A0*[m2-M2]^-3*qDp^4
   + 2*M^-4*m^8*A0*[m2-M2]^-3*qDpp^4 - 4*M^-4*m^8*A0*[m2-M2]^-2*qDk
  *qDp*qDpp - 2*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp^2 - 2*M^-4*m^8*A0*
 [m2-M2]^-2*qDk*qDpp^2 - 3*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*qDp
  - 3*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*qDpp - 2*M^-4*m^8*A0*[m2-M2]^-2
  *qDk^3 - 3/2*M^-4*m^8*A0*[m2-M2]^-2*qDp*qDpp^2 - 3/2*M^-4*m^8*A0
  *[m2-M2]^-2*qDp^2*qDpp - 1/2*M^-4*m^8*A0*[m2-M2]^-2*qDp^3
  - 1/2*M^-4*m^8*A0*[m2-M2]^-2*qDpp^3 )
 
 + D(a,d)*D(b,c)*Nohm^6
  * ( 4*M^-4*m^4*A0*qDp*qDpp^3 + 6*M^-4*m^4*A0*qDp^2*qDpp^2
  + 4*M^-4*m^4*A0*qDp^3*qDpp + M^-4*m^4*A0*qDp^4 + M^-4*m^4*A0*qDpp^4
   - 15*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp*qDpp^2 - 15*M^-4*m^6*A0*
 [m2-M2]^-1*qDk*qDp^2*qDpp - 5*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDp^3
  - 5*M^-4*m^6*A0*[m2-M2]^-1*qDk*qDpp^3 - 20*M^-4*m^6*A0*
 [m2-M2]^-1*qDk^2*qDp*qDpp - 10*M^-4*m^6*A0*[m2-M2]^-1*qDk^2*qDp^2
   - 10*M^-4*m^6*A0*[m2-M2]^-1*qDk^2*qDpp^2 - 10*M^-4*m^6*A0*
 [m2-M2]^-1*qDk^3*qDp - 10*M^-4*m^6*A0*[m2-M2]^-1*qDk^3*qDpp
  - 5*M^-4*m^6*A0*[m2-M2]^-1*qDk^4 - 3*M^-4*m^6*A0*[m2-M2]^-1*qDp*qDpp^3
   - 7*M^-4*m^6*A0*[m2-M2]^-1*qDp^2*qDpp^2 - 3*M^-4*m^6*A0*
 [m2-M2]^-1*qDp^3*qDpp - 2*M^-4*m^6*A0*[m2-M2]^-1*qDp^4 - 2*M^-4*m^6
  *A0*[m2-M2]^-1*qDpp^4 + 15*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp*qDpp^2
   + 15*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDp^2*qDpp + 5*M^-4*m^8*A0*
 [m2-M2]^-2*qDk*qDp^3 + 5*M^-4*m^8*A0*[m2-M2]^-2*qDk*qDpp^3
  + 20*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*qDp*qDpp + 10*M^-4*m^8*A0*
 [m2-M2]^-2*qDk^2*qDp^2 + 10*M^-4*m^8*A0*[m2-M2]^-2*qDk^2*qDpp^2
  + 10*M^-4*m^8*A0*[m2-M2]^-2*qDk^3*qDp + 10*M^-4*m^8*A0*
 [m2-M2]^-2*qDk^3*qDpp + 5*M^-4*m^8*A0*[m2-M2]^-2*qDk^4 + 4*M^-4*m^8
  *A0*[m2-M2]^-2*qDp*qDpp^3 + 6*M^-4*m^8*A0*[m2-M2]^-2*qDp^2*qDpp^2
   + 4*M^-4*m^8*A0*[m2-M2]^-2*qDp^3*qDpp + M^-4*m^8*A0*[m2-M2]^-2*qDp^4
   + M^-4*m^8*A0*[m2-M2]^-2*qDpp^4 )
 
 + Two(q,q1)*D(a,b)*D(c,d)
  * ( - 1/2*M^-4*A1*qDk*kDpp + 1/2*M^-4*A1*qDp*kDpp - 3/2*M^-4*A1*qDpp
  *kDp + 5/2*M^-4*A1*kDp*kDpp + M^-4*A1*kDp^2 + M^-4*A1*kDpp^2
  - 7/2*M^-4*A0*qDk*kDp - 2*M^-4*A0*qDk*kDpp + 2*M^-4*A0*qDp*kDp
  + M^-4*A0*qDp*kDpp - 7/2*M^-4*A0*qDpp*kDp - 3/2*M^-4*A0*qDpp*kDpp
   + 3*M^-4*A0*kDp*kDpp + 3/2*M^-4*A0*kDp^2 + 1/2*M^-4*A0*kDpp^2
  + M^-4*ExtM*qDk*kDp + M^-4*ExtM*qDp*kDp + M^-4*ExtM*qDpp*kDp
  + M^-4*ExtM*qDpp*kDpp - 2*M^-4*ExtM*kDp*kDpp - 3/2*M^-4*ExtM*kDpp^2 )
 
 + Two(q,q1)*D(a,c)*D(b,d)
  * ( 3/2*M^-4*A1*qDk*kDp + 1/2*M^-4*A1*qDk*kDpp + 3/2*M^-4*A1*qDp
  *kDp + 5/2*M^-4*A1*qDp*kDpp - 3/2*M^-4*A1*qDpp*kDp + 2*M^-4*A1*kDp
  *kDpp + 2*M^-4*A1*kDp^2 - M^-4*A1*kDpp^2 )
 
 + Two(q,q1)*D(a,d)*D(b,c)
  * ( 3/2*M^-4*A1*qDk*kDp + M^-4*A1*qDk*kDpp + 3/2*M^-4*A1*qDp*kDp
   + 2*M^-4*A1*qDp*kDpp - 1/2*M^-4*A1*kDp*kDpp + M^-4*A1*kDp^2
  - 2*M^-4*A1*kDpp^2 - 7/2*M^-4*A0*qDk*kDp - 2*M^-4*A0*qDk*kDpp
  + 2*M^-4*A0*qDp*kDp + M^-4*A0*qDp*kDpp - 7/2*M^-4*A0*qDpp*kDp
  - 3/2*M^-4*A0*qDpp*kDpp + 3*M^-4*A0*kDp*kDpp + 3/2*M^-4*A0*kDp^2
   + 1/2*M^-4*A0*kDpp^2 - M^-4*ExtM*qDk*kDp - M^-4*ExtM*qDp*kDp
  - M^-4*ExtM*qDpp*kDp - M^-4*ExtM*qDpp*kDpp + 2*M^-4*ExtM*kDp*kDpp
   + 3/2*M^-4*ExtM*kDpp^2 )
 
 + Two(q,q2)*D(a,b)*D(c,d)
  * ( 4*N*M^-4*A0*qDk*qDpp - 4*N*M^-4*A0*qDk*kDp - 4*N*M^-4*A0*qDk
  *kDpp + 4*N*M^-4*A0*qDp*qDpp - 4*N*M^-4*A0*qDp*kDp - 4*N*M^-4*A0
  *qDp*kDpp - 8*N*M^-4*A0*qDpp*kDp - 8*N*M^-4*A0*qDpp*kDpp
  + 4*N*M^-4*A0*qDpp^2 + 8*N*M^-4*A0*kDp*kDpp + 4*N*M^-4*A0*kDp^2
  + 4*N*M^-4*A0*kDpp^2 + 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp
   - 1/8*M^-4*m^2*A0*kDp - 1/8*M^-4*m^2*A0*kDpp + 1/16*M^-4*m^4*A0
   + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp - 1/8*M^-4*m^4*A0*
 [m2-M2]^-1*qDk + 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDp - 1/4*M^-4*m^6*A0
  *[m2-M2]^-3*qDk^2 - 1/4*M^-4*m^6*A0*[m2-M2]^-3*qDp^2 - 1/8*M^-4*m^6
  *A0*[m2-M2]^-2*qDk + 1/8*M^-4*m^6*A0*[m2-M2]^-2*qDp - 1/8*M^-4*m^6
  *A0*[m2-M2]^-1 - 1/4*M^-4*m^8*A0*[m2-M2]^-4*qDk*qDp + 1/4*M^-4*m^8
  *A0*[m2-M2]^-4*qDk^2 + 1/4*M^-4*m^8*A0*[m2-M2]^-4*qDp^2
  + 1/8*M^-4*m^8*A0*[m2-M2]^-3*qDk - 1/8*M^-4*m^8*A0*[m2-M2]^-3*qDp
   + 1/16*M^-4*m^8*A0*[m2-M2]^-2 - 15/2*M^-4*A0*qDk*qDpp + 23/2*M^-4
  *A0*qDk*kDp + 17/2*M^-4*A0*qDk*kDpp - 15/2*M^-4*A0*qDp*qDpp
  + 3*M^-4*A0*qDp*kDp + 9/2*M^-4*A0*qDp*kDpp + 29/2*M^-4*A0*qDpp*kDp
   + 13*M^-4*A0*qDpp*kDpp - 15/2*M^-4*A0*qDpp^2 - 17/2*M^-4*A0*kDp
  *kDpp - 4*M^-4*A0*kDp^2 - 7/2*M^-4*A0*kDpp^2 )
 
 + Two(q,q2)*D(a,c)*D(b,d)
  * ( - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/8*M^-4*m^2*A0
  *kDp + 1/8*M^-4*m^2*A0*kDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDk*qDp
   + 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDk - 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDp
   - 1/2*M^-4*A0*qDk*qDpp + 1/2*M^-4*A0*qDk*kDp + 1/2*M^-4*A0*qDk*kDpp
   - 1/2*M^-4*A0*qDp*qDpp + 1/2*M^-4*A0*qDp*kDp + 1/2*M^-4*A0*qDp*kDpp
   + M^-4*A0*qDpp*kDp + M^-4*A0*qDpp*kDpp - 1/2*M^-4*A0*qDpp^2
  - M^-4*A0*kDp*kDpp - 1/2*M^-4*A0*kDp^2 - 1/2*M^-4*A0*kDpp^2 )
 
 + Two(q,q2)*D(a,d)*D(b,c)
  * ( 4*N*M^-4*A0*qDk*qDpp - 4*N*M^-4*A0*qDk*kDp - 4*N*M^-4*A0*qDk
  *kDpp + 4*N*M^-4*A0*qDp*qDpp - 4*N*M^-4*A0*qDp*kDp - 4*N*M^-4*A0
  *qDp*kDpp - 8*N*M^-4*A0*qDpp*kDp - 8*N*M^-4*A0*qDpp*kDpp
  + 4*N*M^-4*A0*qDpp^2 + 8*N*M^-4*A0*kDp*kDpp + 4*N*M^-4*A0*kDp^2
  + 4*N*M^-4*A0*kDpp^2 + 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp
   - 1/8*M^-4*m^2*A0*kDp - 1/8*M^-4*m^2*A0*kDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDk*qDp - 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDk + 1/8*M^-4*m^4
  *A0*[m2-M2]^-1*qDp - 29/4*M^-4*A0*qDk*qDpp + 45/4*M^-4*A0*qDk*kDp
   + 33/4*M^-4*A0*qDk*kDpp - 29/4*M^-4*A0*qDp*qDpp + 11/4*M^-4*A0*qDp
  *kDp + 17/4*M^-4*A0*qDp*kDpp + 14*M^-4*A0*qDpp*kDp + 25/2*M^-4*A0
  *qDpp*kDpp - 29/4*M^-4*A0*qDpp^2 - 8*M^-4*A0*kDp*kDpp - 15/4*M^-4
  *A0*kDp^2 - 13/4*M^-4*A0*kDpp^2 )
 
 + Two(q,q3)*D(a,b)*D(c,d)
  * ( - 3/2*M^-4*A2*qDp*kDp + 1/2*M^-4*A2*qDp*kDpp - 3/2*M^-4*A2*qDpp
  *kDp + 5/2*M^-4*A2*kDp*kDpp + M^-4*A2*kDp^2 + M^-4*A2*kDpp^2
  - 7/2*M^-4*A0*qDk*kDp - 3/2*M^-4*A0*qDk*kDpp + 1/2*M^-4*A0*qDp*kDp
   + 1/2*M^-4*A0*qDp*kDpp - 5/2*M^-4*A0*qDpp*kDp - 3/2*M^-4*A0*qDpp
  *kDpp + 2*M^-4*A0*kDp*kDpp + 3/2*M^-4*A0*kDp^2 + 1/2*M^-4*A0*kDpp^2
   + M^-4*ExtM*qDp*kDpp + M^-4*ExtM*qDpp*kDp + M^-4*ExtM*qDpp*kDpp
   - 2*M^-4*ExtM*kDp*kDpp - 3/2*M^-4*ExtM*kDpp^2 )
 
 + Two(q,q3)*D(a,c)*D(b,d)
  * ( - 3*M^-4*A2*qDp*kDp - 1/2*M^-4*A2*qDp*kDpp - 3/2*M^-4*A2*qDpp
  *kDp + 2*M^-4*A2*kDp*kDpp + 2*M^-4*A2*kDp^2 - M^-4*A2*kDpp^2 )
 
 + Two(q,q3)*D(a,d)*D(b,c)
  * ( - 3/2*M^-4*A2*qDp*kDp - M^-4*A2*qDp*kDpp - 1/2*M^-4*A2*kDp*kDpp
   + M^-4*A2*kDp^2 - 2*M^-4*A2*kDpp^2 - 7/2*M^-4*A0*qDk*kDp
  - 3/2*M^-4*A0*qDk*kDpp + 1/2*M^-4*A0*qDp*kDp + 1/2*M^-4*A0*qDp*kDpp
   - 5/2*M^-4*A0*qDpp*kDp - 3/2*M^-4*A0*qDpp*kDpp + 2*M^-4*A0*kDp*kDpp
   + 3/2*M^-4*A0*kDp^2 + 1/2*M^-4*A0*kDpp^2 - M^-4*ExtM*qDp*kDpp
  - M^-4*ExtM*qDpp*kDp - M^-4*ExtM*qDpp*kDpp + 2*M^-4*ExtM*kDp*kDpp
   + 3/2*M^-4*ExtM*kDpp^2 )
 
 + Two(q,q4)*D(a,b)*D(c,d)
  * ( N*M^-4*A3*kDpp^2 + 2*N*M^-4*A1*qDk*kDpp + 2*N*M^-4*A1*qDp*kDpp
   + 2*N*M^-4*A1*qDpp*kDpp - 2*N*M^-4*A1*kDpp^2 + 2*N*M^-4*A2*qDpp
  *kDpp - 2*N*M^-4*A2*kDpp^2 + 2*N*M^-4*ExtM*qDk*qDp - 2*N*M^-4*ExtM
  *qDk*qDpp + 2*N*M^-4*ExtM*qDk^2 - 6*N*M^-4*ExtM*qDp*qDpp
  + 4*N*M^-4*ExtM*qDp*kDpp + 4*N*M^-4*ExtM*qDpp*kDpp - 4*N*M^-4*ExtM
  *qDpp^2 - 2*N*M^-4*ExtM^2*qDk*qDp - N*M^-4*ExtM^2*qDk^2
  + 2*N*M^-4*ExtM^2*qDp*qDpp + N*M^-4*ExtM^2*qDpp^2 + 1/8*M^-4*m^2
  *ExtM*qDk + 1/4*M^-4*m^2*ExtM*qDp + 3/8*M^-4*m^2*ExtM*qDpp
  - 1/8*M^-4*m^2*ExtM*kDpp - M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp
  - 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*kDpp + 1/4*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDp*kDpp + 1/4*M^-4*m^4*ExtM*[m2-M2]^-1*qDk - 1/4*M^-4
  *m^4*ExtM*[m2-M2]^-1*qDp - 1/4*M^-4*m^4*ExtM*[m2-M2]^-1*kDpp
  - 8*M^-4*A3*kDp*kDpp + M^-4*A3*kDp^2 - 6*M^-4*A3*kDpp^2
  - 3/2*M^-4*A1*qDk*kDp - 9/2*M^-4*A1*qDk*kDpp - 5*M^-4*A1*qDp*kDpp
   + 3/2*M^-4*A1*qDpp*kDp - 9/2*M^-4*A1*qDpp*kDpp + 1/2*M^-4*A1*kDp
  *kDpp - M^-4*A1*kDp^2 + 9/2*M^-4*A1*kDpp^2 + 3*M^-4*A2*qDp*kDp
  - 5*M^-4*A2*qDpp*kDpp + 2*M^-4*A2*kDp*kDpp - M^-4*A2*kDp^2
  + 5*M^-4*A2*kDpp^2 - 7/2*M^-4*ExtM*qDk*qDp + 7/2*M^-4*ExtM*qDk*qDpp
   - 7/2*M^-4*ExtM*qDk^2 + 21/2*M^-4*ExtM*qDp*qDpp + 2*M^-4*ExtM*qDp
  *kDp - 6*M^-4*ExtM*qDp*kDpp + 2*M^-4*ExtM*qDpp*kDp - 6*M^-4*ExtM
  *qDpp*kDpp + 7*M^-4*ExtM*qDpp^2 + 12*M^-4*ExtM*kDp*kDpp
  + 6*M^-4*ExtM*kDpp^2 + 7/2*M^-4*ExtM^2*qDk*qDp + 2*M^-4*ExtM^2*qDk
  *kDp + M^-4*ExtM^2*qDk*kDpp + 7/4*M^-4*ExtM^2*qDk^2 - 7/2*M^-4*ExtM^2
  *qDp*qDpp + 2*M^-4*ExtM^2*qDpp*kDp + M^-4*ExtM^2*qDpp*kDpp
  - 7/4*M^-4*ExtM^2*qDpp^2 - 10*M^-4*ExtM^2*kDp*kDpp - 5*M^-4*ExtM^2
  *kDpp^2 )
 
 + Two(q,q4)*D(a,c)*D(b,d)
  * ( 2*N*M^-4*A3*kDpp^2 + 4*N*M^-4*A1*qDk*kDpp + 4*N*M^-4*A1*qDp*kDpp
   + 4*N*M^-4*A1*qDpp*kDpp - 4*N*M^-4*A1*kDpp^2 + 4*N*M^-4*A2*qDpp
  *kDpp - 4*N*M^-4*A2*kDpp^2 - 1/8*M^-4*m^2*A1*kDpp - 1/8*M^-4*m^2
  *A2*kDpp + 1/4*M^-4*m^2*R1Z*Extm*kDpp - 1/4*M^-4*m^4*A1*
 [m2-M2]^-2*qDp*kDpp + 1/8*M^-4*m^4*A1*[m2-M2]^-1*kDpp + 1/4*M^-4*m^4
  *A2*[m2-M2]^-2*qDk*kDpp + 1/8*M^-4*m^4*A2*[m2-M2]^-1*kDpp
  - 1/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk*kDpp + 1/4*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-2*qDp*kDpp - 1/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*kDpp
  + 2*M^-4*A3*kDp*kDpp + 2*M^-4*A3*kDp^2 - 21/8*M^-4*A3*kDpp^2
  - 3/2*M^-4*A1*qDk*kDp - 33/4*M^-4*A1*qDk*kDpp - 37/4*M^-4*A1*qDp
  *kDpp + 9/2*M^-4*A1*qDpp*kDp - 21/4*M^-4*A1*qDpp*kDpp - 7/2*M^-4
  *A1*kDp*kDpp - 2*M^-4*A1*kDp^2 + 21/4*M^-4*A1*kDpp^2 + 3/2*M^-4*A2
  *qDk*kDp + 3/2*M^-4*A2*qDk*kDpp + 6*M^-4*A2*qDp*kDp + 3*M^-4*A2*qDp
  *kDpp + 3/2*M^-4*A2*qDpp*kDp - 31/4*M^-4*A2*qDpp*kDpp - 1/2*M^-4
  *A2*kDp*kDpp - 2*M^-4*A2*kDp^2 + 31/4*M^-4*A2*kDpp^2 - 3/4*M^-4*R1Z
  *Extm*qDk*kDpp - 3/4*M^-4*R1Z*Extm*qDp*kDpp - 3/2*M^-4*R1Z*Extm*qDpp
  *kDpp + 3/4*M^-4*R1Z*Extm*kDpp^2 + 3/8*M^-4*R5Z*Extm^2*kDpp^2 )
 
 + Two(q,q4)*D(a,d)*D(b,c)
  * ( N*M^-4*A3*kDpp^2 + 2*N*M^-4*A1*qDk*kDpp + 2*N*M^-4*A1*qDp*kDpp
   + 2*N*M^-4*A1*qDpp*kDpp - 2*N*M^-4*A1*kDpp^2 + 2*N*M^-4*A2*qDpp
  *kDpp - 2*N*M^-4*A2*kDpp^2 - 2*N*M^-4*ExtM*qDk*qDp + 2*N*M^-4*ExtM
  *qDk*qDpp - 2*N*M^-4*ExtM*qDk^2 + 6*N*M^-4*ExtM*qDp*qDpp
  - 4*N*M^-4*ExtM*qDp*kDpp - 4*N*M^-4*ExtM*qDpp*kDpp + 4*N*M^-4*ExtM
  *qDpp^2 + 2*N*M^-4*ExtM^2*qDk*qDp + N*M^-4*ExtM^2*qDk^2
  - 2*N*M^-4*ExtM^2*qDp*qDpp - N*M^-4*ExtM^2*qDpp^2 - 1/8*M^-4*m^2
  *ExtM*qDk - 1/4*M^-4*m^2*ExtM*qDp - 3/8*M^-4*m^2*ExtM*qDpp
  + 1/8*M^-4*m^2*ExtM*kDpp + M^-4*m^4*ExtM*[m2-M2]^-2*qDk*qDp
  + 1/4*M^-4*m^4*ExtM*[m2-M2]^-2*qDk*kDpp - 1/4*M^-4*m^4*ExtM*
 [m2-M2]^-2*qDp*kDpp - 1/4*M^-4*m^4*ExtM*[m2-M2]^-1*qDk + 1/4*M^-4
  *m^4*ExtM*[m2-M2]^-1*qDp + 1/4*M^-4*m^4*ExtM*[m2-M2]^-1*kDpp
  + 10*M^-4*A3*kDp*kDpp + M^-4*A3*kDp^2 + 3*M^-4*A3*kDpp^2
  - 9/2*M^-4*A1*qDk*kDpp - 5*M^-4*A1*qDp*kDpp + 3*M^-4*A1*qDpp*kDp
   - 3/2*M^-4*A1*qDpp*kDpp - 4*M^-4*A1*kDp*kDpp - M^-4*A1*kDp^2
  + 3/2*M^-4*A1*kDpp^2 + 3/2*M^-4*A2*qDk*kDp + 3/2*M^-4*A2*qDk*kDpp
   + 3*M^-4*A2*qDp*kDp + 3*M^-4*A2*qDp*kDpp + 3/2*M^-4*A2*qDpp*kDp
   - 7/2*M^-4*A2*qDpp*kDpp - 5/2*M^-4*A2*kDp*kDpp - M^-4*A2*kDp^2
  + 7/2*M^-4*A2*kDpp^2 + 7/2*M^-4*ExtM*qDk*qDp - 7/2*M^-4*ExtM*qDk
  *qDpp + 7/2*M^-4*ExtM*qDk^2 - 21/2*M^-4*ExtM*qDp*qDpp - 2*M^-4*ExtM
  *qDp*kDp + 6*M^-4*ExtM*qDp*kDpp - 2*M^-4*ExtM*qDpp*kDp + 6*M^-4*ExtM
  *qDpp*kDpp - 7*M^-4*ExtM*qDpp^2 - 12*M^-4*ExtM*kDp*kDpp
  - 6*M^-4*ExtM*kDpp^2 - 7/2*M^-4*ExtM^2*qDk*qDp - 2*M^-4*ExtM^2*qDk
  *kDp - M^-4*ExtM^2*qDk*kDpp - 7/4*M^-4*ExtM^2*qDk^2 + 7/2*M^-4*ExtM^2
  *qDp*qDpp - 2*M^-4*ExtM^2*qDpp*kDp - M^-4*ExtM^2*qDpp*kDpp
  + 7/4*M^-4*ExtM^2*qDpp^2 + 10*M^-4*ExtM^2*kDp*kDpp + 5*M^-4*ExtM^2
  *kDpp^2 )
 
 + Two(q,q5)*D(a,b)*D(c,d)
  * ( - 4*N*M^-4*A0*qDk*qDp - 4*N*M^-4*A0*qDp*qDpp + 8*N*M^-4*A0*qDp
  *kDp + 4*N*M^-4*A0*qDp*kDpp + 4*N*M^-4*A0*qDp*pDpp - 4*N*M^-4*A0
  *qDp^2 - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/4*M^-4*m^2
  *A0*kDp + 1/8*M^-4*m^2*A0*kDpp + 1/8*M^-4*m^2*A0*pDpp + 1/2*M^-4
  *m^4*A0*[m2-M2]^-2*qDp*qDpp - 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*kDp
   - 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*kDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDp*pDpp - 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDp + 1/8*M^-4*m^4
  *A0*[m2-M2]^-1*qDpp - 1/8*M^-4*m^4*A0*[m2-M2]^-1*kDp - 1/8*M^-4*m^4
  *A0*[m2-M2]^-1*kDpp - 1/8*M^-4*m^4*A0*[m2-M2]^-1*pDpp + 29/4*M^-4
  *A0*qDk*qDp + 5/2*M^-4*A0*qDk*kDp + 3/2*M^-4*A0*qDk*kDpp
  + 29/4*M^-4*A0*qDp*qDpp - 16*M^-4*A0*qDp*kDp - 35/4*M^-4*A0*qDp*kDpp
   - 29/4*M^-4*A0*qDp*pDpp + 29/4*M^-4*A0*qDp^2 + 4*M^-4*A0*qDpp*kDp
   + 3*M^-4*A0*qDpp*kDpp - 13/2*M^-4*A0*kDp*kDpp - 4*M^-4*A0*kDp*pDpp
   - 7/2*M^-4*A0*kDp^2 - 3*M^-4*A0*kDpp*pDpp - 2*M^-4*A0*kDpp^2 )
 
 + Two(q,q5)*D(a,c)*D(b,d)
  * ( 1/8*M^-4*m^2*A0*qDk + 1/8*M^-4*m^2*A0*qDpp - 1/4*M^-4*m^2*A0
  *kDp - 1/8*M^-4*m^2*A0*kDpp - 1/8*M^-4*m^2*A0*pDpp - 1/2*M^-4*m^4
  *A0*[m2-M2]^-2*qDp*qDpp + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*kDp
  + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*kDpp + 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDp*pDpp + 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDp - 1/8*M^-4*m^4
  *A0*[m2-M2]^-1*qDpp + 1/8*M^-4*m^4*A0*[m2-M2]^-1*kDp + 1/8*M^-4*m^4
  *A0*[m2-M2]^-1*kDpp + 1/8*M^-4*m^4*A0*[m2-M2]^-1*pDpp + 1/2*M^-4
  *A0*qDk*qDp + 1/2*M^-4*A0*qDp*qDpp - M^-4*A0*qDp*kDp - 1/2*M^-4*A0
  *qDp*kDpp - 1/2*M^-4*A0*qDp*pDpp + 1/2*M^-4*A0*qDp^2 )
 
 + Two(q,q5)*D(a,d)*D(b,c)
  * ( - 4*N*M^-4*A0*qDk*qDp - 4*N*M^-4*A0*qDp*qDpp + 8*N*M^-4*A0*qDp
  *kDp + 4*N*M^-4*A0*qDp*kDpp + 4*N*M^-4*A0*qDp*pDpp - 4*N*M^-4*A0
  *qDp^2 - 1/8*M^-4*m^2*A0*qDk - 1/8*M^-4*m^2*A0*qDpp + 1/4*M^-4*m^2
  *A0*kDp + 1/8*M^-4*m^2*A0*kDpp + 1/8*M^-4*m^2*A0*pDpp + 1/16*M^-4
  *m^4*A0 + 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*qDpp - 1/2*M^-4*m^4*A0*
 [m2-M2]^-2*qDp*kDp - 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*kDpp
  - 1/2*M^-4*m^4*A0*[m2-M2]^-2*qDp*pDpp - 1/8*M^-4*m^4*A0*
 [m2-M2]^-1*qDp + 1/8*M^-4*m^4*A0*[m2-M2]^-1*qDpp - 1/8*M^-4*m^4*A0
  *[m2-M2]^-1*kDp - 1/8*M^-4*m^4*A0*[m2-M2]^-1*kDpp - 1/8*M^-4*m^4
  *A0*[m2-M2]^-1*pDpp - 1/4*M^-4*m^6*A0*[m2-M2]^-3*qDp^2 + 1/2*M^-4
  *m^6*A0*[m2-M2]^-3*qDpp*kDp + 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDpp*kDpp
   + 1/2*M^-4*m^6*A0*[m2-M2]^-3*qDpp*pDpp - 1/4*M^-4*m^6*A0*
 [m2-M2]^-3*qDpp^2 - 1/2*M^-4*m^6*A0*[m2-M2]^-3*kDp*kDpp - 1/2*M^-4
  *m^6*A0*[m2-M2]^-3*kDp*pDpp - 1/4*M^-4*m^6*A0*[m2-M2]^-3*kDp^2
  - 1/2*M^-4*m^6*A0*[m2-M2]^-3*kDpp*pDpp - 1/4*M^-4*m^6*A0*
 [m2-M2]^-3*kDpp^2 - 1/4*M^-4*m^6*A0*[m2-M2]^-3*pDpp^2 - 1/8*M^-4*m^6
  *A0*[m2-M2]^-2*qDp + 1/8*M^-4*m^6*A0*[m2-M2]^-2*qDpp - 1/8*M^-4*m^6
  *A0*[m2-M2]^-2*kDp - 1/8*M^-4*m^6*A0*[m2-M2]^-2*kDpp - 1/8*M^-4*m^6
  *A0*[m2-M2]^-2*pDpp - 1/8*M^-4*m^6*A0*[m2-M2]^-1 - 1/4*M^-4*m^8*A0
  *[m2-M2]^-4*qDp*qDpp + 1/4*M^-4*m^8*A0*[m2-M2]^-4*qDp*kDp
  + 1/4*M^-4*m^8*A0*[m2-M2]^-4*qDp*kDpp + 1/4*M^-4*m^8*A0*
 [m2-M2]^-4*qDp*pDpp + 1/4*M^-4*m^8*A0*[m2-M2]^-4*qDp^2 - 1/2*M^-4
  *m^8*A0*[m2-M2]^-4*qDpp*kDp - 1/2*M^-4*m^8*A0*[m2-M2]^-4*qDpp*kDpp
   - 1/2*M^-4*m^8*A0*[m2-M2]^-4*qDpp*pDpp + 1/4*M^-4*m^8*A0*
 [m2-M2]^-4*qDpp^2 + 1/2*M^-4*m^8*A0*[m2-M2]^-4*kDp*kDpp + 1/2*M^-4
  *m^8*A0*[m2-M2]^-4*kDp*pDpp + 1/4*M^-4*m^8*A0*[m2-M2]^-4*kDp^2
  + 1/2*M^-4*m^8*A0*[m2-M2]^-4*kDpp*pDpp + 1/4*M^-4*m^8*A0*
 [m2-M2]^-4*kDpp^2 + 1/4*M^-4*m^8*A0*[m2-M2]^-4*pDpp^2 + 1/8*M^-4*m^8
  *A0*[m2-M2]^-3*qDp - 1/8*M^-4*m^8*A0*[m2-M2]^-3*qDpp + 1/8*M^-4*m^8
  *A0*[m2-M2]^-3*kDp + 1/8*M^-4*m^8*A0*[m2-M2]^-3*kDpp + 1/8*M^-4*m^8
  *A0*[m2-M2]^-3*pDpp + 1/16*M^-4*m^8*A0*[m2-M2]^-2 + 15/2*M^-4*A0
  *qDk*qDp + 5/2*M^-4*A0*qDk*kDp + 3/2*M^-4*A0*qDk*kDpp + 15/2*M^-4
  *A0*qDp*qDpp - 33/2*M^-4*A0*qDp*kDp - 9*M^-4*A0*qDp*kDpp
  - 15/2*M^-4*A0*qDp*pDpp + 15/2*M^-4*A0*qDp^2 + 4*M^-4*A0*qDpp*kDp
   + 3*M^-4*A0*qDpp*kDpp - 13/2*M^-4*A0*kDp*kDpp - 4*M^-4*A0*kDp*pDpp
   - 7/2*M^-4*A0*kDp^2 - 3*M^-4*A0*kDpp*pDpp - 2*M^-4*A0*kDpp^2 )
 
 + Two(q,q6)*D(a,b)*D(c,d)
  * ( - 4*N*M^-4*A0*qDpp*kDp - 4*N*M^-4*A0*qDpp*kDpp + 8*N*M^-4*A0
  *kDp*kDpp + 4*N*M^-4*A0*kDp*pDpp + 4*N*M^-4*A0*kDp^2 + 4*N*M^-4*A0
  *kDpp*pDpp + 4*N*M^-4*A0*kDpp^2 - 2*N*M^-4*ExtM*qDpp*kDpp
  + 3/2*M^-4*A2*qDp*kDp + 1/2*M^-4*A2*qDp*kDpp + 1/2*M^-4*A2*kDp*kDpp
   - 1/2*M^-4*A2*kDp^2 - M^-4*A2*kDpp^2 - 5/2*M^-4*A0*qDk*kDp
  - M^-4*A0*qDk*kDpp + 1/2*M^-4*A0*qDp*kDp + 9/2*M^-4*A0*qDpp*kDp
  + 9/2*M^-4*A0*qDpp*kDpp - 8*M^-4*A0*kDp*kDpp - 9/2*M^-4*A0*kDp*pDpp
   - 3*M^-4*A0*kDp^2 - 9/2*M^-4*A0*kDpp*pDpp - 9/2*M^-4*A0*kDpp^2
  + M^-4*ExtM*qDk*kDp - M^-4*ExtM*qDp*kDpp - 2*M^-4*ExtM*qDpp*kDp
  + 3/2*M^-4*ExtM*qDpp*kDpp + 1/2*M^-4*ExtM*kDpp^2 )
 
 + Two(q,q6)*D(a,c)*D(b,d)
  * ( 3/2*M^-4*A2*qDk*kDp + 3/2*M^-4*A2*qDk*kDpp + 3*M^-4*A2*qDp*kDp
   + 5/2*M^-4*A2*qDp*kDpp - 2*M^-4*A2*kDp*kDpp - M^-4*A2*kDp^2
  - 2*M^-4*A2*kDpp^2 + 1/2*M^-4*A0*qDpp*kDp + 1/2*M^-4*A0*qDpp*kDpp
   - M^-4*A0*kDp*kDpp - 1/2*M^-4*A0*kDp*pDpp - 1/2*M^-4*A0*kDp^2
  - 1/2*M^-4*A0*kDpp*pDpp - 1/2*M^-4*A0*kDpp^2 )
 
 + Two(q,q6)*D(a,d)*D(b,c)
  * ( - 4*N*M^-4*A0*qDpp*kDp - 4*N*M^-4*A0*qDpp*kDpp + 8*N*M^-4*A0
  *kDp*kDpp + 4*N*M^-4*A0*kDp*pDpp + 4*N*M^-4*A0*kDp^2 + 4*N*M^-4*A0
  *kDpp*pDpp + 4*N*M^-4*A0*kDpp^2 + 2*N*M^-4*ExtM*qDpp*kDpp
  + 3/2*M^-4*A2*qDk*kDp + 3/2*M^-4*A2*qDk*kDpp + 3/2*M^-4*A2*qDp*kDp
   + 2*M^-4*A2*qDp*kDpp - 5/2*M^-4*A2*kDp*kDpp - 1/2*M^-4*A2*kDp^2
   - M^-4*A2*kDpp^2 - 5/2*M^-4*A0*qDk*kDp - M^-4*A0*qDk*kDpp
  + 1/2*M^-4*A0*qDp*kDp + 9/2*M^-4*A0*qDpp*kDp + 9/2*M^-4*A0*qDpp*kDpp
   - 8*M^-4*A0*kDp*kDpp - 9/2*M^-4*A0*kDp*pDpp - 3*M^-4*A0*kDp^2
  - 9/2*M^-4*A0*kDpp*pDpp - 9/2*M^-4*A0*kDpp^2 - M^-4*ExtM*qDk*kDp
   + M^-4*ExtM*qDp*kDpp + 2*M^-4*ExtM*qDpp*kDp - 3/2*M^-4*ExtM*qDpp
  *kDpp - 1/2*M^-4*ExtM*kDpp^2 )
 
 + Two(q,q7)*D(a,b)*D(c,d)
  * ( - 2*N*M^-4*A1*qDk*kDpp - 2*N*M^-4*A1*qDp*kDpp - 2*N*M^-4*A1*qDpp
  *kDpp + 2*N*M^-4*A1*kDp*kDpp + 2*N*M^-4*A1*kDpp*pDpp + 2*N*M^-4*A1
  *kDpp^2 + 4*N*M^-4*A0*qDk*qDp - 4*N*M^-4*A0*qDk*kDp + 4*N*M^-4*A0
  *qDp*qDpp - 4*N*M^-4*A0*qDp*kDp + 4*N*M^-4*A0*qDp^2 - 4*N*M^-4*A0
  *qDpp*kDp - 2*N*M^-4*ExtM*qDk*qDp + 4*N*M^-4*ExtM*qDk*kDp
  + 2*N*M^-4*ExtM*qDk*kDpp - 2*N*M^-4*ExtM*qDk^2 + 2*N*M^-4*ExtM*qDp
  *qDpp + 2*N*M^-4*ExtM*qDp*kDp - 2*N*M^-4*ExtM*qDp*pDpp - 2*N*M^-4
  *ExtM*qDpp*kDpp - 4*N*M^-4*ExtM*qDpp*pDpp + 2*N*M^-4*ExtM*qDpp^2
   - 2*N*M^-4*ExtM*kDp*kDpp - 2*N*M^-4*ExtM*kDp^2 + 2*N*M^-4*ExtM*kDpp
  *pDpp + 2*N*M^-4*ExtM*pDpp^2 - 1/4*M^-4*m^2*A0*qDk - 1/4*M^-4*m^2
  *A0*qDp - 1/4*M^-4*m^2*A0*qDpp - 1/8*M^-4*m^2*ExtM*qDk - 1/8*M^-4
  *m^2*ExtM*qDp - 1/8*M^-4*m^2*ExtM*qDpp + 1/8*M^-4*m^2*ExtM*kDp
  + 1/8*M^-4*m^2*ExtM*kDpp + 1/8*M^-4*m^2*ExtM*pDpp + 3/2*M^-4*A1*qDk
  *kDp + 6*M^-4*A1*qDk*kDpp + 11/2*M^-4*A1*qDp*kDpp + 11/2*M^-4*A1
  *qDpp*kDpp - 5*M^-4*A1*kDp*kDpp - 1/2*M^-4*A1*kDp^2 - 11/2*M^-4*A1
  *kDpp*pDpp - 13/2*M^-4*A1*kDpp^2 - 15/2*M^-4*A0*qDk*qDp
  + 27/2*M^-4*A0*qDk*kDp + 5*M^-4*A0*qDk*kDpp - 15/2*M^-4*A0*qDp*qDpp
   + 23/2*M^-4*A0*qDp*kDp + 4*M^-4*A0*qDp*kDpp - 15/2*M^-4*A0*qDp^2
   + 27/2*M^-4*A0*qDpp*kDp + 5*M^-4*A0*qDpp*kDpp + M^-4*A0*kDp*kDpp
   + 2*M^-4*A0*kDp^2 + 7/2*M^-4*ExtM*qDk*qDp - 5*M^-4*ExtM*qDk*kDp
   - 7/2*M^-4*ExtM*qDk*kDpp + 7/2*M^-4*ExtM*qDk^2 - 7/2*M^-4*ExtM*qDp
  *qDpp - 1/2*M^-4*ExtM*qDp*kDp + M^-4*ExtM*qDp*kDpp + 7/2*M^-4*ExtM
  *qDp*pDpp + 2*M^-4*ExtM*qDpp*kDp + 9/2*M^-4*ExtM*qDpp*kDpp
  + 7*M^-4*ExtM*qDpp*pDpp - 7/2*M^-4*ExtM*qDpp^2 + 1/2*M^-4*ExtM*kDp
  *kDpp - 2*M^-4*ExtM*kDp*pDpp + 3/2*M^-4*ExtM*kDp^2 - 9/2*M^-4*ExtM
  *kDpp*pDpp - 1/2*M^-4*ExtM*kDpp^2 - 7/2*M^-4*ExtM*pDpp^2 )
 
 + Two(q,q7)*D(a,c)*D(b,d)
  * ( - 4*N*M^-4*A1*qDk*kDpp - 4*N*M^-4*A1*qDp*kDpp - 4*N*M^-4*A1*qDpp
  *kDpp + 4*N*M^-4*A1*kDp*kDpp + 4*N*M^-4*A1*kDpp*pDpp + 4*N*M^-4*A1
  *kDpp^2 + 1/4*M^-4*m^2*A0*qDk + 1/4*M^-4*m^2*A0*qDp + 1/4*M^-4*m^2
  *A0*qDpp + 3*M^-4*A1*qDk*kDp + 13*M^-4*A1*qDk*kDpp + 3/2*M^-4*A1
  *qDp*kDp + 12*M^-4*A1*qDp*kDpp + 21/2*M^-4*A1*qDpp*kDpp
  - 25/2*M^-4*A1*kDp*kDpp - M^-4*A1*kDp^2 - 21/2*M^-4*A1*kDpp*pDpp
   - 25/2*M^-4*A1*kDpp^2 - 1/2*M^-4*A0*qDk*qDp + 1/2*M^-4*A0*qDk*kDp
   - 1/2*M^-4*A0*qDp*qDpp + 1/2*M^-4*A0*qDp*kDp - 1/2*M^-4*A0*qDp^2
   + 1/2*M^-4*A0*qDpp*kDp + 1/2*M^-4*R1Z*Extm*qDk*kDpp + 1/2*M^-4*R1Z
  *Extm*qDp*kDpp + 1/2*M^-4*R1Z*Extm*qDpp*kDpp - 1/2*M^-4*R1Z*Extm
  *kDp*kDpp - 1/2*M^-4*R1Z*Extm*kDpp*pDpp - 1/2*M^-4*R1Z*Extm*kDpp^2 )
 
 + Two(q,q7)*D(a,d)*D(b,c)
  * ( - 2*N*M^-4*A1*qDk*kDpp - 2*N*M^-4*A1*qDp*kDpp - 2*N*M^-4*A1*qDpp
  *kDpp + 2*N*M^-4*A1*kDp*kDpp + 2*N*M^-4*A1*kDpp*pDpp + 2*N*M^-4*A1
  *kDpp^2 + 4*N*M^-4*A0*qDk*qDp - 4*N*M^-4*A0*qDk*kDp + 4*N*M^-4*A0
  *qDp*qDpp - 4*N*M^-4*A0*qDp*kDp + 4*N*M^-4*A0*qDp^2 - 4*N*M^-4*A0
  *qDpp*kDp + 2*N*M^-4*ExtM*qDk*qDp - 4*N*M^-4*ExtM*qDk*kDp
  - 2*N*M^-4*ExtM*qDk*kDpp + 2*N*M^-4*ExtM*qDk^2 - 2*N*M^-4*ExtM*qDp
  *qDpp - 2*N*M^-4*ExtM*qDp*kDp + 2*N*M^-4*ExtM*qDp*pDpp + 2*N*M^-4
  *ExtM*qDpp*kDpp + 4*N*M^-4*ExtM*qDpp*pDpp - 2*N*M^-4*ExtM*qDpp^2
   + 2*N*M^-4*ExtM*kDp*kDpp + 2*N*M^-4*ExtM*kDp^2 - 2*N*M^-4*ExtM*kDpp
  *pDpp - 2*N*M^-4*ExtM*pDpp^2 + 1/8*M^-4*m^2*ExtM*qDk + 1/8*M^-4*m^2
  *ExtM*qDp + 1/8*M^-4*m^2*ExtM*qDpp - 1/8*M^-4*m^2*ExtM*kDp
  - 1/8*M^-4*m^2*ExtM*kDpp - 1/8*M^-4*m^2*ExtM*pDpp + 3/2*M^-4*A1*qDk
  *kDp + 15/2*M^-4*A1*qDk*kDpp + 3/2*M^-4*A1*qDp*kDp + 7*M^-4*A1*qDp
  *kDpp + 11/2*M^-4*A1*qDpp*kDpp - 8*M^-4*A1*kDp*kDpp - 1/2*M^-4*A1
  *kDp^2 - 11/2*M^-4*A1*kDpp*pDpp - 13/2*M^-4*A1*kDpp^2 - 15/2*M^-4
  *A0*qDk*qDp + 27/2*M^-4*A0*qDk*kDp + 5*M^-4*A0*qDk*kDpp
  - 15/2*M^-4*A0*qDp*qDpp + 23/2*M^-4*A0*qDp*kDp + 4*M^-4*A0*qDp*kDpp
   - 15/2*M^-4*A0*qDp^2 + 27/2*M^-4*A0*qDpp*kDp + 5*M^-4*A0*qDpp*kDpp
   + M^-4*A0*kDp*kDpp + 2*M^-4*A0*kDp^2 - 7/2*M^-4*ExtM*qDk*qDp
  + 5*M^-4*ExtM*qDk*kDp + 7/2*M^-4*ExtM*qDk*kDpp - 7/2*M^-4*ExtM*qDk^2
   + 7/2*M^-4*ExtM*qDp*qDpp + 1/2*M^-4*ExtM*qDp*kDp - M^-4*ExtM*qDp
  *kDpp - 7/2*M^-4*ExtM*qDp*pDpp - 2*M^-4*ExtM*qDpp*kDp - 9/2*M^-4
  *ExtM*qDpp*kDpp - 7*M^-4*ExtM*qDpp*pDpp + 7/2*M^-4*ExtM*qDpp^2
  - 1/2*M^-4*ExtM*kDp*kDpp + 2*M^-4*ExtM*kDp*pDpp - 3/2*M^-4*ExtM*kDp^2
   + 9/2*M^-4*ExtM*kDpp*pDpp + 1/2*M^-4*ExtM*kDpp^2 + 7/2*M^-4*ExtM
  *pDpp^2 ) + 0.
 

Begin. Time 439 sec.

Terms in output 0
Running time 441 sec			Used	Maximum
Generated terms 0 	Input space 	1018 	100000
Equal terms 0     	Output space 	0 	250000
Cancellations 0   	Nr of expr.  	20 	255
Multiplications 0	String space 	7 	4096
Records written 119 	Merging		0 	0


End run. Time 441 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 19:14:01.  Memory: start 0001B84C, length 476348.


C WW-scattering 13. One loop W-W scattering, part 3. 447 sec.
  Uses output from 12. Produces BoxWW_comm, containing Wtot.

C One loop diagrams.
  Four point function. WW scattering.
  Evaluated in the limit m^2 >> s,t,u >> M^2, where m = Higgs boson
  mass and M = W boson mass.

> P ninput

Begin. Time 4 sec.
> P stats

Terms in output 2803
Running time 19 sec			Used	Maximum
Generated terms 2803 	Input space 	1928 	100000
Equal terms 0     	Output space 	88764 	250000
Cancellations 0   	Nr of expr.  	34 	255
Multiplications 41066	String space 	8 	4096
Records written 15 	Merging		0 	0


Terms out 2803, in 2803.

Terms in output 3039
Running time 33 sec			Used	Maximum
Generated terms 3995 	Input space 	2134 	100000
Equal terms 940     	Output space 	92658 	250000
Cancellations 16   	Nr of expr.  	39 	255
Multiplications 33502	String space 	8 	4096
Records written 20 	Merging		0 	0


Terms out 3039, in 3039.

Terms in output 1025
Running time 70 sec			Used	Maximum
Generated terms 6508 	Input space 	10916 	100000
Equal terms 4807     	Output space 	30448 	250000
Cancellations 676   	Nr of expr.  	79 	255
Multiplications 76835	String space 	8 	4096
Records written 25 	Merging		0 	0


Terms out 1025, in 1025.

Terms in output 1283
Running time 76 sec			Used	Maximum
Generated terms 1634 	Input space 	3780 	100000
Equal terms 318     	Output space 	37030 	250000
Cancellations 33   	Nr of expr.  	46 	255
Multiplications 7283	String space 	8 	4096
Records written 27 	Merging		0 	0


Terms out 1283, in 1283.

Terms in output 225
Running time 316 sec			Used	Maximum
Generated terms 2001 	Input space 	5542 	100000
Equal terms 1619     	Output space 	6346 	250000
Cancellations 157   	Nr of expr.  	66 	255
Multiplications 667349	String space 	27 	4096
Records written 29 	Merging		0 	0

 
BoxW(a,b,c,d,s,t,u) = 
 + D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 4*A3*s*u + 1/2*A3*s^2 - A3*u^2 + 1/4*A1*s*u - 7/8*A1*s*u*
 [Pi/Sqrt(3)-2] - 1/2*A1*s^2 - 1/8*A1*s^2*[Pi/Sqrt(3)-2] - 3/4*A1*u^2
   - 1/16*A1*u^2*[Pi/Sqrt(3)-2] + 1/4*A2*s*u - 7/8*A2*s*u*
 [Pi/Sqrt(3)-2] - 1/2*A2*s^2 - 1/8*A2*s^2*[Pi/Sqrt(3)-2] - 3/4*A2*u^2
   - 1/16*A2*u^2*[Pi/Sqrt(3)-2] + 23/96*A0*s*u - 7/4*A0*s*u*
 [Pi/Sqrt(3)-2] + 23/96*A0*s^2 - 7/4*A0*s^2*[Pi/Sqrt(3)-2]
  + 31/12*A0*u^2 - 1/8*A0*u^2*[Pi/Sqrt(3)-2] + 23/24*s*u + s*u*
 [Pi/Sqrt(3)-2] + 23/48*u^2 + 1/2*u^2*[Pi/Sqrt(3)-2] )
 
 + D(a,b)*D(c,d)*i*Pi^2*N_^-1*M2^-2
  * ( 4*A3*s*u - 1/2*A3*s^2 + A3*u^2 - 2*A1*s*u + 1/4*A1*s^2
  + 5/8*A1*u^2 - 2*A2*s*u + 1/4*A2*s^2 + 5/8*A2*u^2 - 4*A0*s*u
  - 4*A0*s^2 - 11/4*A0*u^2 + 5/6*s*u + 5/12*u^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( 1/32*gu*T1*u^2 + 1/32*gu*T2*u^2 - 3/32*gu*T3*u^2 + 1/32*gu*R5Z
  *u^2 + A3*s*u + A3*s^2 + 43/16*A3*u^2 - A1*s*u - 1/4*A1*s*u*
 [Pi/Sqrt(3)-2] - A1*s^2 - 1/4*A1*s^2*[Pi/Sqrt(3)-2] - 39/16*A1*u^2
   + 5/8*A1*u^2*[Pi/Sqrt(3)-2] - A2*s*u - 1/4*A2*s*u*
 [Pi/Sqrt(3)-2] - A2*s^2 - 1/4*A2*s^2*[Pi/Sqrt(3)-2] - 39/16*A2*u^2
   + 5/8*A2*u^2*[Pi/Sqrt(3)-2] - 11/72*A0*s*u - 11/72*A0*s^2
  - 11/72*A0*u^2 + 3/32*T1*u^2 + 3/32*T2*u^2 - 9/32*T3*u^2
  + 1/16*R1Z*u^2 + 9/32*R5Z*u^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*N_^-1*M2^-2
  * ( - 1/16*gu*T1*u^2 - 1/16*gu*T2*u^2 + 3/16*gu*T3*u^2 - 1/16*gu
  *R5Z*u^2 - 1/16*gu^2*R5Z*u^2 - A3*s*u - A3*s^2 - 11/4*A3*u^2
  + 1/2*A1*s*u + 1/2*A1*s^2 + 15/4*A1*u^2 + 1/2*A2*s*u + 1/2*A2*s^2
   + 15/4*A2*u^2 + 1/6*A0*s*u + 1/6*A0*s^2 + 1/6*A0*u^2 - 3/16*T1*u^2
   - 3/16*T2*u^2 + 9/16*T3*u^2 - 15/16*R5Z*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( 5*A3*s*u + 1/2*A3*s^2 + 7/2*A3*u^2 - 5/4*A1*s*u + 5/8*A1*s*u
  *[Pi/Sqrt(3)-2] - 1/2*A1*s^2 - 1/8*A1*s^2*[Pi/Sqrt(3)-2]
  - 3/2*A1*u^2 + 11/16*A1*u^2*[Pi/Sqrt(3)-2] - 5/4*A2*s*u
  + 5/8*A2*s*u*[Pi/Sqrt(3)-2] - 1/2*A2*s^2 - 1/8*A2*s^2*
 [Pi/Sqrt(3)-2] - 3/2*A2*u^2 + 11/16*A2*u^2*[Pi/Sqrt(3)-2]
  + 23/96*A0*s*u - 7/4*A0*s*u*[Pi/Sqrt(3)-2] + 23/96*A0*s^2
  - 7/4*A0*s^2*[Pi/Sqrt(3)-2] + 31/12*A0*u^2 - 1/8*A0*u^2*
 [Pi/Sqrt(3)-2] - 23/24*s*u - s*u*[Pi/Sqrt(3)-2] - 23/48*u^2
  - 1/2*u^2*[Pi/Sqrt(3)-2] )
 
 + D(a,d)*D(b,c)*i*Pi^2*N_^-1*M2^-2
  * ( - 5*A3*s*u - 1/2*A3*s^2 - 7/2*A3*u^2 + 5/2*A1*s*u + 1/4*A1*s^2
   + 23/8*A1*u^2 + 5/2*A2*s*u + 1/4*A2*s^2 + 23/8*A2*u^2 - 4*A0*s*u
   - 4*A0*s^2 - 11/4*A0*u^2 - 5/6*s*u - 5/12*u^2 )
 
 + Log(M2)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 7/8*A1*s*u - 1/8*A1*s^2 - 1/16*A1*u^2 - 7/8*A2*s*u
  - 1/8*A2*s^2 - 1/16*A2*u^2 - 7/4*A0*s*u - 7/4*A0*s^2 - 1/8*A0*u^2
   + s*u + 1/2*u^2 )
 
 + Log(M2)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/4*A1*s*u - 1/4*A1*s^2 + 5/8*A1*u^2 - 1/4*A2*s*u
  - 1/4*A2*s^2 + 5/8*A2*u^2 )
 
 + Log(M2)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( 5/8*A1*s*u - 1/8*A1*s^2 + 11/16*A1*u^2 + 5/8*A2*s*u
  - 1/8*A2*s^2 + 11/16*A2*u^2 - 7/4*A0*s*u - 7/4*A0*s^2 - 1/8*A0*u^2
   - s*u - 1/2*u^2 )
 
 + Log(m2)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/16*A0*s*u - 1/16*A0*s^2 - 1/16*A0*u^2 + 1/12*s*u
  + 1/24*u^2 )
 
 + Log(m2)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/32*gu*T1*u^2 - 1/32*gu*T2*u^2 + 3/32*gu*T3*u^2 - 1/32*gu
  *R5Z*u^2 - 1/32*gu^2*R5Z*u^2 - 1/32*A3*u^2 + 1/16*A1*u^2
  + 1/16*A2*u^2 + 1/12*A0*s*u + 1/12*A0*s^2 + 1/12*A0*u^2
  - 3/32*T1*u^2 - 3/32*T2*u^2 + 9/32*T3*u^2 - 1/16*R1Z*u^2
  - 3/8*R5Z*u^2 )
 
 + Log(m2)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/16*A0*s*u - 1/16*A0*s^2 - 1/16*A0*u^2 - 1/12*s*u
  - 1/24*u^2 )
 
 + Log(s)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( 19/32*A0*s*u - 3/32*A0*s^2 - 1/4*A0*u^2 )
 
 + Log(s)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( 19/32*A0*s*u - 3/32*A0*s^2 - 1/4*A0*u^2 )
 
 + Log(t)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 25/32*A0*s*u - 3/32*A0*s^2 - 15/16*A0*u^2 )
 
 + Log(t)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 25/32*A0*s*u - 3/32*A0*s^2 - 15/16*A0*u^2 )
 
 + Log(u)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( 2*A3*s*u - 1/4*A3*s^2 + 1/2*A3*u^2 - 1/8*A1*s*u + 1/4*A1*s^2
   + 3/8*A1*u^2 - 1/8*A2*s*u + 1/4*A2*s^2 + 3/8*A2*u^2 - 2/3*s*u
  - 1/3*u^2 )
 
 + Log(u)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/2*A3*s*u - 1/2*A3*s^2 - 43/32*A3*u^2 + 1/2*A1*s*u
  + 1/2*A1*s^2 + 19/16*A1*u^2 + 1/2*A2*s*u + 1/2*A2*s^2 + 19/16*A2
  *u^2 + 1/16*R1Z*u^2 - 3/32*R5Z*u^2 )
 
 + Log(u)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 5/2*A3*s*u - 1/4*A3*s^2 - 7/4*A3*u^2 + 5/8*A1*s*u
  + 1/4*A1*s^2 + 3/4*A1*u^2 + 5/8*A2*s*u + 1/4*A2*s^2 + 3/4*A2*u^2
   + 2/3*s*u + 1/3*u^2 ) + 0.
 
> P input
C Add further diagrams, obtained by crossing. Set labels A0-A3 to 1.

	Common WTot
	Delete BoxWW

	Z WTot=BoxW(a,b,c,d,s,t,u) + BoxW(a,c,b,d,u,t,s) + BoxW(a,b,d,c,s,u,t)

	B i,Pi,N_,M2
L 2	Id,A0=1
L 2	Al,A1=1
L 2	Al,A2=1
L 2	Al,A3=1
L 2	Al,R1=1
L 2	Al,R2=1
L 2	Al,R3=1
L 2	Al,R3a=1
L 2	Al,R3b=1
L 2	Al,R4=1
L 2	Al,R4a=1
L 2	Al,R4b=1
L 2	Al,R5=1
L 2	Al,R6=1
L 2	Al,T1=1
L 2	Al,T2=1
L 2	Al,T3=1
L 3	IF D(a,c)
L 4	Id,t=-s-u
	ENDIF
L 5	IF D(a,b)
L 6	Id,u=-s-t
	ENDIF
L 7	IF D(a,d)
L 8	Id,s=-t-u
	ENDIF
> P output
	*yep

Terms in output 81
Running time 318 sec			Used	Maximum
Generated terms 1201 	Input space 	5604 	103496
Equal terms 1050     	Output space 	2658 	246504
Cancellations 70   	Nr of expr.  	44 	255
Multiplications 5266	String space 	27 	4096
Records written 29 	Merging		0 	0

 
WTot = 
 + D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( 1/32*gu*R5Z*s^2 - 1/32*gu*s^2 + 1/16*R1Z*s^2 + 9/32*R5Z*s^2
  - 1/36*s*t - 13/144*s^2 - 1/36*t^2 )
 
 + D(a,b)*D(c,d)*i*Pi^2*N_^-1*M2^-2
  * ( - 1/16*gu*R5Z*s^2 + 1/16*gu*s^2 - 1/16*gu^2*R5Z*s^2
  - 15/16*R5Z*s^2 + 3/16*s^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( 1/32*gu*R5Z*u^2 - 1/32*gu*u^2 + 1/16*R1Z*u^2 + 9/32*R5Z*u^2
  - 1/36*s*u - 1/36*s^2 - 13/144*u^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*N_^-1*M2^-2
  * ( - 1/16*gu*R5Z*u^2 + 1/16*gu*u^2 - 1/16*gu^2*R5Z*u^2
  - 15/16*R5Z*u^2 + 3/16*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( 1/32*gu*R5Z*t^2 - 1/32*gu*t^2 + 1/16*R1Z*t^2 + 9/32*R5Z*t^2
  - 1/36*t*u - 13/144*t^2 - 1/36*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*N_^-1*M2^-2
  * ( - 1/16*gu*R5Z*t^2 + 1/16*gu*t^2 - 1/16*gu^2*R5Z*t^2
  - 15/16*R5Z*t^2 + 3/16*t^2 )
 
 + Log(m2)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/32*gu*R5Z*s^2 + 1/32*gu*s^2 - 1/32*gu^2*R5Z*s^2
  - 1/16*R1Z*s^2 - 3/8*R5Z*s^2 + 1/24*s*t + 5/48*s^2 + 1/24*t^2 )
 
 + Log(m2)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/32*gu*R5Z*u^2 + 1/32*gu*u^2 - 1/32*gu^2*R5Z*u^2
  - 1/16*R1Z*u^2 - 3/8*R5Z*u^2 + 1/24*s*u + 1/24*s^2 + 5/48*u^2 )
 
 + Log(m2)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/32*gu*R5Z*t^2 + 1/32*gu*t^2 - 1/32*gu^2*R5Z*t^2
  - 1/16*R1Z*t^2 - 3/8*R5Z*t^2 + 1/24*t*u + 5/48*t^2 + 1/24*u^2 )
 
 + Log(s)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( 1/16*R1Z*s^2 - 3/32*R5Z*s^2 )
 
 + Log(s)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/96*s*u - 1/48*s^2 )
 
 + Log(s)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/32*t*u - 1/96*t^2 - 1/48*u^2 )
 
 + Log(t)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/96*s*t - 1/48*t^2 )
 
 + Log(t)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/32*s*u - 1/48*s^2 - 1/96*u^2 )
 
 + Log(t)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( 1/16*R1Z*t^2 - 3/32*R5Z*t^2 )
 
 + Log(u)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/32*s*t - 1/96*s^2 - 1/48*t^2 )
 
 + Log(u)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( 1/16*R1Z*u^2 - 3/32*R5Z*u^2 )
 
 + Log(u)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/96*t*u - 1/48*u^2 ) + 0.
 

L 1	Id,R1Z=1
L 1	Al,R5Z=1

	*begin

Terms out 81, in 81.

Terms in output 45
Running time 319 sec			Used	Maximum
Generated terms 81 	Input space 	4648 	103496
Equal terms 27     	Output space 	1758 	246504
Cancellations 9   	Nr of expr.  	24 	255
Multiplications 234	String space 	27 	4096
Records written 29 	Merging		0 	0

 
WTot = 
 + D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/36*s*t + 73/288*s^2 - 1/36*t^2 )
 
 + D(a,b)*D(c,d)*i*Pi^2*N_^-1*M2^-2
  * ( - 1/16*gu^2*s^2 - 3/4*s^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/36*s*u - 1/36*s^2 + 73/288*u^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*N_^-1*M2^-2
  * ( - 1/16*gu^2*u^2 - 3/4*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/36*t*u + 73/288*t^2 - 1/36*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*N_^-1*M2^-2
  * ( - 1/16*gu^2*t^2 - 3/4*t^2 )
 
 + Log(m2)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/32*gu^2*s^2 + 1/24*s*t - 1/3*s^2 + 1/24*t^2 )
 
 + Log(m2)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/32*gu^2*u^2 + 1/24*s*u + 1/24*s^2 - 1/3*u^2 )
 
 + Log(m2)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/32*gu^2*t^2 + 1/24*t*u - 1/3*t^2 + 1/24*u^2 )
 
 + Log(s)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/32*s^2 )
 
 + Log(s)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/96*s*u - 1/48*s^2 )
 
 + Log(s)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/32*t*u - 1/96*t^2 - 1/48*u^2 )
 
 + Log(t)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/96*s*t - 1/48*t^2 )
 
 + Log(t)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/32*s*u - 1/48*s^2 - 1/96*u^2 )
 
 + Log(t)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/32*t^2 )
 
 + Log(u)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/32*s*t - 1/96*s^2 - 1/48*t^2 )
 
 + Log(u)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/32*u^2 )
 
 + Log(u)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/96*t*u - 1/48*u^2 ) + 0.
 

Begin. Time 320 sec.
	Write BoxWW_comm
	*end

Terms in output 0
Running time 320 sec			Used	Maximum
Generated terms 0 	Input space 	1018 	100000
Equal terms 0     	Output space 	0 	246504
Cancellations 0   	Nr of expr.  	20 	255
Multiplications 0	String space 	26 	4096
Records written 37 	Merging		0 	0


End run. Time 320 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 19:19:23.  Memory: start 0001B84C, length 476348.


C WW-scattering 14. W-W Renormalization. Result W-W amplitude.
  Uses output from 14.

C Subtraction terms four-W amplitude.

> P ninput

Begin. Time 3 sec.
 
RenWW4 = 
 + D(a,b)*D(c,d)*i*Pi^2
  * ( - 1/12*M^-4*s*u*Logm2 - 5/6*M^-4*s*u*N_^-1 + 1/24*M^-4*s^2*Logm2
   + 5/12*M^-4*s^2*N_^-1 - 1/12*M^-4*u^2*Logm2 - 5/6*M^-4*u^2*N_^-1 )
 
 + D(a,c)*D(b,d)*i*Pi^2
  * ( - 1/12*M^-4*s*u*Logm2 - 5/6*M^-4*s*u*N_^-1 - 1/12*M^-4*s^2*Logm2
   - 5/6*M^-4*s^2*N_^-1 + 1/24*M^-4*u^2*Logm2 + 5/12*M^-4*u^2*N_^-1 )
 
 + D(a,d)*D(b,c)*i*Pi^2
  * ( 1/6*M^-4*s*u*Logm2 + 5/3*M^-4*s*u*N_^-1 + 1/24*M^-4*s^2*Logm2
   + 5/12*M^-4*s^2*N_^-1 + 1/24*M^-4*u^2*Logm2 + 5/12*M^-4*u^2*N_^-1 )
 
RenWWr(a,b,c,d,s,t,u) = 
 + D(a,b)*D(c,d)*i*Pi^2
  * ( - 7/3*M^-4*s*u*N_^-1*R3 + 19/6*M^-4*s*u*N_^-1*R5W + 1/8*M^-4
  *s*u*R3*Logm2 - 1/24*M^-4*s*u*R5W*Logm2 - 7/6*M^-4*u^2*N_^-1*R3
  + 19/12*M^-4*u^2*N_^-1*R5W + 1/16*M^-4*u^2*R3*Logm2 - 1/48*M^-4*u^2
  *R5W*Logm2 )
 
 + D(a,c)*D(b,d)*i*Pi^2
  * ( 3/16*M^-4*u^2*N_^-1*gu*T3 - 1/16*M^-4*u^2*N_^-1*gu*T1
  - 1/16*M^-4*u^2*N_^-1*gu*T2 - 1/16*M^-4*u^2*N_^-1*gu*R5Z
  - 1/16*M^-4*u^2*N_^-1*gu^2*R5Z + 9/16*M^-4*u^2*N_^-1*T3
  - 3/16*M^-4*u^2*N_^-1*T1 - 3/16*M^-4*u^2*N_^-1*T2 - 15/16*M^-4*u^2
  *N_^-1*R5Z - 3/32*M^-4*u^2*gu*T3 + 3/32*M^-4*u^2*gu*T3*Logm2
  + 1/32*M^-4*u^2*gu*T1 - 1/32*M^-4*u^2*gu*T1*Logm2 + 1/32*M^-4*u^2
  *gu*T2 - 1/32*M^-4*u^2*gu*T2*Logm2 + 1/32*M^-4*u^2*gu*R5Z
  - 1/32*M^-4*u^2*gu*R5Z*Logm2 - 1/32*M^-4*u^2*gu^2*
 [Pi/Sqrt(3)-2]*R5Z - 1/32*M^-4*u^2*gu^2*R5Z*Logm2 + 1/16*M^-4*u^2
  *R3 - 9/32*M^-4*u^2*T3 + 9/32*M^-4*u^2*T3*Logm2 + 3/32*M^-4*u^2*T1
   - 3/32*M^-4*u^2*T1*Logm2 + 3/32*M^-4*u^2*T2 - 3/32*M^-4*u^2*T2*Logm2
   - 9/32*M^-4*u^2*[Pi/Sqrt(3)-2]*R5Z + 1/4*M^-4*u^2*R5Z - 15/32*M^-4
  *u^2*R5Z*Logm2 )
 
 + D(a,d)*D(b,c)*i*Pi^2
  * ( 7/3*M^-4*s*u*N_^-1*R3 - 19/6*M^-4*s*u*N_^-1*R5W - 1/8*M^-4*s
  *u*R3*Logm2 + 1/24*M^-4*s*u*R5W*Logm2 + 7/6*M^-4*u^2*N_^-1*R3
  - 19/12*M^-4*u^2*N_^-1*R5W - 1/16*M^-4*u^2*R3*Logm2 + 1/48*M^-4*u^2
  *R5W*Logm2 ) + 0.
 
 
RenWWt = 
 + D(a,b)*D(c,d)*i*Pi^2*M^-4
  * ( 7/32*s^2 - 3/8*s^2*Logm2 - 1/32*s^2*gu^2*Logm2 - 1/32*s^2*gu^2
  *[Pi/Sqrt(3)-2] - 9/32*s^2*[Pi/Sqrt(3)-2] )
 
 + D(a,b)*D(c,d)*i*Pi^2*N_^-1*M^-4
  * ( - 3/4*s^2 - 1/16*s^2*gu^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( 7/32*u^2 - 3/8*u^2*Logm2 - 1/32*u^2*gu^2*Logm2 - 1/32*u^2*gu^2
  *[Pi/Sqrt(3)-2] - 9/32*u^2*[Pi/Sqrt(3)-2] )
 
 + D(a,c)*D(b,d)*i*Pi^2*N_^-1*M^-4
  * ( - 3/4*u^2 - 1/16*u^2*gu^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M^-4
  * ( 7/32*t^2 - 3/8*t^2*Logm2 - 1/32*t^2*gu^2*Logm2 - 1/32*t^2*gu^2
  *[Pi/Sqrt(3)-2] - 9/32*t^2*[Pi/Sqrt(3)-2] )
 
 + D(a,d)*D(b,c)*i*Pi^2*N_^-1*M^-4
  * ( - 3/4*t^2 - 1/16*t^2*gu^2 ) + 0.
 
> P input
C Renormalized WWWW (all longitudinal) amplitude.

	Z RenW = WTot - RenWWt

	B i,Pi,N_,M2,M
L 2	Id,Multi,M2^n~=M^(2*n)
L 2	Al,Logm2=Log(m2)
L 4	Id,Log(s)=Log(s,m2)+Log(m2)
L 4	Al,Log(t)=Log(t,m2)+Log(m2)
L 4	Al,Log(u)=Log(u,m2)+Log(m2)

> P output
	*yep
 
RenW = 
 + D(a,b)*D(c,d)*i*Pi^2*M^-4
  * ( - 1/36*s*t + 5/144*s^2 + 1/32*s^2*gu^2*[Pi/Sqrt(3)-2]
  + 9/32*s^2*[Pi/Sqrt(3)-2] - 1/36*t^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( - 1/36*s*u - 1/36*s^2 + 5/144*u^2 + 1/32*u^2*gu^2*
 [Pi/Sqrt(3)-2] + 9/32*u^2*[Pi/Sqrt(3)-2] )
 
 + D(a,d)*D(b,c)*i*Pi^2*M^-4
  * ( - 1/36*t*u + 5/144*t^2 + 1/32*t^2*gu^2*[Pi/Sqrt(3)-2]
  + 9/32*t^2*[Pi/Sqrt(3)-2] - 1/36*u^2 )
 
 + Log(s,m2)*D(a,b)*D(c,d)*i*Pi^2*M^-4
  * ( - 1/32*s^2 )
 
 + Log(s,m2)*D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( - 1/96*s*u - 1/48*s^2 )
 
 + Log(s,m2)*D(a,d)*D(b,c)*i*Pi^2*M^-4
  * ( - 1/32*t*u - 1/96*t^2 - 1/48*u^2 )
 
 + Log(t,m2)*D(a,b)*D(c,d)*i*Pi^2*M^-4
  * ( - 1/96*s*t - 1/48*t^2 )
 
 + Log(t,m2)*D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( - 1/32*s*u - 1/48*s^2 - 1/96*u^2 )
 
 + Log(t,m2)*D(a,d)*D(b,c)*i*Pi^2*M^-4
  * ( - 1/32*t^2 )
 
 + Log(u,m2)*D(a,b)*D(c,d)*i*Pi^2*M^-4
  * ( - 1/32*s*t - 1/96*s^2 - 1/48*t^2 )
 
 + Log(u,m2)*D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( - 1/32*u^2 )
 
 + Log(u,m2)*D(a,d)*D(b,c)*i*Pi^2*M^-4
  * ( - 1/96*t*u - 1/48*u^2 ) + 0.
 
C Specialize, for computimg purposes, to index a=b, c=d, a not c.

L 1	IF NOT D(a,b)=1
L 2	Id,Addfa,0
	ENDIF
L 3	Id,D(c,d)=1

	*end
 
RenW = 
 + i*Pi^2*M^-4
  * ( - 1/36*s*t + 5/144*s^2 + 1/32*s^2*gu^2*[Pi/Sqrt(3)-2]
  + 9/32*s^2*[Pi/Sqrt(3)-2] - 1/36*t^2 )
 
 + Log(s,m2)*i*Pi^2*M^-4
  * ( - 1/32*s^2 )
 
 + Log(t,m2)*i*Pi^2*M^-4
  * ( - 1/96*s*t - 1/48*t^2 )
 
 + Log(u,m2)*i*Pi^2*M^-4
  * ( - 1/32*s*t - 1/96*s^2 - 1/48*t^2 ) + 0.
 

End run. Time 22 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 19:19:48.  Memory: start 0001B84C, length 476348.


C WW-scattering 15. Verification of part of WW scattering calculation.
  Uses output from 11.

C Cross.e: demonstrates that the part labelled with 'Error' in file
  BoxWW1 is zero.
  This requires addition of the crossed pieces and working out of the
  three point functions.
  The block CCCP contains expressions for the C-functions as needed
  for the purposes here. Block CCC is somewhat more detailed.

> P ninput

Begin. Time 2 sec.
> P stats

Terms in output 58
Running time 4 sec			Used	Maximum
Generated terms 58 	Input space 	596 	100000
Equal terms 0     	Output space 	2268 	250000
Cancellations 0   	Nr of expr.  	15 	255
Multiplications 9593	String space 	0 	4096
Records written 4 	Merging		0 	0

 
BoxW(a,k,b,p,c,pp,d,kp,s,t,u,q1,q2,q3,q4) = 
 + NOM(q,M)*NOM(q1,M)*NOM(q3,M)*D(a,b)*D(c,d)
  * ( - 2*M^-4*A0*kDp*kDpp*ppDq + M^-4*A0*kDp*kDpp^2 + M^-4*A0*kDp
  *ppDq^2 - M^-4*A0*kDp^3 )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q3,M)*D(a,d)*D(b,c)
  * ( - 2*M^-4*A0*kDp*kDpp*ppDq + M^-4*A0*kDp*kDpp^2 + M^-4*A0*kDp
  *ppDq^2 - M^-4*A0*kDp^3 )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q2,M)*D(a,b)*D(c,d)
  * ( - 4*M^-4*A0*kDp*kDpp*kDq - M^-4*A0*kDp*kDq^2 - 2*M^-4*A0*kDp^2
  *kDq - M^-4*A0*kDpp*kDq^2 - 2*M^-4*A0*kDpp^2*kDq )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q2,M)*D(a,d)*D(b,c)
  * ( - 4*M^-4*A0*kDp*kDpp*kDq - M^-4*A0*kDp*kDq^2 - 2*M^-4*A0*kDp^2
  *kDq - M^-4*A0*kDpp*kDq^2 - 2*M^-4*A0*kDpp^2*kDq )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q4,M)*D(a,b)*D(c,d)
  * ( - M^-4*A1*kDpp*kDq^2 + 4*M^-4*A1*kDpp^2*kDq - M^-4*A1*kDpp^3
   - 2*M^-4*kDpp^2*kDq + M^-4*kDpp^3 )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q4,M)*D(a,c)*D(b,d)
  * ( - 2*M^-4*A1*kDpp*kDq^2 + 2*M^-4*A1*kDpp^2*kDq + M^-4*A1*kDpp^3 )
 
 + NOM(q,M)*NOM(q1,M)*NOM(q4,M)*D(a,d)*D(b,c)
  * ( - M^-4*A1*kDpp*kDq^2 - 2*M^-4*A1*kDpp^2*kDq + 2*M^-4*A1*kDpp^3
   + 2*M^-4*kDpp^2*kDq - M^-4*kDpp^3 )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q2,M)*D(a,b)*D(c,d)
  * ( 4*M^-4*A0*kDp*kDpp*pDq - M^-4*A0*kDp*pDq^2 + 2*M^-4*A0*kDp^2
  *pDq - M^-4*A0*kDpp*pDq^2 + 2*M^-4*A0*kDpp^2*pDq )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q2,M)*D(a,d)*D(b,c)
  * ( 4*M^-4*A0*kDp*kDpp*pDq - M^-4*A0*kDp*pDq^2 + 2*M^-4*A0*kDp^2
  *pDq - M^-4*A0*kDpp*pDq^2 + 2*M^-4*A0*kDpp^2*pDq )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q4,M)*D(a,b)*D(c,d)
  * ( - M^-4*A2*kDpp*pDq^2 - 4*M^-4*A2*kDpp^2*pDq - M^-4*A2*kDpp^3
   + 2*M^-4*kDpp^2*pDq + M^-4*kDpp^3 )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q4,M)*D(a,c)*D(b,d)
  * ( - 2*M^-4*A2*kDpp*pDq^2 - 2*M^-4*A2*kDpp^2*pDq + M^-4*A2*kDpp^3 )
 
 + NOM(q,M)*NOM(q3,M)*NOM(q4,M)*D(a,d)*D(b,c)
  * ( - M^-4*A2*kDpp*pDq^2 + 2*M^-4*A2*kDpp^2*pDq + 2*M^-4*A2*kDpp^3
   - 2*M^-4*kDpp^2*pDq - M^-4*kDpp^3 )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q2,M)*D(a,b)*D(c,d)
  * ( M^-4*A0*kDp*pDq^2 - 2*M^-4*A0*kDp^2*pDq )
 
 + NOM(q1,M)*NOM(q3,M)*NOM(q2,M)*D(a,d)*D(b,c)
  * ( M^-4*A0*kDp*pDq^2 - 2*M^-4*A0*kDp^2*pDq ) + 0.
 

Terms in output 173
Running time 5 sec			Used	Maximum
Generated terms 174 	Input space 	2100 	101756
Equal terms 1     	Output space 	6250 	248244
Cancellations 0   	Nr of expr.  	11 	255
Multiplications 525	String space 	0 	4096
Records written 4 	Merging		0 	0

> P output

Terms out 173, in 173.

Terms in output 339
Running time 6 sec			Used	Maximum
Generated terms 733 	Input space 	3648 	101756
Equal terms 342     	Output space 	9508 	248244
Cancellations 52   	Nr of expr.  	34 	255
Multiplications 3088	String space 	0 	4096
Records written 4 	Merging		0 	0

 
Box = 
 + Three(k,p,s)*D(a,b)*D(c,d)*M^-4
  * ( - 2*A2*kDp*ppDq^2 + 2*A2*kDp^2*ppDq + A2*kDp^3 + 2*A0*kDp*kDq
  *pDq + 2*A0*kDp*kDq*ppDq + A0*kDp*kDq^2 + 2*A0*kDp*pDq*ppDq
  + A0*kDp*pDq^2 + 2*A0*kDp*ppDq^2 - 2*A0*kDp^3 )
 
 + Three(k,p,s)*D(a,c)*D(b,d)*M^-4
  * ( - A2*kDp*ppDq^2 + 4*A2*kDp^2*ppDq - A2*kDp^3 + 2*A0*kDp*kDq*pDq
   + 2*A0*kDp*kDq*ppDq + A0*kDp*kDq^2 + 2*A0*kDp*pDq*ppDq
  + A0*kDp*pDq^2 + A0*kDp*ppDq^2 - A0*kDp^3 - 2*kDp^2*ppDq
  + kDp^3 )
 
 + Three(k,p,s)*D(a,d)*D(b,c)*M^-4
  * ( - A2*kDp*ppDq^2 - 2*A2*kDp^2*ppDq + 2*A2*kDp^3 + A0*kDp*ppDq^2
   - A0*kDp^3 + 2*kDp^2*ppDq - kDp^3 )
 
 + Three(k,pp,u)*D(a,b)*D(c,d)*M^-4
  * ( - A2*kDpp*pDq^2 + 4*A2*kDpp^2*pDq - A2*kDpp^3 - 4*A0*kDk*kDpp
  *pDq + A0*kDk*pDq^2 - 2*A0*kDk^2*pDq + A0*kDpp*pDq^2 - 2*A0*kDpp^2
  *pDq - 2*kDpp^2*pDq + kDpp^3 )
 
 + Three(k,pp,u)*D(a,c)*D(b,d)*M^-4
  * ( - 2*A2*kDpp*pDq^2 + 2*A2*kDpp^2*pDq + A2*kDpp^3 - 4*A0*kDk*kDpp
  *pDq + A0*kDk*pDq^2 - 2*A0*kDk^2*pDq + 2*A0*kDpp*pDq^2 - 2*A0*kDpp^2
  *pDq - A0*kDpp^3 )
 
 + Three(k,pp,u)*D(a,d)*D(b,c)*M^-4
  * ( - A2*kDpp*pDq^2 - 2*A2*kDpp^2*pDq + 2*A2*kDpp^3 + A0*kDpp*pDq^2
   - A0*kDpp^3 + 2*kDpp^2*pDq - kDpp^3 )
 
 + Three(k,kp,t)*D(a,b)*D(c,d)*M^-4
  * ( 6*A2*kDk*kDp*kDpp + 8*A2*kDk*kDp*pDq + 3*A2*kDk*kDp^2
  + 8*A2*kDk*kDpp*pDq + 3*A2*kDk*kDpp^2 + A2*kDk*pDq^2 + 3*A2*kDk^2
  *kDp + 3*A2*kDk^2*kDpp + 4*A2*kDk^2*pDq + A2*kDk^3 + 8*A2*kDp*kDpp
  *pDq + 3*A2*kDp*kDpp^2 + A2*kDp*pDq^2 + 3*A2*kDp^2*kDpp
  + 4*A2*kDp^2*pDq + A2*kDp^3 + A2*kDpp*pDq^2 + 4*A2*kDpp^2*pDq
  + A2*kDpp^3 - 4*A0*kDp*kDpp*pDq - A0*kDp*pDq^2 - 2*A0*kDp^2*pDq
  - A0*kDpp*pDq^2 - 2*A0*kDpp^2*pDq - 6*kDk*kDp*kDpp - 4*kDk*kDp*pDq
   - 3*kDk*kDp^2 - 4*kDk*kDpp*pDq - 3*kDk*kDpp^2 - 3*kDk^2*kDp
  - 3*kDk^2*kDpp - 2*kDk^2*pDq - kDk^3 - 4*kDp*kDpp*pDq - 3*kDp*kDpp^2
   - 3*kDp^2*kDpp - 2*kDp^2*pDq - kDp^3 - 2*kDpp^2*pDq - kDpp^3 )
 
 + Three(k,kp,t)*D(a,c)*D(b,d)*M^-4
  * ( - 12*A2*kDk*kDp*kDpp - 4*A2*kDk*kDp*pDq - 6*A2*kDk*kDp^2
  - 4*A2*kDk*kDpp*pDq - 6*A2*kDk*kDpp^2 + A2*kDk*pDq^2 - 6*A2*kDk^2
  *kDp - 6*A2*kDk^2*kDpp - 2*A2*kDk^2*pDq - 2*A2*kDk^3 - 4*A2*kDp*kDpp
  *pDq - 6*A2*kDp*kDpp^2 + A2*kDp*pDq^2 - 6*A2*kDp^2*kDpp
  - 2*A2*kDp^2*pDq - 2*A2*kDp^3 + A2*kDpp*pDq^2 - 2*A2*kDpp^2*pDq
  - 2*A2*kDpp^3 - 4*A0*kDp*kDpp*ppDq - A0*kDp*ppDq^2 - 2*A0*kDp^2*ppDq
   - A0*kDpp*ppDq^2 - 2*A0*kDpp^2*ppDq + 6*kDk*kDp*kDpp + 4*kDk*kDp
  *pDq + 3*kDk*kDp^2 + 4*kDk*kDpp*pDq + 3*kDk*kDpp^2 + 3*kDk^2*kDp
   + 3*kDk^2*kDpp + 2*kDk^2*pDq + kDk^3 + 4*kDp*kDpp*pDq + 3*kDp*kDpp^2
   + 3*kDp^2*kDpp + 2*kDp^2*pDq + kDp^3 + 2*kDpp^2*pDq + kDpp^3 )
 
 + Three(k,kp,t)*D(a,d)*D(b,c)*M^-4
  * ( - 6*A2*kDk*kDp*kDpp + 4*A2*kDk*kDp*pDq - 3*A2*kDk*kDp^2
  + 4*A2*kDk*kDpp*pDq - 3*A2*kDk*kDpp^2 + 2*A2*kDk*pDq^2 - 3*A2*kDk^2
  *kDp - 3*A2*kDk^2*kDpp + 2*A2*kDk^2*pDq - A2*kDk^3 + 4*A2*kDp*kDpp
  *pDq - 3*A2*kDp*kDpp^2 + 2*A2*kDp*pDq^2 - 3*A2*kDp^2*kDpp
  + 2*A2*kDp^2*pDq - A2*kDp^3 + 2*A2*kDpp*pDq^2 + 2*A2*kDpp^2*pDq
  - A2*kDpp^3 - 4*A0*kDp*kDpp*pDq - 4*A0*kDp*kDpp*ppDq - A0*kDp*pDq^2
   - A0*kDp*ppDq^2 - 2*A0*kDp^2*pDq - 2*A0*kDp^2*ppDq - A0*kDpp*pDq^2
   - A0*kDpp*ppDq^2 - 2*A0*kDpp^2*pDq - 2*A0*kDpp^2*ppDq )
 
 + Three(p,pp,t)*D(a,b)*D(c,d)*M^-4
  * ( 6*A1*kDk*kDp*kDpp + 8*A1*kDk*kDp*kDq + 3*A1*kDk*kDp^2
  + 8*A1*kDk*kDpp*kDq + 3*A1*kDk*kDpp^2 + A1*kDk*kDq^2 + 3*A1*kDk^2
  *kDp + 3*A1*kDk^2*kDpp + 4*A1*kDk^2*kDq + A1*kDk^3 + 8*A1*kDp*kDpp
  *kDq + 3*A1*kDp*kDpp^2 + A1*kDp*kDq^2 + 3*A1*kDp^2*kDpp
  + 4*A1*kDp^2*kDq + A1*kDp^3 + A1*kDpp*kDq^2 + 4*A1*kDpp^2*kDq
  + A1*kDpp^3 - 4*A0*kDp*kDpp*kDq - A0*kDp*kDq^2 - 2*A0*kDp^2*kDq
  - A0*kDpp*kDq^2 - 2*A0*kDpp^2*kDq - 6*kDk*kDp*kDpp - 4*kDk*kDp*kDq
   - 3*kDk*kDp^2 - 4*kDk*kDpp*kDq - 3*kDk*kDpp^2 - 3*kDk^2*kDp
  - 3*kDk^2*kDpp - 2*kDk^2*kDq - kDk^3 - 4*kDp*kDpp*kDq - 3*kDp*kDpp^2
   - 3*kDp^2*kDpp - 2*kDp^2*kDq - kDp^3 - 2*kDpp^2*kDq - kDpp^3 )
 
 + Three(p,pp,t)*D(a,c)*D(b,d)*M^-4
  * ( - 12*A1*kDk*kDp*kDpp - 4*A1*kDk*kDp*kDq - 6*A1*kDk*kDp^2
  - 4*A1*kDk*kDpp*kDq - 6*A1*kDk*kDpp^2 + A1*kDk*kDq^2 - 6*A1*kDk^2
  *kDp - 6*A1*kDk^2*kDpp - 2*A1*kDk^2*kDq - 2*A1*kDk^3 - 4*A1*kDp*kDpp
  *kDq - 6*A1*kDp*kDpp^2 + A1*kDp*kDq^2 - 6*A1*kDp^2*kDpp
  - 2*A1*kDp^2*kDq - 2*A1*kDp^3 + A1*kDpp*kDq^2 - 2*A1*kDpp^2*kDq
  - 2*A1*kDpp^3 + 6*kDk*kDp*kDpp + 4*kDk*kDp*kDq + 3*kDk*kDp^2
  + 4*kDk*kDpp*kDq + 3*kDk*kDpp^2 + 3*kDk^2*kDp + 3*kDk^2*kDpp
  + 2*kDk^2*kDq + kDk^3 + 4*kDp*kDpp*kDq + 3*kDp*kDpp^2 + 3*kDp^2*kDpp
   + 2*kDp^2*kDq + kDp^3 + 2*kDpp^2*kDq + kDpp^3 )
 
 + Three(p,pp,t)*D(a,d)*D(b,c)*M^-4
  * ( - 6*A1*kDk*kDp*kDpp + 4*A1*kDk*kDp*kDq - 3*A1*kDk*kDp^2
  + 4*A1*kDk*kDpp*kDq - 3*A1*kDk*kDpp^2 + 2*A1*kDk*kDq^2 - 3*A1*kDk^2
  *kDp - 3*A1*kDk^2*kDpp + 2*A1*kDk^2*kDq - A1*kDk^3 + 4*A1*kDp*kDpp
  *kDq - 3*A1*kDp*kDpp^2 + 2*A1*kDp*kDq^2 - 3*A1*kDp^2*kDpp
  + 2*A1*kDp^2*kDq - A1*kDp^3 + 2*A1*kDpp*kDq^2 + 2*A1*kDpp^2*kDq
  - A1*kDpp^3 - 4*A0*kDp*kDpp*kDq - A0*kDp*kDq^2 - 2*A0*kDp^2*kDq
  - A0*kDpp*kDq^2 - 2*A0*kDpp^2*kDq )
 
 + Three(p,kp,u)*D(a,b)*D(c,d)*M^-4
  * ( - A1*kDpp*kDq^2 + 4*A1*kDpp^2*kDq - A1*kDpp^3 - 4*A0*kDk*kDpp
  *kDq + A0*kDk*kDq^2 - 2*A0*kDk^2*kDq + A0*kDpp*kDq^2 - 2*A0*kDpp^2
  *kDq - 2*kDpp^2*kDq + kDpp^3 )
 
 + Three(p,kp,u)*D(a,c)*D(b,d)*M^-4
  * ( - 2*A1*kDpp*kDq^2 + 2*A1*kDpp^2*kDq + A1*kDpp^3 - 4*A0*kDk*kDpp
  *kDq + A0*kDk*kDq^2 - 2*A0*kDk^2*kDq + A0*kDpp*kDq^2 - 2*A0*kDpp
  *ppDpp*ppDq + A0*kDpp*ppDpp^2 + A0*kDpp*ppDq^2 - 2*A0*kDpp^2*kDq
   + 2*A0*kDpp^2*ppDpp - 2*A0*kDpp^2*ppDq )
 
 + Three(p,kp,u)*D(a,d)*D(b,c)*M^-4
  * ( - A1*kDpp*kDq^2 - 2*A1*kDpp^2*kDq + 2*A1*kDpp^3 - 2*A0*kDpp*ppDpp
  *ppDq + A0*kDpp*ppDpp^2 + A0*kDpp*ppDq^2 + 2*A0*kDpp^2*ppDpp
  - 2*A0*kDpp^2*ppDq + 2*kDpp^2*kDq - kDpp^3 )
 
 + Three(pp,p,t)*D(a,c)*D(b,d)*M^-4
  * ( - 4*A0*kDp*kDpp*kDq - A0*kDp*kDq^2 - 2*A0*kDp^2*kDq
  - A0*kDpp*kDq^2 - 2*A0*kDpp^2*kDq )
 
 + Three(pp,p,t)*D(a,d)*D(b,c)*M^-4
  * ( - 4*A0*kDp*kDpp*kDq - A0*kDp*kDq^2 - 2*A0*kDp^2*kDq
  - A0*kDpp*kDq^2 - 2*A0*kDpp^2*kDq )
 
 + Three(pp,kp,s)*D(a,b)*D(c,d)*M^-4
  * ( - 2*A1*kDp*kDq^2 + 2*A1*kDp^2*kDq + A1*kDp^3 - 2*A0*kDp*pDp*pDq
   + A0*kDp*pDp^2 + A0*kDp*pDq^2 + 2*A0*kDp^2*pDp - 2*A0*kDp^2*pDq )
 
 + Three(pp,kp,s)*D(a,c)*D(b,d)*M^-4
  * ( - A1*kDp*kDq^2 + 4*A1*kDp^2*kDq - A1*kDp^3 - 2*kDp^2*kDq
  + kDp^3 )
 
 + Three(pp,kp,s)*D(a,d)*D(b,c)*M^-4
  * ( - A1*kDp*kDq^2 - 2*A1*kDp^2*kDq + 2*A1*kDp^3 - 2*A0*kDp*pDp*pDq
   + A0*kDp*pDp^2 + A0*kDp*pDq^2 + 2*A0*kDp^2*pDp - 2*A0*kDp^2*pDq
   + 2*kDp^2*kDq - kDp^3 )
 
 + Three(kp,pp,s)*D(a,b)*D(c,d)*M^-4
  * ( - 2*A0*kDp*pDp*pDq + A0*kDp*pDp^2 + A0*kDp*pDq^2 + 2*A0*kDp^2
  *pDp - 2*A0*kDp^2*pDq )
 
 + Three(kp,pp,s)*D(a,c)*D(b,d)*M^-4
  * ( - 2*A0*kDp*pDp*pDq + A0*kDp*pDp^2 + A0*kDp*pDq^2 + 2*A0*kDp^2
  *pDp - 2*A0*kDp^2*pDq ) + 0.
 
> P output

Terms out 339, in 339.

Terms in output 363
Running time 9 sec			Used	Maximum
Generated terms 965 	Input space 	3052 	101756
Equal terms 472     	Output space 	10946 	248244
Cancellations 130   	Nr of expr.  	25 	255
Multiplications 6378	String space 	0 	4096
Records written 4 	Merging		0 	0

 
Box = 
 + CC0(s)*D(a,b)*D(c,d)*M^-4
  * ( A1*kDp^3 + A2*kDp^3 - 2*A0*kDp^3 )
 
 + CC0(s)*D(a,c)*D(b,d)*M^-4
  * ( - A1*kDp^3 - A2*kDp^3 - A0*kDp^3 + 2*kDp^3 )
 
 + CC0(s)*D(a,d)*D(b,c)*M^-4
  * ( 2*A1*kDp^3 + 2*A2*kDp^3 - A0*kDp^3 - 2*kDp^3 )
 
 + CC0(t)*D(a,b)*D(c,d)*M^-4
  * ( 3*A1*kDp*kDpp^2 + 3*A1*kDp^2*kDpp + A1*kDp^3 + A1*kDpp^3
  + 3*A2*kDp*kDpp^2 + 3*A2*kDp^2*kDpp + A2*kDp^3 + A2*kDpp^3
  - 6*kDp*kDpp^2 - 6*kDp^2*kDpp - 2*kDp^3 - 2*kDpp^3 )
 
 + CC0(t)*D(a,c)*D(b,d)*M^-4
  * ( - 6*A1*kDp*kDpp^2 - 6*A1*kDp^2*kDpp - 2*A1*kDp^3 - 2*A1*kDpp^3
   - 6*A2*kDp*kDpp^2 - 6*A2*kDp^2*kDpp - 2*A2*kDp^3 - 2*A2*kDpp^3
  + 6*kDp*kDpp^2 + 6*kDp^2*kDpp + 2*kDp^3 + 2*kDpp^3 )
 
 + CC0(t)*D(a,d)*D(b,c)*M^-4
  * ( - 3*A1*kDp*kDpp^2 - 3*A1*kDp^2*kDpp - A1*kDp^3 - A1*kDpp^3
  - 3*A2*kDp*kDpp^2 - 3*A2*kDp^2*kDpp - A2*kDp^3 - A2*kDpp^3 )
 
 + CC0(u)*D(a,b)*D(c,d)*M^-4
  * ( - A1*kDpp^3 - A2*kDpp^3 + 2*kDpp^3 )
 
 + CC0(u)*D(a,c)*D(b,d)*M^-4
  * ( A1*kDpp^3 + A2*kDpp^3 - A0*kDpp^3 )
 
 + CC0(u)*D(a,d)*D(b,c)*M^-4
  * ( 2*A1*kDpp^3 + 2*A2*kDpp^3 - A0*kDpp^3 - 2*kDpp^3 )
 
 + C11(s)*D(a,b)*D(c,d)*M^-4
  * ( 2*A1*kDp^2*kDpp + 2*A2*kDp^2*kDpp + 2*A0*kDp^3 )
 
 + C11(s)*D(a,c)*D(b,d)*M^-4
  * ( 4*A1*kDp^2*kDpp + 4*A2*kDp^2*kDpp - 2*A0*kDp^2*kDpp
  - 4*kDp^2*kDpp )
 
 + C11(s)*D(a,d)*D(b,c)*M^-4
  * ( - 2*A1*kDp^2*kDpp - 2*A2*kDp^2*kDpp + 2*A0*kDp^2*kDpp
  + 2*A0*kDp^3 + 4*kDp^2*kDpp )
 
 + C11(t)*D(a,b)*D(c,d)*M^-4
  * ( 4*A1*kDp*kDpp^2 + 8*A1*kDp^2*kDpp + 4*A1*kDp^3 + 4*A2*kDp*kDpp^2
   + 8*A2*kDp^2*kDpp + 4*A2*kDp^3 - 4*A0*kDp*kDpp^2 - 8*A0*kDp^2*kDpp
   - 4*A0*kDp^3 - 4*kDp*kDpp^2 - 8*kDp^2*kDpp - 4*kDp^3 )
 
 + C11(t)*D(a,c)*D(b,d)*M^-4
  * ( - 2*A1*kDp*kDpp^2 - 4*A1*kDp^2*kDpp - 2*A1*kDp^3 - 2*A2*kDp*kDpp^2
   - 4*A2*kDp^2*kDpp - 2*A2*kDp^3 - 8*A0*kDp*kDpp^2 - 4*A0*kDp^2*kDpp
   - 4*A0*kDpp^3 + 4*kDp*kDpp^2 + 8*kDp^2*kDpp + 4*kDp^3 )
 
 + C11(t)*D(a,d)*D(b,c)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 4*A1*kDp^2*kDpp + 2*A1*kDp^3 + 2*A2*kDp*kDpp^2
   + 4*A2*kDp^2*kDpp + 2*A2*kDp^3 - 12*A0*kDp*kDpp^2 - 12*A0*kDp^2
  *kDpp - 4*A0*kDp^3 - 4*A0*kDpp^3 )
 
 + C11(u)*D(a,b)*D(c,d)*M^-4
  * ( 4*A1*kDp*kDpp^2 + 4*A2*kDp*kDpp^2 - 4*A0*kDp*kDpp^2
  - 4*kDp*kDpp^2 )
 
 + C11(u)*D(a,c)*D(b,d)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 2*A2*kDp*kDpp^2 - 2*A0*kDp*kDpp^2
  + 2*A0*kDpp^3 )
 
 + C11(u)*D(a,d)*D(b,c)*M^-4
  * ( - 2*A1*kDp*kDpp^2 - 2*A2*kDp*kDpp^2 + 2*A0*kDp*kDpp^2
  + 2*A0*kDpp^3 + 4*kDp*kDpp^2 )
 
 + C12(s)*D(a,b)*D(c,d)*M^-4
  * ( - 2*A1*kDp^2*kDpp - 2*A1*kDp^3 - 2*A2*kDp^2*kDpp - 2*A2*kDp^3
   + 2*A0*kDp^3 )
 
 + C12(s)*D(a,c)*D(b,d)*M^-4
  * ( - 4*A1*kDp^2*kDpp - 4*A1*kDp^3 - 4*A2*kDp^2*kDpp - 4*A2*kDp^3
   + 2*A0*kDp^2*kDpp + 2*A0*kDp^3 + 4*kDp^2*kDpp + 4*kDp^3 )
 
 + C12(s)*D(a,d)*D(b,c)*M^-4
  * ( 2*A1*kDp^2*kDpp + 2*A1*kDp^3 + 2*A2*kDp^2*kDpp + 2*A2*kDp^3
  - 2*A0*kDp^2*kDpp - 4*kDp^2*kDpp - 4*kDp^3 )
 
 + C12(t)*D(a,b)*D(c,d)*M^-4
  * ( 8*A1*kDp*kDpp^2 + 4*A1*kDp^2*kDpp + 4*A1*kDpp^3 + 8*A2*kDp*kDpp^2
   + 4*A2*kDp^2*kDpp + 4*A2*kDpp^3 - 8*A0*kDp*kDpp^2 - 4*A0*kDp^2*kDpp
   - 4*A0*kDpp^3 - 8*kDp*kDpp^2 - 4*kDp^2*kDpp - 4*kDpp^3 )
 
 + C12(t)*D(a,c)*D(b,d)*M^-4
  * ( - 4*A1*kDp*kDpp^2 - 2*A1*kDp^2*kDpp - 2*A1*kDpp^3 - 4*A2*kDp
  *kDpp^2 - 2*A2*kDp^2*kDpp - 2*A2*kDpp^3 - 4*A0*kDp*kDpp^2
  - 8*A0*kDp^2*kDpp - 4*A0*kDp^3 + 8*kDp*kDpp^2 + 4*kDp^2*kDpp
  + 4*kDpp^3 )
 
 + C12(t)*D(a,d)*D(b,c)*M^-4
  * ( 4*A1*kDp*kDpp^2 + 2*A1*kDp^2*kDpp + 2*A1*kDpp^3 + 4*A2*kDp*kDpp^2
   + 2*A2*kDp^2*kDpp + 2*A2*kDpp^3 - 12*A0*kDp*kDpp^2 - 12*A0*kDp^2
  *kDpp - 4*A0*kDp^3 - 4*A0*kDpp^3 )
 
 + C12(u)*D(a,b)*D(c,d)*M^-4
  * ( - 4*A1*kDp*kDpp^2 - 4*A1*kDpp^3 - 4*A2*kDp*kDpp^2 - 4*A2*kDpp^3
   + 4*A0*kDp*kDpp^2 + 4*A0*kDpp^3 + 4*kDp*kDpp^2 + 4*kDpp^3 )
 
 + C12(u)*D(a,c)*D(b,d)*M^-4
  * ( - 2*A1*kDp*kDpp^2 - 2*A1*kDpp^3 - 2*A2*kDp*kDpp^2 - 2*A2*kDpp^3
   + 2*A0*kDp*kDpp^2 + 4*A0*kDpp^3 )
 
 + C12(u)*D(a,d)*D(b,c)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 2*A1*kDpp^3 + 2*A2*kDp*kDpp^2 + 2*A2*kDpp^3
   - 2*A0*kDp*kDpp^2 - 4*kDp*kDpp^2 - 4*kDpp^3 )
 
 + C21(s)*D(a,b)*D(c,d)*M^-4
  * ( - 2*A1*kDp*kDpp^2 - 2*A2*kDp*kDpp^2 + 4*A0*kDp*kDpp^2
  + 4*A0*kDp^2*kDpp + 2*A0*kDp^3 )
 
 + C21(s)*D(a,c)*D(b,d)*M^-4
  * ( - A1*kDp*kDpp^2 - A2*kDp*kDpp^2 + 2*A0*kDp*kDpp^2 + 2*A0*kDp^2
  *kDpp + A0*kDp^3 )
 
 + C21(s)*D(a,d)*D(b,c)*M^-4
  * ( - A1*kDp*kDpp^2 - A2*kDp*kDpp^2 + 2*A0*kDp*kDpp^2 + 2*A0*kDp^2
  *kDpp + A0*kDp^3 )
 
 + C21(t)*D(a,b)*D(c,d)*M^-4
  * ( A1*kDp^2*kDpp + A1*kDp^3 + A2*kDp^2*kDpp + A2*kDp^3
  - 2*A0*kDp^2*kDpp - 2*A0*kDp^3 )
 
 + C21(t)*D(a,c)*D(b,d)*M^-4
  * ( A1*kDp^2*kDpp + A1*kDp^3 + A2*kDp^2*kDpp + A2*kDp^3
  - 2*A0*kDp*kDpp^2 - 2*A0*kDpp^3 )
 
 + C21(t)*D(a,d)*D(b,c)*M^-4
  * ( 2*A1*kDp^2*kDpp + 2*A1*kDp^3 + 2*A2*kDp^2*kDpp + 2*A2*kDp^3
  - 2*A0*kDp*kDpp^2 - 2*A0*kDp^2*kDpp - 2*A0*kDp^3 - 2*A0*kDpp^3 )
 
 + C21(u)*D(a,b)*D(c,d)*M^-4
  * ( - A1*kDp^2*kDpp - A2*kDp^2*kDpp + 2*A0*kDp^2*kDpp )
 
 + C21(u)*D(a,c)*D(b,d)*M^-4
  * ( - 2*A1*kDp^2*kDpp - 2*A2*kDp^2*kDpp + 2*A0*kDp*kDpp^2
  + 4*A0*kDp^2*kDpp + A0*kDpp^3 )
 
 + C21(u)*D(a,d)*D(b,c)*M^-4
  * ( - A1*kDp^2*kDpp - A2*kDp^2*kDpp + 2*A0*kDp*kDpp^2 + 2*A0*kDp^2
  *kDpp + A0*kDpp^3 )
 
 + C22(s)*D(a,b)*D(c,d)*M^-4
  * ( - 2*A1*kDp*kDpp^2 - 4*A1*kDp^2*kDpp - 2*A1*kDp^3 - 2*A2*kDp*kDpp^2
   - 4*A2*kDp^2*kDpp - 2*A2*kDp^3 + 4*A0*kDp*kDpp^2 + 4*A0*kDp^2*kDpp
   + 2*A0*kDp^3 )
 
 + C22(s)*D(a,c)*D(b,d)*M^-4
  * ( - A1*kDp*kDpp^2 - 2*A1*kDp^2*kDpp - A1*kDp^3 - A2*kDp*kDpp^2
   - 2*A2*kDp^2*kDpp - A2*kDp^3 + 2*A0*kDp*kDpp^2 + 2*A0*kDp^2*kDpp
   + A0*kDp^3 )
 
 + C22(s)*D(a,d)*D(b,c)*M^-4
  * ( - A1*kDp*kDpp^2 - 2*A1*kDp^2*kDpp - A1*kDp^3 - A2*kDp*kDpp^2
   - 2*A2*kDp^2*kDpp - A2*kDp^3 + 2*A0*kDp*kDpp^2 + 2*A0*kDp^2*kDpp
   + A0*kDp^3 )
 
 + C22(t)*D(a,b)*D(c,d)*M^-4
  * ( A1*kDp*kDpp^2 + A1*kDpp^3 + A2*kDp*kDpp^2 + A2*kDpp^3
  - 2*A0*kDp*kDpp^2 - 2*A0*kDpp^3 )
 
 + C22(t)*D(a,c)*D(b,d)*M^-4
  * ( A1*kDp*kDpp^2 + A1*kDpp^3 + A2*kDp*kDpp^2 + A2*kDpp^3
  - 2*A0*kDp^2*kDpp - 2*A0*kDp^3 )
 
 + C22(t)*D(a,d)*D(b,c)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 2*A1*kDpp^3 + 2*A2*kDp*kDpp^2 + 2*A2*kDpp^3
   - 2*A0*kDp*kDpp^2 - 2*A0*kDp^2*kDpp - 2*A0*kDp^3 - 2*A0*kDpp^3 )
 
 + C22(u)*D(a,b)*D(c,d)*M^-4
  * ( - 2*A1*kDp*kDpp^2 - A1*kDp^2*kDpp - A1*kDpp^3 - 2*A2*kDp*kDpp^2
   - A2*kDp^2*kDpp - A2*kDpp^3 + 4*A0*kDp*kDpp^2 + 2*A0*kDp^2*kDpp
   + 2*A0*kDpp^3 )
 
 + C22(u)*D(a,c)*D(b,d)*M^-4
  * ( - 4*A1*kDp*kDpp^2 - 2*A1*kDp^2*kDpp - 2*A1*kDpp^3 - 4*A2*kDp
  *kDpp^2 - 2*A2*kDp^2*kDpp - 2*A2*kDpp^3 + 6*A0*kDp*kDpp^2
  + 4*A0*kDp^2*kDpp + 3*A0*kDpp^3 )
 
 + C22(u)*D(a,d)*D(b,c)*M^-4
  * ( - 2*A1*kDp*kDpp^2 - A1*kDp^2*kDpp - A1*kDpp^3 - 2*A2*kDp*kDpp^2
   - A2*kDp^2*kDpp - A2*kDpp^3 + 2*A0*kDp*kDpp^2 + 2*A0*kDp^2*kDpp
   + A0*kDpp^3 )
 
 + C23(s)*D(a,b)*D(c,d)*M^-4
  * ( 4*A1*kDp*kDpp^2 + 4*A1*kDp^2*kDpp + 4*A2*kDp*kDpp^2
  + 4*A2*kDp^2*kDpp - 8*A0*kDp*kDpp^2 - 8*A0*kDp^2*kDpp )
 
 + C23(s)*D(a,c)*D(b,d)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 2*A1*kDp^2*kDpp + 2*A2*kDp*kDpp^2
  + 2*A2*kDp^2*kDpp - 4*A0*kDp*kDpp^2 - 4*A0*kDp^2*kDpp )
 
 + C23(s)*D(a,d)*D(b,c)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 2*A1*kDp^2*kDpp + 2*A2*kDp*kDpp^2
  + 2*A2*kDp^2*kDpp - 4*A0*kDp*kDpp^2 - 4*A0*kDp^2*kDpp )
 
 + C23(t)*D(a,b)*D(c,d)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 2*A1*kDp^2*kDpp + 2*A2*kDp*kDpp^2
  + 2*A2*kDp^2*kDpp - 4*A0*kDp*kDpp^2 - 4*A0*kDp^2*kDpp )
 
 + C23(t)*D(a,c)*D(b,d)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 2*A1*kDp^2*kDpp + 2*A2*kDp*kDpp^2
  + 2*A2*kDp^2*kDpp - 4*A0*kDp*kDpp^2 - 4*A0*kDp^2*kDpp )
 
 + C23(t)*D(a,d)*D(b,c)*M^-4
  * ( 4*A1*kDp*kDpp^2 + 4*A1*kDp^2*kDpp + 4*A2*kDp*kDpp^2
  + 4*A2*kDp^2*kDpp - 8*A0*kDp*kDpp^2 - 8*A0*kDp^2*kDpp )
 
 + C23(u)*D(a,b)*D(c,d)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 2*A1*kDp^2*kDpp + 2*A2*kDp*kDpp^2
  + 2*A2*kDp^2*kDpp - 4*A0*kDp*kDpp^2 - 4*A0*kDp^2*kDpp )
 
 + C23(u)*D(a,c)*D(b,d)*M^-4
  * ( 4*A1*kDp*kDpp^2 + 4*A1*kDp^2*kDpp + 4*A2*kDp*kDpp^2
  + 4*A2*kDp^2*kDpp - 8*A0*kDp*kDpp^2 - 8*A0*kDp^2*kDpp )
 
 + C23(u)*D(a,d)*D(b,c)*M^-4
  * ( 2*A1*kDp*kDpp^2 + 2*A1*kDp^2*kDpp + 2*A2*kDp*kDpp^2
  + 2*A2*kDp^2*kDpp - 4*A0*kDp*kDpp^2 - 4*A0*kDp^2*kDpp ) + 0.
 
> P output

Terms out 363, in 363.

Terms in output 76
Running time 11 sec			Used	Maximum
Generated terms 363 	Input space 	2060 	101756
Equal terms 229     	Output space 	2908 	248244
Cancellations 58   	Nr of expr.  	15 	255
Multiplications 1380	String space 	0 	4096
Records written 4 	Merging		0 	0

 
Box = 
 + CC0(s)*D(a,c)*D(b,d)*M^-4
  * ( - kDp^3 )
 
 + CC0(s)*D(a,d)*D(b,c)*M^-4
  * ( kDp^3 )
 
 + CC0(t)*D(a,c)*D(b,d)*M^-4
  * ( - 6*kDp*kDpp^2 - 6*kDp^2*kDpp - 2*kDp^3 - 2*kDpp^3 )
 
 + CC0(t)*D(a,d)*D(b,c)*M^-4
  * ( - 6*kDp*kDpp^2 - 6*kDp^2*kDpp - 2*kDp^3 - 2*kDpp^3 )
 
 + CC0(u)*D(a,c)*D(b,d)*M^-4
  * ( kDpp^3 )
 
 + CC0(u)*D(a,d)*D(b,c)*M^-4
  * ( kDpp^3 )
 
 + C11(s)*D(a,b)*D(c,d)*M^-4
  * ( 4*kDp^2*kDpp + 2*kDp^3 )
 
 + C11(s)*D(a,c)*D(b,d)*M^-4
  * ( 2*kDp^2*kDpp )
 
 + C11(s)*D(a,d)*D(b,c)*M^-4
  * ( 2*kDp^2*kDpp + 2*kDp^3 )
 
 + C11(t)*D(a,c)*D(b,d)*M^-4
  * ( - 8*kDp*kDpp^2 - 4*kDp^2*kDpp - 4*kDpp^3 )
 
 + C11(t)*D(a,d)*D(b,c)*M^-4
  * ( - 8*kDp*kDpp^2 - 4*kDp^2*kDpp - 4*kDpp^3 )
 
 + C11(u)*D(a,c)*D(b,d)*M^-4
  * ( 2*kDp*kDpp^2 + 2*kDpp^3 )
 
 + C11(u)*D(a,d)*D(b,c)*M^-4
  * ( 2*kDp*kDpp^2 + 2*kDpp^3 )
 
 + C12(s)*D(a,b)*D(c,d)*M^-4
  * ( - 4*kDp^2*kDpp - 2*kDp^3 )
 
 + C12(s)*D(a,c)*D(b,d)*M^-4
  * ( - 2*kDp^2*kDpp - 2*kDp^3 )
 
 + C12(s)*D(a,d)*D(b,c)*M^-4
  * ( - 2*kDp^2*kDpp )
 
 + C12(t)*D(a,c)*D(b,d)*M^-4
  * ( - 4*kDp*kDpp^2 - 8*kDp^2*kDpp - 4*kDp^3 )
 
 + C12(t)*D(a,d)*D(b,c)*M^-4
  * ( - 4*kDp*kDpp^2 - 8*kDp^2*kDpp - 4*kDp^3 )
 
 + C12(u)*D(a,c)*D(b,d)*M^-4
  * ( - 2*kDp*kDpp^2 )
 
 + C12(u)*D(a,d)*D(b,c)*M^-4
  * ( - 2*kDp*kDpp^2 )
 
 + C21(s)*D(a,b)*D(c,d)*M^-4
  * ( 4*kDp^2*kDpp + 2*kDp^3 )
 
 + C21(s)*D(a,c)*D(b,d)*M^-4
  * ( 2*kDp^2*kDpp + kDp^3 )
 
 + C21(s)*D(a,d)*D(b,c)*M^-4
  * ( 2*kDp^2*kDpp + kDp^3 )
 
 + C21(t)*D(a,c)*D(b,d)*M^-4
  * ( - 2*kDp*kDpp^2 + 2*kDp^2*kDpp + 2*kDp^3 - 2*kDpp^3 )
 
 + C21(t)*D(a,d)*D(b,c)*M^-4
  * ( - 2*kDp*kDpp^2 + 2*kDp^2*kDpp + 2*kDp^3 - 2*kDpp^3 )
 
 + C21(u)*D(a,c)*D(b,d)*M^-4
  * ( 2*kDp*kDpp^2 + kDpp^3 )
 
 + C21(u)*D(a,d)*D(b,c)*M^-4
  * ( 2*kDp*kDpp^2 + kDpp^3 )
 
 + C22(s)*D(a,b)*D(c,d)*M^-4
  * ( - 4*kDp^2*kDpp - 2*kDp^3 )
 
 + C22(s)*D(a,c)*D(b,d)*M^-4
  * ( - 2*kDp^2*kDpp - kDp^3 )
 
 + C22(s)*D(a,d)*D(b,c)*M^-4
  * ( - 2*kDp^2*kDpp - kDp^3 )
 
 + C22(t)*D(a,c)*D(b,d)*M^-4
  * ( 2*kDp*kDpp^2 - 2*kDp^2*kDpp - 2*kDp^3 + 2*kDpp^3 )
 
 + C22(t)*D(a,d)*D(b,c)*M^-4
  * ( 2*kDp*kDpp^2 - 2*kDp^2*kDpp - 2*kDp^3 + 2*kDpp^3 )
 
 + C22(u)*D(a,c)*D(b,d)*M^-4
  * ( - 2*kDp*kDpp^2 - kDpp^3 )
 
 + C22(u)*D(a,d)*D(b,c)*M^-4
  * ( - 2*kDp*kDpp^2 - kDpp^3 ) + 0.
 

Terms out 76, in 76.

Terms in output 0
Running time 11 sec			Used	Maximum
Generated terms 191 	Input space 	2752 	101756
Equal terms 137     	Output space 	0 	248244
Cancellations 54   	Nr of expr.  	17 	255
Multiplications 710	String space 	0 	4096
Records written 4 	Merging		0 	0

 
Box = 0. + 0.
 

End run. Time 11 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 19:20:02.  Memory: start 0001B84C, length 476348.


C WW-scattering 16. Infinities and Log's of irreducible 4-point W function.

C One loop diagrams.
  Four point function: WW scattering.
  Ln(m^2) and infinities.
  Notation: N_ = n-4, m = Higgs mass, Log(m) = Ln(m^2).

  Separate results: 'Long', containing partial result for longitudinal
  W's, crossed contributions not yet added. 'Tot' includes crossed
  pieces.

> P ninput

Begin. Time 2 sec.

Terms in output 90, Statistics counts 35, 0, 0, 0.
 
BoxWW(a,al,k,b,be,p,c,ga,pp,d,de,kp) = 
 + D(al,be)*D(de,ga)*D(a,b)*D(c,d)*i*Pi^2
  * ( - 1/8*A0*Logm2 )
 
 + D(al,be)*D(de,ga)*D(a,b)*D(c,d)*i*Pi^2*N_^-1
  * ( - 10*A3 + 5*A1 + 5*A2 - 8*A0 )
 
 + D(al,be)*D(de,ga)*D(a,c)*D(b,d)*i*Pi^2
  * ( 1/6*A0*Logm2 )
 
 + D(al,be)*D(de,ga)*D(a,c)*D(b,d)*i*Pi^2*N_^-1
  * ( - 2*A3 + A1 + A2 + 1/3*A0 )
 
 + D(al,be)*D(de,ga)*D(a,d)*D(b,c)*i*Pi^2
  * ( - 1/8*A0*Logm2 )
 
 + D(al,be)*D(de,ga)*D(a,d)*D(b,c)*i*Pi^2*N_^-1
  * ( 8*A3 - 4*A1 - 4*A2 - 8*A0 )
 
 + D(al,de)*D(be,ga)*D(a,b)*D(c,d)*i*Pi^2
  * ( - 1/8*A0*Logm2 )
 
 + D(al,de)*D(be,ga)*D(a,b)*D(c,d)*i*Pi^2*N_^-1
  * ( 8*A3 - 4*A1 - 4*A2 - 8*A0 )
 
 + D(al,de)*D(be,ga)*D(a,c)*D(b,d)*i*Pi^2
  * ( 1/6*A0*Logm2 )
 
 + D(al,de)*D(be,ga)*D(a,c)*D(b,d)*i*Pi^2*N_^-1
  * ( - 2*A3 + A1 + A2 + 1/3*A0 )
 
 + D(al,de)*D(be,ga)*D(a,d)*D(b,c)*i*Pi^2
  * ( - 1/8*A0*Logm2 )
 
 + D(al,de)*D(be,ga)*D(a,d)*D(b,c)*i*Pi^2*N_^-1
  * ( - 10*A3 + 5*A1 + 5*A2 - 8*A0 )
 
 + D(al,ga)*D(be,de)*D(a,b)*D(c,d)*i*Pi^2
  * ( - 1/8*A0*Logm2 )
 
 + D(al,ga)*D(be,de)*D(a,b)*D(c,d)*i*Pi^2*N_^-1
  * ( - 4*A3 + 13/2*A1 + 13/2*A2 - 3*A0 )
 
 + D(al,ga)*D(be,de)*D(a,c)*D(b,d)*i*Pi^2
  * ( - 1/8*A3*Logm2 + 1/4*A1*Logm2 + 1/4*A2*Logm2 + 1/6*A0*Logm2 )
 
 + D(al,ga)*D(be,de)*D(a,c)*D(b,d)*i*Pi^2*N_^-1
  * ( - 9*A3 + 14*A1 + 14*A2 + 1/3*A0 )
 
 + D(al,ga)*D(be,de)*D(a,d)*D(b,c)*i*Pi^2
  * ( - 1/8*A0*Logm2 )
 
 + D(al,ga)*D(be,de)*D(a,d)*D(b,c)*i*Pi^2*N_^-1
  * ( - 4*A3 + 13/2*A1 + 13/2*A2 - 3*A0 ) + 0.
 
 
Long(a,k,b,p,c,pp,d,kp) = 
 + D(a,b)*D(c,d)*i*Pi^2*M^-4
  * ( - 1/16*A0*s*u*Logm2 - 1/16*A0*s^2*Logm2 - 1/16*A0*u^2*Logm2 )
 
 + D(a,b)*D(c,d)*i*Pi^2*M^-4*N_^-1
  * ( 4*A3*s*u - 1/2*A3*s^2 + A3*u^2 - 2*A1*s*u + 1/4*A1*s^2
  + 5/8*A1*u^2 - 2*A2*s*u + 1/4*A2*s^2 + 5/8*A2*u^2 - 4*A0*s*u
  - 4*A0*s^2 - 11/4*A0*u^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( - 1/32*A3*u^2*Logm2 + 1/16*A1*u^2*Logm2 + 1/16*A2*u^2*Logm2
  + 1/12*A0*s*u*Logm2 + 1/12*A0*s^2*Logm2 + 1/12*A0*u^2*Logm2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M^-4*N_^-1
  * ( - A3*s*u - A3*s^2 - 11/4*A3*u^2 + 1/2*A1*s*u + 1/2*A1*s^2
  + 15/4*A1*u^2 + 1/2*A2*s*u + 1/2*A2*s^2 + 15/4*A2*u^2 + 1/6*A0*s
  *u + 1/6*A0*s^2 + 1/6*A0*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M^-4
  * ( - 1/16*A0*s*u*Logm2 - 1/16*A0*s^2*Logm2 - 1/16*A0*u^2*Logm2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M^-4*N_^-1
  * ( - 5*A3*s*u - 1/2*A3*s^2 - 7/2*A3*u^2 + 5/2*A1*s*u + 1/4*A1*s^2
   + 23/8*A1*u^2 + 5/2*A2*s*u + 1/4*A2*s^2 + 23/8*A2*u^2 - 4*A0*s*u
   - 4*A0*s^2 - 11/4*A0*u^2 ) + 0.
 
> P input
C The calculation sofar needs addition of further diagrams, obtained
  by crossing. Also add counterterms.

	Z Total(a,al,k,b,be,p,c,ga,pp,d,de,kp)
	 = BoxWW(a,al,k,b,be,p,c,ga,pp,d,de,kp)
	 + BoxWW(a,al,k,c,ga,pp,b,be,p,d,de,kp)
	 + BoxWW(a,al,k,b,be,p,d,de,kp,c,ga,pp)
	 + DLP*WWWW(a,al,k,b,be,p,c,ga,pp,d,de,kp)*WWWWK

	B i,Pi

L 3	Id,A0=1
L 3	Al,A1=1
L 3	Al,A2=1
L 3	Al,A3=1

L 4	Id,Epfred
> ETE1{}
C Counterterms.
	Gotoif 2,_Sw0=0


L 5	Id,Et=i*Pi^2
	  * ( - 3/4 - 3/2*M^2*m^-2 + 9/2*M^2*m^-2*LogM2 - 3/4*M^-2*m^2
	  + 3/4*M^-2*m^2*Logm2 + 3/4*LogM2
	  - 1/4*M^-2*m^2*gu + 1/4*M^-2*m^2*Logm2*gu )
	 
	 + i*Pi^2*N_^-1
	  * ( 3/2 + 9*M^2*m^-2 + 3/2*M^-2*m^2 + 1/2*M^-2*m^2*gu)

L 5	Al,E1= i*Pi^2
	  * ( 1/16*M^-2*m^2 + 5/12*Logm2)
	 
	 - 25/6*i*Pi^2*N_^-1

	Goto 2,_Sw0=0


L 7	Id,E2 = i*Pi^2
	  * ( 7/16*M^-2*m^2 - 3/4*M^-2*m^2*Logm2 - 3/2 +7/6*Logm2
	  - 9/4*M^2/m^2*Logm2 - 9/16*m^2/M^2*[Pi/Sqrt(3)-2]
	  - 1/16*M^-2*m^2*Logm2*gu^2 - 1/16*m^2/M^2*[Pi/Sqrt(3)-2]*gu^2)
	 
	 + i*Pi^2*N_^-1
	  * ( - 8/3 - 9/2*M^2*m^-2 - 3/2*M^-2*m^2 - 1/8*M^-2*m^2*gu^2)

L 7	Al,Eh=i*Pi^2*(3/2/N_ + m^2/M^2/16 + 1/8*Logm2)

L 7	Al,Ew=i*Pi^2*(19/6/N_ - 1/24*Logm2)

L 7	Al,Eg=- 43/6*i*Pi^2/N_

	Gotoif 5,_Sw0=0

> P output
	*yep
 
Total(a,al,k,b,be,p,c,ga,pp,d,de,kp) = 
 + D(al,be)*D(de,ga)*D(a,b)*D(c,d)*i*Pi^2
  * ( 7/24*Logm2 + 10/3*N_^-1 + 10/3*N_^-1*DLP + 1/3*DLP*Logm2 )
 
 + D(al,be)*D(de,ga)*D(a,c)*D(b,d)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,be)*D(de,ga)*D(a,d)*D(b,c)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,de)*D(be,ga)*D(a,b)*D(c,d)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,de)*D(be,ga)*D(a,c)*D(b,d)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,de)*D(be,ga)*D(a,d)*D(b,c)*i*Pi^2
  * ( 7/24*Logm2 + 10/3*N_^-1 + 10/3*N_^-1*DLP + 1/3*DLP*Logm2 )
 
 + D(al,ga)*D(be,de)*D(a,b)*D(c,d)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,ga)*D(be,de)*D(a,c)*D(b,d)*i*Pi^2
  * ( 7/24*Logm2 + 10/3*N_^-1 + 10/3*N_^-1*DLP + 1/3*DLP*Logm2 )
 
 + D(al,ga)*D(be,de)*D(a,d)*D(b,c)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 ) + 0.
 
C Id,DLP=-1
	Keep Total
	*next
 
Total(a,al,k,b,be,p,c,ga,pp,d,de,kp) = 
 + D(al,be)*D(de,ga)*D(a,b)*D(c,d)*i*Pi^2
  * ( 7/24*Logm2 + 10/3*N_^-1 + 10/3*N_^-1*DLP + 1/3*DLP*Logm2 )
 
 + D(al,be)*D(de,ga)*D(a,c)*D(b,d)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,be)*D(de,ga)*D(a,d)*D(b,c)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,de)*D(be,ga)*D(a,b)*D(c,d)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,de)*D(be,ga)*D(a,c)*D(b,d)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,de)*D(be,ga)*D(a,d)*D(b,c)*i*Pi^2
  * ( 7/24*Logm2 + 10/3*N_^-1 + 10/3*N_^-1*DLP + 1/3*DLP*Logm2 )
 
 + D(al,ga)*D(be,de)*D(a,b)*D(c,d)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 )
 
 + D(al,ga)*D(be,de)*D(a,c)*D(b,d)*i*Pi^2
  * ( 7/24*Logm2 + 10/3*N_^-1 + 10/3*N_^-1*DLP + 1/3*DLP*Logm2 )
 
 + D(al,ga)*D(be,de)*D(a,d)*D(b,c)*i*Pi^2
  * ( - 1/12*Logm2 - 5/3*N_^-1 - 5/3*N_^-1*DLP - 1/6*DLP*Logm2 ) + 0.
 
C Longitudinal, full result.

	Z Tot = Total(a,k,k,b,p,p,c,pp,pp,d,kp,kp)/M^4
L 2	Id,kpDkp=0
L 2	Al,kp(al~)=-k(al)-p(al)-pp(al)
L 2	Al,Dotpr,kp(al~)=-k(al)-p(al)-pp(al)

L 3	Id,pDp=0
L 3	Al,kDk=0
L 3	Al,ppDpp=0
L 4	Id,pDk= - 0.5*s
L 4	Al,pDpp = - 0.5*t
L 4	Al,kDpp = - 0.5*u
	B i,Pi,M,N_
L 5	IF D(a,c)
L 6	Id,t=-s-u
	ENDIF
L 7	IF D(a,b)
L 8	Id,u=-s-t
	ENDIF
L 9	IF D(a,d)
L10	Id,s=-t-u
	ENDIF
> P output
	*yep
 
Tot = 
 + D(a,b)*D(c,d)*i*Pi^2*M^-4
  * ( - 1/24*s*t*Logm2 - 1/12*s*t*DLP*Logm2 + 5/96*s^2*Logm2
  + 1/24*s^2*DLP*Logm2 - 1/24*t^2*Logm2 - 1/12*t^2*DLP*Logm2 )
 
 + D(a,b)*D(c,d)*i*Pi^2*M^-4*N_^-1
  * ( - 5/6*s*t - 5/6*s*t*DLP + 5/12*s^2 + 5/12*s^2*DLP - 5/6*t^2
  - 5/6*t^2*DLP )
 
 + D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( - 1/24*s*u*Logm2 - 1/12*s*u*DLP*Logm2 - 1/24*s^2*Logm2
  - 1/12*s^2*DLP*Logm2 + 5/96*u^2*Logm2 + 1/24*u^2*DLP*Logm2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M^-4*N_^-1
  * ( - 5/6*s*u - 5/6*s*u*DLP - 5/6*s^2 - 5/6*s^2*DLP + 5/12*u^2
  + 5/12*u^2*DLP )
 
 + D(a,d)*D(b,c)*i*Pi^2*M^-4
  * ( - 1/24*t*u*Logm2 - 1/12*t*u*DLP*Logm2 + 5/96*t^2*Logm2
  + 1/24*t^2*DLP*Logm2 - 1/24*u^2*Logm2 - 1/12*u^2*DLP*Logm2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M^-4*N_^-1
  * ( - 5/6*t*u - 5/6*t*u*DLP + 5/12*t^2 + 5/12*t^2*DLP - 5/6*u^2
  - 5/6*u^2*DLP ) + 0.
 
L 1	Id,DLP=-1
	*end
 
Tot = 
 + D(a,b)*D(c,d)*i*Pi^2*M^-4
  * ( 1/24*s*t*Logm2 + 1/96*s^2*Logm2 + 1/24*t^2*Logm2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( 1/24*s*u*Logm2 + 1/24*s^2*Logm2 + 1/96*u^2*Logm2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M^-4
  * ( 1/24*t*u*Logm2 + 1/96*t^2*Logm2 + 1/24*u^2*Logm2 ) + 0.
 

End run. Time 21 sec.