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

Command line: +1 WW.e WW_out_1_10


C WW-scattering 1.  Polarization vectors.
  Dot-products in restframe.
  Verification of equations used below.

C A k0,kl,sin,cos,M

	D Xk(n) = 0,	0,	kl,		i*k0
	D Xp(n) = 0,	0,	-kl,		i*k0
	D Xpp(n) = -kl*sin,	0,	-kl*cos,	i*k0
	D Xkp(n) = kl*sin,	0,	kl*cos,		i*k0

	D Xek(n) = 0,	0,	k0/M,		i*kl/M
	D Xep(n) = 0,	0,	-k0/M,		i*kl/M
	D Xfp(n)=-k0*sin/M,	0,	-k0*cos/M,	i*kl/M
	D Xfk(n)=k0*sin/M,	0,	k0*cos/M,	i*kl/M

	X Dot(Xk,Xp) = DS(j,1,4,(Xk(j)*Xp(j)))

	Z ekDp  = Dot(Xek,Xp)
	Z ekDpp = Dot(Xek,Xpp)
	Z ekDep = Dot(Xek,Xep)
	Z ekDfk = Dot(Xek,Xfk)
	Z ekDfp = Dot(Xek,Xfp)
	Z epDk  = Dot(Xep,Xk)
	Z epDpp = Dot(Xep,Xpp)
	Z epDfk = Dot(Xep,Xfk)
	Z epDfp = Dot(Xep,Xfp)
	Z fkDk  = Dot(Xfk,Xk)
	Z fkDp  = Dot(Xfk,Xp)
	Z fkDfp = Dot(Xfk,Xfp)
	Z fpDk  = Dot(Xfp,Xk)
	Z fpDp  = Dot(Xfp,Xp)
L 4	Id,sin^2=1-cos^2
	*end
 
ekDp =  - 2*kl*k0*M^-1
 
ekDpp =  - kl*k0*M^-1 - cos*kl*k0*M^-1
 
ekDep =  - kl^2*M^-2 - k0^2*M^-2
 
ekDfk =  - kl^2*M^-2 + cos*k0^2*M^-2
 
ekDfp =  - kl^2*M^-2 - cos*k0^2*M^-2
 
epDk =  - 2*kl*k0*M^-1
 
epDpp =  - kl*k0*M^-1 + cos*kl*k0*M^-1
 
epDfk =  - kl^2*M^-2 - cos*k0^2*M^-2
 
epDfp =  - kl^2*M^-2 + cos*k0^2*M^-2
 
fkDk =  - kl*k0*M^-1 + cos*kl*k0*M^-1
 
fkDp =  - kl*k0*M^-1 - cos*kl*k0*M^-1
 
fkDfp =  - kl^2*M^-2 - k0^2*M^-2
 
fpDk =  - kl*k0*M^-1 - cos*kl*k0*M^-1
 
fpDp =  - kl*k0*M^-1 + cos*kl*k0*M^-1 + 0.
 

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


C WW-scattering 2.  Tree amplitude, general expression.
  Result is written to file TreeWW. Used in part 3.

  The term V4 is maintained to show how the pure 4-vertex behaves.
  Renamed Fourv in part 3.

> P ninput

Begin. Time 2 sec.
> P stats

Terms in output 171
Running time 3 sec			Used	Maximum
Generated terms 207 	Input space 	5740 	100000
Equal terms 30     	Output space 	11760 	250000
Cancellations 6   	Nr of expr.  	25 	255
Multiplications 1217	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 171, in 171.

Terms in output 101
Running time 4 sec			Used	Maximum
Generated terms 385 	Input space 	4548 	100000
Equal terms 240     	Output space 	5708 	250000
Cancellations 44   	Nr of expr.  	24 	255
Multiplications 1926	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 101, in 101.

Terms in output 101
Running time 4 sec			Used	Maximum
Generated terms 125 	Input space 	4096 	100000
Equal terms 18     	Output space 	5708 	250000
Cancellations 6   	Nr of expr.  	14 	255
Multiplications 322	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 101, in 101.

Terms in output 181
Running time 5 sec			Used	Maximum
Generated terms 181 	Input space 	4184 	100000
Equal terms 0     	Output space 	6416 	250000
Cancellations 0   	Nr of expr.  	11 	255
Multiplications 842	String space 	0 	4096
Records written 0 	Merging		0 	0

 
TreeWW(al,be,ga,de) = 
 + D(al,be)*D(ga,de)*D(a,b)*D(c,d)
  * ( - 2 - 2*V4 )
 
 + D(al,be)*D(ga,de)*D(a,c)*D(b,d)
  * ( 1 + M^2*s^-2*t - M^2*s^-2*u + V4 + s^-1*t - s^-1*u )
 
 + D(al,be)*D(ga,de)*D(a,d)*D(b,c)
  * ( 1 - M^2*s^-2*t + M^2*s^-2*u + V4 - s^-1*t + s^-1*u )
 
 + D(al,be)*D(a,b)*D(c,d)*p(ga)*k(de)
  * ( 4*M^2*t^-2 + 4*t^-1 )
 
 + D(al,be)*D(a,b)*D(c,d)*k(ga)*p(de)
  * ( 4*M^2*u^-2 + 4*u^-1 )
 
 + D(al,be)*D(a,c)*D(b,d)*p(ga)*k(de)
  * ( - 4*M^2*s^-2 - 4*M^2*t^-2 - 4*s^-1 - 4*t^-1 )
 
 + D(al,be)*D(a,c)*D(b,d)*k(ga)*p(de)
  * ( 4*M^2*s^-2 + 4*s^-1 )
 
 + D(al,be)*D(a,d)*D(b,c)*p(ga)*k(de)
  * ( 4*M^2*s^-2 + 4*s^-1 )
 
 + D(al,be)*D(a,d)*D(b,c)*k(ga)*p(de)
  * ( - 4*M^2*s^-2 - 4*M^2*u^-2 - 4*s^-1 - 4*u^-1 )
 
 + D(al,ga)*D(be,de)*D(a,b)*D(c,d)
  * ( 1 - M^2*s*u^-2 + M^2*t*u^-2 + V4 - s*u^-1 + t*u^-1 )
 
 + D(al,ga)*D(be,de)*D(a,c)*D(b,d)
  * ( - 2 - 2*V4 )
 
 + D(al,ga)*D(be,de)*D(a,d)*D(b,c)
  * ( 1 + M^2*s*u^-2 - M^2*t*u^-2 + V4 + s*u^-1 - t*u^-1 )
 
 + D(al,ga)*D(a,b)*D(c,d)*k(be)*p(de)
  * ( - 4*M^2*u^-2 - 4*u^-1 )
 
 + D(al,ga)*D(a,b)*D(c,d)*k(be)*k(de)
  * ( - 4*M^2*u^-2 - 4*u^-1 )
 
 + D(al,ga)*D(a,b)*D(c,d)*pp(be)*k(de)
  * ( 4*M^2*t^-2 + 4*M^2*u^-2 + 4*t^-1 + 4*u^-1 )
 
 + D(al,ga)*D(a,c)*D(b,d)*k(be)*p(de)
  * ( - 4*M^2*s^-2 - 4*s^-1 )
 
 + D(al,ga)*D(a,c)*D(b,d)*k(be)*k(de)
  * ( - 4*M^2*s^-2 - 4*s^-1 )
 
 + D(al,ga)*D(a,c)*D(b,d)*pp(be)*k(de)
  * ( - 4*M^2*t^-2 - 4*t^-1 )
 
 + D(al,ga)*D(a,d)*D(b,c)*k(be)*p(de)
  * ( 4*M^2*s^-2 + 4*M^2*u^-2 + 4*s^-1 + 4*u^-1 )
 
 + D(al,ga)*D(a,d)*D(b,c)*k(be)*k(de)
  * ( 4*M^2*s^-2 + 4*M^2*u^-2 + 4*s^-1 + 4*u^-1 )
 
 + D(al,ga)*D(a,d)*D(b,c)*pp(be)*k(de)
  * ( - 4*M^2*u^-2 - 4*u^-1 )
 
 + D(al,de)*D(be,ga)*D(a,b)*D(c,d)
  * ( 1 - M^2*s*t^-2 + M^2*t^-2*u + V4 - s*t^-1 + t^-1*u )
 
 + D(al,de)*D(be,ga)*D(a,c)*D(b,d)
  * ( 1 + M^2*s*t^-2 - M^2*t^-2*u + V4 + s*t^-1 - t^-1*u )
 
 + D(al,de)*D(be,ga)*D(a,d)*D(b,c)
  * ( - 2 - 2*V4 )
 
 + D(al,de)*D(a,b)*D(c,d)*k(be)*p(ga)
  * ( - 4*M^2*t^-2 - 4*t^-1 )
 
 + D(al,de)*D(a,b)*D(c,d)*k(be)*k(ga)
  * ( 4*M^2*u^-2 + 4*u^-1 )
 
 + D(al,de)*D(a,b)*D(c,d)*pp(be)*k(ga)
  * ( - 4*M^2*t^-2 - 4*M^2*u^-2 - 4*t^-1 - 4*u^-1 )
 
 + D(al,de)*D(a,c)*D(b,d)*k(be)*p(ga)
  * ( 4*M^2*s^-2 + 4*M^2*t^-2 + 4*s^-1 + 4*t^-1 )
 
 + D(al,de)*D(a,c)*D(b,d)*k(be)*k(ga)
  * ( 4*M^2*s^-2 + 4*s^-1 )
 
 + D(al,de)*D(a,c)*D(b,d)*pp(be)*k(ga)
  * ( 4*M^2*t^-2 + 4*t^-1 )
 
 + D(al,de)*D(a,d)*D(b,c)*k(be)*p(ga)
  * ( - 4*M^2*s^-2 - 4*s^-1 )
 
 + D(al,de)*D(a,d)*D(b,c)*k(be)*k(ga)
  * ( - 4*M^2*s^-2 - 4*M^2*u^-2 - 4*s^-1 - 4*u^-1 )
 
 + D(al,de)*D(a,d)*D(b,c)*pp(be)*k(ga)
  * ( 4*M^2*u^-2 + 4*u^-1 )
 
 + D(be,ga)*D(a,b)*D(c,d)*p(al)*p(de)
  * ( - 4*M^2*t^-2 - 4*t^-1 )
 
 + D(be,ga)*D(a,b)*D(c,d)*p(al)*k(de)
  * ( - 4*M^2*t^-2 - 4*t^-1 )
 
 + D(be,ga)*D(a,b)*D(c,d)*pp(al)*p(de)
  * ( 4*M^2*t^-2 + 4*M^2*u^-2 + 4*t^-1 + 4*u^-1 )
 
 + D(be,ga)*D(a,c)*D(b,d)*p(al)*p(de)
  * ( 4*M^2*s^-2 + 4*M^2*t^-2 + 4*s^-1 + 4*t^-1 )
 
 + D(be,ga)*D(a,c)*D(b,d)*p(al)*k(de)
  * ( 4*M^2*s^-2 + 4*M^2*t^-2 + 4*s^-1 + 4*t^-1 )
 
 + D(be,ga)*D(a,c)*D(b,d)*pp(al)*p(de)
  * ( - 4*M^2*t^-2 - 4*t^-1 )
 
 + D(be,ga)*D(a,d)*D(b,c)*p(al)*p(de)
  * ( - 4*M^2*s^-2 - 4*s^-1 )
 
 + D(be,ga)*D(a,d)*D(b,c)*p(al)*k(de)
  * ( - 4*M^2*s^-2 - 4*s^-1 )
 
 + D(be,ga)*D(a,d)*D(b,c)*pp(al)*p(de)
  * ( - 4*M^2*u^-2 - 4*u^-1 )
 
 + D(be,de)*D(a,b)*D(c,d)*p(al)*p(ga)
  * ( 4*M^2*t^-2 + 4*t^-1 )
 
 + D(be,de)*D(a,b)*D(c,d)*p(al)*k(ga)
  * ( - 4*M^2*u^-2 - 4*u^-1 )
 
 + D(be,de)*D(a,b)*D(c,d)*pp(al)*p(ga)
  * ( - 4*M^2*t^-2 - 4*M^2*u^-2 - 4*t^-1 - 4*u^-1 )
 
 + D(be,de)*D(a,c)*D(b,d)*p(al)*p(ga)
  * ( - 4*M^2*s^-2 - 4*M^2*t^-2 - 4*s^-1 - 4*t^-1 )
 
 + D(be,de)*D(a,c)*D(b,d)*p(al)*k(ga)
  * ( - 4*M^2*s^-2 - 4*s^-1 )
 
 + D(be,de)*D(a,c)*D(b,d)*pp(al)*p(ga)
  * ( 4*M^2*t^-2 + 4*t^-1 )
 
 + D(be,de)*D(a,d)*D(b,c)*p(al)*p(ga)
  * ( 4*M^2*s^-2 + 4*s^-1 )
 
 + D(be,de)*D(a,d)*D(b,c)*p(al)*k(ga)
  * ( 4*M^2*s^-2 + 4*M^2*u^-2 + 4*s^-1 + 4*u^-1 )
 
 + D(be,de)*D(a,d)*D(b,c)*pp(al)*p(ga)
  * ( 4*M^2*u^-2 + 4*u^-1 )
 
 + D(ga,de)*D(a,b)*D(c,d)*p(al)*pp(be)
  * ( 4*M^2*t^-2 + 4*t^-1 )
 
 + D(ga,de)*D(a,b)*D(c,d)*pp(al)*k(be)
  * ( 4*M^2*u^-2 + 4*u^-1 )
 
 + D(ga,de)*D(a,b)*D(c,d)*pp(al)*pp(be)
  * ( - 4*M^2*t^-2 - 4*M^2*u^-2 - 4*t^-1 - 4*u^-1 )
 
 + D(ga,de)*D(a,c)*D(b,d)*p(al)*pp(be)
  * ( - 4*M^2*s^-2 - 4*M^2*t^-2 - 4*s^-1 - 4*t^-1 )
 
 + D(ga,de)*D(a,c)*D(b,d)*pp(al)*k(be)
  * ( 4*M^2*s^-2 + 4*s^-1 )
 
 + D(ga,de)*D(a,c)*D(b,d)*pp(al)*pp(be)
  * ( 4*M^2*t^-2 + 4*t^-1 )
 
 + D(ga,de)*D(a,d)*D(b,c)*p(al)*pp(be)
  * ( 4*M^2*s^-2 + 4*s^-1 )
 
 + D(ga,de)*D(a,d)*D(b,c)*pp(al)*k(be)
  * ( - 4*M^2*s^-2 - 4*M^2*u^-2 - 4*s^-1 - 4*u^-1 )
 
 + D(ga,de)*D(a,d)*D(b,c)*pp(al)*pp(be)
  * ( 4*M^2*u^-2 + 4*u^-1 )
 
 + NOM(-qs,m)*D(al,be)*D(ga,de)*D(a,b)*D(c,d)
  * ( M^2 )
 
 + NOM(-qt,m)*D(al,de)*D(be,ga)*D(a,d)*D(b,c)
  * ( M^2 )
 
 + NOM(-qu,m)*D(al,ga)*D(be,de)*D(a,c)*D(b,d)
  * ( M^2 ) + 0.
 

Begin. Time 5 sec.

Terms in output 0
Running time 6 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 7 	Merging		0 	0


End run. Time 6 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:49:09.  Memory: start 0001B84C, length 476348.


C WW-scattering 3.  Tree amplitude, case of longitudinal W's.
		    Uses output of 2.

  Filling in the transversal polarization vectors.

	Enter TreeWW
	*fix

Begin. Time 0 sec.

> P ninput
 
Ampl = 
 + D(a,b)*D(c,d)
  * ( 1/4*M^-2*s )
 
 + D(a,c)*D(b,d)
  * ( 1/4*M^-2*u )
 
 + D(a,d)*D(b,c)
  * ( 1/4*M^-2*t )
 
 + NOM(-qs,m)*D(a,b)*D(c,d)
  * ( 1/4*M^-2*s^2 )
 
 + NOM(-qt,m)*D(a,d)*D(b,c)
  * ( 1/4*M^-2*t^2 )
 
 + NOM(-qu,m)*D(a,c)*D(b,d)
  * ( 1/4*M^-2*u^2 )
 
 + Fourv*D(a,b)*D(c,d)
  * ( 1/2*M^-4*s*t - 1/4*M^-4*s^2 + 1/2*M^-4*t^2 + M^-2*s
  + 4*M^-2*s^-1*t^2 + 2*M^-2*t )
 
 + Fourv*D(a,c)*D(b,d)
  * ( 1/2*M^-4*s*u + 1/2*M^-4*s^2 - 1/4*M^-4*u^2 - 2*M^-2*s^-1*u^2
   - 3*M^-2*u )
 
 + Fourv*D(a,d)*D(b,c)
  * ( 1/2*M^-4*s*t + 1/2*M^-4*s^2 - 1/4*M^-4*t^2 - 2*M^-2*s
  - 2*M^-2*s^-1*t^2 - M^-2*t ) + 0.
 

End run. Time 4 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:49:15.  Memory: start 0001B84C, length 476348.


C WW-scattering 4.  Tree amplitude, Fi-Fi scattering.

  Tree diagrams with four FI lines.
  Verifying the equivalence theorem.

> P ninput

Begin. Time 2 sec.
> P stats

Terms in output 18
Running time 2 sec			Used	Maximum
Generated terms 30 	Input space 	5510 	100000
Equal terms 9     	Output space 	696 	250000
Cancellations 3   	Nr of expr.  	25 	255
Multiplications 251	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 18, in 18.

Terms in output 30
Running time 2 sec			Used	Maximum
Generated terms 30 	Input space 	4084 	100000
Equal terms 0     	Output space 	1032 	250000
Cancellations 0   	Nr of expr.  	14 	255
Multiplications 84	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 30, in 30.

Terms in output 18
Running time 2 sec			Used	Maximum
Generated terms 54 	Input space 	3896 	100000
Equal terms 18     	Output space 	768 	250000
Cancellations 18   	Nr of expr.  	11 	255
Multiplications 132	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 18, in 18.

Terms in output 18
Running time 2 sec			Used	Maximum
Generated terms 24 	Input space 	3976 	100000
Equal terms 3     	Output space 	768 	250000
Cancellations 3   	Nr of expr.  	11 	255
Multiplications 54	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 18, in 18.

Terms in output 78
Running time 3 sec			Used	Maximum
Generated terms 277 	Input space 	4516 	100000
Equal terms 130     	Output space 	2112 	250000
Cancellations 69   	Nr of expr.  	14 	255
Multiplications 856	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 78, in 78.

Terms in output 6
Running time 3 sec			Used	Maximum
Generated terms 6 	Input space 	3972 	100000
Equal terms 0     	Output space 	312 	250000
Cancellations 0   	Nr of expr.  	9 	255
Multiplications 172	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 6, in 6.

Terms in output 6
Running time 3 sec			Used	Maximum
Generated terms 6 	Input space 	3836 	100000
Equal terms 0     	Output space 	312 	250000
Cancellations 0   	Nr of expr.  	7 	255
Multiplications 12	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 6, in 6.

Terms in output 6
Running time 3 sec			Used	Maximum
Generated terms 6 	Input space 	3776 	100000
Equal terms 0     	Output space 	312 	250000
Cancellations 0   	Nr of expr.  	7 	255
Multiplications 12	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 6, in 6.

Terms in output 9
Running time 3 sec			Used	Maximum
Generated terms 10 	Input space 	3800 	100000
Equal terms 1     	Output space 	386 	250000
Cancellations 0   	Nr of expr.  	10 	255
Multiplications 45	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 9, in 9.

Terms in output 4
Running time 3 sec			Used	Maximum
Generated terms 4 	Input space 	4304 	100000
Equal terms 0     	Output space 	168 	250000
Cancellations 0   	Nr of expr.  	13 	255
Multiplications 157	String space 	0 	4096
Records written 0 	Merging		0 	0

 
TreeFF = + D(a,b)*D(c,d)
  * ( 1/4*M^-2*s )
 
 + D(a,c)*D(b,d)
  * ( - 1/4*M^-2*s - 1/4*M^-2*t )
 
 + D(a,d)*D(b,c)
  * ( 1/4*M^-2*t ) + 0.
 

End run. Time 3 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:49:21.  Memory: start 0001B84C, length 476348.


C WW-scattering 5.  One loop diagrams, two external lines.

> P ninput

Begin. Time 2 sec.
> P output
 
TADP = 
  - M*m^2*Et*DLP
 
 + i*Pi^2
  * ( - 3/2*N_^-1*M*m^2 - 9*N_^-1*M^3 - 3/2*N_^-1*M^-1*m^4
  - 1/2*N_^-1*M^-1*m^4*gu + 3/4*M*m^2 - 3/4*M*m^2*LogM2 + 3/2*M^3
  - 9/2*M^3*LogM2 + 3/4*M^-1*m^4 - 3/4*M^-1*m^4*Logm2 - 1/4*M^-1*m^4
  *Logm2*gu + 1/4*M^-1*m^4*gu )
 
 + Xetid
  * ( Et ) + 0.
 
 
TADP = 
 + i*Pi^2*Xetid
  * ( - 3/4 + 3/2*N_^-1 + 9*N_^-1*M^2*m^-2 + 3/2*N_^-1*M^-2*m^2
  + 1/2*N_^-1*M^-2*m^2*gu - 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 + 1/4*M^-2*m^2*Logm2*gu
  - 1/4*M^-2*m^2*gu + 3/4*LogM2 ) + 0.
 
> P output
 
SelfWW = 
 + D(al,be)*D(a,b)*i*Pi^2
  * ( 2*N_^-1*M^2 + 2*N_^-1*M^2*DLP - 19/3*N_^-1*DLP*pDp - 19/3*N_^-1
  *pDp - 3/4*M^2*Logm2 - 3/4*M^2*Logm2*DLP - 1/8*m^2 - 1/8*m^2*DLP
   + 1/12*Logm2*DLP*pDp + 1/12*Logm2*pDp )
 
 + D(a,b)*p(al)*p(be)*i*Pi^2
  * ( 19/3*N_^-1 + 19/3*N_^-1*DLP - 1/12*Logm2 - 1/12*Logm2*DLP ) + 0.
 
 
SelfWW = 0. + 0.
 
> P output
 
SelfFF = 
 + D(a,b)*i*Pi^2
  * ( - 9/2*N_^-1*M^2 - 9/2*N_^-1*M^2*DLP - 3/4*N_^-1*M^-2*m^4
  - 1/4*N_^-1*M^-2*m^4*gu - 1/4*N_^-1*M^-2*m^4*gu*DLP - 3/4*N_^-1*M^-2
  *m^4*DLP - 3/4*N_^-1*m^2 - 3/4*N_^-1*m^2*DLP - 3*N_^-1*DLP*pDp
  - 3*N_^-1*pDp - 9/4*M^2*LogM2*DLP + 3/4*M^2*DLP - 1/8*M^-2*m^2*DLP
  *pDp - 1/8*M^-2*m^2*pDp + 3/8*M^-2*m^4 - 3/8*M^-2*m^4*Logm2
  - 1/8*M^-2*m^4*Logm2*gu - 1/8*M^-2*m^4*Logm2*gu*DLP - 3/8*M^-2*m^4
  *Logm2*DLP + 1/8*M^-2*m^4*gu + 1/8*M^-2*m^4*gu*DLP + 3/8*M^-2*m^4
  *DLP + 3/8*m^2 - 3/8*m^2*LogM2 - 3/8*m^2*LogM2*DLP + 3/8*m^2*DLP
   - 1/4*Logm2*DLP*pDp - 1/4*Logm2*pDp ) + 0.
 
 
SelfFF = 0. + 0.
 
> P output
 
SelfWF = 
 + D(a,b)*p(al)*Pi^2
  * ( 1/2*N_^-1*M + 1/2*N_^-1*M*DLP + 1/2*M*Logm2 + 1/2*M*Logm2*DLP
   + 1/8*M^-1*m^2 + 1/8*M^-1*m^2*DLP ) + 0.
 
 
SelfWF = 0. + 0.
 
> P output
 
SelfZZ = 
 + i*Pi^2*Ztag
  * ( - 27/2*N_^-1*M^2 - 27/2*N_^-1*M^2*DLP - 15/4*N_^-1*M^-2*m^4
  - 1/4*N_^-1*M^-2*m^4*gu - 1/4*N_^-1*M^-2*m^4*gu*DLP - 1/4*N_^-1*M^-2
  *m^4*gu^2 - 1/4*N_^-1*M^-2*m^4*gu^2*DLP - 15/4*N_^-1*M^-2*m^4*DLP
   - 3/4*N_^-1*m^2 - 3/4*N_^-1*m^2*DLP - 3*N_^-1*DLP*pDp - 3*N_^-1
  *pDp + 3/4*M^2 - 9/2*M^2*m^-2*LogM2*pDp + 9/2*M^2*m^-2*Logm2*pDp
   - 9*M^2*m^-2*pDp - 27/4*M^2*LogM2 - 9/4*M^2*LogM2*DLP - 9/2*M^2
  *Logm2*DLP + 3/4*M^2*DLP - 3/8*M^-2*m^2*LogM2*pDp + 3/8*M^-2*m^2
  *Logm2*pDp - 1/8*M^-2*m^2*gu^2*[Pi/Sqrt(3)-2]*pDp - 9/8*M^-2*m^2
  *[Pi/Sqrt(3)-2]*pDp - 1/8*M^-2*m^2*DLP*pDp - 3/4*M^-2*m^2*pDp
  + 3/8*M^-2*m^4 - 3/8*M^-2*m^4*LogM2 - 3/2*M^-2*m^4*Logm2
  - 1/8*M^-2*m^4*Logm2*gu - 1/8*M^-2*m^4*Logm2*gu*DLP - 1/8*M^-2*m^4
  *Logm2*gu^2 - 1/8*M^-2*m^4*Logm2*gu^2*DLP - 15/8*M^-2*m^4*Logm2*DLP
   + 1/8*M^-2*m^4*gu + 1/8*M^-2*m^4*gu*DLP - 1/4*M^-2*m^4*gu^2*
 [Pi/Sqrt(3)-2] - 1/8*M^-2*m^4*gu^2*[Pi/Sqrt(3)-2]*DLP - 9/4*M^-2*m^4
  *[Pi/Sqrt(3)-2] - 9/8*M^-2*m^4*[Pi/Sqrt(3)-2]*DLP + M^-2*m^4*DLP
   + 3/8*m^2 - 3/8*m^2*LogM2 - 3/8*m^2*LogM2*DLP + 5/4*m^2*Logm2*DLP
   - 21/8*m^2*DLP - 3/2*m^-2*LogM2*pDp^2 + 3/2*m^-2*Logm2*pDp^2
  - 3*m^-2*pDp^2 - 3/2*LogM2*pDp - 1/4*Logm2*DLP*pDp ) + 0.
 
> P output
 
SelfZZ = 
 + i*Pi^2
  * ( - 9/2*M^2*m^-2*LogM2*pDp + 9/2*M^2*m^-2*Logm2*pDp - 9*M^2*m^-2
  *pDp - 9/2*M^2*LogM2 + 9/2*M^2*Logm2 - 3/8*M^-2*m^2*LogM2*pDp
  + 3/8*M^-2*m^2*Logm2*pDp - 1/8*M^-2*m^2*gu^2*[Pi/Sqrt(3)-2]*pDp
  - 9/8*M^-2*m^2*[Pi/Sqrt(3)-2]*pDp - 5/8*M^-2*m^2*pDp - 5/8*M^-2*m^4
   - 3/8*M^-2*m^4*LogM2 + 3/8*M^-2*m^4*Logm2 - 1/8*M^-2*m^4*gu^2*
 [Pi/Sqrt(3)-2] - 9/8*M^-2*m^4*[Pi/Sqrt(3)-2] + 3*m^2 - 5/4*m^2*Logm2
   - 3/2*m^-2*LogM2*pDp^2 + 3/2*m^-2*Logm2*pDp^2 - 3*m^-2*pDp^2
  - 3/2*LogM2*pDp + 1/4*Logm2*pDp ) + 0.
 
 
SelfZZ = 0. + 0.
 

End run. Time 13 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:49:36.  Memory: start 0001B84C, length 476348.


C WW-scattering 6.  One loop diagrams, three external lines.

> P ninput

Begin. Time 2 sec.
> P output
 
IWWW = 
 + Epf(a,b,c)*D(al,be)*p(ga)*Pi^2
  * ( 7/3*N_^-1 + 7/3*N_^-1*DLP - 1/8*Logm2 - 1/8*Logm2*DLP )
 
 + Epf(a,b,c)*D(al,be)*k(ga)*Pi^2
  * ( - 7/3*N_^-1 - 7/3*N_^-1*DLP + 1/8*Logm2 + 1/8*Logm2*DLP )
 
 + Epf(a,b,c)*D(al,ga)*p(be)*Pi^2
  * ( 7/3*N_^-1 + 7/3*N_^-1*DLP - 1/8*Logm2 - 1/8*Logm2*DLP )
 
 + Epf(a,b,c)*D(al,ga)*k(be)*Pi^2
  * ( 14/3*N_^-1 + 14/3*N_^-1*DLP - 1/4*Logm2 - 1/4*Logm2*DLP )
 
 + Epf(a,b,c)*D(be,ga)*p(al)*Pi^2
  * ( - 14/3*N_^-1 - 14/3*N_^-1*DLP + 1/4*Logm2 + 1/4*Logm2*DLP )
 
 + Epf(a,b,c)*D(be,ga)*k(al)*Pi^2
  * ( - 7/3*N_^-1 - 7/3*N_^-1*DLP + 1/8*Logm2 + 1/8*Logm2*DLP ) + 0.
 
 
IWWW = 0. + 0.
 
> P output
 
IFFW = 
 + Epf(a,b,c)*p(ga)*Pi^2
  * ( - 1/2*N_^-1 - 1/2*N_^-1*DLP + 1/16*M^-2*m^2 + 1/16*M^-2*m^2*DLP
   + 7/48*Logm2 + 5/48*Logm2*DLP )
 
 + Epf(a,b,c)*k(ga)*Pi^2
  * ( 1/2*N_^-1 + 1/2*N_^-1*DLP - 1/16*M^-2*m^2 - 1/16*M^-2*m^2*DLP
   - 7/48*Logm2 - 5/48*Logm2*DLP ) + 0.
 
 
IFFW = + Epf(a,b,c)*p(ga)*Pi^2
  * ( 1/24*Logm2 )
 
 + Epf(a,b,c)*k(ga)*Pi^2
  * ( - 1/24*Logm2 ) + 0.
 
> P output
 
IFWZ = 
 + D(a,b)*p(be)*Pi^2
  * ( 1/2*N_^-1 + 1/2*N_^-1*DLP - 1/16*M^-2*m^2 - 1/16*M^-2*m^2*DLP
   - 5/48*Logm2 - 5/48*Logm2*DLP )
 
 + D(a,b)*k(be)*Pi^2
  * ( N_^-1 + N_^-1*DLP - 3/8*M^-2*m^2 - 1/8*M^-2*m^2*LogM2
  + 1/8*M^-2*m^2*Logm2 - 1/8*M^-2*m^2*DLP - 1/8*M^-2*m^2*
 [Pi/Sqrt(3)-2] - 1/12*Logm2 - 5/24*Logm2*DLP ) + 0.
 
 
IFWZ = + D(a,b)*k(be)*Pi^2
  * ( - 1/4*M^-2*m^2 - 1/8*M^-2*m^2*LogM2 + 1/8*M^-2*m^2*Logm2
  - 1/8*M^-2*m^2*[Pi/Sqrt(3)-2] + 1/8*Logm2 ) + 0.
 
> P output
 
IWWZ = 
 + D(al,be)*D(a,b)*i*Pi^2
  * ( 7/2*N_^-1*M + 7/2*N_^-1*M*DLP + 1/3*M*m^2*CC0 - 13/24*M*Logm2
   - 11/24*M*Logm2*DLP - 5/8*M^-1*m^2 - 1/8*M^-1*m^2*LogM2
  + 1/8*M^-1*m^2*Logm2 - 1/8*M^-1*m^2*DLP - 1/8*M^-1*m^2*
 [Pi/Sqrt(3)-2] )
 
 + D(a,b)*p(al)*p(be)*i*Pi^2
  * ( - 1/3*M^-3*m^2 + 1/2*M^-1*m^2*CC0 - 1/24*M^-1*Logm2 )
 
 + D(a,b)*p(al)*k(be)*i*Pi^2
  * ( - 1/6*M^-3*m^2 + 1/3*M^-1*m^2*CC0 + 1/12*M^-1*Logm2 )
 
 + D(a,b)*k(al)*p(be)*i*Pi^2
  * ( - 1/6*M^-3*m^2 + 1/4*M^-1*m^2*CC0 - 1/24*M^-1*Logm2 )
 
 + D(a,b)*k(al)*k(be)*i*Pi^2
  * ( - 1/3*M^-3*m^2 + 1/2*M^-1*m^2*CC0 - 1/24*M^-1*Logm2 ) + 0.
 
 
IWWZ = 
 + D(al,be)*D(a,b)*i*Pi^2
  * ( 1/3*M*m^2*CC0 - 1/12*M*Logm2 - 1/2*M^-1*m^2 - 1/8*M^-1*m^2*LogM2
   + 1/8*M^-1*m^2*Logm2 - 1/8*M^-1*m^2*[Pi/Sqrt(3)-2] )
 
 + D(a,b)*p(al)*p(be)*i*Pi^2
  * ( - 1/3*M^-3*m^2 + 1/2*M^-1*m^2*CC0 - 1/24*M^-1*Logm2 )
 
 + D(a,b)*p(al)*k(be)*i*Pi^2
  * ( - 1/6*M^-3*m^2 + 1/3*M^-1*m^2*CC0 + 1/12*M^-1*Logm2 )
 
 + D(a,b)*k(al)*p(be)*i*Pi^2
  * ( - 1/6*M^-3*m^2 + 1/4*M^-1*m^2*CC0 - 1/24*M^-1*Logm2 )
 
 + D(a,b)*k(al)*k(be)*i*Pi^2
  * ( - 1/3*M^-3*m^2 + 1/2*M^-1*m^2*CC0 - 1/24*M^-1*Logm2 ) + 0.
 
> P output
 
IFFZ = 
 + D(a,b)*i*Pi^2
  * ( - 9/2*N_^-1*M - 9/2*N_^-1*M*DLP - 3/2*N_^-1*M^-3*m^4
  - 1/8*N_^-1*M^-3*m^4*gu^2 - 1/8*N_^-1*M^-3*m^4*gu^2*DLP
  - 3/2*N_^-1*M^-3*m^4*DLP + 3/4*N_^-1*M^-1*m^2 + 3/4*N_^-1*M^-1*m^2
  *DLP + 1/4*M*m^2*CC0 - 1/4*M*Logm2 - 9/4*M*Logm2*DLP - 3/16*M^-3
  *m^4*LogM2 - 9/16*M^-3*m^4*Logm2 - 1/16*M^-3*m^4*Logm2*gu^2
  - 1/16*M^-3*m^4*Logm2*gu^2*DLP - 3/4*M^-3*m^4*Logm2*DLP
  - 1/16*M^-3*m^4*gu^2*DLP*[Pi/Sqrt(3)-2] + 5/16*M^-3*m^4*DLP
  - 9/16*M^-3*m^4*DLP*[Pi/Sqrt(3)-2] - 3/16*M^-3*m^4*
 [Pi/Sqrt(3)-2] + 5/32*M^-1*m^2 + 7/16*M^-1*m^2*LogM2 - 1/16*M^-1*m^2
  *Logm2 + 37/48*M^-1*m^2*Logm2*DLP + 1/96*M^-1*m^2*gu^2 - 3/2*M^-1
  *m^2*DLP + 7/16*M^-1*m^2*[Pi/Sqrt(3)-2] ) + 0.
 
 
IFFZ = 
 + D(a,b)*i*Pi^2
  * ( 1/4*M*m^2*CC0 + 2*M*Logm2 - 5/16*M^-3*m^4 - 3/16*M^-3*m^4*LogM2
   + 3/16*M^-3*m^4*Logm2 + 1/16*M^-3*m^4*gu^2*[Pi/Sqrt(3)-2]
  + 3/8*M^-3*m^4*[Pi/Sqrt(3)-2] + 53/32*M^-1*m^2 + 7/16*M^-1*m^2*LogM2
   - 5/6*M^-1*m^2*Logm2 + 1/96*M^-1*m^2*gu^2 + 7/16*M^-1*m^2*
 [Pi/Sqrt(3)-2] ) + 0.
 
> P output
 
IZZZ = 
 + i*Pi^2
  * ( - 27/2*N_^-1*M - 27/2*N_^-1*M*DLP - 9/2*N_^-1*M^-3*m^4
  - 3/8*N_^-1*M^-3*m^4*gu^2 - 3/8*N_^-1*M^-3*m^4*gu^2*DLP
  - 9/2*N_^-1*M^-3*m^4*DLP + 9/4*N_^-1*M^-1*m^2 + 9/4*N_^-1*M^-1*m^2
  *DLP + 9/8*M*m^2*CC0 - 27/4*M*Logm2*DLP - 27/16*M^-3*m^4
  - 9/16*M^-3*m^4*LogM2 - 27/16*M^-3*m^4*Logm2 - 3/16*M^-3*m^4*Logm2
  *gu^2 - 3/16*M^-3*m^4*Logm2*gu^2*DLP - 9/4*M^-3*m^4*Logm2*DLP
  - 3/16*M^-3*m^4*gu^2*DLP*[Pi/Sqrt(3)-2] - 1/16*M^-3*m^4*gu^3
  + 15/16*M^-3*m^4*DLP - 27/16*M^-3*m^4*DLP*[Pi/Sqrt(3)-2]
  - 9/16*M^-3*m^4*[Pi/Sqrt(3)-2] - 3/8*M^-3*m^6*CC0 - 9/64*M^-1*m^2
   + 9/8*M^-1*m^2*LogM2 + 37/16*M^-1*m^2*Logm2*DLP + 1/32*M^-1*m^2
  *gu^2 - 1/64*M^-1*m^2*gu^3 - 9/2*M^-1*m^2*DLP + 9/8*M^-1*m^2*
 [Pi/Sqrt(3)-2] ) + 0.
 
 
IZZZ = 
 + i*Pi^2
  * ( 9/8*M*m^2*CC0 + 27/4*M*Logm2 - 21/8*M^-3*m^4 - 9/16*M^-3*m^4
  *LogM2 + 9/16*M^-3*m^4*Logm2 + 3/16*M^-3*m^4*gu^2*
 [Pi/Sqrt(3)-2] - 1/16*M^-3*m^4*gu^3 + 9/8*M^-3*m^4*
 [Pi/Sqrt(3)-2] - 3/8*M^-3*m^6*CC0 + 279/64*M^-1*m^2 + 9/8*M^-1*m^2
  *LogM2 - 37/16*M^-1*m^2*Logm2 + 1/32*M^-1*m^2*gu^2 - 1/64*M^-1*m^2
  *gu^3 + 9/8*M^-1*m^2*[Pi/Sqrt(3)-2] ) + 0.
 

End run. Time 94 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:51:12.  Memory: start 0001B84C, length 476348.


C WW-scattering 7.  One loop Fi-Fi scattering, part 1. 33 sec.
  Result to file BoxFF1.

C One loop diagrams.
  Four point function. FF 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
> P input

	Common BoxFF

	V q1,q2,q3,q4
	I m1=N,m0=N,m3=N,m4=N,m5=N,m6=N,m7=N,m8=N
	I a=3,b=3,c=3,d=3

	F F4q,F3,F2,F1

C Momenta: all taken to be ingoing.
  k,p in, pp,kp out. k + p = - pp - kp.

	Z BoxFF(a,al,k,b,be,p,c,ga,pp,d,de,kp) =
	    VIER("F,a,al,k,"F,b,be,p,"F,c,ga,pp,"F,d,de,kp)

C  For information: this is to be added to get the full result:
   + VIER("F,a,al,k,"F,c,ga,pp,"F,b,be,p,"F,d,de,kp)
   + VIER("F,a,al,k,"F,b,be,p,"F,d,de,kp,"F,c,ga,pp)

> FOUR{}
C Four point topologies, including reducible graphs and tadpole types.
  Call: 
     VIER("A,a,al,k,"B,b,p,p,"C,c,pp,pp,"D,d,kp,kp)

  The result needs additional contributions, obtained by crossing, as
  shown here:

   + VIER("A,a,al,k,"C,c,ga,pp,"B,b,be,p,"D,d,de,kp)
   + VIER("A,a,al,k,"B,b,be,p,"D,d,de,kp,"C,c,ga,pp)

L 1	Id,VIER(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,K4~,d~,de~,kp~)=

	     Reduc(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp)

	   + Redup(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp)

	   + Tadp(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp)

	   + DS(K1;J4;-J1;TAP,(
	     DS(K2;J1;-J2;TAP,(
	     DS(K3;J2;-J3;TAP,(
	    A0*VIE(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J1,J2,J3,J4)
	     * DC("F,TFE,-1,J1,J2,J3,J4) ))) )))

	    + DS(K1;K3;J7;-J5;TAP,(
	     DS(K2;J5;-J6;TAP,(DC("F,TFE,-1,J5,J6,J7)*
	    A1*VIE1(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J5,J6,J7) )) ))

	   + DS(K2;K4;J8;-J9;TAP,(
	     DS(K1;JA;-J8;TAP,(DC("F,TFE,-1,J8,J9,JA)*
	    A2*VIE2(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J8,J9,JA) )) ))

	   + DS(K1;K3;J0;-JB;Sym;J0;-JB;TAP,(DC("F,TFE,-1,J0,JB)*
	    A3*VIE3(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,JB,J0) ) )

L 5	Id, VIE(K1~,a~,al~,k~,K2~,b~,be~,p~,
		K3~,c~,ga~,pp~,K4~,d~,de~,kp~,J1~,J2~,J3~,J4~)=
	   VE3(K1,J4,-J1,*,a,al,k,*,l8,m8,q3,*,l1,m1,-q)*
	   VE3(K2,J1,-J2,*,b,be,p,*,l2,m0,q,*,l3,m3,-q1)*
	   VE3(K3,J2,-J3,*,c,ga,pp,*,l4,m4,q1,*,l5,m5,-q2)*
	   VE3(K4,J3,-J4,*,d,de,kp,*,l6,m6,q2,*,l7,m7,-q3)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q1,*,l4,m4,-q1)*
	   PROP(J3,-J3,*,l5,m5,q2,*,l6,m6,-q2)*
	   PROP(J4,-J4,*,l7,m7,q3,*,l8,m8,-q3)

L 5	Al,VIE1(K1~,a~,al~,k~,K2~,b~,be~,p~,
		K3~,c~,ga~,pp~,K4~,d~,de~,kp~,J1~,J2~,J3~)=
	   VE4(K1,K3,J3,-J1,*,a,al,k,*,c,ga,pp,*,l6,m6,q4,*,l1,m1,-q)*
	   VE3(K2,J1,-J2,*,b,be,p,*,l2,m0,q,*,l3,m3,-q1)*
	   VE3(K4,J2,-J3,*,d,de,kp,*,l4,m4,q1,*,l5,m5,-q4)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q1,*,l4,m4,-q1)*
	   PROP(J3,-J3,*,l5,m5,q4,*,l6,m6,-q4)

L 5	Al,VIE2(K1~,a~,al~,k~,K2~,b~,be~,p~,
		K3~,c~,ga~,pp~,K4~,d~,de~,kp~,J1~,J2~,J3~)=
	   VE4(K2,K4,J1,-J2,*,b,be,p,*,d,de,kp,*,l2,m0,q,*,l3,m3,-q4)*
	   VE3(K1,J3,-J1,*,a,al,k,*,l6,m6,q3,*,l1,m1,-q)*
	   VE3(K3,J2,-J3,*,c,ga,pp,*,l4,m4,q4,*,l5,m5,-q3)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q4,*,l4,m4,-q4)*
	   PROP(J3,-J3,*,l5,m5,q3,*,l6,m6,-q3)

L 5	Al,VIE3(K1~,a~,al~,k~,K2~,b~,be~,p~,
		K3~,c~,ga~,pp~,K4~,d~,de~,kp~,J1~,J2~)=
	   VE4(K1,K3,J2,-J1,*,a,al,k,*,c,ga,pp,*,l4,m4,q4,*,l1,m1,-q)*
	   VE4(K2,K4,J1,-J2,*,b,be,p,*,d,de,kp,*,l2,m0,q,*,l3,m3,-q4)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q4,*,l4,m4,-q4)

L 5	Al,Reduc(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,K4~,d~,de~,kp~) =
	     DS(K2;K4;J4;TAP,(DS(-J4;J1;-J2;TAP,(
	     DS(K1;J3;-J1;TAP,(
	     DC("F,TFE,-1,J1,J2,J3)*R1(J4,J4)*
	     RED1(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J1,J2,J3,J4) )) )) ))

	   + DS(K1;K3;-J8;TAP,(DS(J8;-J5;J7;TAP,(
	     DS(K2;J5;-J6;TAP,(
	     DC("F,TFE,-1,J5,J6,J7)*R1(J8,J8)*
	     RED2(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J5,J6,J7,J8) )) )) ))

	   + DS(K1;K3;-J0;JA;Sym;-J0;JA;TAP,(DS(J0;-JA;-JB;TAP,(
	     DC("F,TFE,-1,J0,JA)*R1(JB,JB)*
	     RED3(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J0,JA,JB) )) ))

	   + DS(K1;K3;-JE;TAP,(DS(JE;-JC;JD;Sym;-JC;JD;TAP,(
	     DC("F,TFE,-1,JC,JD)*R1(JE,JE)*
	     RED4(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,JC,JD,JE) )) ))

	   + DS(K1;K3;-JI;TAP,(DS(JI;-JF;JG;Sym;-JF;JG;TAP,(
	     DS(JF;-JG;-JH;TAP,(DC("F,TFE,-1,JF,JG)*R5(JI,JI)*
	     RED5(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,JF,JG,JH,JI) )) )) ))

	   + DS(K1;-JM;K3;TAP,(DS(JM;-JL;-JK;JK;Sym;-JK;JK;TAP,(R5(JM,JM)*
	     RED6(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,JK,JL,JM) )) ))

L 5	Al,Redup(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,K4~,d~,de~,kp~) =
	    DS(K2;K4;J3;TAP,(
	      DS(-J2;J1;-J3;K3;Sym;-J2;J1;TAP,(R1(J3,J3)*
	    RED3A(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J1,J2,J3) ))
	    + DS(J5;-J4;-J3;K1;Sym;J5;-J4;TAP,(R1(J3,J3)*
	    RED3B(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J4,J5,J3) ))
	    ))

	  + DS(K1;K3;J8;TAP,(
	      DS(J7;-J6;-J8;K4;Sym;J7;-J6;TAP,(R1(J8,J8)*
	    RED4A(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J6,J7,J8) ))
	    + DS(JA;-J9;-J8;K2;Sym;JA;-J9;TAP,(R1(J8,J8)*
	    RED4B(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J9,JA,J8) ))
	    ))

L 5	Al,Tadp(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,K4~,d~,de~,kp~) =
	    DS(K2;K4;J2;"Z;TAP,(DS("Z;J1;-J1;Sym;J1;-J1;TAP,(
	    DC("F,TFE,-1,J1)*
	   T1*TAD1(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J1,J2) )) ))

	  + DS(K1;K3;-J4;"Z;TAP,(DS("Z;J3;-J3;Sym;J3;-J3;TAP,(
	    DC("F,TFE,-1,J3)*
	   T2*TAD2(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J3,J4) )) ))

	  + DS(K1;-J6;K3;TAP,(DS(J6;-J7;"Z;TAP,(DS("Z;J5;-J5;Sym;J5;-J5;TAP,(
	    DC("F,TFE,-1,J5)*
	   T3*TAD3(K1,a,al,k,K2,b,be,p,K3,c,ga,pp,K4,d,de,kp,J5,J6,J7) )) )) ))

L 9	Id,RED1(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~,J4~) =
	   VE3(K1,-J1,J3,*,a,al,k,*,l1,m1,-q,*,l6,m6,q3)*
	   VE3(J1,-J4,-J2,*,l2,m0,q,*,l7,m7,-qu,*,l3,m3,-q4)*
	   VE3(K2,K4,J4,*,b,be,p,*,d,de,kp,*,l8,m8,qu)*
	   VE3(K3,J2,-J3,*,c,ga,pp,*,l4,m4,q4,*,l5,m5,-q3)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q4,*,l4,m4,-q4)*
	   PROP(J3,-J3,*,l5,m5,q3,*,l6,m6,-q3)*
	   PROP(J4,-J4,*,l7,m7,qu,*,l8,m8,-qu)

L 9	Al,RED2(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~,J4~) =
	   VE3(K1,-J4,K3,*,a,al,k,*,l7,m7,-qu,*,c,ga,pp)*
	   VE3(J4,-J1,J3,*,l8,m8,qu,*,l1,m1,-q,*,l6,m6,q4)*
	   VE3(K2,J1,-J2,*,b,be,p,*,l2,m0,q,*,l3,m3,-q1)*
	   VE3(K4,J2,-J3,*,d,de,kp,*,l4,m4,q1,*,l5,m5,-q4)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q1,*,l4,m4,-q1)*
	   PROP(J3,-J3,*,l5,m5,q4,*,l6,m6,-q4)*
	   PROP(J4,-J4,*,l7,m7,qu,*,l8,m8,-qu)

L 9	Al,RED3(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~) =
	   VE4(K1,-J1,J2,K3,*,a,al,k,*,l1,m1,-q,*,l4,m4,q4,*,c,ga,pp)*
	   VE3(J1,-J2,-J3,*,l2,m0,q,*,l3,m3,-q4,*,l5,m5,-qu)*
	   VE3(K2,J3,K4,*,b,be,p,*,l6,m6,qu,*,d,de,kp)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q4,*,l4,m4,-q4)*
	   PROP(J3,-J3,*,l5,m5,qu,*,l6,m6,-qu)

L 9	Al,RED3A(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~) =
	   VE3(K2,K4,J3,*,b,be,p,*,d,de,kp,*,l6,m6,qu)*
	   VE4(-J2,J1,-J3,K3,*,l3,m3,-q3,*,l2,m0,q,*,l5,m5,-qu,*,c,ga,pp)*
	   VE3(K1,-J1,J2,*,a,al,k,*,l1,m1,-q,*,l4,m4,q3)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q3,*,l4,m4,-q3)*
	   PROP(J3,-J3,*,l5,m5,qu,*,l6,m6,-qu)

L 9	Al,RED3B(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~) =
	   VE3(K2,K4,J3,*,b,be,p,*,d,de,kp,*,l6,m6,qu)*
	   VE4(J2,-J1,-J3,K1,*,l4,m4,q2,*,l1,m1,-q1,*,l5,m5,-qu,*,a,al,k)*
	   VE3(K3,J1,-J2,*,c,ga,pp,*,l2,m0,q1,*,l3,m3,-q2)*
	   PROP(J1,-J1,*,l1,m1,q1,*,l2,m0,-q1)*
	   PROP(J2,-J2,*,l3,m3,q2,*,l4,m4,-q2)*
	   PROP(J3,-J3,*,l5,m5,qu,*,l6,m6,-qu)

L 9	Al,RED4(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~) =
	   VE3(K1,-J3,K3,*,a,al,k,*,l5,m5,-qu,*,c,ga,pp)*
	   VE3(-J1,J2,J3,*,l1,m1,-q,*,l4,m4,q4,*,l6,m6,qu)*
	   VE4(K2,J1,-J2,K4,*,b,be,p,*,l2,m0,q,*,l3,m3,-q4,*,d,de,kp)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q4,*,l4,m4,-q4)*
	   PROP(J3,-J3,*,l5,m5,qu,*,l6,m6,-qu)

L 9	Al,RED4A(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~) =
	   VE3(K1,K3,-J3,*,a,al,k,*,c,ga,pp,*,l5,m5,-qu)*
	   VE4(J2,-J1,J3,K4,*,l4,m4,q1,*,l1,m1,q,*,l6,m6,qu,*,d,de,kp)*
	   VE3(K2,J1,-J2,*,b,be,p,*,l2,m0,q,*,l3,m3,-q1)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q1,*,l4,m4,-q1)*
	   PROP(J3,-J3,*,l5,m5,qu,*,l6,m6,-qu)

L 9	Al,RED4B(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~) =
	   VE3(K1,K3,-J3,*,a,al,k,*,c,ga,pp,*,l5,m5,-qu)*
	   VE4(J2,-J1,J3,K2,*,l4,m4,q3,*,l1,m1,q2,*,l6,m6,qu,*,b,be,p)*
	   VE3(K4,J1,-J2,*,d,de,kp,*,l2,m0,q2,*,l3,m3,-q3)*
	   PROP(J1,-J1,*,l1,m1,q2,*,l2,m0,-q2)*
	   PROP(J2,-J2,*,l3,m3,q3,*,l4,m4,-q3)*
	   PROP(J3,-J3,*,l5,m5,qu,*,l6,m6,-qu)

L 9	Al,RED5(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~,J4~) =
	   VE3(K1,-J4,K3,*,a,al,k,*,l7,m7,-qu,*,c,ga,pp)*
	   VE3(J4,-J1,J2,*,l8,m8,qu,*,l1,m1,-q,*,l3,m3,q4)*
	   VE3(J1,-J2,-J3,*,l2,m0,q,*,l4,m4,-q4,*,l5,m5,-qu)*
	   VE3(K2,J3,K4,*,b,be,p,*,l6,m6,qu,*,d,de,kp)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,q4,*,l4,m4,-q4)*
	   PROP(J3,-J3,*,l5,m5,qu,*,l6,m6,-qu)*
	   PROP(J4,-J4,*,l7,m7,qu,*,l8,m8,-qu)

L 9	Al,RED6(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~) =
	   VE3(K1,-J3,K3,*,a,al,k,*,l5,m5,-qu,*,c,ga,pp)*
	   VE4(J3,-J2,-J1,J1,*,l6,m6,qu,*,l3,m3,-qu,*,l1,m1,-q,*,l2,m0,q)*
	   VE3(K2,J2,K4,*,b,be,p,*,l4,m4,qu,*,d,de,kp)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)*
	   PROP(J2,-J2,*,l3,m3,qu,*,l4,m4,-qu)*
	   PROP(J3,-J3,*,l5,m5,qu,*,l6,m6,-qu)

L10	Id,TAD1(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~) =
	   VE4(K2,K4,J2,"Z,*,b,be,p,*,d,de,kp,*,l4,m4,qu,*,l5,m5,q0)*
	   VE3(K1,K3,-J2,*,a,al,k,*,c,ga,pp,*,l3,m3,-qu)*
	   VE3("Z,J1,-J1,*,l6,m6,-q0,*,l1,m1,-q,*,l2,m0,q)*
	   PROP(J2,-J2,*,l3,m3,qu,*,l4,m4,-qu)*
	   PROP("Z,"Z,*,l5,m5,q0,*,l6,m6,-q0)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)

L10	Al,TAD2(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~) =
	   VE4(K1,K3,-J2,"Z,*,a,al,k,*,c,ga,pp,*,l3,m3,-qu,*,l5,m5,q0)*
	   VE3(K2,K4,J2,*,b,be,p,*,d,de,kp,*,l4,m4,qu)*
	   VE3("Z,J1,-J1,*,l6,m6,-q0,*,l1,m1,-q,*,l2,m0,q)*
	   PROP(J2,-J2,*,l3,m3,qu,*,l4,m4,-qu)*
	   PROP("Z,"Z,*,l5,m5,q0,*,l6,m6,-q0)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)

L10	Al,TAD3(K1~,a~,al~,k~,K2~,b~,be~,p~,K3~,c~,ga~,pp~,
	    K4~,d~,de~,kp~,J1~,J2~,J3~) =
	   VE3(K1,K3,-J2,*,a,al,k,*,c,ga,pp,*,l3,m3,-qu)*
	   VE3(J2,-J3,"Z,*,l4,m4,qu,*,l7,m7,-qu,*,l5,m5,-q0)*
	   VE3(K2,K4,J3,*,b,be,p,*,d,de,kp,*,l8,m8,qu)*
	   VE3("Z,J1,-J1,*,l6,m6,-q0,*,l1,m1,-q,*,l2,m0,q)*
	   PROP(J2,-J2,*,l3,m3,qu,*,l4,m4,-qu)*
	   PROP(J3,-J3,*,l7,m7,qu,*,l8,m8,-qu)*
	   PROP("Z,"Z,*,l5,m5,q0,*,l6,m6,-q0)*
	   PROP(J1,-J1,*,l1,m1,q,*,l2,m0,-q)

L11	Id,Anti,TAP
L12	Al,Stats,0
L13	Al,R1("Z,"Z)=R1Z
L13	Al,R5("Z,"Z)=R5Z
L13	Al,R1(J1~,J2~)=1
L13	Al,R5(J1~,J2~)=1

L14	Id,Compo,<X>,VE4,VE3,PROP

L15	Id,VE4(FF~,l1~,al~,k~,l2~,be~,p~,l3~,ga~,pp~,l4~,la~,kp~)=
	 FF(l1,al,k,l2,be,p,l3,ga,pp,l4,la,kp)
L15	Al,VE3(FF~,l1~,al~,k~,l2~,be~,q~,l3~,ga~,p~)=
	       FF(l1,al,k,l2,be,q,l3,ga,p)
L15	Al,PROP(FF~,l1~,al~,q~,l2~,be~,k~)=FF(l1,al,l2,be,k)
L15	Al,Stats,1

L18	Id,q1(al~)=q(al)+p(al)
L18	Al,q1Dq1=qDq+pDp+2*qDp
L18	Al,Dotpr,q1(al~)=q(al)+p(al)
L18	Al,q0(al~)=0
L18	Al,Dotpr,q0(al~)=0
L19	Id,q2(al~)=q(al)+p(al)+pp(al)
L19	Al,q2Dq2=qDq+pDp+ppDpp+2*qDp+2*qDpp+2*pDpp
L19	Al,Dotpr,q2(al~)=q(al)+p(al)+pp(al)
L20	Id,q3(al~)=q(al)-k(al)
L20	Al,q3Dq3=qDq-2*qDk+kDk
L20	Al,Dotpr,q3(al~)=q(al)-k(al)
L21	Id,q4(al~)=q(al)-k(al)-pp(al)
L21	Al,q4Dq4=qDq+kDk+ppDpp-2*qDk-2*qDpp+2*kDpp
L21	Al,Dotpr,q4(al~)=q(al)-k(al)-pp(al)
L22	Id,qu(al~)=k(al)+pp(al)
L22	Al,quDqu=kDk+ppDpp+2*kDpp
L22	Al,Dotpr,qu(al~)=k(al)+pp(al)

L22	Al,Even,NOM,1

C By definition:
  Extm = 1/{1 + (2*kDpp + kDk + ppDpp)/m^2}
       = 1/{1 + 2*(kDpp - M^2)/m^2}
  ExtM = - 2*kDpp/(u-M^2)
  This makes their principal behaviour explicit.

L23	Id,NOM(qu,m)= Extm/m^2
L23	Al,NOM(qu,M)= ExtM/kDpp/2
L23	Al,NOM(q0,M~)= 1/M^2

L24	Id,pDp=-M^2
L24	Al,kDk=-M^2
L24	Al,ppDpp=-M^2
L24	Al,kpDkp=-M^2
L25	Id,Count,4,M,-1,M2,-2
L26	Id,kp(al~)= - p(al)- k(al) - pp(al)
L26	Al,Dotpr,kp(al~)= - p(al) - k(al)- pp(al)
L27	Id,Epfred
L28	Al,Even,NOM,1

L29	Id,Count,4,M,-1,M2,-2
L30	Id,pDpp=-pDk-kDpp

L31	IF NOT NOM(q~,m)
L32	Id,Count,0,m,1
	ENDIF

	*yep

Terms in output 41, Statistics counts 288, 140, 0, 0.
Running time 22 sec			Used	Maximum
Generated terms 54 	Input space 	16918 	100000
Equal terms 13     	Output space 	2016 	250000
Cancellations 0   	Nr of expr.  	114 	255
Multiplications 35645	String space 	0 	4096
Records written 0 	Merging		0 	0


> Q2RED{M}
L 1	Id,NOM(q~,M~)=NOM(M,q)
L 2	Id,Commu,NOM
L 3	Id,NOM(M~,q~)=NOM(q,M)
L 4	Id,qDq=qq2

C Do only for X.

L 5	Id,qq2^n~*NOM(q~,M)=qq2^n/qqM*Fxx(q,M)

C This works for M and m.

L 6	Id,Ratio,qq2,qqM,q2M
L 7	Id,q2M^n~*Fxx(q,m~)=m^(2*n)*Fxx(q,m)
L 7	Al,q2M^n~*Fxx(q1,m~)={2*qDp-M^2+m^2}^n*Fxx(q1,m)
L 7	Al,q2M^n~*Fxx(q2,m~)={2*qDp+2*qDpp+2*pDpp-2*M^2+m^2}^n*Fxx(q2,m)
L 7	Al,q2M^n~*Fxx(q3,m~)={-2*qDk-M^2+m^2}^n*Fxx(q3,m)
L 7	Al,q2M^n~*Fxx(q4,m~)={-2*qDk-2*qDpp+2*kDpp-2*M^2+m^2}^n*Fxx(q4,m)
L 9	Id,qqM^-1*Fxx(q~,m~)=NOM(q,m)
L 9	Al,Fxx(q~,m~)=1
L 9	Al,qq2=qDq
> Q2RED{M}
L10	Id,NOM(q~,M~)=NOM(M,q)
L11	Id,Commu,NOM
L12	Id,NOM(M~,q~)=NOM(q,M)
L13	Id,qDq=qq2

C Do only for X.

L14	Id,qq2^n~*NOM(q~,M)=qq2^n/qqM*Fxx(q,M)

C This works for M and m.

L15	Id,Ratio,qq2,qqM,q2M
L16	Id,q2M^n~*Fxx(q,m~)=m^(2*n)*Fxx(q,m)
L16	Al,q2M^n~*Fxx(q1,m~)={2*qDp-M^2+m^2}^n*Fxx(q1,m)
L16	Al,q2M^n~*Fxx(q2,m~)={2*qDp+2*qDpp+2*pDpp-2*M^2+m^2}^n*Fxx(q2,m)
L16	Al,q2M^n~*Fxx(q3,m~)={-2*qDk-M^2+m^2}^n*Fxx(q3,m)
L16	Al,q2M^n~*Fxx(q4,m~)={-2*qDk-2*qDpp+2*kDpp-2*M^2+m^2}^n*Fxx(q4,m)
L18	Id,qqM^-1*Fxx(q~,m~)=NOM(q,m)
L18	Al,Fxx(q~,m~)=1
L18	Al,qq2=qDq
	*yep

Terms out 41, in 41.

Terms in output 41
Running time 22 sec			Used	Maximum
Generated terms 41 	Input space 	6300 	100000
Equal terms 0     	Output space 	2016 	250000
Cancellations 0   	Nr of expr.  	38 	255
Multiplications 770	String space 	0 	4096
Records written 0 	Merging		0 	0

> Q2RED{m}
L 1	Id,NOM(q~,M~)=NOM(M,q)
L 2	Id,Commu,NOM
L 3	Id,NOM(M~,q~)=NOM(q,M)
L 4	Id,qDq=qq2

C Do only for X.

L 5	Id,qq2^n~*NOM(q~,m)=qq2^n/qqM*Fxx(q,m)

C This works for M and m.

L 6	Id,Ratio,qq2,qqM,q2M
L 7	Id,q2M^n~*Fxx(q,m~)=m^(2*n)*Fxx(q,m)
L 7	Al,q2M^n~*Fxx(q1,m~)={2*qDp-M^2+m^2}^n*Fxx(q1,m)
L 7	Al,q2M^n~*Fxx(q2,m~)={2*qDp+2*qDpp+2*pDpp-2*M^2+m^2}^n*Fxx(q2,m)
L 7	Al,q2M^n~*Fxx(q3,m~)={-2*qDk-M^2+m^2}^n*Fxx(q3,m)
L 7	Al,q2M^n~*Fxx(q4,m~)={-2*qDk-2*qDpp+2*kDpp-2*M^2+m^2}^n*Fxx(q4,m)
L 9	Id,qqM^-1*Fxx(q~,m~)=NOM(q,m)
L 9	Al,Fxx(q~,m~)=1
L 9	Al,qq2=qDq
> Q2RED{m}
L10	Id,NOM(q~,M~)=NOM(M,q)
L11	Id,Commu,NOM
L12	Id,NOM(M~,q~)=NOM(q,M)
L13	Id,qDq=qq2

C Do only for X.

L14	Id,qq2^n~*NOM(q~,m)=qq2^n/qqM*Fxx(q,m)

C This works for M and m.

L15	Id,Ratio,qq2,qqM,q2M
L16	Id,q2M^n~*Fxx(q,m~)=m^(2*n)*Fxx(q,m)
L16	Al,q2M^n~*Fxx(q1,m~)={2*qDp-M^2+m^2}^n*Fxx(q1,m)
L16	Al,q2M^n~*Fxx(q2,m~)={2*qDp+2*qDpp+2*pDpp-2*M^2+m^2}^n*Fxx(q2,m)
L16	Al,q2M^n~*Fxx(q3,m~)={-2*qDk-M^2+m^2}^n*Fxx(q3,m)
L16	Al,q2M^n~*Fxx(q4,m~)={-2*qDk-2*qDpp+2*kDpp-2*M^2+m^2}^n*Fxx(q4,m)
L18	Id,qqM^-1*Fxx(q~,m~)=NOM(q,m)
L18	Al,Fxx(q~,m~)=1
L18	Al,qq2=qDq
	*yep

Terms out 41, in 41.

Terms in output 41
Running time 23 sec			Used	Maximum
Generated terms 41 	Input space 	6300 	100000
Equal terms 0     	Output space 	2016 	250000
Cancellations 0   	Nr of expr.  	38 	255
Multiplications 770	String space 	0 	4096
Records written 0 	Merging		0 	0

> REDUC{}
L 1	Id,Count,x,NOM,1
L 2	IF x^4
L 3	Id,Adiso,qDk^n~*NOM(q,M~)*NOM(q3,m~)=0.5*qDk^(n-1)*
	 {NOM(q3,m) - NOM(q,M) + (kDk-M^2+m^2)*NOM(q,M)*NOM(q3,m)}
L 6	Id,Adiso,qDp^n~*NOM(q1,M~)*NOM(q,m~)=0.5*qDp^(n-1)*
	 {NOM(q,m) - NOM(q1,M) + NOM(q,m)*NOM(q1,M)*(-pDp+m^2-M^2)}
L 9	Id,Adiso,qDpp^n~*NOM(q2,M~)*NOM(q1,m~)=0.5*qDpp^(n-1)*
	 {NOM(q1,m) - NOM(q2,M) + NOM(q1,m)*NOM(q2,M)*(- 2*pDpp -ppDpp+m^2-M^2)}
L12	Id,Adiso,qDkp^n~*NOM(q2,M~)*NOM(q3,m~)=0.5*qDkp^(n-1)*
	 {NOM(q2,M) - NOM(q3,m) + NOM(q2,M)*NOM(q3,m)*(
	 - kpDkp - 2*pDkp - 2*ppDkp + M^2 - m^2)}
L15	Id,pDp=-M^2
L15	Al,kDk=-M^2
L15	Al,ppDpp=-M^2
L15	Al,kpDkp=-M^2
L16	Id,NOM(q~,M~)=NOM(M,q)
L17	Id,Commu,NOM
L18	Id,NOM(M~,q~)=NOM(q,M)
	ENDIF
L19	Id,x=1
	*yep

Terms out 41, in 41.

Terms in output 41
Running time 23 sec			Used	Maximum
Generated terms 41 	Input space 	5530 	100000
Equal terms 0     	Output space 	2016 	250000
Cancellations 0   	Nr of expr.  	25 	255
Multiplications 241	String space 	0 	4096
Records written 0 	Merging		0 	0

> REDUC{}
L 1	Id,Count,x,NOM,1
L 2	IF x^4
L 3	Id,Adiso,qDk^n~*NOM(q,M~)*NOM(q3,m~)=0.5*qDk^(n-1)*
	 {NOM(q3,m) - NOM(q,M) + (kDk-M^2+m^2)*NOM(q,M)*NOM(q3,m)}
L 6	Id,Adiso,qDp^n~*NOM(q1,M~)*NOM(q,m~)=0.5*qDp^(n-1)*
	 {NOM(q,m) - NOM(q1,M) + NOM(q,m)*NOM(q1,M)*(-pDp+m^2-M^2)}
L 9	Id,Adiso,qDpp^n~*NOM(q2,M~)*NOM(q1,m~)=0.5*qDpp^(n-1)*
	 {NOM(q1,m) - NOM(q2,M) + NOM(q1,m)*NOM(q2,M)*(- 2*pDpp -ppDpp+m^2-M^2)}
L12	Id,Adiso,qDkp^n~*NOM(q2,M~)*NOM(q3,m~)=0.5*qDkp^(n-1)*
	 {NOM(q2,M) - NOM(q3,m) + NOM(q2,M)*NOM(q3,m)*(
	 - kpDkp - 2*pDkp - 2*ppDkp + M^2 - m^2)}
L15	Id,pDp=-M^2
L15	Al,kDk=-M^2
L15	Al,ppDpp=-M^2
L15	Al,kpDkp=-M^2
L16	Id,NOM(q~,M~)=NOM(M,q)
L17	Id,Commu,NOM
L18	Id,NOM(M~,q~)=NOM(q,M)
	ENDIF
L19	Id,x=1
	*yep

Terms out 41, in 41.

Terms in output 41
Running time 24 sec			Used	Maximum
Generated terms 41 	Input space 	5530 	100000
Equal terms 0     	Output space 	2016 	250000
Cancellations 0   	Nr of expr.  	25 	255
Multiplications 241	String space 	0 	4096
Records written 0 	Merging		0 	0

> REDUC{}
L 1	Id,Count,x,NOM,1
L 2	IF x^4
L 3	Id,Adiso,qDk^n~*NOM(q,M~)*NOM(q3,m~)=0.5*qDk^(n-1)*
	 {NOM(q3,m) - NOM(q,M) + (kDk-M^2+m^2)*NOM(q,M)*NOM(q3,m)}
L 6	Id,Adiso,qDp^n~*NOM(q1,M~)*NOM(q,m~)=0.5*qDp^(n-1)*
	 {NOM(q,m) - NOM(q1,M) + NOM(q,m)*NOM(q1,M)*(-pDp+m^2-M^2)}
L 9	Id,Adiso,qDpp^n~*NOM(q2,M~)*NOM(q1,m~)=0.5*qDpp^(n-1)*
	 {NOM(q1,m) - NOM(q2,M) + NOM(q1,m)*NOM(q2,M)*(- 2*pDpp -ppDpp+m^2-M^2)}
L12	Id,Adiso,qDkp^n~*NOM(q2,M~)*NOM(q3,m~)=0.5*qDkp^(n-1)*
	 {NOM(q2,M) - NOM(q3,m) + NOM(q2,M)*NOM(q3,m)*(
	 - kpDkp - 2*pDkp - 2*ppDkp + M^2 - m^2)}
L15	Id,pDp=-M^2
L15	Al,kDk=-M^2
L15	Al,ppDpp=-M^2
L15	Al,kpDkp=-M^2
L16	Id,NOM(q~,M~)=NOM(M,q)
L17	Id,Commu,NOM
L18	Id,NOM(M~,q~)=NOM(q,M)
	ENDIF
L19	Id,x=1

L20	Id,Count,4,M,-1,M2,-2

	*yep

Terms out 41, in 41.

Terms in output 41
Running time 24 sec			Used	Maximum
Generated terms 41 	Input space 	5558 	100000
Equal terms 0     	Output space 	2016 	250000
Cancellations 0   	Nr of expr.  	25 	255
Multiplications 241	String space 	0 	4096
Records written 0 	Merging		0 	0


L 1	Id,NOM(q~,M~)=NOM(M,q)
L 2	Id,Commu,NOM
L 3	Id,NOM(M~,q~)=NOM(q,M)

L 4	Id,Adiso,pDq^4*NOM(q~,m)*NOM(q1~,m)*NOM(q2~,M)*NOM(q3~,M)=0

	*yep

Terms out 41, in 41.

Terms in output 41
Running time 24 sec			Used	Maximum
Generated terms 41 	Input space 	4098 	100000
Equal terms 0     	Output space 	2016 	250000
Cancellations 0   	Nr of expr.  	17 	255
Multiplications 426	String space 	0 	4096
Records written 0 	Merging		0 	0


L 1	Id,Count,x,NOM,1

L 2	IF NOT x
L 3	Id,Addfa,0
	ENDIF

L 4	Id,x=1

L 5	Id,NOM(q~,M)=x*NOM(q,M)
L 6	IF Multi,x^3
L 7	Id,Addfa,Error
	ENDIF

L 8	Id,x=1

	*begin

Terms out 41, in 41.

Terms in output 41
Running time 24 sec			Used	Maximum
Generated terms 41 	Input space 	4164 	100000
Equal terms 0     	Output space 	2016 	250000
Cancellations 0   	Nr of expr.  	16 	255
Multiplications 380	String space 	0 	4096
Records written 0 	Merging		0 	0

 
BoxFF(a,al,k,b,be,p,c,ga,pp,d,de,kp) = 
 + NOM(q,M)*D(a,c)*D(b,d)
  * ( - 3/32*M^-4*m^2*T1*Extm - 3/32*M^-4*m^2*T2*Extm + 9/32*M^-4*m^2
  *T3*Extm^2 - 3/32*M^-4*m^2*R5Z*Extm^2 )
 
 + 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(q4,M)*D(a,b)*D(c,d)
  * ( 1/16*M^-4*m^4*A3 )
 
 + NOM(q,M)*NOM(q4,M)*D(a,c)*D(b,d)
  * ( 7/32*M^-4*m^4*A3 - 5/16*M^-4*m^4*R1Z*Extm + 3/32*M^-4*m^4*R5Z
  *Extm^2 )
 
 + NOM(q,M)*NOM(q4,M)*D(a,d)*D(b,c)
  * ( 1/16*M^-4*m^4*A3 )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q1,m)*D(a,b)*D(c,d)
  * ( - 1/16*M^-4*m^6*A1 )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q1,m)*D(a,c)*D(b,d)
  * ( - 1/16*M^-4*m^6*A1 + 1/16*M^-4*m^6*R1Z*Extm )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q1,m)*D(a,d)*D(b,c)
  * ( - 1/16*M^-4*m^6*A1 )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q3,m)*D(a,b)*D(c,d)
  * ( - 1/16*M^-4*m^6*A2 )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q3,m)*D(a,c)*D(b,d)
  * ( - 1/16*M^-4*m^6*A2 + 1/16*M^-4*m^6*R1Z*Extm )
 
 + NOM(q,M)*NOM(q4,M)*NOM(q3,m)*D(a,d)*D(b,c)
  * ( - 1/16*M^-4*m^6*A2 )
 
 + NOM(q,m)*D(a,c)*D(b,d)
  * ( - 1/32*M^-4*m^2*gu*T1*Extm - 1/32*M^-4*m^2*gu*T2*Extm
  + 3/32*M^-4*m^2*gu*T3*Extm^2 - 1/32*M^-4*m^2*gu*R5Z*Extm^2
  - 3/32*M^-4*m^2*T1*Extm - 3/32*M^-4*m^2*T2*Extm + 9/32*M^-4*m^2*T3
  *Extm^2 - 3/32*M^-4*m^2*R5Z*Extm^2 )
 
 + NOM(q,m)*NOM(q4,m)*D(a,c)*D(b,d)
  * ( 1/32*M^-4*m^4*gu^2*A3 - 1/16*M^-4*m^4*gu^2*R1Z*Extm
  + 1/32*M^-4*m^4*gu^2*R5Z*Extm^2 + 1/32*M^-4*m^4*A3 - 3/16*M^-4*m^4
  *R1Z*Extm + 9/32*M^-4*m^4*R5Z*Extm^2 )
 
 + NOM(q1,M)*NOM(q,m)*D(a,c)*D(b,d)
  * ( - 1/16*M^-4*m^4*R1Z*Extm )
 
 + NOM(q1,M)*NOM(q,m)*NOM(q4,m)*D(a,c)*D(b,d)
  * ( - 1/16*M^-4*m^6*A1 + 3/16*M^-4*m^6*R1Z*Extm )
 
 + 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(q3,M)*NOM(q,m)*D(a,c)*D(b,d)
  * ( - 1/16*M^-4*m^4*R1Z*Extm )
 
 + NOM(q3,M)*NOM(q,m)*NOM(q4,m)*D(a,c)*D(b,d)
  * ( - 1/16*M^-4*m^6*A2 + 3/16*M^-4*m^6*R1Z*Extm )
 
 + NOM(q3,M)*NOM(q2,m)*D(a,c)*D(b,d)
  * ( - 1/16*M^-4*m^4*R1Z*Extm )
 
 + NOM(q2,M)*NOM(q1,m)*D(a,c)*D(b,d)
  * ( - 1/16*M^-4*m^4*R1Z*Extm ) + 0.
 

Begin. Time 25 sec.
	Write BoxFF1
	*end

Terms in output 0
Running time 25 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 7 	Merging		0 	0


End run. Time 25 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:51:39.  Memory: start 0001B84C, length 476348.


C WW-scattering 8.  One loop Fi-Fi scattering, part 2. 228 sec.
  Uses output from 7, file BoxFF1. Produces BoxFF2.

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 487
Running time 5 sec			Used	Maximum
Generated terms 1521 	Input space 	3636 	100000
Equal terms 1034     	Output space 	17100 	250000
Cancellations 0   	Nr of expr.  	51 	255
Multiplications 7767	String space 	0 	4096
Records written 2 	Merging		0 	0


Terms out 487, in 487.

Terms in output 497
Running time 6 sec			Used	Maximum
Generated terms 497 	Input space 	3354 	100000
Equal terms 0     	Output space 	17372 	250000
Cancellations 0   	Nr of expr.  	48 	255
Multiplications 1152	String space 	0 	4096
Records written 2 	Merging		0 	0


Terms out 497, in 497.

Terms in output 357
Running time 11 sec			Used	Maximum
Generated terms 359 	Input space 	2372 	100000
Equal terms 2     	Output space 	12890 	250000
Cancellations 0   	Nr of expr.  	34 	255
Multiplications 7330	String space 	8 	4096
Records written 2 	Merging		0 	0


Terms out 357, in 357.

Terms in output 385
Running time 13 sec			Used	Maximum
Generated terms 409 	Input space 	3968 	100000
Equal terms 24     	Output space 	13686 	250000
Cancellations 0   	Nr of expr.  	57 	255
Multiplications 1957	String space 	8 	4096
Records written 2 	Merging		0 	0


Terms out 385, in 385.

Terms in output 366
Running time 17 sec			Used	Maximum
Generated terms 398 	Input space 	5334 	100000
Equal terms 30     	Output space 	12952 	250000
Cancellations 2   	Nr of expr.  	86 	255
Multiplications 4624	String space 	8 	4096
Records written 2 	Merging		0 	0


Terms out 366, in 366.

Terms in output 684
Running time 24 sec			Used	Maximum
Generated terms 684 	Input space 	3118 	100000
Equal terms 0     	Output space 	23548 	250000
Cancellations 0   	Nr of expr.  	42 	255
Multiplications 8872	String space 	8 	4096
Records written 2 	Merging		0 	0


Terms out 684, in 684.

Terms in output 2549
Running time 56 sec			Used	Maximum
Generated terms 7278 	Input space 	3704 	100000
Equal terms 4604     	Output space 	90072 	250000
Cancellations 125   	Nr of expr.  	56 	255
Multiplications 73075	String space 	8 	4096
Records written 4 	Merging		0 	0


Terms out 2549, in 2549.

Terms in output 1416
Running time 125 sec			Used	Maximum
Generated terms 3020 	Input space 	5674 	100000
Equal terms 1288     	Output space 	51666 	250000
Cancellations 316   	Nr of expr.  	89 	255
Multiplications 90678	String space 	8 	4096
Records written 10 	Merging		0 	0


Terms out 1416, in 1416.

Terms in output 2538
Running time 138 sec			Used	Maximum
Generated terms 5422 	Input space 	1696 	100000
Equal terms 2654     	Output space 	91060 	250000
Cancellations 230   	Nr of expr.  	24 	255
Multiplications 26158	String space 	8 	4096
Records written 13 	Merging		0 	0


Terms out 2538, in 2538.

Terms in output 2538
Running time 153 sec			Used	Maximum
Generated terms 2538 	Input space 	2330 	100000
Equal terms 0     	Output space 	83892 	250000
Cancellations 0   	Nr of expr.  	41 	255
Multiplications 29022	String space 	8 	4096
Records written 18 	Merging		0 	0

 
BoxFF(a,al,k,b,be,p,c,ga,pp,d,de,kp) = 
 + D(a,b)*D(c,d)*Nom
  * ( 15*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDp*qDpp^2 + 20*M^-4*m^6*A1*
 [m2-M2]^-6*qDk*qDp^2*qDpp + 10*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDp^3
  + 4*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDpp^3 + 15*M^-4*m^6*A1*
 [m2-M2]^-6*qDk^2*qDp*qDpp + 10*M^-4*m^6*A1*[m2-M2]^-6*qDk^2*qDp^2
   + 6*M^-4*m^6*A1*[m2-M2]^-6*qDk^2*qDpp^2 + 5*M^-4*m^6*A1*
 [m2-M2]^-6*qDk^3*qDp + 4*M^-4*m^6*A1*[m2-M2]^-6*qDk^3*qDpp
  + M^-4*m^6*A1*[m2-M2]^-6*qDk^4 + 5*M^-4*m^6*A1*[m2-M2]^-6*qDp*qDpp^3
   + 10*M^-4*m^6*A1*[m2-M2]^-6*qDp^2*qDpp^2 + 10*M^-4*m^6*A1*
 [m2-M2]^-6*qDp^3*qDpp + 5*M^-4*m^6*A1*[m2-M2]^-6*qDp^4 + M^-4*m^6
  *A1*[m2-M2]^-6*qDpp^4 - 4*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*qDpp
  - 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*kDp - 4*M^-4*m^6*A1*
 [m2-M2]^-5*qDk*qDp*kDpp - 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*pDpp
  - 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp^2 - 4*M^-4*m^6*A1*[m2-M2]^-5*qDk
  *qDpp*kDp - 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp*kDpp - 4*M^-4*m^6*A1
  *[m2-M2]^-5*qDk*qDpp*pDpp - 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp^2
   - 2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDp - 3/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*qDpp - 2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDp
  - 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDpp - 2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*pDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^3
  - 6*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*kDp - 4*M^-4*m^6*A1*
 [m2-M2]^-5*qDp*qDpp*kDpp - 6*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*pDpp
   - 2*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp^2 - 3*M^-4*m^6*A1*
 [m2-M2]^-5*qDp^2*qDpp - 6*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDp
  - 3*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDpp - 6*M^-4*m^6*A1*[m2-M2]^-5
  *qDp^2*pDpp - 2*M^-4*m^6*A1*[m2-M2]^-5*qDp^3 - 2*M^-4*m^6*A1*
 [m2-M2]^-5*qDpp^2*kDp - 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*kDpp
  - 2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*pDpp - 1/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDpp^3 + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp + 1/2*M^-4
  *m^6*A1*[m2-M2]^-4*qDk*qDpp + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDp
   + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDpp + 3/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDk*pDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-4*qDk^2 + 3/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDp*qDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDp
   + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDp*pDpp + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDp^2 + 3/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDpp*kDp + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDpp*kDpp
   + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDpp*pDpp + 1/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDpp^2 + 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDp*kDpp + 3/2*M^-4
  *m^6*A1*[m2-M2]^-4*kDp*pDpp + 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDp^2
  + 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDpp*pDpp + 1/4*M^-4*m^6*A1*
 [m2-M2]^-4*kDpp^2 + 3/4*M^-4*m^6*A1*[m2-M2]^-4*pDpp^2 - 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*qDk - 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDp - 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*qDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-3*kDp - 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*kDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-3*pDpp + 1/16*M^-4
  *m^6*A1*[m2-M2]^-2 - M^-4*m^6*A2*[m2-M2]^-6*qDk*qDpp^3 + M^-4*m^6
  *A2*[m2-M2]^-6*qDk^2*qDpp^2 - M^-4*m^6*A2*[m2-M2]^-6*qDk^3*qDpp
  + M^-4*m^6*A2*[m2-M2]^-6*qDk^4 + M^-4*m^6*A2*[m2-M2]^-6*qDpp^4
  - M^-4*m^6*A2*[m2-M2]^-5*qDk*qDpp*kDpp + 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDk*qDpp^2 - 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDk^2*qDpp
  + 3/2*M^-4*m^6*A2*[m2-M2]^-5*qDk^2*kDpp + 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDk^3 + 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDpp^2*kDpp
  - 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDpp^3 - 1/4*M^-4*m^6*A2*[m2-M2]^-4
  *qDk*qDpp + 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDk*kDpp + 1/4*M^-4*m^6*A2
  *[m2-M2]^-4*qDk^2 - 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp*kDpp
  + 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp^2 + 1/4*M^-4*m^6*A2*[m2-M2]^-4
  *kDpp^2 + 1/8*M^-4*m^6*A2*[m2-M2]^-3*qDk - 1/8*M^-4*m^6*A2*
 [m2-M2]^-3*qDpp + 1/8*M^-4*m^6*A2*[m2-M2]^-3*kDpp + 1/16*M^-4*m^6
  *A2*[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 )
 
 + D(a,b)*D(c,d)*Nohm
  * ( - 15*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDp*qDpp^2 - 20*M^-4*m^6*A1*
 [m2-M2]^-6*qDk*qDp^2*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDpp^3 - 15*M^-4*m^6*A1*
 [m2-M2]^-6*qDk^2*qDp*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-6*qDk^2*qDp^2
   - 6*M^-4*m^6*A1*[m2-M2]^-6*qDk^2*qDpp^2 - 5*M^-4*m^6*A1*
 [m2-M2]^-6*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-6*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-6*qDk^4 - 5*M^-4*m^6*A1*[m2-M2]^-6*qDp*qDpp^3
   - 10*M^-4*m^6*A1*[m2-M2]^-6*qDp^2*qDpp^2 - 10*M^-4*m^6*A1*
 [m2-M2]^-6*qDp^3*qDpp - 5*M^-4*m^6*A1*[m2-M2]^-6*qDp^4 - M^-4*m^6
  *A1*[m2-M2]^-6*qDpp^4 + 4*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*qDpp
  + 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-5*qDk*qDp*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*pDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp^2 + 4*M^-4*m^6*A1*[m2-M2]^-5*qDk
  *qDpp*kDp + 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp*kDpp + 4*M^-4*m^6*A1
  *[m2-M2]^-5*qDk*qDpp*pDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp^2
   + 2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*qDpp + 2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDpp + 2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*pDpp + 1/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^3
  + 6*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-5*qDp*qDpp*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*pDpp
   + 2*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp^2 + 3*M^-4*m^6*A1*
 [m2-M2]^-5*qDp^2*qDpp + 6*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDp
  + 3*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-5
  *qDp^2*pDpp + 2*M^-4*m^6*A1*[m2-M2]^-5*qDp^3 + 2*M^-4*m^6*A1*
 [m2-M2]^-5*qDpp^2*kDp + 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*kDpp
  + 2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDpp^3 - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp - 1/2*M^-4
  *m^6*A1*[m2-M2]^-4*qDk*qDpp - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDp
   - 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDpp - 3/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDk*pDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-4*qDk^2 - 3/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDp*qDpp - 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDp
   - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDpp - 3/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDp*pDpp - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDp^2 - 3/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDpp*kDp - 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDpp*kDpp
   - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDpp*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDpp^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDp*kDpp - 3/2*M^-4
  *m^6*A1*[m2-M2]^-4*kDp*pDpp - 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDp^2
  - 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDpp*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-4*kDpp^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-4*pDpp^2 + 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*qDk + 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDp + 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*qDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-3*kDp + 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*kDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-3*pDpp - 1/16*M^-4
  *m^6*A1*[m2-M2]^-2 + M^-4*m^6*A2*[m2-M2]^-6*qDk*qDpp^3 - M^-4*m^6
  *A2*[m2-M2]^-6*qDk^2*qDpp^2 + M^-4*m^6*A2*[m2-M2]^-6*qDk^3*qDpp
  - M^-4*m^6*A2*[m2-M2]^-6*qDk^4 - M^-4*m^6*A2*[m2-M2]^-6*qDpp^4
  + M^-4*m^6*A2*[m2-M2]^-5*qDk*qDpp*kDpp - 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDk*qDpp^2 + 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDk^2*qDpp
  - 3/2*M^-4*m^6*A2*[m2-M2]^-5*qDk^2*kDpp - 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDk^3 - 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDpp^2*kDpp
  + 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDpp^3 + 1/4*M^-4*m^6*A2*[m2-M2]^-4
  *qDk*qDpp - 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDk*kDpp - 1/4*M^-4*m^6*A2
  *[m2-M2]^-4*qDk^2 + 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp*kDpp
  - 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp^2 - 1/4*M^-4*m^6*A2*[m2-M2]^-4
  *kDpp^2 - 1/8*M^-4*m^6*A2*[m2-M2]^-3*qDk + 1/8*M^-4*m^6*A2*
 [m2-M2]^-3*qDpp - 1/8*M^-4*m^6*A2*[m2-M2]^-3*kDpp - 1/16*M^-4*m^6
  *A2*[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 )
 
 + D(a,b)*D(c,d)*Nohm^2
  * ( - 15*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*qDpp^2 - 20*M^-4*m^6*A1*
 [m2-M2]^-5*qDk*qDp^2*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp^3 - 15*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*qDp*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDp^2
   - 6*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDpp^2 - 5*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-5*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-5*qDk^4 - 5*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp^3
   - 10*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*qDpp^2 - 10*M^-4*m^6*A1*
 [m2-M2]^-5*qDp^3*qDpp - 4*M^-4*m^6*A1*[m2-M2]^-5*qDp^4 - M^-4*m^6
  *A1*[m2-M2]^-5*qDpp^4 + 4*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*qDpp
  + 6*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-4*qDk*qDp*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*pDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp^2 + 4*M^-4*m^6*A1*[m2-M2]^-4*qDk
  *qDpp*kDp + 3*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDpp*kDpp + 4*M^-4*m^6*A1
  *[m2-M2]^-4*qDk*qDpp*pDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDpp^2
   + 2*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*qDp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDk^2*qDpp + 2*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*kDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*kDpp + 2*M^-4*m^6*A1*
 [m2-M2]^-4*qDk^2*pDpp + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDk^3
  + 6*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-4*qDp*qDpp*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp*pDpp
   + 2*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp^2 + 3*M^-4*m^6*A1*
 [m2-M2]^-4*qDp^2*qDpp + 9/2*M^-4*m^6*A1*[m2-M2]^-4*qDp^2*kDp
  + 3*M^-4*m^6*A1*[m2-M2]^-4*qDp^2*kDpp + 9/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDp^2*pDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp^3
  + 2*M^-4*m^6*A1*[m2-M2]^-4*qDpp^2*kDp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDpp^2*kDpp + 2*M^-4*m^6*A1*[m2-M2]^-4*qDpp^2*pDpp
  + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDpp^3 - 3/4*M^-4*m^6*A1*[m2-M2]^-3
  *qDk*qDp - 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp - 3/4*M^-4*m^6*A1
  *[m2-M2]^-3*qDk*kDp - 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDk*kDpp
  - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDk*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp - M^-4*m^6
  *A1*[m2-M2]^-3*qDp*kDp - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDp*kDpp
  - M^-4*m^6*A1*[m2-M2]^-3*qDp*pDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDp^2
   - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDpp*kDp - 1/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDpp*kDpp - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDpp*pDpp
  - 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDpp^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-3
  *kDp*kDpp - M^-4*m^6*A1*[m2-M2]^-3*kDp*pDpp - 1/2*M^-4*m^6*A1*
 [m2-M2]^-3*kDp^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-3*kDpp*pDpp - 1/4*M^-4
  *m^6*A1*[m2-M2]^-3*kDpp^2 - 1/2*M^-4*m^6*A1*[m2-M2]^-3*pDpp^2
  + 1/8*M^-4*m^6*A1*[m2-M2]^-2*qDk + 1/8*M^-4*m^6*A1*[m2-M2]^-2*qDp
   + 1/8*M^-4*m^6*A1*[m2-M2]^-2*qDpp + 1/8*M^-4*m^6*A1*[m2-M2]^-2*kDp
   + 1/8*M^-4*m^6*A1*[m2-M2]^-2*kDpp + 1/8*M^-4*m^6*A1*[m2-M2]^-2*pDpp
   + M^-4*m^6*A2*[m2-M2]^-5*qDk*qDpp^3 - M^-4*m^6*A2*[m2-M2]^-5*qDk^2
  *qDpp^2 + M^-4*m^6*A2*[m2-M2]^-5*qDk^3*qDpp - M^-4*m^6*A2*
 [m2-M2]^-5*qDpp^4 + M^-4*m^6*A2*[m2-M2]^-4*qDk*qDpp*kDpp
  - 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDk*qDpp^2 + 1/2*M^-4*m^6*A2*
 [m2-M2]^-4*qDk^2*qDpp - 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDpp^2*kDpp
  + 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDpp^3 + 1/4*M^-4*m^6*A2*[m2-M2]^-3
  *qDk*qDpp + 1/4*M^-4*m^6*A2*[m2-M2]^-3*qDpp*kDpp - 1/4*M^-4*m^6*A2
  *[m2-M2]^-3*qDpp^2 + 1/8*M^-4*m^6*A2*[m2-M2]^-2*qDpp + 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 )
 
 + D(a,b)*D(c,d)*Nohm^3
  * ( - 15*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*qDpp^2 - 20*M^-4*m^6*A1*
 [m2-M2]^-4*qDk*qDp^2*qDpp - 9*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDpp^3 - 15*M^-4*m^6*A1*
 [m2-M2]^-4*qDk^2*qDp*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*qDp^2
   - 6*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*qDpp^2 - 5*M^-4*m^6*A1*
 [m2-M2]^-4*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-4*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-4*qDk^4 - 5*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp^3
   - 10*M^-4*m^6*A1*[m2-M2]^-4*qDp^2*qDpp^2 - 9*M^-4*m^6*A1*
 [m2-M2]^-4*qDp^3*qDpp - 3*M^-4*m^6*A1*[m2-M2]^-4*qDp^4 - M^-4*m^6
  *A1*[m2-M2]^-4*qDpp^4 + 4*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*qDpp
  + 5*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDp*kDpp + 5*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*pDpp
  + 5/2*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp^2 + 4*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDpp*kDp + 3*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp*kDpp
  + 4*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp*pDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDpp^2 + 2*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDpp + 2*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^2*kDp + 3/2*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*kDpp
  + 2*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^3 + 5*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp*kDp
  + 4*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp*kDpp + 5*M^-4*m^6*A1*
 [m2-M2]^-3*qDp*qDpp*pDpp + 2*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp^2
  + 5/2*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*qDpp + 3*M^-4*m^6*A1*
 [m2-M2]^-3*qDp^2*kDp + 5/2*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*kDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*pDpp + M^-4*m^6*A1*[m2-M2]^-3*qDp^3
   + 2*M^-4*m^6*A1*[m2-M2]^-3*qDpp^2*kDp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDpp^2*kDpp + 2*M^-4*m^6*A1*[m2-M2]^-3*qDpp^2*pDpp
  + 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDpp^3 - 1/2*M^-4*m^6*A1*[m2-M2]^-2
  *qDk*qDp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDpp - 1/2*M^-4*m^6*A1
  *[m2-M2]^-2*qDk*kDp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDk*kDpp
  - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDk*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^2 - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp - 1/2*M^-4
  *m^6*A1*[m2-M2]^-2*qDp*kDp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDp*kDpp
   - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDp*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^2 - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp*kDp - 1/2*M^-4
  *m^6*A1*[m2-M2]^-2*qDpp*kDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp*pDpp
   - 1/4*M^-4*m^6*A1*[m2-M2]^-2*qDpp^2 - 1/2*M^-4*m^6*A1*
 [m2-M2]^-2*kDp*kDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*kDp*pDpp
  - 1/4*M^-4*m^6*A1*[m2-M2]^-2*kDp^2 - 1/2*M^-4*m^6*A1*[m2-M2]^-2*kDpp
  *pDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-2*kDpp^2 - 1/4*M^-4*m^6*A1*
 [m2-M2]^-2*pDpp^2 + M^-4*m^6*A2*[m2-M2]^-4*qDk*qDpp^3 - M^-4*m^6*A2
  *[m2-M2]^-4*qDk^2*qDpp^2 - M^-4*m^6*A2*[m2-M2]^-4*qDpp^4
  - 1/2*M^-4*m^6*A2*[m2-M2]^-3*qDk*qDpp^2 - 1/2*M^-4*m^6*A2*
 [m2-M2]^-3*qDpp^2*kDpp + 1/2*M^-4*m^6*A2*[m2-M2]^-3*qDpp^3
  - 1/4*M^-4*m^6*A2*[m2-M2]^-2*qDpp^2 + 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 )
 
 + D(a,b)*D(c,d)*Nohm^4
  * ( - 15*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*qDpp^2 - 18*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDp^2*qDpp - 7*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp^3 - 15*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^2*qDp*qDpp - 9*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDp^2
  - 6*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDpp^2 - 5*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-3*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-3*qDk^4 - 5*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp^3
   - 9*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*qDpp^2 - 7*M^-4*m^6*A1*
 [m2-M2]^-3*qDp^3*qDpp - 2*M^-4*m^6*A1*[m2-M2]^-3*qDp^4 - M^-4*m^6
  *A1*[m2-M2]^-3*qDpp^4 + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*qDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*kDp + 3*M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDp*kDpp + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*pDpp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp^2 + 3*M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDpp*kDp + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDpp*kDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDpp*pDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDpp^2 + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^2*kDp + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*kDpp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^3 + 3*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp*kDp
  + 3*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp*kDpp + 3*M^-4*m^6*A1*
 [m2-M2]^-2*qDp*qDpp*pDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp^2
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*qDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^2*kDp + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*kDpp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^3 + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp^2*kDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp^2*kDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDpp^2*pDpp + 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp^3
  + M^-4*m^6*A2*[m2-M2]^-3*qDk*qDpp^3 - M^-4*m^6*A2*[m2-M2]^-3*qDpp^4
   + 1/2*M^-4*m^6*A2*[m2-M2]^-2*qDpp^3 + 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 )
 
 + D(a,b)*D(c,d)*Nohm^5
  * ( - 12*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*qDpp^2 - 12*M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDp^2*qDpp - 4*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDpp^3 - 12*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^2*qDp*qDpp - 6*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDp^2
  - 6*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDpp^2 - 4*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-2*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-2*qDk^4 - 4*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp^3
   - 6*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*qDpp^2 - 4*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^3*qDpp - M^-4*m^6*A1*[m2-M2]^-2*qDp^4 - M^-4*m^6*A1
  *[m2-M2]^-2*qDpp^4 - M^-4*m^6*A2*[m2-M2]^-2*qDpp^4 + 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
  * ( 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
  * ( - 3/32*M^-4*m^2*T1*Extm - 3/32*M^-4*m^2*T2*Extm + 9/32*M^-4*m^2
  *T3*Extm^2 - 3/32*M^-4*m^2*R5Z*Extm^2 - 12*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-5*qDk*qDp*qDpp^2 - 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk*qDp^2
  *qDpp - 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk*qDp^3 - 4*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-5*qDk*qDpp^3 - 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk^2
  *qDp*qDpp - 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk^2*qDp^2 - 6*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-5*qDk^2*qDpp^2 - 4*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-5*qDk^3*qDp - 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk^3*qDpp
  - 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk^4 - 4*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-5*qDp*qDpp^3 - 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDp^2*qDpp^2
   - 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDp^3*qDpp - 2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-5*qDp^4 - 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDpp^4
  + 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk*qDp*qDpp + 3/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-4*qDk*qDp^2 + 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk
  *qDpp^2 + 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk^2*qDp + 3/2*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-4*qDk^2*qDpp + M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk^3
   + 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDp*qDpp^2 + 3/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-4*qDp^2*qDpp - 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk
  *qDp - 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk*qDpp - 1/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-3*qDk^2 - 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp*qDpp
   - 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp^2 - 1/2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-3*qDpp^2 + 1/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk
  - 1/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1 - 8*M^-4*m^6*A1*[m2-M2]^-5*qDk
  *qDp*qDpp - 2*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*kDp - 2*M^-4*m^6*A1
  *[m2-M2]^-5*qDk*qDp*pDpp - 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp^2
  - M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp*kDp - M^-4*m^6*A1*[m2-M2]^-5*qDk
  *qDpp*pDpp - 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp^2 - 4*M^-4*m^6*A1
  *[m2-M2]^-5*qDk^2*qDp - 3*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDpp
  - 1/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDp - 1/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*pDpp - M^-4*m^6*A1*[m2-M2]^-5*qDk^3 - 2*M^-4*m^6
  *A1*[m2-M2]^-5*qDp*qDpp*kDp - 2*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*pDpp
   - 4*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp^2 - 6*M^-4*m^6*A1*
 [m2-M2]^-5*qDp^2*qDpp - 3*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDp
  - 3*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*pDpp - 4*M^-4*m^6*A1*[m2-M2]^-5
  *qDp^3 - 1/2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*kDp - 1/2*M^-4*m^6*A1
  *[m2-M2]^-5*qDpp^2*pDpp - M^-4*m^6*A1*[m2-M2]^-5*qDpp^3
  + 5/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDp + M^-4*m^6*A1*[m2-M2]^-4*qDk
  *kDpp + 5/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*pDpp + 9/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDp*kDp + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDpp
  + 9/4*M^-4*m^6*A1*[m2-M2]^-4*qDp*pDpp + 5/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDpp*kDp + M^-4*m^6*A1*[m2-M2]^-4*qDpp*kDpp + 5/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDpp*pDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-4*kDp*kDpp
   + M^-4*m^6*A1*[m2-M2]^-4*kDp*pDpp + 1/2*M^-4*m^6*A1*[m2-M2]^-4*kDp^2
   + 1/4*M^-4*m^6*A1*[m2-M2]^-4*kDpp*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-4*pDpp^2 - 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDk - 1/2*M^-4*m^6
  *A1*[m2-M2]^-3*qDp - 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDpp - 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*kDp - 1/8*M^-4*m^6*A1*[m2-M2]^-3*pDpp - M^-4*m^6*A2
  *[m2-M2]^-5*qDk*qDpp*kDpp + M^-4*m^6*A2*[m2-M2]^-5*qDk*qDpp^2
  - M^-4*m^6*A2*[m2-M2]^-5*qDk^2*qDpp + 3/2*M^-4*m^6*A2*[m2-M2]^-5
  *qDk^2*kDpp + M^-4*m^6*A2*[m2-M2]^-5*qDk^3 + 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDpp^2*kDpp - M^-4*m^6*A2*[m2-M2]^-5*qDpp^3 + 1/2*M^-4
  *m^6*A2*[m2-M2]^-4*qDk*kDpp - 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp*kDpp
   + 1/4*M^-4*m^6*A2*[m2-M2]^-4*kDpp^2 + 1/4*M^-4*m^6*A2*
 [m2-M2]^-3*qDk - 1/4*M^-4*m^6*A2*[m2-M2]^-3*qDpp + 1/8*M^-4*m^6*A2
  *[m2-M2]^-3*kDpp + 30*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk*qDp*qDpp^2
   + 40*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk*qDp^2*qDpp + 20*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-6*qDk*qDp^3 + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk*qDpp^3
   + 30*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk^2*qDp*qDpp + 20*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-6*qDk^2*qDp^2 + 14*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk^2
  *qDpp^2 + 10*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk^3*qDp + 6*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-6*qDk^3*qDpp + 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-6
  *qDk^4 + 10*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDp*qDpp^3 + 20*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-6*qDp^2*qDpp^2 + 20*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-6*qDp^3*qDpp + 10*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDp^4
  + 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDpp^4 + 16*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-5*qDk*qDp*qDpp - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDp*kDp
   - 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDp*kDpp - 6*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-5*qDk*qDp*pDpp + 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDp^2
   - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDpp*kDp - 5*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-5*qDk*qDpp*kDpp - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDpp
  *pDpp + 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDpp^2 + 8*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-5*qDk^2*qDp + 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk^2
  *qDpp - 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk^2*kDp - 9/2*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-5*qDk^2*kDpp - 5/2*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-5*qDk^2*pDpp - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp*qDpp*kDp
   - 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp*qDpp*kDpp - 6*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-5*qDp*qDpp*pDpp + 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp
  *qDpp^2 + 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp^2*qDpp - 3*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-5*qDp^2*kDp - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp^2
  *kDpp - 3*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp^2*pDpp + 8*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-5*qDp^3 - 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDpp^2
  *kDp - 7/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDpp^2*kDpp - 5/2*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-5*qDpp^2*pDpp + 4*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-5*qDpp^3 + 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDp
  + 1/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDpp - 9/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDk*kDp - 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*kDpp
  - 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*pDpp + M^-4*m^6*R1Z*Extm*
 [m2-M2]^-4*qDk^2 + 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp*qDpp
  - 15/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp*kDp - 3*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDp*kDpp - 15/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp*pDpp
   + 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp^2 - 9/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDpp*kDp - 7/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDpp*kDpp
   - 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDpp*pDpp + M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDpp^2 + 3/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*kDp*kDpp
  + 3/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*kDpp*pDpp + 1/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*kDpp^2 + M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp + M^-4*m^6
  *R1Z*Extm*[m2-M2]^-3*qDpp - 1/8*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*kDp
   - 3/8*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*kDpp - 1/8*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*pDpp + 1/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2 )
 
 + D(a,c)*D(b,d)*Nohm
  * ( - 1/32*M^-4*m^2*gu*T1*Extm - 1/32*M^-4*m^2*gu*T2*Extm
  + 3/32*M^-4*m^2*gu*T3*Extm^2 - 1/32*M^-4*m^2*gu*R5Z*Extm^2
  - 3/32*M^-4*m^2*T1*Extm - 3/32*M^-4*m^2*T2*Extm + 9/32*M^-4*m^2*T3
  *Extm^2 - 3/32*M^-4*m^2*R5Z*Extm^2 + 12*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-5*qDk*qDp*qDpp^2 + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk*qDp^2
  *qDpp + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk*qDp^3 + 4*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-5*qDk*qDpp^3 + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk^2
  *qDp*qDpp + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk^2*qDp^2 + 6*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-5*qDk^2*qDpp^2 + 4*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-5*qDk^3*qDp + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk^3*qDpp
  + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDk^4 + 4*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-5*qDp*qDpp^3 + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDp^2*qDpp^2
   + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDp^3*qDpp + 2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-5*qDp^4 + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-5*qDpp^4
  - 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk*qDp*qDpp - 3/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-4*qDk*qDp^2 - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk
  *qDpp^2 - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk^2*qDp - 3/2*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-4*qDk^2*qDpp - M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk^3
   - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDp*qDpp^2 - 3/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-4*qDp^2*qDpp + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk
  *qDp + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk*qDpp + 1/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-3*qDk^2 + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp*qDpp
   + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp^2 + 1/2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-3*qDpp^2 - 1/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk
  + 1/4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1 + 8*M^-4*m^6*A1*[m2-M2]^-5*qDk
  *qDp*qDpp + 2*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*kDp + 2*M^-4*m^6*A1
  *[m2-M2]^-5*qDk*qDp*pDpp + 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp^2
  + M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp*kDp + M^-4*m^6*A1*[m2-M2]^-5*qDk
  *qDpp*pDpp + 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp^2 + 4*M^-4*m^6*A1
  *[m2-M2]^-5*qDk^2*qDp + 3*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDpp
  + 1/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*pDpp + M^-4*m^6*A1*[m2-M2]^-5*qDk^3 + 2*M^-4*m^6
  *A1*[m2-M2]^-5*qDp*qDpp*kDp + 2*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*pDpp
   + 4*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp^2 + 6*M^-4*m^6*A1*
 [m2-M2]^-5*qDp^2*qDpp + 3*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDp
  + 3*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*pDpp + 4*M^-4*m^6*A1*[m2-M2]^-5
  *qDp^3 + 1/2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*kDp + 1/2*M^-4*m^6*A1
  *[m2-M2]^-5*qDpp^2*pDpp + M^-4*m^6*A1*[m2-M2]^-5*qDpp^3
  - 5/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDp - M^-4*m^6*A1*[m2-M2]^-4*qDk
  *kDpp - 5/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*pDpp - 9/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDp*kDp - 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDpp
  - 9/4*M^-4*m^6*A1*[m2-M2]^-4*qDp*pDpp - 5/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDpp*kDp - M^-4*m^6*A1*[m2-M2]^-4*qDpp*kDpp - 5/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDpp*pDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-4*kDp*kDpp
   - M^-4*m^6*A1*[m2-M2]^-4*kDp*pDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-4*kDp^2
   - 1/4*M^-4*m^6*A1*[m2-M2]^-4*kDpp*pDpp - 1/2*M^-4*m^6*A1*
 [m2-M2]^-4*pDpp^2 + 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDk + 1/2*M^-4*m^6
  *A1*[m2-M2]^-3*qDp + 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDpp + 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*kDp + 1/8*M^-4*m^6*A1*[m2-M2]^-3*pDpp + M^-4*m^6*A2
  *[m2-M2]^-5*qDk*qDpp*kDpp - M^-4*m^6*A2*[m2-M2]^-5*qDk*qDpp^2
  + M^-4*m^6*A2*[m2-M2]^-5*qDk^2*qDpp - 3/2*M^-4*m^6*A2*[m2-M2]^-5
  *qDk^2*kDpp - M^-4*m^6*A2*[m2-M2]^-5*qDk^3 - 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDpp^2*kDpp + M^-4*m^6*A2*[m2-M2]^-5*qDpp^3 - 1/2*M^-4
  *m^6*A2*[m2-M2]^-4*qDk*kDpp + 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp*kDpp
   - 1/4*M^-4*m^6*A2*[m2-M2]^-4*kDpp^2 - 1/4*M^-4*m^6*A2*
 [m2-M2]^-3*qDk + 1/4*M^-4*m^6*A2*[m2-M2]^-3*qDpp - 1/8*M^-4*m^6*A2
  *[m2-M2]^-3*kDpp - 30*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk*qDp*qDpp^2
   - 40*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk*qDp^2*qDpp - 20*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-6*qDk*qDp^3 - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk*qDpp^3
   - 30*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk^2*qDp*qDpp - 20*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-6*qDk^2*qDp^2 - 14*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk^2
  *qDpp^2 - 10*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDk^3*qDp - 6*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-6*qDk^3*qDpp - 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-6
  *qDk^4 - 10*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDp*qDpp^3 - 20*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-6*qDp^2*qDpp^2 - 20*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-6*qDp^3*qDpp - 10*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDp^4
  - 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-6*qDpp^4 - 16*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-5*qDk*qDp*qDpp + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDp*kDp
   + 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDp*kDpp + 6*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-5*qDk*qDp*pDpp - 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDp^2
   + 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDpp*kDp + 5*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-5*qDk*qDpp*kDpp + 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDpp
  *pDpp - 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDpp^2 - 8*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-5*qDk^2*qDp - 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk^2
  *qDpp + 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk^2*kDp + 9/2*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-5*qDk^2*kDpp + 5/2*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-5*qDk^2*pDpp + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp*qDpp*kDp
   + 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp*qDpp*kDpp + 6*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-5*qDp*qDpp*pDpp - 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp
  *qDpp^2 - 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp^2*qDpp + 3*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-5*qDp^2*kDp + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp^2
  *kDpp + 3*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp^2*pDpp - 8*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-5*qDp^3 + 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDpp^2
  *kDp + 7/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDpp^2*kDpp + 5/2*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-5*qDpp^2*pDpp - 4*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-5*qDpp^3 - 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDp
  - 1/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDpp + 9/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDk*kDp + 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*kDpp
  + 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*pDpp - M^-4*m^6*R1Z*Extm*
 [m2-M2]^-4*qDk^2 - 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp*qDpp
  + 15/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp*kDp + 3*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDp*kDpp + 15/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp*pDpp
   - 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp^2 + 9/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDpp*kDp + 7/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDpp*kDpp
   + 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDpp*pDpp - M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDpp^2 - 3/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*kDp*kDpp
  - 3/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*kDpp*pDpp - 1/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*kDpp^2 - M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp - M^-4*m^6
  *R1Z*Extm*[m2-M2]^-3*qDpp + 1/8*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*kDp
   + 3/8*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*kDpp + 1/8*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*pDpp - 1/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2 )
 
 + D(a,c)*D(b,d)*Nohm^2
  * ( 1/32*M^-4*m^4*gu^2*A3 - 1/16*M^-4*m^4*gu^2*R1Z*Extm
  + 1/32*M^-4*m^4*gu^2*R5Z*Extm^2 + 1/32*M^-4*m^4*A3 - 3/16*M^-4*m^4
  *R1Z*Extm + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk*qDp*qDpp^2
  + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk*qDp^2*qDpp + 4*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-4*qDk*qDp^3 + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk*qDpp^3
   + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk^2*qDp*qDpp + 6*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-4*qDk^2*qDp^2 + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk^2
  *qDpp^2 + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk^3*qDp + 4*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-4*qDk^3*qDpp + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDk^4
   + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDp*qDpp^3 + 6*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-4*qDp^2*qDpp^2 + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDp^3*qDpp
   + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-4*qDp^4 + 2*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-4*qDpp^4 - 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk*qDp*qDpp
  - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk*qDp^2 - 3/2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-3*qDk*qDpp^2 - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk^2*qDp
   - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk^2*qDpp - M^-4*m^4*R1Z*Extm
  *[m2-M2]^-3*qDk^3 - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp*qDpp^2
  - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp^2*qDpp + 1/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-2*qDk*qDp + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk*qDpp
   + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk^2 + 1/2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-2*qDp*qDpp + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDp^2
  + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDpp^2 - 1/4*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-1*qDk + 9/32*M^-4*m^4*R5Z*Extm^2 + M^-4*m^6*A1*
 [m2-M2]^-5*qDp^4 + 8*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*qDpp
  + 2*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*kDp + 2*M^-4*m^6*A1*
 [m2-M2]^-4*qDk*qDp*pDpp + 6*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp^2
  + M^-4*m^6*A1*[m2-M2]^-4*qDk*qDpp*kDp + M^-4*m^6*A1*[m2-M2]^-4*qDk
  *qDpp*pDpp + 3*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDpp^2 + 4*M^-4*m^6*A1
  *[m2-M2]^-4*qDk^2*qDp + 3*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*qDpp
  + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*kDp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDk^2*pDpp + M^-4*m^6*A1*[m2-M2]^-4*qDk^3 + 2*M^-4*m^6
  *A1*[m2-M2]^-4*qDp*qDpp*kDp + 2*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp*pDpp
   + 4*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp^2 + 6*M^-4*m^6*A1*
 [m2-M2]^-4*qDp^2*qDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp^2*kDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp^2*pDpp + 7/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDp^3 + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDpp^2*kDp
  + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDpp^2*pDpp + M^-4*m^6*A1*
 [m2-M2]^-4*qDpp^3 - 5/4*M^-4*m^6*A1*[m2-M2]^-3*qDk*kDp - M^-4*m^6
  *A1*[m2-M2]^-3*qDk*kDpp - 5/4*M^-4*m^6*A1*[m2-M2]^-3*qDk*pDpp
  - 7/4*M^-4*m^6*A1*[m2-M2]^-3*qDp*kDp - 3/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDp*kDpp - 7/4*M^-4*m^6*A1*[m2-M2]^-3*qDp*pDpp
  + 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDp^2 - 5/4*M^-4*m^6*A1*[m2-M2]^-3*qDpp
  *kDp - M^-4*m^6*A1*[m2-M2]^-3*qDpp*kDpp - 5/4*M^-4*m^6*A1*
 [m2-M2]^-3*qDpp*pDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-3*kDp*kDpp
  - 1/2*M^-4*m^6*A1*[m2-M2]^-3*kDp*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-3*kDp^2 - 1/4*M^-4*m^6*A1*[m2-M2]^-3*kDpp*pDpp - 1/4*M^-4
  *m^6*A1*[m2-M2]^-3*pDpp^2 + 1/4*M^-4*m^6*A1*[m2-M2]^-2*qDk
  + 3/8*M^-4*m^6*A1*[m2-M2]^-2*qDp + 1/4*M^-4*m^6*A1*[m2-M2]^-2*qDpp
   + 1/16*M^-4*m^6*A1*[m2-M2]^-1 + M^-4*m^6*A2*[m2-M2]^-5*qDk^4
  + M^-4*m^6*A2*[m2-M2]^-4*qDk*qDpp*kDpp - M^-4*m^6*A2*[m2-M2]^-4*qDk
  *qDpp^2 + M^-4*m^6*A2*[m2-M2]^-4*qDk^2*qDpp - 1/2*M^-4*m^6*A2*
 [m2-M2]^-4*qDk^3 - 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDpp^2*kDpp
  + M^-4*m^6*A2*[m2-M2]^-4*qDpp^3 + 1/4*M^-4*m^6*A2*[m2-M2]^-3*qDk^2
   + 1/4*M^-4*m^6*A2*[m2-M2]^-3*qDpp*kDpp - 1/8*M^-4*m^6*A2*
 [m2-M2]^-2*qDk + 1/4*M^-4*m^6*A2*[m2-M2]^-2*qDpp + 1/16*M^-4*m^6*A2
  *[m2-M2]^-1 - 30*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDp*qDpp^2
  - 40*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDp^2*qDpp - 20*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-5*qDk*qDp^3 - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk*qDpp^3
   - 30*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk^2*qDp*qDpp - 20*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-5*qDk^2*qDp^2 - 14*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk^2
  *qDpp^2 - 10*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDk^3*qDp - 6*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-5*qDk^3*qDpp - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-5
  *qDk^4 - 10*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp*qDpp^3 - 20*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-5*qDp^2*qDpp^2 - 20*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-5*qDp^3*qDpp - 11*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDp^4
  - 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-5*qDpp^4 - 16*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-4*qDk*qDp*qDpp + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDp*kDp
   + 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDp*kDpp + 6*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDk*qDp*pDpp - 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDp^2
   + 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDpp*kDp + 5*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDk*qDpp*kDpp + 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDpp
  *pDpp - 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDpp^2 - 8*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-4*qDk^2*qDp - 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk^2
  *qDpp + 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk^2*kDp + 3*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-4*qDk^2*kDpp + 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk^2
  *pDpp - 1/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk^3 + 6*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDp*qDpp*kDp + 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp*qDpp
  *kDpp + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp*qDpp*pDpp - 8*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-4*qDp*qDpp^2 - 12*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-4*qDp^2*qDpp + 9/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp^2*kDp
   + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp^2*kDpp + 9/2*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDp^2*pDpp - 15/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp^3
   + 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDpp^2*kDp + 7/2*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-4*qDpp^2*kDpp + 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDpp^2
  *pDpp - 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDpp^3 - 3/2*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-3*qDk*qDp - 1/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*qDpp
   + 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*kDp + 2*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*qDk*kDpp + 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*pDpp
   - 5/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^2 - 3/2*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*qDp*qDpp + 13/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp*kDp
   + 3*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp*kDpp + 13/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*qDp*pDpp - 7/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp^2
  + 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDpp*kDp + 7/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*qDpp*kDpp + 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDpp*pDpp
   - M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDpp^2 - 3/4*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-3*kDp*kDpp - 1/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*kDp*pDpp
  - 1/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*kDp^2 - 3/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*kDpp*pDpp - 1/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*kDpp^2
  - 1/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*pDpp^2 - 1/8*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*qDk - 7/8*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp - M^-4*m^6
  *R1Z*Extm*[m2-M2]^-2*qDpp + 1/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*kDp
   + 1/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*kDpp + 1/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*pDpp - 3/8*M^-4*m^6*R1Z*Extm*[m2-M2]^-1 )
 
 + D(a,c)*D(b,d)*Nohm^3
  * ( 1/16*M^-4*m^4*gu^2*A3*qDk + 1/16*M^-4*m^4*gu^2*A3*qDpp
  - 1/16*M^-4*m^4*gu^2*A3*kDpp - 1/8*M^-4*m^4*gu^2*R1Z*Extm*qDk
  - 1/8*M^-4*m^4*gu^2*R1Z*Extm*qDpp + 1/8*M^-4*m^4*gu^2*R1Z*Extm*kDpp
   + 1/16*M^-4*m^4*gu^2*R5Z*Extm^2*qDk + 1/16*M^-4*m^4*gu^2*R5Z*Extm^2
  *qDpp - 1/16*M^-4*m^4*gu^2*R5Z*Extm^2*kDpp + 1/16*M^-4*m^4*A3*qDk
   + 1/16*M^-4*m^4*A3*qDpp - 1/16*M^-4*m^4*A3*kDpp + 12*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-3*qDk*qDp*qDpp^2 + 12*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-3*qDk*qDp^2*qDpp + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk*qDp^3
   + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk*qDpp^3 + 12*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-3*qDk^2*qDp*qDpp + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk^2
  *qDp^2 + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk^2*qDpp^2 + 4*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-3*qDk^3*qDp + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk^3
  *qDpp + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDk^4 + 4*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-3*qDp*qDpp^3 + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp^2*qDpp^2
   + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDp^3*qDpp + 2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-3*qDp^4 + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-3*qDpp^4
  - 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk*qDp*qDpp - 3/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-2*qDk*qDp^2 - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk
  *qDpp^2 - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk^2*qDp - 3/2*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-2*qDk^2*qDpp - M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk^3
   - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDp*qDpp^2 - 3/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-2*qDp^2*qDpp + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk
  *qDp + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk*qDpp + 1/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-1*qDk^2 + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDp*qDpp
   + 1/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDp^2 + 1/2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-1*qDpp^2 - 3/8*M^-4*m^4*R1Z*Extm*qDk - 3/8*M^-4*m^4*R1Z
  *Extm*qDpp + 3/8*M^-4*m^4*R1Z*Extm*kDpp + 9/16*M^-4*m^4*R5Z*Extm^2
  *qDk + 9/16*M^-4*m^4*R5Z*Extm^2*qDpp - 9/16*M^-4*m^4*R5Z*Extm^2*kDpp
   + M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp^3 + M^-4*m^6*A1*[m2-M2]^-4*qDp^3
  *qDpp + 2*M^-4*m^6*A1*[m2-M2]^-4*qDp^4 + 8*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDp*qDpp + M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*kDp
  + M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*pDpp + 11/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDp^2 + M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp*kDp
  + M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp*pDpp + 3*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDpp^2 + 4*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDp
  + 3*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^2*kDp + 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*pDpp
  + M^-4*m^6*A1*[m2-M2]^-3*qDk^3 + M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp
  *kDp + M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp*pDpp + 4*M^-4*m^6*A1*
 [m2-M2]^-3*qDp*qDpp^2 + 11/2*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*qDpp
  - 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*kDpp + 3*M^-4*m^6*A1*
 [m2-M2]^-3*qDp^3 + 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDpp^2*kDp
  + 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDpp^2*pDpp + M^-4*m^6*A1*
 [m2-M2]^-3*qDpp^3 + 1/4*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp - M^-4*m^6
  *A1*[m2-M2]^-2*qDk*kDp - M^-4*m^6*A1*[m2-M2]^-2*qDk*kDpp
  - M^-4*m^6*A1*[m2-M2]^-2*qDk*pDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-2*qDp
  *qDpp - 5/4*M^-4*m^6*A1*[m2-M2]^-2*qDp*kDp - 5/4*M^-4*m^6*A1*
 [m2-M2]^-2*qDp*kDpp - 5/4*M^-4*m^6*A1*[m2-M2]^-2*qDp*pDpp
  + 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2 - M^-4*m^6*A1*[m2-M2]^-2*qDpp
  *kDp - M^-4*m^6*A1*[m2-M2]^-2*qDpp*kDpp - M^-4*m^6*A1*[m2-M2]^-2
  *qDpp*pDpp + 1/8*M^-4*m^6*A1*[m2-M2]^-1*qDk + 1/4*M^-4*m^6*A1*
 [m2-M2]^-1*qDp + 1/8*M^-4*m^6*A1*[m2-M2]^-1*qDpp - 1/8*M^-4*m^6*A1
  *[m2-M2]^-1*kDp - 1/8*M^-4*m^6*A1*[m2-M2]^-1*kDpp - 1/8*M^-4*m^6
  *A1*[m2-M2]^-1*pDpp - M^-4*m^6*A2*[m2-M2]^-4*qDk^3*qDpp
  + M^-4*m^6*A2*[m2-M2]^-4*qDk^4 - M^-4*m^6*A2*[m2-M2]^-3*qDk*qDpp^2
   + 1/2*M^-4*m^6*A2*[m2-M2]^-3*qDk^2*qDpp - 1/2*M^-4*m^6*A2*
 [m2-M2]^-3*qDk^3 - 1/2*M^-4*m^6*A2*[m2-M2]^-3*qDpp^2*kDpp
  + M^-4*m^6*A2*[m2-M2]^-3*qDpp^3 - 1/4*M^-4*m^6*A2*[m2-M2]^-2*qDk
  *qDpp + 1/4*M^-4*m^6*A2*[m2-M2]^-2*qDk^2 - 1/8*M^-4*m^6*A2*
 [m2-M2]^-1*qDk + 1/8*M^-4*m^6*A2*[m2-M2]^-1*qDpp - 30*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-4*qDk*qDp*qDpp^2 - 40*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-4*qDk*qDp^2*qDpp - 21*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDp^3
   - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk*qDpp^3 - 30*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDk^2*qDp*qDpp - 20*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk^2
  *qDp^2 - 14*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk^2*qDpp^2 - 10*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-4*qDk^3*qDp - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk^3
  *qDpp - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDk^4 - 10*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDp*qDpp^3 - 20*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp^2*qDpp^2
   - 21*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDp^3*qDpp - 12*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-4*qDp^4 - 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-4*qDpp^4
  - 16*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*qDp*qDpp + 7*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*qDk*qDp*kDp + 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*qDp
  *kDpp + 7*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*qDp*pDpp - 23/2*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-3*qDk*qDp^2 + 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk
  *qDpp*kDp + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*qDpp*kDpp
  + 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*qDpp*pDpp - 4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*qDk*qDpp^2 - 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^2*qDp
   - 15/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^2*qDpp + 5/2*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-3*qDk^2*kDp + 3*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^2
  *kDpp + 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^2*pDpp - 1/2*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-3*qDk^3 + 7*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp*qDpp
  *kDp + 8*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp*qDpp*kDpp + 7*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-3*qDp*qDpp*pDpp - 8*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-3*qDp*qDpp^2 - 23/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp^2*qDpp
   + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp^2*kDp + 13/2*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*qDp^2*kDpp + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp^2*pDpp
   - 7*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp^3 + 5/2*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-3*qDpp^2*kDp + 7/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDpp^2*kDpp
   + 5/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDpp^2*pDpp - 4*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-3*qDpp^3 - 7/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*qDp
   - 1/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*qDpp + 2*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*qDk*kDp + 2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*kDpp
  + 2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*pDpp - 5/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*qDk^2 - 7/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp*qDpp
  + 11/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp*kDp + 11/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*qDp*kDpp + 11/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp*pDpp
   - 2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp^2 + 2*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-2*qDpp*kDp + 2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDpp*kDpp
  + 2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDpp*pDpp - M^-4*m^6*R1Z*Extm*
 [m2-M2]^-2*qDpp^2 - M^-4*m^6*R1Z*Extm*[m2-M2]^-2*kDp*kDpp
  - M^-4*m^6*R1Z*Extm*[m2-M2]^-2*kDp*pDpp - 1/2*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-2*kDp^2 - M^-4*m^6*R1Z*Extm*[m2-M2]^-2*kDpp*pDpp
  - 1/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*kDpp^2 - 1/2*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*pDpp^2 - 3/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp
  - 3/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDpp + 3/8*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-1*kDp + 3/8*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*kDpp + 3/8*M^-4
  *m^6*R1Z*Extm*[m2-M2]^-1*pDpp )
 
 + D(a,c)*D(b,d)*Nohm^4
  * ( 1/4*M^-4*m^4*gu^2*A3*qDk*qDpp - 1/4*M^-4*m^4*gu^2*A3*qDk*kDpp
   + 1/8*M^-4*m^4*gu^2*A3*qDk^2 - 1/4*M^-4*m^4*gu^2*A3*qDpp*kDpp
  + 1/8*M^-4*m^4*gu^2*A3*qDpp^2 + 1/8*M^-4*m^4*gu^2*A3*kDpp^2
  - 1/2*M^-4*m^4*gu^2*R1Z*Extm*qDk*qDpp + 1/2*M^-4*m^4*gu^2*R1Z*Extm
  *qDk*kDpp - 1/4*M^-4*m^4*gu^2*R1Z*Extm*qDk^2 + 1/2*M^-4*m^4*gu^2
  *R1Z*Extm*qDpp*kDpp - 1/4*M^-4*m^4*gu^2*R1Z*Extm*qDpp^2
  - 1/4*M^-4*m^4*gu^2*R1Z*Extm*kDpp^2 + 1/4*M^-4*m^4*gu^2*R5Z*Extm^2
  *qDk*qDpp - 1/4*M^-4*m^4*gu^2*R5Z*Extm^2*qDk*kDpp + 1/8*M^-4*m^4
  *gu^2*R5Z*Extm^2*qDk^2 - 1/4*M^-4*m^4*gu^2*R5Z*Extm^2*qDpp*kDpp
  + 1/8*M^-4*m^4*gu^2*R5Z*Extm^2*qDpp^2 + 1/8*M^-4*m^4*gu^2*R5Z*Extm^2
  *kDpp^2 + 1/4*M^-4*m^4*A3*qDk*qDpp - 1/4*M^-4*m^4*A3*qDk*kDpp
  + 1/8*M^-4*m^4*A3*qDk^2 - 1/4*M^-4*m^4*A3*qDpp*kDpp + 1/8*M^-4*m^4
  *A3*qDpp^2 + 1/8*M^-4*m^4*A3*kDpp^2 + 12*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-2*qDk*qDp*qDpp^2 + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk*qDp^2
  *qDpp + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk*qDp^3 + 4*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-2*qDk*qDpp^3 + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk^2
  *qDp*qDpp + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk^2*qDp^2 + 6*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-2*qDk^2*qDpp^2 + 4*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-2*qDk^3*qDp + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk^3*qDpp
  + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDk^4 + 4*M^-4*m^4*R1Z*Extm*
 [m2-M2]^-2*qDp*qDpp^3 + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDp^2*qDpp^2
   + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDp^3*qDpp + 2*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-2*qDp^4 + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-2*qDpp^4
  - 3*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk*qDp*qDpp - 3/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-1*qDk*qDp^2 - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk
  *qDpp^2 - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk^2*qDp - 3/2*M^-4*m^4
  *R1Z*Extm*[m2-M2]^-1*qDk^2*qDpp - M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk^3
   - 3/2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDp*qDpp^2 - 3/2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-1*qDp^2*qDpp - 3/2*M^-4*m^4*R1Z*Extm*qDk*qDpp
  + 3/2*M^-4*m^4*R1Z*Extm*qDk*kDpp - 3/4*M^-4*m^4*R1Z*Extm*qDk^2
  + 3/2*M^-4*m^4*R1Z*Extm*qDpp*kDpp - 3/4*M^-4*m^4*R1Z*Extm*qDpp^2
   - 3/4*M^-4*m^4*R1Z*Extm*kDpp^2 + 9/4*M^-4*m^4*R5Z*Extm^2*qDk*qDpp
   - 9/4*M^-4*m^4*R5Z*Extm^2*qDk*kDpp + 9/8*M^-4*m^4*R5Z*Extm^2*qDk^2
   - 9/4*M^-4*m^4*R5Z*Extm^2*qDpp*kDpp + 9/8*M^-4*m^4*R5Z*Extm^2*qDpp^2
   + 9/8*M^-4*m^4*R5Z*Extm^2*kDpp^2 + 2*M^-4*m^6*A1*[m2-M2]^-3*qDk
  *qDp^2*qDpp + 3*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp^3 + M^-4*m^6*A1*
 [m2-M2]^-3*qDk^2*qDp^2 + M^-4*m^6*A1*[m2-M2]^-3*qDp^2*qDpp^2
  + 3*M^-4*m^6*A1*[m2-M2]^-3*qDp^3*qDpp + 3*M^-4*m^6*A1*[m2-M2]^-3
  *qDp^4 + 7*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*qDpp - M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDp*kDp - M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*kDpp
  - M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*pDpp + 9/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDp^2 + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDpp^2
  + 7/2*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDp + 3*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^2*qDpp + M^-4*m^6*A1*[m2-M2]^-2*qDk^3 - M^-4*m^6*A1
  *[m2-M2]^-2*qDp*qDpp*kDp - M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp*kDpp
  - M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp*pDpp + 7/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDp*qDpp^2 + 9/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*qDpp
  - 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*kDp - 3/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^2*kDpp - 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*pDpp
  + 5/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^3 + M^-4*m^6*A1*[m2-M2]^-2*qDpp^3
   + 3/4*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-1*qDk*qDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-1*qDk*kDp
  - 1/2*M^-4*m^6*A1*[m2-M2]^-1*qDk*kDpp - 1/2*M^-4*m^6*A1*
 [m2-M2]^-1*qDk*pDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-1*qDk^2 + 3/4*M^-4
  *m^6*A1*[m2-M2]^-1*qDp*qDpp - 3/4*M^-4*m^6*A1*[m2-M2]^-1*qDp*kDp
   - 3/4*M^-4*m^6*A1*[m2-M2]^-1*qDp*kDpp - 3/4*M^-4*m^6*A1*
 [m2-M2]^-1*qDp*pDpp + 3/4*M^-4*m^6*A1*[m2-M2]^-1*qDp^2 - 1/2*M^-4
  *m^6*A1*[m2-M2]^-1*qDpp*kDp - 1/2*M^-4*m^6*A1*[m2-M2]^-1*qDpp*kDpp
   - 1/2*M^-4*m^6*A1*[m2-M2]^-1*qDpp*pDpp + 1/4*M^-4*m^6*A1*
 [m2-M2]^-1*qDpp^2 + 1/2*M^-4*m^6*A1*[m2-M2]^-1*kDp*kDpp + 1/2*M^-4
  *m^6*A1*[m2-M2]^-1*kDp*pDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-1*kDp^2
  + 1/2*M^-4*m^6*A1*[m2-M2]^-1*kDpp*pDpp + 1/4*M^-4*m^6*A1*
 [m2-M2]^-1*kDpp^2 + 1/4*M^-4*m^6*A1*[m2-M2]^-1*pDpp^2 + M^-4*m^6*A2
  *[m2-M2]^-3*qDk^2*qDpp^2 - M^-4*m^6*A2*[m2-M2]^-3*qDk^3*qDpp
  + M^-4*m^6*A2*[m2-M2]^-3*qDk^4 - 1/2*M^-4*m^6*A2*[m2-M2]^-2*qDk*qDpp^2
   + 1/2*M^-4*m^6*A2*[m2-M2]^-2*qDk^2*qDpp - 1/2*M^-4*m^6*A2*
 [m2-M2]^-2*qDk^3 + M^-4*m^6*A2*[m2-M2]^-2*qDpp^3 - 1/4*M^-4*m^6*A2
  *[m2-M2]^-1*qDk*qDpp + 1/4*M^-4*m^6*A2*[m2-M2]^-1*qDk^2
  + 1/4*M^-4*m^6*A2*[m2-M2]^-1*qDpp^2 - 30*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-3*qDk*qDp*qDpp^2 - 42*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*qDp^2
  *qDpp - 23*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk*qDp^3 - 6*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-3*qDk*qDpp^3 - 30*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^2
  *qDp*qDpp - 21*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^2*qDp^2
  - 15*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^2*qDpp^2 - 10*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-3*qDk^3*qDp - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^3
  *qDpp - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^4 - 10*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*qDp*qDpp^3 - 21*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp^2*qDpp^2
   - 23*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp^3*qDpp - 13*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-3*qDp^4 - 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDpp^4
  - 15*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*qDp*qDpp + 9*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*qDk*qDp*kDp + 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*qDp
  *kDpp + 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*qDp*pDpp - 21/2*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-2*qDk*qDp^2 + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk
  *qDpp*kDp + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*qDpp*kDpp
  + 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*qDpp*pDpp - 9/2*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-2*qDk*qDpp^2 - 15/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk^2
  *qDp - 15/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk^2*qDpp + 3*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-2*qDk^2*kDp + 3*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk^2
  *kDpp + 3*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk^2*pDpp - 1/2*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-2*qDk^3 + 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp*qDpp
  *kDp + 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp*qDpp*kDpp + 9*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-2*qDp*qDpp*pDpp - 15/2*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-2*qDp*qDpp^2 - 21/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp^2*qDpp
   + 15/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp^2*kDp + 15/2*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-2*qDp^2*kDpp + 15/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp^2
  *pDpp - 13/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp^3 + 3*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-2*qDpp^2*kDp + 3*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDpp^2
  *kDpp + 3*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDpp^2*pDpp - 4*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-2*qDpp^3 - 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*qDp
   - 3/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*qDpp + 3/2*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-1*qDk*kDp + 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*kDpp
  + 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*pDpp - 3/2*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-1*qDk^2 - 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp*qDpp
  + 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp*kDp + 9/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-1*qDp*kDpp + 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp*pDpp
   - 9/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp^2 + 3/2*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-1*qDpp*kDp + 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDpp*kDpp
   + 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDpp*pDpp - 3/2*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-1*qDpp^2 - 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*kDp*kDpp
   - 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*kDp*pDpp - 3/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-1*kDp^2 - 3/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*kDpp*pDpp
  - 3/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*kDpp^2 - 3/4*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-1*pDpp^2 )
 
 + D(a,c)*D(b,d)*Nohm^5
  * ( - 3/2*M^-4*m^4*gu^2*A3*qDk*qDpp*kDpp + 3/4*M^-4*m^4*gu^2*A3*qDk
  *qDpp^2 + 3/4*M^-4*m^4*gu^2*A3*qDk^2*qDpp - 3/4*M^-4*m^4*gu^2*A3
  *qDk^2*kDpp + 1/4*M^-4*m^4*gu^2*A3*qDk^3 - 3/4*M^-4*m^4*gu^2*A3*qDpp^2
  *kDpp + 1/4*M^-4*m^4*gu^2*A3*qDpp^3 + 3*M^-4*m^4*gu^2*R1Z*Extm*qDk
  *qDpp*kDpp - 3/2*M^-4*m^4*gu^2*R1Z*Extm*qDk*qDpp^2 - 3/2*M^-4*m^4
  *gu^2*R1Z*Extm*qDk^2*qDpp + 3/2*M^-4*m^4*gu^2*R1Z*Extm*qDk^2*kDpp
   - 1/2*M^-4*m^4*gu^2*R1Z*Extm*qDk^3 + 3/2*M^-4*m^4*gu^2*R1Z*Extm
  *qDpp^2*kDpp - 1/2*M^-4*m^4*gu^2*R1Z*Extm*qDpp^3 - 3/2*M^-4*m^4*gu^2
  *R5Z*Extm^2*qDk*qDpp*kDpp + 3/4*M^-4*m^4*gu^2*R5Z*Extm^2*qDk*qDpp^2
   + 3/4*M^-4*m^4*gu^2*R5Z*Extm^2*qDk^2*qDpp - 3/4*M^-4*m^4*gu^2*R5Z
  *Extm^2*qDk^2*kDpp + 1/4*M^-4*m^4*gu^2*R5Z*Extm^2*qDk^3
  - 3/4*M^-4*m^4*gu^2*R5Z*Extm^2*qDpp^2*kDpp + 1/4*M^-4*m^4*gu^2*R5Z
  *Extm^2*qDpp^3 - 3/2*M^-4*m^4*A3*qDk*qDpp*kDpp + 3/4*M^-4*m^4*A3
  *qDk*qDpp^2 + 3/4*M^-4*m^4*A3*qDk^2*qDpp - 3/4*M^-4*m^4*A3*qDk^2
  *kDpp + 1/4*M^-4*m^4*A3*qDk^3 - 3/4*M^-4*m^4*A3*qDpp^2*kDpp
  + 1/4*M^-4*m^4*A3*qDpp^3 + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk*qDp
  *qDpp^2 + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk*qDp^2*qDpp
  + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk*qDp^3 + 4*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-1*qDk*qDpp^3 + 12*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk^2*qDp
  *qDpp + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk^2*qDp^2 + 6*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-1*qDk^2*qDpp^2 + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk^3
  *qDp + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDk^3*qDpp + 2*M^-4*m^4*R1Z
  *Extm*[m2-M2]^-1*qDk^4 + 4*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDp*qDpp^3
   + 6*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDp^2*qDpp^2 + 4*M^-4*m^4*R1Z*Extm
  *[m2-M2]^-1*qDp^3*qDpp + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDp^4
  + 2*M^-4*m^4*R1Z*Extm*[m2-M2]^-1*qDpp^4 + 9*M^-4*m^4*R1Z*Extm*qDk
  *qDpp*kDpp - 9/2*M^-4*m^4*R1Z*Extm*qDk*qDpp^2 - 9/2*M^-4*m^4*R1Z
  *Extm*qDk^2*qDpp + 9/2*M^-4*m^4*R1Z*Extm*qDk^2*kDpp - 3/2*M^-4*m^4
  *R1Z*Extm*qDk^3 + 9/2*M^-4*m^4*R1Z*Extm*qDpp^2*kDpp - 3/2*M^-4*m^4
  *R1Z*Extm*qDpp^3 - 27/2*M^-4*m^4*R5Z*Extm^2*qDk*qDpp*kDpp
  + 27/4*M^-4*m^4*R5Z*Extm^2*qDk*qDpp^2 + 27/4*M^-4*m^4*R5Z*Extm^2
  *qDk^2*qDpp - 27/4*M^-4*m^4*R5Z*Extm^2*qDk^2*kDpp + 9/4*M^-4*m^4
  *R5Z*Extm^2*qDk^3 - 27/4*M^-4*m^4*R5Z*Extm^2*qDpp^2*kDpp
  + 9/4*M^-4*m^4*R5Z*Extm^2*qDpp^3 + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp
  *qDpp^2 + 8*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp^2*qDpp + 6*M^-4*m^6*A1
  *[m2-M2]^-2*qDk*qDp^3 + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDp*qDpp
  + 4*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDp^2 + M^-4*m^6*A1*[m2-M2]^-2*qDk^3
  *qDp + M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp^3 + 4*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^2*qDpp^2 + 6*M^-4*m^6*A1*[m2-M2]^-2*qDp^3*qDpp
  + 4*M^-4*m^6*A1*[m2-M2]^-2*qDp^4 + 4*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDp
  *qDpp - 4*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDp*kDp - 4*M^-4*m^6*A1*
 [m2-M2]^-1*qDk*qDp*kDpp - 4*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDp*pDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDp^2 - 3*M^-4*m^6*A1*[m2-M2]^-1*qDk
  *qDpp*kDp - 3*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDpp*kDpp - 3*M^-4*m^6*A1
  *[m2-M2]^-1*qDk*qDpp*pDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDpp^2
   + 2*M^-4*m^6*A1*[m2-M2]^-1*qDk^2*qDp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-1*qDk^2*qDpp - 3/2*M^-4*m^6*A1*[m2-M2]^-1*qDk^2*kDp
  - 3/2*M^-4*m^6*A1*[m2-M2]^-1*qDk^2*kDpp - 3/2*M^-4*m^6*A1*
 [m2-M2]^-1*qDk^2*pDpp + 1/2*M^-4*m^6*A1*[m2-M2]^-1*qDk^3
  - 4*M^-4*m^6*A1*[m2-M2]^-1*qDp*qDpp*kDp - 4*M^-4*m^6*A1*
 [m2-M2]^-1*qDp*qDpp*kDpp - 4*M^-4*m^6*A1*[m2-M2]^-1*qDp*qDpp*pDpp
   + 2*M^-4*m^6*A1*[m2-M2]^-1*qDp*qDpp^2 + 3*M^-4*m^6*A1*
 [m2-M2]^-1*qDp^2*qDpp - 3*M^-4*m^6*A1*[m2-M2]^-1*qDp^2*kDp
  - 3*M^-4*m^6*A1*[m2-M2]^-1*qDp^2*kDpp - 3*M^-4*m^6*A1*[m2-M2]^-1
  *qDp^2*pDpp + 2*M^-4*m^6*A1*[m2-M2]^-1*qDp^3 - 3/2*M^-4*m^6*A1*
 [m2-M2]^-1*qDpp^2*kDp - 3/2*M^-4*m^6*A1*[m2-M2]^-1*qDpp^2*kDpp
  - 3/2*M^-4*m^6*A1*[m2-M2]^-1*qDpp^2*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-1*qDpp^3 - M^-4*m^6*A2*[m2-M2]^-2*qDk*qDpp^3 + M^-4*m^6*A2
  *[m2-M2]^-2*qDk^2*qDpp^2 - M^-4*m^6*A2*[m2-M2]^-2*qDk^3*qDpp
  + M^-4*m^6*A2*[m2-M2]^-2*qDk^4 - 1/2*M^-4*m^6*A2*[m2-M2]^-1*qDk*qDpp^2
   + 1/2*M^-4*m^6*A2*[m2-M2]^-1*qDk^2*qDpp - 1/2*M^-4*m^6*A2*
 [m2-M2]^-1*qDk^3 + 1/2*M^-4*m^6*A2*[m2-M2]^-1*qDpp^3 - 33*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-2*qDk*qDp*qDpp^2 - 48*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-2*qDk*qDp^2*qDpp - 26*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*qDp^3
   - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk*qDpp^3 - 33*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*qDk^2*qDp*qDpp - 24*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk^2
  *qDp^2 - 15*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk^2*qDpp^2 - 11*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-2*qDk^3*qDp - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk^3
  *qDpp - 5*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDk^4 - 11*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*qDp*qDpp^3 - 24*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp^2*qDpp^2
   - 26*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp^3*qDpp - 14*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*qDp^4 - 4*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDpp^4
  - 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*qDp*qDpp + 12*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-1*qDk*qDp*kDp + 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk
  *qDp*kDpp + 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*qDp*pDpp
  - 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*qDp^2 + 9*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-1*qDk*qDpp*kDp + 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*qDpp
  *kDpp + 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*qDpp*pDpp - 3*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-1*qDk*qDpp^2 - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-1
  *qDk^2*qDp - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk^2*qDpp + 9/2*M^-4
  *m^6*R1Z*Extm*[m2-M2]^-1*qDk^2*kDp + 9/2*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-1*qDk^2*kDpp + 9/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk^2*pDpp
   + 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp*qDpp*kDp + 12*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-1*qDp*qDpp*kDpp + 12*M^-4*m^6*R1Z*Extm*[m2-M2]^-1
  *qDp*qDpp*pDpp - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp*qDpp^2
  - 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp^2*qDpp + 9*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-1*qDp^2*kDp + 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp^2*kDpp
   + 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp^2*pDpp - 6*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-1*qDp^3 + 9/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDpp^2*kDp
  + 9/2*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDpp^2*kDpp + 9/2*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-1*qDpp^2*pDpp - 3*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDpp^3 )
 
 + D(a,c)*D(b,d)*Nohm^6
  * ( 2*M^-4*m^4*gu^2*A3*qDk*qDpp^3 + 3*M^-4*m^4*gu^2*A3*qDk^2*qDpp^2
   + 2*M^-4*m^4*gu^2*A3*qDk^3*qDpp + 1/2*M^-4*m^4*gu^2*A3*qDk^4
  + 1/2*M^-4*m^4*gu^2*A3*qDpp^4 - 4*M^-4*m^4*gu^2*R1Z*Extm*qDk*qDpp^3
   - 6*M^-4*m^4*gu^2*R1Z*Extm*qDk^2*qDpp^2 - 4*M^-4*m^4*gu^2*R1Z*Extm
  *qDk^3*qDpp - M^-4*m^4*gu^2*R1Z*Extm*qDk^4 - M^-4*m^4*gu^2*R1Z*Extm
  *qDpp^4 + 2*M^-4*m^4*gu^2*R5Z*Extm^2*qDk*qDpp^3 + 3*M^-4*m^4*gu^2
  *R5Z*Extm^2*qDk^2*qDpp^2 + 2*M^-4*m^4*gu^2*R5Z*Extm^2*qDk^3*qDpp
   + 1/2*M^-4*m^4*gu^2*R5Z*Extm^2*qDk^4 + 1/2*M^-4*m^4*gu^2*R5Z*Extm^2
  *qDpp^4 + 2*M^-4*m^4*A3*qDk*qDpp^3 + 3*M^-4*m^4*A3*qDk^2*qDpp^2
  + 2*M^-4*m^4*A3*qDk^3*qDpp + 1/2*M^-4*m^4*A3*qDk^4 + 1/2*M^-4*m^4
  *A3*qDpp^4 - 12*M^-4*m^4*R1Z*Extm*qDk*qDpp^3 - 18*M^-4*m^4*R1Z*Extm
  *qDk^2*qDpp^2 - 12*M^-4*m^4*R1Z*Extm*qDk^3*qDpp - 3*M^-4*m^4*R1Z
  *Extm*qDk^4 - 3*M^-4*m^4*R1Z*Extm*qDpp^4 + 18*M^-4*m^4*R5Z*Extm^2
  *qDk*qDpp^3 + 27*M^-4*m^4*R5Z*Extm^2*qDk^2*qDpp^2 + 18*M^-4*m^4*R5Z
  *Extm^2*qDk^3*qDpp + 9/2*M^-4*m^4*R5Z*Extm^2*qDk^4 + 9/2*M^-4*m^4
  *R5Z*Extm^2*qDpp^4 + 15*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDp*qDpp^2
  + 20*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDp^2*qDpp + 10*M^-4*m^6*A1*
 [m2-M2]^-1*qDk*qDp^3 + 4*M^-4*m^6*A1*[m2-M2]^-1*qDk*qDpp^3
  + 15*M^-4*m^6*A1*[m2-M2]^-1*qDk^2*qDp*qDpp + 10*M^-4*m^6*A1*
 [m2-M2]^-1*qDk^2*qDp^2 + 6*M^-4*m^6*A1*[m2-M2]^-1*qDk^2*qDpp^2
  + 5*M^-4*m^6*A1*[m2-M2]^-1*qDk^3*qDp + 4*M^-4*m^6*A1*[m2-M2]^-1*qDk^3
  *qDpp + M^-4*m^6*A1*[m2-M2]^-1*qDk^4 + 5*M^-4*m^6*A1*[m2-M2]^-1*qDp
  *qDpp^3 + 10*M^-4*m^6*A1*[m2-M2]^-1*qDp^2*qDpp^2 + 10*M^-4*m^6*A1
  *[m2-M2]^-1*qDp^3*qDpp + 5*M^-4*m^6*A1*[m2-M2]^-1*qDp^4
  + M^-4*m^6*A1*[m2-M2]^-1*qDpp^4 - M^-4*m^6*A2*[m2-M2]^-1*qDk*qDpp^3
   + M^-4*m^6*A2*[m2-M2]^-1*qDk^2*qDpp^2 - M^-4*m^6*A2*[m2-M2]^-1*qDk^3
  *qDpp + M^-4*m^6*A2*[m2-M2]^-1*qDk^4 + M^-4*m^6*A2*[m2-M2]^-1*qDpp^4
   - 45*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*qDp*qDpp^2 - 60*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-1*qDk*qDp^2*qDpp - 30*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-1*qDk*qDp^3 - 9*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk*qDpp^3
  - 45*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk^2*qDp*qDpp - 30*M^-4*m^6*R1Z
  *Extm*[m2-M2]^-1*qDk^2*qDp^2 - 21*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk^2
  *qDpp^2 - 15*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDk^3*qDp - 9*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-1*qDk^3*qDpp - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-1
  *qDk^4 - 15*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp*qDpp^3 - 30*M^-4*m^6
  *R1Z*Extm*[m2-M2]^-1*qDp^2*qDpp^2 - 30*M^-4*m^6*R1Z*Extm*
 [m2-M2]^-1*qDp^3*qDpp - 15*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDp^4
  - 6*M^-4*m^6*R1Z*Extm*[m2-M2]^-1*qDpp^4 )
 
 + D(a,d)*D(b,c)*Nom
  * ( 15*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDp*qDpp^2 + 20*M^-4*m^6*A1*
 [m2-M2]^-6*qDk*qDp^2*qDpp + 10*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDp^3
  + 4*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDpp^3 + 15*M^-4*m^6*A1*
 [m2-M2]^-6*qDk^2*qDp*qDpp + 10*M^-4*m^6*A1*[m2-M2]^-6*qDk^2*qDp^2
   + 6*M^-4*m^6*A1*[m2-M2]^-6*qDk^2*qDpp^2 + 5*M^-4*m^6*A1*
 [m2-M2]^-6*qDk^3*qDp + 4*M^-4*m^6*A1*[m2-M2]^-6*qDk^3*qDpp
  + M^-4*m^6*A1*[m2-M2]^-6*qDk^4 + 5*M^-4*m^6*A1*[m2-M2]^-6*qDp*qDpp^3
   + 10*M^-4*m^6*A1*[m2-M2]^-6*qDp^2*qDpp^2 + 10*M^-4*m^6*A1*
 [m2-M2]^-6*qDp^3*qDpp + 5*M^-4*m^6*A1*[m2-M2]^-6*qDp^4 + M^-4*m^6
  *A1*[m2-M2]^-6*qDpp^4 - 4*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*qDpp
  - 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*kDp - 4*M^-4*m^6*A1*
 [m2-M2]^-5*qDk*qDp*kDpp - 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*pDpp
  - 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp^2 - 4*M^-4*m^6*A1*[m2-M2]^-5*qDk
  *qDpp*kDp - 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp*kDpp - 4*M^-4*m^6*A1
  *[m2-M2]^-5*qDk*qDpp*pDpp - 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp^2
   - 2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDp - 3/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*qDpp - 2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDp
  - 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDpp - 2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*pDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^3
  - 6*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*kDp - 4*M^-4*m^6*A1*
 [m2-M2]^-5*qDp*qDpp*kDpp - 6*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*pDpp
   - 2*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp^2 - 3*M^-4*m^6*A1*
 [m2-M2]^-5*qDp^2*qDpp - 6*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDp
  - 3*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDpp - 6*M^-4*m^6*A1*[m2-M2]^-5
  *qDp^2*pDpp - 2*M^-4*m^6*A1*[m2-M2]^-5*qDp^3 - 2*M^-4*m^6*A1*
 [m2-M2]^-5*qDpp^2*kDp - 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*kDpp
  - 2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*pDpp - 1/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDpp^3 + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp + 1/2*M^-4
  *m^6*A1*[m2-M2]^-4*qDk*qDpp + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDp
   + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDpp + 3/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDk*pDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-4*qDk^2 + 3/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDp*qDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDp
   + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDp*pDpp + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDp^2 + 3/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDpp*kDp + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDpp*kDpp
   + 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDpp*pDpp + 1/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDpp^2 + 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDp*kDpp + 3/2*M^-4
  *m^6*A1*[m2-M2]^-4*kDp*pDpp + 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDp^2
  + 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDpp*pDpp + 1/4*M^-4*m^6*A1*
 [m2-M2]^-4*kDpp^2 + 3/4*M^-4*m^6*A1*[m2-M2]^-4*pDpp^2 - 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*qDk - 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDp - 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*qDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-3*kDp - 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*kDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-3*pDpp + 1/16*M^-4
  *m^6*A1*[m2-M2]^-2 - M^-4*m^6*A2*[m2-M2]^-6*qDk*qDpp^3 + M^-4*m^6
  *A2*[m2-M2]^-6*qDk^2*qDpp^2 - M^-4*m^6*A2*[m2-M2]^-6*qDk^3*qDpp
  + M^-4*m^6*A2*[m2-M2]^-6*qDk^4 + M^-4*m^6*A2*[m2-M2]^-6*qDpp^4
  - M^-4*m^6*A2*[m2-M2]^-5*qDk*qDpp*kDpp + 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDk*qDpp^2 - 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDk^2*qDpp
  + 3/2*M^-4*m^6*A2*[m2-M2]^-5*qDk^2*kDpp + 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDk^3 + 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDpp^2*kDpp
  - 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDpp^3 - 1/4*M^-4*m^6*A2*[m2-M2]^-4
  *qDk*qDpp + 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDk*kDpp + 1/4*M^-4*m^6*A2
  *[m2-M2]^-4*qDk^2 - 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp*kDpp
  + 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp^2 + 1/4*M^-4*m^6*A2*[m2-M2]^-4
  *kDpp^2 + 1/8*M^-4*m^6*A2*[m2-M2]^-3*qDk - 1/8*M^-4*m^6*A2*
 [m2-M2]^-3*qDpp + 1/8*M^-4*m^6*A2*[m2-M2]^-3*kDpp + 1/16*M^-4*m^6
  *A2*[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 )
 
 + D(a,d)*D(b,c)*Nohm
  * ( - 15*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDp*qDpp^2 - 20*M^-4*m^6*A1*
 [m2-M2]^-6*qDk*qDp^2*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-6*qDk*qDpp^3 - 15*M^-4*m^6*A1*
 [m2-M2]^-6*qDk^2*qDp*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-6*qDk^2*qDp^2
   - 6*M^-4*m^6*A1*[m2-M2]^-6*qDk^2*qDpp^2 - 5*M^-4*m^6*A1*
 [m2-M2]^-6*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-6*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-6*qDk^4 - 5*M^-4*m^6*A1*[m2-M2]^-6*qDp*qDpp^3
   - 10*M^-4*m^6*A1*[m2-M2]^-6*qDp^2*qDpp^2 - 10*M^-4*m^6*A1*
 [m2-M2]^-6*qDp^3*qDpp - 5*M^-4*m^6*A1*[m2-M2]^-6*qDp^4 - M^-4*m^6
  *A1*[m2-M2]^-6*qDpp^4 + 4*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*qDpp
  + 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-5*qDk*qDp*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*pDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp^2 + 4*M^-4*m^6*A1*[m2-M2]^-5*qDk
  *qDpp*kDp + 3*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp*kDpp + 4*M^-4*m^6*A1
  *[m2-M2]^-5*qDk*qDpp*pDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp^2
   + 2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*qDpp + 2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*kDpp + 2*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*pDpp + 1/2*M^-4*m^6*A1*[m2-M2]^-5*qDk^3
  + 6*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-5*qDp*qDpp*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp*pDpp
   + 2*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp^2 + 3*M^-4*m^6*A1*
 [m2-M2]^-5*qDp^2*qDpp + 6*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDp
  + 3*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-5
  *qDp^2*pDpp + 2*M^-4*m^6*A1*[m2-M2]^-5*qDp^3 + 2*M^-4*m^6*A1*
 [m2-M2]^-5*qDpp^2*kDp + 3/2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*kDpp
  + 2*M^-4*m^6*A1*[m2-M2]^-5*qDpp^2*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-5*qDpp^3 - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp - 1/2*M^-4
  *m^6*A1*[m2-M2]^-4*qDk*qDpp - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDp
   - 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDk*kDpp - 3/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDk*pDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-4*qDk^2 - 3/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDp*qDpp - 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDp
   - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDp*kDpp - 3/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDp*pDpp - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDp^2 - 3/4*M^-4
  *m^6*A1*[m2-M2]^-4*qDpp*kDp - 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDpp*kDpp
   - 3/4*M^-4*m^6*A1*[m2-M2]^-4*qDpp*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-4*qDpp^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDp*kDpp - 3/2*M^-4
  *m^6*A1*[m2-M2]^-4*kDp*pDpp - 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDp^2
  - 3/4*M^-4*m^6*A1*[m2-M2]^-4*kDpp*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-4*kDpp^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-4*pDpp^2 + 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*qDk + 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDp + 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*qDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-3*kDp + 1/8*M^-4*m^6
  *A1*[m2-M2]^-3*kDpp + 1/4*M^-4*m^6*A1*[m2-M2]^-3*pDpp - 1/16*M^-4
  *m^6*A1*[m2-M2]^-2 + M^-4*m^6*A2*[m2-M2]^-6*qDk*qDpp^3 - M^-4*m^6
  *A2*[m2-M2]^-6*qDk^2*qDpp^2 + M^-4*m^6*A2*[m2-M2]^-6*qDk^3*qDpp
  - M^-4*m^6*A2*[m2-M2]^-6*qDk^4 - M^-4*m^6*A2*[m2-M2]^-6*qDpp^4
  + M^-4*m^6*A2*[m2-M2]^-5*qDk*qDpp*kDpp - 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDk*qDpp^2 + 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDk^2*qDpp
  - 3/2*M^-4*m^6*A2*[m2-M2]^-5*qDk^2*kDpp - 1/2*M^-4*m^6*A2*
 [m2-M2]^-5*qDk^3 - 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDpp^2*kDpp
  + 1/2*M^-4*m^6*A2*[m2-M2]^-5*qDpp^3 + 1/4*M^-4*m^6*A2*[m2-M2]^-4
  *qDk*qDpp - 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDk*kDpp - 1/4*M^-4*m^6*A2
  *[m2-M2]^-4*qDk^2 + 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp*kDpp
  - 1/4*M^-4*m^6*A2*[m2-M2]^-4*qDpp^2 - 1/4*M^-4*m^6*A2*[m2-M2]^-4
  *kDpp^2 - 1/8*M^-4*m^6*A2*[m2-M2]^-3*qDk + 1/8*M^-4*m^6*A2*
 [m2-M2]^-3*qDpp - 1/8*M^-4*m^6*A2*[m2-M2]^-3*kDpp - 1/16*M^-4*m^6
  *A2*[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 )
 
 + D(a,d)*D(b,c)*Nohm^2
  * ( - 15*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp*qDpp^2 - 20*M^-4*m^6*A1*
 [m2-M2]^-5*qDk*qDp^2*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-5*qDk*qDpp^3 - 15*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^2*qDp*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDp^2
   - 6*M^-4*m^6*A1*[m2-M2]^-5*qDk^2*qDpp^2 - 5*M^-4*m^6*A1*
 [m2-M2]^-5*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-5*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-5*qDk^4 - 5*M^-4*m^6*A1*[m2-M2]^-5*qDp*qDpp^3
   - 10*M^-4*m^6*A1*[m2-M2]^-5*qDp^2*qDpp^2 - 10*M^-4*m^6*A1*
 [m2-M2]^-5*qDp^3*qDpp - 4*M^-4*m^6*A1*[m2-M2]^-5*qDp^4 - M^-4*m^6
  *A1*[m2-M2]^-5*qDpp^4 + 4*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*qDpp
  + 6*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-4*qDk*qDp*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*pDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp^2 + 4*M^-4*m^6*A1*[m2-M2]^-4*qDk
  *qDpp*kDp + 3*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDpp*kDpp + 4*M^-4*m^6*A1
  *[m2-M2]^-4*qDk*qDpp*pDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDpp^2
   + 2*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*qDp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDk^2*qDpp + 2*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*kDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*kDpp + 2*M^-4*m^6*A1*
 [m2-M2]^-4*qDk^2*pDpp + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDk^3
  + 6*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-4*qDp*qDpp*kDpp + 6*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp*pDpp
   + 2*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp^2 + 3*M^-4*m^6*A1*
 [m2-M2]^-4*qDp^2*qDpp + 9/2*M^-4*m^6*A1*[m2-M2]^-4*qDp^2*kDp
  + 3*M^-4*m^6*A1*[m2-M2]^-4*qDp^2*kDpp + 9/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDp^2*pDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-4*qDp^3
  + 2*M^-4*m^6*A1*[m2-M2]^-4*qDpp^2*kDp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-4*qDpp^2*kDpp + 2*M^-4*m^6*A1*[m2-M2]^-4*qDpp^2*pDpp
  + 1/2*M^-4*m^6*A1*[m2-M2]^-4*qDpp^3 - 3/4*M^-4*m^6*A1*[m2-M2]^-3
  *qDk*qDp - 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp - 3/4*M^-4*m^6*A1
  *[m2-M2]^-3*qDk*kDp - 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDk*kDpp
  - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDk*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp - M^-4*m^6
  *A1*[m2-M2]^-3*qDp*kDp - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDp*kDpp
  - M^-4*m^6*A1*[m2-M2]^-3*qDp*pDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDp^2
   - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDpp*kDp - 1/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDpp*kDpp - 3/4*M^-4*m^6*A1*[m2-M2]^-3*qDpp*pDpp
  - 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDpp^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-3
  *kDp*kDpp - M^-4*m^6*A1*[m2-M2]^-3*kDp*pDpp - 1/2*M^-4*m^6*A1*
 [m2-M2]^-3*kDp^2 - 3/4*M^-4*m^6*A1*[m2-M2]^-3*kDpp*pDpp - 1/4*M^-4
  *m^6*A1*[m2-M2]^-3*kDpp^2 - 1/2*M^-4*m^6*A1*[m2-M2]^-3*pDpp^2
  + 1/8*M^-4*m^6*A1*[m2-M2]^-2*qDk + 1/8*M^-4*m^6*A1*[m2-M2]^-2*qDp
   + 1/8*M^-4*m^6*A1*[m2-M2]^-2*qDpp + 1/8*M^-4*m^6*A1*[m2-M2]^-2*kDp
   + 1/8*M^-4*m^6*A1*[m2-M2]^-2*kDpp + 1/8*M^-4*m^6*A1*[m2-M2]^-2*pDpp
   + M^-4*m^6*A2*[m2-M2]^-5*qDk*qDpp^3 - M^-4*m^6*A2*[m2-M2]^-5*qDk^2
  *qDpp^2 + M^-4*m^6*A2*[m2-M2]^-5*qDk^3*qDpp - M^-4*m^6*A2*
 [m2-M2]^-5*qDpp^4 + M^-4*m^6*A2*[m2-M2]^-4*qDk*qDpp*kDpp
  - 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDk*qDpp^2 + 1/2*M^-4*m^6*A2*
 [m2-M2]^-4*qDk^2*qDpp - 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDpp^2*kDpp
  + 1/2*M^-4*m^6*A2*[m2-M2]^-4*qDpp^3 + 1/4*M^-4*m^6*A2*[m2-M2]^-3
  *qDk*qDpp + 1/4*M^-4*m^6*A2*[m2-M2]^-3*qDpp*kDpp - 1/4*M^-4*m^6*A2
  *[m2-M2]^-3*qDpp^2 + 1/8*M^-4*m^6*A2*[m2-M2]^-2*qDpp + 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 )
 
 + D(a,d)*D(b,c)*Nohm^3
  * ( - 15*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp*qDpp^2 - 20*M^-4*m^6*A1*
 [m2-M2]^-4*qDk*qDp^2*qDpp - 9*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-4*qDk*qDpp^3 - 15*M^-4*m^6*A1*
 [m2-M2]^-4*qDk^2*qDp*qDpp - 10*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*qDp^2
   - 6*M^-4*m^6*A1*[m2-M2]^-4*qDk^2*qDpp^2 - 5*M^-4*m^6*A1*
 [m2-M2]^-4*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-4*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-4*qDk^4 - 5*M^-4*m^6*A1*[m2-M2]^-4*qDp*qDpp^3
   - 10*M^-4*m^6*A1*[m2-M2]^-4*qDp^2*qDpp^2 - 9*M^-4*m^6*A1*
 [m2-M2]^-4*qDp^3*qDpp - 3*M^-4*m^6*A1*[m2-M2]^-4*qDp^4 - M^-4*m^6
  *A1*[m2-M2]^-4*qDpp^4 + 4*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*qDpp
  + 5*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*kDp + 4*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDp*kDpp + 5*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*pDpp
  + 5/2*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp^2 + 4*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDpp*kDp + 3*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp*kDpp
  + 4*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp*pDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDpp^2 + 2*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDpp + 2*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^2*kDp + 3/2*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*kDpp
  + 2*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^3 + 5*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp*kDp
  + 4*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp*kDpp + 5*M^-4*m^6*A1*
 [m2-M2]^-3*qDp*qDpp*pDpp + 2*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp^2
  + 5/2*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*qDpp + 3*M^-4*m^6*A1*
 [m2-M2]^-3*qDp^2*kDp + 5/2*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*kDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*pDpp + M^-4*m^6*A1*[m2-M2]^-3*qDp^3
   + 2*M^-4*m^6*A1*[m2-M2]^-3*qDpp^2*kDp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-3*qDpp^2*kDpp + 2*M^-4*m^6*A1*[m2-M2]^-3*qDpp^2*pDpp
  + 1/2*M^-4*m^6*A1*[m2-M2]^-3*qDpp^3 - 1/2*M^-4*m^6*A1*[m2-M2]^-2
  *qDk*qDp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDpp - 1/2*M^-4*m^6*A1
  *[m2-M2]^-2*qDk*kDp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDk*kDpp
  - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDk*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^2 - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp - 1/2*M^-4
  *m^6*A1*[m2-M2]^-2*qDp*kDp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDp*kDpp
   - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDp*pDpp - 1/4*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^2 - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp*kDp - 1/2*M^-4
  *m^6*A1*[m2-M2]^-2*qDpp*kDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp*pDpp
   - 1/4*M^-4*m^6*A1*[m2-M2]^-2*qDpp^2 - 1/2*M^-4*m^6*A1*
 [m2-M2]^-2*kDp*kDpp - 1/2*M^-4*m^6*A1*[m2-M2]^-2*kDp*pDpp
  - 1/4*M^-4*m^6*A1*[m2-M2]^-2*kDp^2 - 1/2*M^-4*m^6*A1*[m2-M2]^-2*kDpp
  *pDpp - 1/4*M^-4*m^6*A1*[m2-M2]^-2*kDpp^2 - 1/4*M^-4*m^6*A1*
 [m2-M2]^-2*pDpp^2 + M^-4*m^6*A2*[m2-M2]^-4*qDk*qDpp^3 - M^-4*m^6*A2
  *[m2-M2]^-4*qDk^2*qDpp^2 - M^-4*m^6*A2*[m2-M2]^-4*qDpp^4
  - 1/2*M^-4*m^6*A2*[m2-M2]^-3*qDk*qDpp^2 - 1/2*M^-4*m^6*A2*
 [m2-M2]^-3*qDpp^2*kDpp + 1/2*M^-4*m^6*A2*[m2-M2]^-3*qDpp^3
  - 1/4*M^-4*m^6*A2*[m2-M2]^-2*qDpp^2 + 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 )
 
 + D(a,d)*D(b,c)*Nohm^4
  * ( - 15*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp*qDpp^2 - 18*M^-4*m^6*A1*
 [m2-M2]^-3*qDk*qDp^2*qDpp - 7*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-3*qDk*qDpp^3 - 15*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^2*qDp*qDpp - 9*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDp^2
  - 6*M^-4*m^6*A1*[m2-M2]^-3*qDk^2*qDpp^2 - 5*M^-4*m^6*A1*
 [m2-M2]^-3*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-3*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-3*qDk^4 - 5*M^-4*m^6*A1*[m2-M2]^-3*qDp*qDpp^3
   - 9*M^-4*m^6*A1*[m2-M2]^-3*qDp^2*qDpp^2 - 7*M^-4*m^6*A1*
 [m2-M2]^-3*qDp^3*qDpp - 2*M^-4*m^6*A1*[m2-M2]^-3*qDp^4 - M^-4*m^6
  *A1*[m2-M2]^-3*qDpp^4 + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*qDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*kDp + 3*M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDp*kDpp + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*pDpp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp^2 + 3*M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDpp*kDp + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDpp*kDpp
  + 3*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDpp*pDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDpp^2 + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^2*kDp + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*kDpp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^3 + 3*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp*kDp
  + 3*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp*kDpp + 3*M^-4*m^6*A1*
 [m2-M2]^-2*qDp*qDpp*pDpp + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp^2
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*qDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^2*kDp + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*kDpp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*pDpp + 1/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^3 + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp^2*kDp
  + 3/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp^2*kDpp + 3/2*M^-4*m^6*A1*
 [m2-M2]^-2*qDpp^2*pDpp + 1/2*M^-4*m^6*A1*[m2-M2]^-2*qDpp^3
  + M^-4*m^6*A2*[m2-M2]^-3*qDk*qDpp^3 - M^-4*m^6*A2*[m2-M2]^-3*qDpp^4
   + 1/2*M^-4*m^6*A2*[m2-M2]^-2*qDpp^3 + 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 )
 
 + D(a,d)*D(b,c)*Nohm^5
  * ( - 12*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp*qDpp^2 - 12*M^-4*m^6*A1*
 [m2-M2]^-2*qDk*qDp^2*qDpp - 4*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDp^3
  - 4*M^-4*m^6*A1*[m2-M2]^-2*qDk*qDpp^3 - 12*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^2*qDp*qDpp - 6*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDp^2
  - 6*M^-4*m^6*A1*[m2-M2]^-2*qDk^2*qDpp^2 - 4*M^-4*m^6*A1*
 [m2-M2]^-2*qDk^3*qDp - 4*M^-4*m^6*A1*[m2-M2]^-2*qDk^3*qDpp
  - M^-4*m^6*A1*[m2-M2]^-2*qDk^4 - 4*M^-4*m^6*A1*[m2-M2]^-2*qDp*qDpp^3
   - 6*M^-4*m^6*A1*[m2-M2]^-2*qDp^2*qDpp^2 - 4*M^-4*m^6*A1*
 [m2-M2]^-2*qDp^3*qDpp - M^-4*m^6*A1*[m2-M2]^-2*qDp^4 - M^-4*m^6*A1
  *[m2-M2]^-2*qDpp^4 - M^-4*m^6*A2*[m2-M2]^-2*qDpp^4 + 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
  * ( 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,q2)*D(a,b)*D(c,d)
  * ( - 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 )
 
 + Two(q,q4)*D(a,b)*D(c,d)
  * ( 1/16*M^-4*m^4*A3 - 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDp^2
  + 1/8*M^-4*m^6*A1*[m2-M2]^-2*qDp - 1/16*M^-4*m^6*A1*[m2-M2]^-1
  - 1/4*M^-4*m^6*A2*[m2-M2]^-3*qDk^2 - 1/8*M^-4*m^6*A2*[m2-M2]^-2*qDk
   - 1/16*M^-4*m^6*A2*[m2-M2]^-1 )
 
 + Two(q,q4)*D(a,c)*D(b,d)
  * ( 7/32*M^-4*m^4*A3 - 5/16*M^-4*m^4*R1Z*Extm + 3/32*M^-4*m^4*R5Z
  *Extm^2 - 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDp^2 + 1/8*M^-4*m^6*A1*
 [m2-M2]^-2*qDp - 1/16*M^-4*m^6*A1*[m2-M2]^-1 - 1/4*M^-4*m^6*A2*
 [m2-M2]^-3*qDk^2 - 1/8*M^-4*m^6*A2*[m2-M2]^-2*qDk - 1/16*M^-4*m^6
  *A2*[m2-M2]^-1 + 1/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDk^2
  + 1/4*M^-4*m^6*R1Z*Extm*[m2-M2]^-3*qDp^2 + 1/8*M^-4*m^6*R1Z*Extm
  *[m2-M2]^-2*qDk - 1/8*M^-4*m^6*R1Z*Extm*[m2-M2]^-2*qDp + 1/8*M^-4
  *m^6*R1Z*Extm*[m2-M2]^-1 )
 
 + Two(q,q4)*D(a,d)*D(b,c)
  * ( 1/16*M^-4*m^4*A3 - 1/4*M^-4*m^6*A1*[m2-M2]^-3*qDp^2
  + 1/8*M^-4*m^6*A1*[m2-M2]^-2*qDp - 1/16*M^-4*m^6*A1*[m2-M2]^-1
  - 1/4*M^-4*m^6*A2*[m2-M2]^-3*qDk^2 - 1/8*M^-4*m^6*A2*[m2-M2]^-2*qDk
   - 1/16*M^-4*m^6*A2*[m2-M2]^-1 )
 
 + Two(q,q5)*D(a,d)*D(b,c)
  * ( - 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 ) + 0.
 

Begin. Time 161 sec.

Terms in output 0
Running time 162 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 36 	Merging		0 	0


End run. Time 163 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:54:24.  Memory: start 0001B84C, length 476348.


C WW-scattering 9.  One loop Fi-Fi scattering, part 3. 125 sec.
  Uses output from 8. Produces BoxFF_comm.

C Part 3 of BoxFF.

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

C Work to be done:
 - Do integrals.
   1/(qx^2+M^2) with or without Higgs propagators;
   Higgs propagators;
   Functions Two and no Higgs propagator.

> P ninput

Begin. Time 3 sec.
> P stats

Terms in output 921
Running time 9 sec			Used	Maximum
Generated terms 921 	Input space 	1916 	100000
Equal terms 0     	Output space 	35358 	250000
Cancellations 0   	Nr of expr.  	34 	255
Multiplications 18169	String space 	8 	4096
Records written 7 	Merging		0 	0


Terms out 921, in 921.

Terms in output 1030
Running time 15 sec			Used	Maximum
Generated terms 1451 	Input space 	2130 	100000
Equal terms 421     	Output space 	33538 	250000
Cancellations 0   	Nr of expr.  	39 	255
Multiplications 15156	String space 	8 	4096
Records written 10 	Merging		0 	0


Terms out 1030, in 1030.

Terms in output 292
Running time 25 sec			Used	Maximum
Generated terms 2284 	Input space 	10720 	100000
Equal terms 1538     	Output space 	8754 	250000
Cancellations 454   	Nr of expr.  	77 	255
Multiplications 16392	String space 	8 	4096
Records written 12 	Merging		0 	0


Terms out 292, in 292.

Terms in output 348
Running time 26 sec			Used	Maximum
Generated terms 360 	Input space 	2714 	100000
Equal terms 12     	Output space 	10954 	250000
Cancellations 0   	Nr of expr.  	34 	255
Multiplications 1150	String space 	8 	4096
Records written 12 	Merging		0 	0


Terms out 348, in 348.

Terms in output 70
Running time 83 sec			Used	Maximum
Generated terms 476 	Input space 	5132 	100000
Equal terms 356     	Output space 	2214 	250000
Cancellations 50   	Nr of expr.  	66 	255
Multiplications 157430	String space 	13 	4096
Records written 12 	Merging		0 	0

 
Box(a,b,c,d,s,t,u) = 
 + D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/144*A1*u^2 - 1/144*A2*u^2 + 1/96*A0*s*u + 11/960*A0*s^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( 1/32*gu*T1*u^2 + 1/32*gu*T2*u^2 - 9/32*gu*T3*u^2 + 3/32*gu*R5Z
  *u^2 + 1/1920*gu^2*A3*u^2 - 11/960*gu^2*R1Z*u^2 + 7/640*gu^2*R5Z
  *u^2 + 1/1920*A3*u^2 - 11/1440*A1*u^2 - 11/1440*A2*u^2 + 3/32*T1
  *u^2 + 3/32*T2*u^2 - 27/32*T3*u^2 - 1127/2880*R1Z*u^2 + 603/640*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 + 9/16*gu*T3*u^2 - 3/16*gu
  *R5Z*u^2 + 1/8*gu^2*R1Z*u^2 - 3/16*gu^2*R5Z*u^2 - 3/16*T1*u^2
  - 3/16*T2*u^2 + 27/16*T3*u^2 + 3/2*R1Z*u^2 - 45/16*R5Z*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/144*A1*u^2 - 1/144*A2*u^2 + 1/80*A0*s*u + 11/960*A0*s^2
  + 1/960*A0*u^2 )
 
 + Log(m2)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/48*A1*u^2 - 1/48*A2*u^2 + 11/96*A0*s*u + 5/96*A0*s^2
  + 1/16*A0*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 + 9/32*gu*T3*u^2 - 3/32*gu
  *R5Z*u^2 + 1/16*gu^2*R1Z*u^2 - 3/32*gu^2*R5Z*u^2 - 1/48*A1*u^2
  - 1/48*A2*u^2 - 3/32*T1*u^2 - 3/32*T2*u^2 + 27/32*T3*u^2
  + 13/24*R1Z*u^2 - 9/8*R5Z*u^2 )
 
 + Log(m2)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/48*A1*u^2 - 1/48*A2*u^2 - 1/96*A0*s*u + 5/96*A0*s^2 )
 
 + Log(s)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( 1/96*A0*s*u - 5/96*A0*s^2 )
 
 + Log(t)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 11/96*A0*s*u - 5/96*A0*s^2 - 1/16*A0*u^2 )
 
 + Log(u)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( 1/48*A1*u^2 + 1/48*A2*u^2 )
 
 + Log(u)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( 1/48*A1*u^2 + 1/48*A2*u^2 + 5/24*R1Z*u^2 - 9/32*R5Z*u^2 )
 
 + Log(u)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( 1/48*A1*u^2 + 1/48*A2*u^2 ) + 0.
 
> P input

	Common FTot
	Delete BoxFF

C Add further diagrams, obtained by crossing. Set labels A0-A3 to 1.

	Z FTot=Box(a,b,c,d,s,t,u) + Box(a,c,b,d,u,t,s) + Box(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 102
Running time 84 sec			Used	Maximum
Generated terms 297 	Input space 	3636 	101528
Equal terms 191     	Output space 	3180 	248472
Cancellations 4   	Nr of expr.  	44 	255
Multiplications 1299	String space 	13 	4096
Records written 12 	Merging		0 	0

 
FTot = 
 + D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( 3/32*gu*R5Z*s^2 - 7/32*gu*s^2 - 11/960*gu^2*R1Z*s^2
  + 7/640*gu^2*R5Z*s^2 + 1/1920*gu^2*s^2 - 1127/2880*R1Z*s^2
  + 603/640*R5Z*s^2 - 1/36*s*t - 1291/1920*s^2 - 1/36*t^2 )
 
 + D(a,b)*D(c,d)*i*Pi^2*N_^-1*M2^-2
  * ( - 3/16*gu*R5Z*s^2 + 7/16*gu*s^2 + 1/8*gu^2*R1Z*s^2 - 3/16*gu^2
  *R5Z*s^2 + 3/2*R1Z*s^2 - 45/16*R5Z*s^2 + 21/16*s^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( 3/32*gu*R5Z*u^2 - 7/32*gu*u^2 - 11/960*gu^2*R1Z*u^2
  + 7/640*gu^2*R5Z*u^2 + 1/1920*gu^2*u^2 - 1127/2880*R1Z*u^2
  + 603/640*R5Z*u^2 - 1/36*s*u - 1/36*s^2 - 1291/1920*u^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*N_^-1*M2^-2
  * ( - 3/16*gu*R5Z*u^2 + 7/16*gu*u^2 + 1/8*gu^2*R1Z*u^2 - 3/16*gu^2
  *R5Z*u^2 + 3/2*R1Z*u^2 - 45/16*R5Z*u^2 + 21/16*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( 3/32*gu*R5Z*t^2 - 7/32*gu*t^2 - 11/960*gu^2*R1Z*t^2
  + 7/640*gu^2*R5Z*t^2 + 1/1920*gu^2*t^2 - 1127/2880*R1Z*t^2
  + 603/640*R5Z*t^2 - 1/36*t*u - 1291/1920*t^2 - 1/36*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*N_^-1*M2^-2
  * ( - 3/16*gu*R5Z*t^2 + 7/16*gu*t^2 + 1/8*gu^2*R1Z*t^2 - 3/16*gu^2
  *R5Z*t^2 + 3/2*R1Z*t^2 - 45/16*R5Z*t^2 + 21/16*t^2 )
 
 + Log(m2)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 3/32*gu*R5Z*s^2 + 7/32*gu*s^2 + 1/16*gu^2*R1Z*s^2
  - 3/32*gu^2*R5Z*s^2 + 13/24*R1Z*s^2 - 9/8*R5Z*s^2 + 1/24*s*t
  + 5/8*s^2 + 1/24*t^2 )
 
 + Log(m2)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 3/32*gu*R5Z*u^2 + 7/32*gu*u^2 + 1/16*gu^2*R1Z*u^2
  - 3/32*gu^2*R5Z*u^2 + 13/24*R1Z*u^2 - 9/8*R5Z*u^2 + 1/24*s*u
  + 1/24*s^2 + 5/8*u^2 )
 
 + Log(m2)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 3/32*gu*R5Z*t^2 + 7/32*gu*t^2 + 1/16*gu^2*R1Z*t^2
  - 3/32*gu^2*R5Z*t^2 + 13/24*R1Z*t^2 - 9/8*R5Z*t^2 + 1/24*t*u
  + 5/8*t^2 + 1/24*u^2 )
 
 + Log(s)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( 5/24*R1Z*s^2 - 9/32*R5Z*s^2 + 1/24*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
  * ( 5/24*R1Z*t^2 - 9/32*R5Z*t^2 + 1/24*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
  * ( 5/24*R1Z*u^2 - 9/32*R5Z*u^2 + 1/24*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 102, in 102.

Terms in output 51
Running time 84 sec			Used	Maximum
Generated terms 102 	Input space 	2680 	101528
Equal terms 45     	Output space 	1908 	248472
Cancellations 6   	Nr of expr.  	24 	255
Multiplications 306	String space 	13 	4096
Records written 12 	Merging		0 	0

 
FTot = 
 + D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( - 1/8*gu*s^2 - 1/36*s*t - 35/288*s^2 - 1/36*t^2 )
 
 + D(a,b)*D(c,d)*i*Pi^2*N_^-1*M2^-2
  * ( 1/4*gu*s^2 - 1/16*gu^2*s^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( - 1/8*gu*u^2 - 1/36*s*u - 1/36*s^2 - 35/288*u^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*N_^-1*M2^-2
  * ( 1/4*gu*u^2 - 1/16*gu^2*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( - 1/8*gu*t^2 - 1/36*t*u - 35/288*t^2 - 1/36*u^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*N_^-1*M2^-2
  * ( 1/4*gu*t^2 - 1/16*gu^2*t^2 )
 
 + Log(m2)*D(a,b)*D(c,d)*i*Pi^2*M2^-2
  * ( 1/8*gu*s^2 - 1/32*gu^2*s^2 + 1/24*s*t + 1/24*s^2 + 1/24*t^2 )
 
 + Log(m2)*D(a,c)*D(b,d)*i*Pi^2*M2^-2
  * ( 1/8*gu*u^2 - 1/32*gu^2*u^2 + 1/24*s*u + 1/24*s^2 + 1/24*u^2 )
 
 + Log(m2)*D(a,d)*D(b,c)*i*Pi^2*M2^-2
  * ( 1/8*gu*t^2 - 1/32*gu^2*t^2 + 1/24*t*u + 1/24*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 85 sec.
	Write BoxFF_comm
	*end

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


End run. Time 85 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:55:52.  Memory: start 0001B84C, length 476348.


C WW-scattering 10. Fi-Fi Renormalization. Result Fi-Fi amplitude.
  Uses output from 9.

C Subtraction terms four-Fi amplitude.

> P ninput

Begin. Time 3 sec.
 
RenFF4 = 0.
 
RenFFr(a,b,c,d,s,t,u) = 
 + D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( 3/32*u^2*gu*R5 - 3/32*u^2*gu*R5*Logm2 - 9/32*u^2*gu*T3
  + 9/32*u^2*gu*T3*Logm2 + 1/32*u^2*gu*T1 - 1/32*u^2*gu*T1*Logm2
  + 1/32*u^2*gu*T2 - 1/32*u^2*gu*T2*Logm2 + 1/16*u^2*gu^2*R3*Logm2
   + 1/16*u^2*gu^2*R3*[Pi/Sqrt(3)-2] - 3/32*u^2*gu^2*R5*Logm2
  - 3/32*u^2*gu^2*R5*[Pi/Sqrt(3)-2] - 5/16*u^2*R3 + 3/4*u^2*R3*Logm2
   + 9/16*u^2*R3*[Pi/Sqrt(3)-2] + 13/16*u^2*R5 - 45/32*u^2*R5*Logm2
   - 27/32*u^2*R5*[Pi/Sqrt(3)-2] - 27/32*u^2*T3 + 27/32*u^2*T3*Logm2
   + 3/32*u^2*T1 - 3/32*u^2*T1*Logm2 + 3/32*u^2*T2 - 3/32*u^2*T2*Logm2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*N_^-1*M^-4
  * ( - 3/16*u^2*gu*R5 + 9/16*u^2*gu*T3 - 1/16*u^2*gu*T1 - 1/16*u^2
  *gu*T2 + 1/8*u^2*gu^2*R3 - 3/16*u^2*gu^2*R5 + 3/2*u^2*R3
  - 45/16*u^2*R5 + 27/16*u^2*T3 - 3/16*u^2*T1 - 3/16*u^2*T2 ) + 0.
 
 
RenFFt = 
 + D(a,b)*D(c,d)*i*Pi^2*M^-4
  * ( - 5/32*s^2 - 1/8*s^2*gu + 1/8*s^2*gu*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
  * ( 1/4*s^2*gu - 1/16*s^2*gu^2 )
 
 + D(a,c)*D(b,d)*i*Pi^2*M^-4
  * ( - 5/32*u^2 - 1/8*u^2*gu + 1/8*u^2*gu*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
  * ( 1/4*u^2*gu - 1/16*u^2*gu^2 )
 
 + D(a,d)*D(b,c)*i*Pi^2*M^-4
  * ( - 5/32*t^2 - 1/8*t^2*gu + 1/8*t^2*gu*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
  * ( 1/4*t^2*gu - 1/16*t^2*gu^2 ) + 0.
 
> P input
C Renormalized FFFF amplitude.

	Z RenF = FTot - RenFFt
	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
 
RenF = 
 + 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
 
RenF = 
 + 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 7 sec.
