diff --git a/.DS_Store b/.DS_Store
index 35e43cd7bc5e89203d09fa832511c6164a74272f..cea4e01f81e971d0a9e9256f060c51e7307e1567 100644
Binary files a/.DS_Store and b/.DS_Store differ
diff --git a/feynamps/ggH_PV.m b/feynamps/ggH_PV.m
new file mode 100644
index 0000000000000000000000000000000000000000..89ae3bd2d198b4503b9599ff31f75db1b3bfe003
--- /dev/null
+++ b/feynamps/ggH_PV.m
@@ -0,0 +1,9 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+(Alfas*EL*MT^2*Mat[SUNT[Glu1, Glu2, 0, 0]]*
+  (-((-(MH^2*Pair[e[1], e[2]]) + 2*Pair[e[1], k[2]]*Pair[e[2], k[1]])*
+      PVC[0, 0, 0, 0, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])/2 + 
+   4*Pair[e[1], k[2]]*Pair[e[2], k[1]]*PVC[0, 1, 1, 0, MH^2, 0, Sqrt[MT^2], 
+     Sqrt[MT^2], Sqrt[MT^2]] + Pair[e[1], e[2]]*
+    (PVB[0, 0, MH^2, Sqrt[MT^2], Sqrt[MT^2]] - 
+     4*PVC[1, 0, 0, 0, MH^2, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]])))/
+ (MW*Pi*SW)
diff --git a/feynamps/ggHg_PV.m b/feynamps/ggHg_PV.m
new file mode 100644
index 0000000000000000000000000000000000000000..f1a7d7fefc90446eaa59b8c3eb783c1e6e2f4f1b
--- /dev/null
+++ b/feynamps/ggHg_PV.m
@@ -0,0 +1,141 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+Amp[{{V[5, {Glu1}], k[1], 0, {Sqrt[3]*ColorCharge}}, 
+    {V[5, {Glu2}], k[2], 0, {Sqrt[3]*ColorCharge}}} -> 
+   {{S[1], k[3], MH, {}}, {V[5, {Glu4}], k[4], 0, {Sqrt[3]*ColorCharge}}}][
+ (Alfas*EL*GS*MT^2*Mat[SUNT[Glu1, Glu2, Glu4, 0, 0]]*
+    ((-(((-MH^2 + U)*Pair[e[1], k[4]]*Pair[e[2], ec[4]] - 
+          Pair[e[1], ec[4]]*((-MH^2 + U)*Pair[e[2], k[1]] + 
+            S*Pair[e[2], k[3]]) + (-MH^2 + U)*Pair[e[1], e[2]]*
+           Pair[ec[4], k[1]] + 2*Pair[e[2], k[3]]*
+           (Pair[e[1], k[2]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
+             Pair[ec[4], k[2]]))*PVC[0, 0, 0, 0, U, MH^2, Sqrt[MT^2], 
+          Sqrt[MT^2], Sqrt[MT^2]]) - (2*(-MH^2 + U)*Pair[e[1], k[4]]*
+          Pair[e[2], ec[4]] + Pair[e[1], ec[4]]*(2*(S + T)*Pair[e[2], k[1]] + 
+           (-3*S + T)*Pair[e[2], k[3]]) + 2*(-MH^2 + U)*Pair[e[1], e[2]]*
+          Pair[ec[4], k[1]] + 8*Pair[e[2], k[3]]*
+          (Pair[e[1], k[3]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
+            Pair[ec[4], k[3]]))*PVC[0, 0, 1, 0, U, MH^2, Sqrt[MT^2], 
+         Sqrt[MT^2], Sqrt[MT^2]] - 2*Pair[e[2], k[3]]*
+        ((-S + T)*Pair[e[1], ec[4]] + 4*(Pair[e[1], k[3]]*Pair[ec[4], k[1]] + 
+           Pair[e[1], k[4]]*Pair[ec[4], k[3]]))*PVC[0, 0, 2, 0, U, MH^2, 
+         Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] - 2*Pair[e[2], k[3]]*
+        ((-S + T)*Pair[e[1], ec[4]] + 4*(Pair[e[1], k[2]]*Pair[ec[4], k[1]] + 
+           Pair[e[1], k[4]]*Pair[ec[4], k[2]]))*PVC[0, 1, 1, 0, U, MH^2, 
+         Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] + 
+       (2*Pair[e[1], k[4]]*Pair[e[2], ec[4]] - Pair[e[1], ec[4]]*
+          (Pair[e[2], k[1]] + Pair[e[2], k[4]]) + 2*Pair[e[1], e[2]]*
+          Pair[ec[4], k[1]])*(PVB[0, 0, U, Sqrt[MT^2], Sqrt[MT^2]] - 
+         4*PVC[1, 0, 0, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]))/U + 
+     (-(((-MH^2 + S)*Pair[e[1], k[2]]*Pair[e[2], ec[4]] + 
+          (MH^2 - S)*Pair[e[1], ec[4]]*Pair[e[2], k[1]] + 
+          2*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
+             Pair[e[2], k[3]])*Pair[ec[4], k[3]] - Pair[e[1], e[2]]*
+           ((T + U)*Pair[ec[4], k[1]] - U*Pair[ec[4], k[3]]))*
+         PVC[0, 0, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]) - 
+       (2*(-MH^2 + S)*Pair[e[1], k[2]]*Pair[e[2], ec[4]] + 
+         2*(MH^2 - S)*Pair[e[1], ec[4]]*Pair[e[2], k[1]] + 
+         8*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
+            Pair[e[2], k[3]])*Pair[ec[4], k[3]] - Pair[e[1], e[2]]*
+          (2*(T + U)*Pair[ec[4], k[1]] + (T - 3*U)*Pair[ec[4], k[3]]))*
+        PVC[0, 1, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] - 
+       2*((-T + U)*Pair[e[1], e[2]] + 
+         4*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
+            Pair[e[2], k[3]]))*Pair[ec[4], k[3]]*
+        (PVC[0, 1, 1, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] + 
+         PVC[0, 2, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]) + 
+       (2*Pair[e[1], k[2]]*Pair[e[2], ec[4]] - 2*Pair[e[1], ec[4]]*
+          Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[4], k[1]] - 
+           Pair[ec[4], k[2]]))*(PVB[0, 0, S, Sqrt[MT^2], Sqrt[MT^2]] - 
+         4*PVC[1, 0, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]))/S - 
+     (-((((S + U)*Pair[e[1], k[2]] - S*Pair[e[1], k[3]])*Pair[e[2], ec[4]] - 
+          (MH^2 - T)*(Pair[e[1], ec[4]]*Pair[e[2], k[4]] + Pair[e[1], e[2]]*
+             Pair[ec[4], k[2]]) + 2*Pair[e[1], k[3]]*
+           (Pair[e[2], k[4]]*Pair[ec[4], k[1]] + Pair[e[2], k[1]]*
+             Pair[ec[4], k[2]]))*PVC[0, 0, 0, MH^2, T, 0, Sqrt[MT^2], 
+          Sqrt[MT^2], Sqrt[MT^2]]) - 
+       ((2*(S + U)*Pair[e[1], k[2]] + (-3*S + U)*Pair[e[1], k[3]])*
+          Pair[e[2], ec[4]] - 2*(MH^2 - T)*(Pair[e[1], ec[4]]*
+            Pair[e[2], k[4]] + Pair[e[1], e[2]]*Pair[ec[4], k[2]]) + 
+         8*Pair[e[1], k[3]]*(Pair[e[2], k[3]]*Pair[ec[4], k[2]] + 
+           Pair[e[2], k[4]]*Pair[ec[4], k[3]]))*PVC[0, 1, 0, MH^2, T, 0, 
+         Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] - 
+       2*(Pair[e[1], k[3]]*((-S + U)*Pair[e[2], ec[4]] + 
+           4*(-(Pair[e[2], k[3]]*Pair[ec[4], k[1]]) + Pair[e[2], k[1]]*
+              Pair[ec[4], k[3]]))*PVC[0, 1, 1, MH^2, T, 0, Sqrt[MT^2], 
+           Sqrt[MT^2], Sqrt[MT^2]] + Pair[e[1], k[3]]*
+          ((-S + U)*Pair[e[2], ec[4]] + 4*(Pair[e[2], k[3]]*Pair[ec[4], k[
+                2]] + Pair[e[2], k[4]]*Pair[ec[4], k[3]]))*
+          PVC[0, 2, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]) + 
+       (-((Pair[e[1], k[2]] + Pair[e[1], k[4]])*Pair[e[2], ec[4]]) + 
+         2*Pair[e[1], ec[4]]*Pair[e[2], k[4]] + 2*Pair[e[1], e[2]]*
+          Pair[ec[4], k[2]])*(PVB[0, 0, T, Sqrt[MT^2], Sqrt[MT^2]] - 
+         4*PVC[1, 0, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]))/T))/
+   (MW*Pi*SW) - (Alfas*EL*GS*MT^2*Mat[SUNT[Glu1, Glu4, Glu2, 0, 0]]*
+    ((-(((-MH^2 + U)*Pair[e[1], k[4]]*Pair[e[2], ec[4]] - 
+          Pair[e[1], ec[4]]*((-MH^2 + U)*Pair[e[2], k[1]] + 
+            S*Pair[e[2], k[3]]) + (-MH^2 + U)*Pair[e[1], e[2]]*
+           Pair[ec[4], k[1]] + 2*Pair[e[2], k[3]]*
+           (Pair[e[1], k[2]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
+             Pair[ec[4], k[2]]))*PVC[0, 0, 0, 0, U, MH^2, Sqrt[MT^2], 
+          Sqrt[MT^2], Sqrt[MT^2]]) - (2*(-MH^2 + U)*Pair[e[1], k[4]]*
+          Pair[e[2], ec[4]] + Pair[e[1], ec[4]]*(2*(S + T)*Pair[e[2], k[1]] + 
+           (-3*S + T)*Pair[e[2], k[3]]) + 2*(-MH^2 + U)*Pair[e[1], e[2]]*
+          Pair[ec[4], k[1]] + 8*Pair[e[2], k[3]]*
+          (Pair[e[1], k[3]]*Pair[ec[4], k[1]] + Pair[e[1], k[4]]*
+            Pair[ec[4], k[3]]))*PVC[0, 0, 1, 0, U, MH^2, Sqrt[MT^2], 
+         Sqrt[MT^2], Sqrt[MT^2]] - 2*Pair[e[2], k[3]]*
+        ((-S + T)*Pair[e[1], ec[4]] + 4*(Pair[e[1], k[3]]*Pair[ec[4], k[1]] + 
+           Pair[e[1], k[4]]*Pair[ec[4], k[3]]))*PVC[0, 0, 2, 0, U, MH^2, 
+         Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] - 2*Pair[e[2], k[3]]*
+        ((-S + T)*Pair[e[1], ec[4]] + 4*(Pair[e[1], k[2]]*Pair[ec[4], k[1]] + 
+           Pair[e[1], k[4]]*Pair[ec[4], k[2]]))*PVC[0, 1, 1, 0, U, MH^2, 
+         Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] + 
+       (2*Pair[e[1], k[4]]*Pair[e[2], ec[4]] - Pair[e[1], ec[4]]*
+          (Pair[e[2], k[1]] + Pair[e[2], k[4]]) + 2*Pair[e[1], e[2]]*
+          Pair[ec[4], k[1]])*(PVB[0, 0, U, Sqrt[MT^2], Sqrt[MT^2]] - 
+         4*PVC[1, 0, 0, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]))/U + 
+     (-(((-MH^2 + S)*Pair[e[1], k[2]]*Pair[e[2], ec[4]] + 
+          (MH^2 - S)*Pair[e[1], ec[4]]*Pair[e[2], k[1]] + 
+          2*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
+             Pair[e[2], k[3]])*Pair[ec[4], k[3]] - Pair[e[1], e[2]]*
+           ((T + U)*Pair[ec[4], k[1]] - U*Pair[ec[4], k[3]]))*
+         PVC[0, 0, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]) - 
+       (2*(-MH^2 + S)*Pair[e[1], k[2]]*Pair[e[2], ec[4]] + 
+         2*(MH^2 - S)*Pair[e[1], ec[4]]*Pair[e[2], k[1]] + 
+         8*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
+            Pair[e[2], k[3]])*Pair[ec[4], k[3]] - Pair[e[1], e[2]]*
+          (2*(T + U)*Pair[ec[4], k[1]] + (T - 3*U)*Pair[ec[4], k[3]]))*
+        PVC[0, 1, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] - 
+       2*((-T + U)*Pair[e[1], e[2]] + 
+         4*(-(Pair[e[1], k[3]]*Pair[e[2], k[1]]) + Pair[e[1], k[2]]*
+            Pair[e[2], k[3]]))*Pair[ec[4], k[3]]*
+        (PVC[0, 1, 1, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] + 
+         PVC[0, 2, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]) + 
+       (2*Pair[e[1], k[2]]*Pair[e[2], ec[4]] - 2*Pair[e[1], ec[4]]*
+          Pair[e[2], k[1]] + Pair[e[1], e[2]]*(Pair[ec[4], k[1]] - 
+           Pair[ec[4], k[2]]))*(PVB[0, 0, S, Sqrt[MT^2], Sqrt[MT^2]] - 
+         4*PVC[1, 0, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]))/S - 
+     (-((((S + U)*Pair[e[1], k[2]] - S*Pair[e[1], k[3]])*Pair[e[2], ec[4]] - 
+          (MH^2 - T)*(Pair[e[1], ec[4]]*Pair[e[2], k[4]] + Pair[e[1], e[2]]*
+             Pair[ec[4], k[2]]) + 2*Pair[e[1], k[3]]*
+           (Pair[e[2], k[4]]*Pair[ec[4], k[1]] + Pair[e[2], k[1]]*
+             Pair[ec[4], k[2]]))*PVC[0, 0, 0, MH^2, T, 0, Sqrt[MT^2], 
+          Sqrt[MT^2], Sqrt[MT^2]]) - 
+       ((2*(S + U)*Pair[e[1], k[2]] + (-3*S + U)*Pair[e[1], k[3]])*
+          Pair[e[2], ec[4]] - 2*(MH^2 - T)*(Pair[e[1], ec[4]]*
+            Pair[e[2], k[4]] + Pair[e[1], e[2]]*Pair[ec[4], k[2]]) + 
+         8*Pair[e[1], k[3]]*(Pair[e[2], k[3]]*Pair[ec[4], k[2]] + 
+           Pair[e[2], k[4]]*Pair[ec[4], k[3]]))*PVC[0, 1, 0, MH^2, T, 0, 
+         Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] - 
+       2*(Pair[e[1], k[3]]*((-S + U)*Pair[e[2], ec[4]] + 
+           4*(-(Pair[e[2], k[3]]*Pair[ec[4], k[1]]) + Pair[e[2], k[1]]*
+              Pair[ec[4], k[3]]))*PVC[0, 1, 1, MH^2, T, 0, Sqrt[MT^2], 
+           Sqrt[MT^2], Sqrt[MT^2]] + Pair[e[1], k[3]]*
+          ((-S + U)*Pair[e[2], ec[4]] + 4*(Pair[e[2], k[3]]*Pair[ec[4], k[
+                2]] + Pair[e[2], k[4]]*Pair[ec[4], k[3]]))*
+          PVC[0, 2, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]) + 
+       (-((Pair[e[1], k[2]] + Pair[e[1], k[4]])*Pair[e[2], ec[4]]) + 
+         2*Pair[e[1], ec[4]]*Pair[e[2], k[4]] + 2*Pair[e[1], e[2]]*
+          Pair[ec[4], k[2]])*(PVB[0, 0, T, Sqrt[MT^2], Sqrt[MT^2]] - 
+         4*PVC[1, 0, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]]))/T))/
+   (MW*Pi*SW)]
diff --git a/pvcoefficients/ggH_coeff.txt b/pvcoefficients/ggH_coeff.txt
new file mode 100644
index 0000000000000000000000000000000000000000..b8eae851c559973f8444e8b970f0e275325be2db
--- /dev/null
+++ b/pvcoefficients/ggH_coeff.txt
@@ -0,0 +1,4 @@
+PVB[0,0,MH^2,Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,0,0,0,MH^2,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,1,1,0,MH^2,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[1,0,0,0,MH^2,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
diff --git a/pvcoefficients/ggHg_coeff.txt b/pvcoefficients/ggHg_coeff.txt
new file mode 100644
index 0000000000000000000000000000000000000000..fc0d480545b7ec03b9bd74af91dea9edc7c563e4
--- /dev/null
+++ b/pvcoefficients/ggHg_coeff.txt
@@ -0,0 +1,18 @@
+PVB[0,0,S,Sqrt[MT^2],Sqrt[MT^2]]
+PVB[0,0,T,Sqrt[MT^2],Sqrt[MT^2]]
+PVB[0,0,U,Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,0,0,0,U,MH^2,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,0,0,MH^2,S,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,0,0,MH^2,T,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,0,1,0,U,MH^2,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,0,2,0,U,MH^2,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,1,0,MH^2,S,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,1,0,MH^2,T,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,1,1,0,U,MH^2,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,1,1,MH^2,S,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,1,1,MH^2,T,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,2,0,MH^2,S,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[0,2,0,MH^2,T,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[1,0,0,0,U,MH^2,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[1,0,0,MH^2,S,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
+PVC[1,0,0,MH^2,T,0,Sqrt[MT^2],Sqrt[MT^2],Sqrt[MT^2]]
diff --git a/scripts/X_LoopRefining_0and1jets.nb b/scripts/X_LoopRefining_0and1jets.nb
new file mode 100644
index 0000000000000000000000000000000000000000..259b0f9cb33300b5c7811417c155b60598a826d0
--- /dev/null
+++ b/scripts/X_LoopRefining_0and1jets.nb
@@ -0,0 +1,102948 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 11.3' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[       158,          7]
+NotebookDataLength[   4727157,     102940]
+NotebookOptionsPosition[   4685092,     102393]
+NotebookOutlinePosition[   4685445,     102409]
+CellTagsIndexPosition[   4685402,     102406]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"ggHgg_X", ".", "m"}], "\[IndentingNewLine]", " ", 
+     RowBox[{"Process", ":", " ", 
+      RowBox[{"g", " ", "+", " ", "g"}]}]}], " ", "\[Rule]", " ", 
+    RowBox[{"H", " ", "+", " ", 
+     RowBox[{
+      RowBox[{"(", "g", ")"}], " ", "\[IndentingNewLine]", 
+      RowBox[{"Model", ":", " ", "SMQCD"}]}]}]}], ",", " ", 
+   RowBox[{
+   "Last", " ", "Modified", " ", "October", " ", "2019", 
+    "\[IndentingNewLine]", "Created", " ", 
+    RowBox[{"by", ":", " ", 
+     RowBox[{
+      RowBox[{"J", ".", "G", ".", "Reyes"}], " ", "Rivera"}]}]}]}], " ", 
+  "*)"}]], "Input",
+ CellChangeTimes->{{3.7483460640690107`*^9, 3.748346128736135*^9}, {
+  3.7505322064466867`*^9, 3.7505322096193037`*^9}, {3.750685818525031*^9, 
+  3.7506858187985888`*^9}, {3.750685862467576*^9, 3.750685862527199*^9}, {
+  3.7513081531132383`*^9, 3.751308157253491*^9}, {3.761295781705222*^9, 
+  3.761295787067747*^9}, {3.7640060179701233`*^9, 3.7640060182815123`*^9}, {
+  3.769416168255188*^9, 3.769416171052967*^9}, {3.7791271781333838`*^9, 
+  3.779127187089452*^9}},ExpressionUUID->"a9eb43f9-c437-4ff0-ae8b-\
+eb31f4d06b38"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Needs", "[", "\"\<X`\>\"", "]"}], "\n", 
+ RowBox[{"<<", "FA2X.m"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"SetDirectory", "[", 
+   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"NotebookSave", "[", "]"}]}], "Input",
+ CellChangeTimes->{{3.7694157567375174`*^9, 3.7694157651420507`*^9}, {
+  3.7694161379556293`*^9, 3.769416138416831*^9}, {3.7694161826886263`*^9, 
+  3.769416192145475*^9}, {3.769416241287668*^9, 3.769416242139756*^9}, {
+  3.769421884524377*^9, 3.769421889789727*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"aa6e76d2-ec10-49c0-b6e0-1dd4d91b1a18"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"Package-X v2.1.1, by \
+Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
+TemplateBox[List[\\\"\\\\\\\"guide\\\\\\\"\\\", \\\"paclet:X/guide/PackageX\\\
+\"], \\\"HyperlinkPaclet\\\"]], \\\"RowDefault\\\"]\\)\"\>"], "Print",
+ CellChangeTimes->{
+  3.769416150674975*^9, 3.769416194267857*^9, {3.769416231919112*^9, 
+   3.7694162425484037`*^9}, {3.769420646545596*^9, 3.7694206583152533`*^9}, 
+   3.769425025413766*^9, 3.769945290179131*^9, 3.7699517202962923`*^9, 
+   3.7699519650062838`*^9, 3.770010676869535*^9, {3.770096629754195*^9, 
+   3.7700966433220797`*^9}, 3.772884479178385*^9, 3.7728856240450077`*^9, 
+   3.77288581666254*^9, 3.7728886845903807`*^9, 3.772964841769395*^9, 
+   3.773141652951313*^9, 3.773740327500822*^9, 3.774370903034319*^9, 
+   3.774370966666355*^9, 3.7752319005419207`*^9, 3.7752337152035227`*^9, 
+   3.775489088564049*^9, 3.775489245308648*^9, 3.7754897453429413`*^9, 
+   3.7754904657230673`*^9, 3.775821105497553*^9, {3.775823186450994*^9, 
+   3.775823195188353*^9}, 3.775826214916897*^9, 3.775827858966928*^9, 
+   3.7758411073958178`*^9, 3.775926802671126*^9, 3.775927750035071*^9, 
+   3.775932731190497*^9, 3.7759341459918737`*^9, 3.77593515116796*^9, 
+   3.775936044112349*^9, 3.7760066135848923`*^9, 3.7760084074827023`*^9, 
+   3.776163794536191*^9, 3.776164765694577*^9, 3.776165477011409*^9, 
+   3.7761725151431007`*^9, 3.776439045651415*^9, 3.776442806151732*^9, 
+   3.776704970731813*^9, 3.7767651458445473`*^9, 3.776769048440855*^9, 
+   3.7767696718636227`*^9, 3.776769782959084*^9, 3.77677107630024*^9, 
+   3.7767848686859093`*^9, 3.7770392950048313`*^9, 3.778239119647573*^9, 
+   3.77851079981749*^9, {3.7791271979663363`*^9, 3.779127217668456*^9}},
+ CellLabel->
+  "During evaluation of \
+In[1]:=",ExpressionUUID->"0faa258c-cb99-4ffa-abdc-8a866ea3d423"],
+
+Cell[BoxData["\<\"FA2X by Kirtimaan Mohan \\n email: kamohan@msu.edu \\n \
+version 1.1 \\n 10/03/2019 \\n Not optimized! Possibly lots of bugs!!!\"\>"], \
+"Print",
+ CellChangeTimes->{
+  3.769416150674975*^9, 3.769416194267857*^9, {3.769416231919112*^9, 
+   3.7694162425484037`*^9}, {3.769420646545596*^9, 3.7694206583152533`*^9}, 
+   3.769425025413766*^9, 3.769945290179131*^9, 3.7699517202962923`*^9, 
+   3.7699519650062838`*^9, 3.770010676869535*^9, {3.770096629754195*^9, 
+   3.7700966433220797`*^9}, 3.772884479178385*^9, 3.7728856240450077`*^9, 
+   3.77288581666254*^9, 3.7728886845903807`*^9, 3.772964841769395*^9, 
+   3.773141652951313*^9, 3.773740327500822*^9, 3.774370903034319*^9, 
+   3.774370966666355*^9, 3.7752319005419207`*^9, 3.7752337152035227`*^9, 
+   3.775489088564049*^9, 3.775489245308648*^9, 3.7754897453429413`*^9, 
+   3.7754904657230673`*^9, 3.775821105497553*^9, {3.775823186450994*^9, 
+   3.775823195188353*^9}, 3.775826214916897*^9, 3.775827858966928*^9, 
+   3.7758411073958178`*^9, 3.775926802671126*^9, 3.775927750035071*^9, 
+   3.775932731190497*^9, 3.7759341459918737`*^9, 3.77593515116796*^9, 
+   3.775936044112349*^9, 3.7760066135848923`*^9, 3.7760084074827023`*^9, 
+   3.776163794536191*^9, 3.776164765694577*^9, 3.776165477011409*^9, 
+   3.7761725151431007`*^9, 3.776439045651415*^9, 3.776442806151732*^9, 
+   3.776704970731813*^9, 3.7767651458445473`*^9, 3.776769048440855*^9, 
+   3.7767696718636227`*^9, 3.776769782959084*^9, 3.77677107630024*^9, 
+   3.7767848686859093`*^9, 3.7770392950048313`*^9, 3.778239119647573*^9, 
+   3.77851079981749*^9, {3.7791271979663363`*^9, 3.7791272176839657`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[1]:=",ExpressionUUID->"68a135c8-1ea0-4213-881d-6b4d19bc89ac"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"$Assumptions", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"Element", "[", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+        "ki", ",", "k1", ",", "k2", ",", "k3", ",", "k4", ",", " ", 
+         "\[Theta]1", ",", "\[Theta]2", ",", "\[Theta]3", ",", "\[Theta]4", 
+         ",", " ", "\[Phi]1", ",", "\[Phi]2", ",", "\[Phi]3", ",", "\[Phi]4", 
+         ",", "p", ",", "MT2", ",", "GS", ",", "EL", ",", "Alfas", ",", "a1", 
+         ",", "S", ",", "T", ",", "U", ",", "MT", ",", "MH", ",", "MH2", ",", 
+         "\[Eta]4", ",", "\[Eta]3", ",", "\[Beta]"}], "}"}], ",", "Reals"}], 
+      "]"}], ",", 
+     RowBox[{"ki", ">", "0"}], " ", ",", 
+     RowBox[{"MT2", ">", "0"}], ",", 
+     RowBox[{"MT", ">", "0"}], ",", 
+     RowBox[{"MH2", ">", "0"}], ",", " ", 
+     RowBox[{"MH", ">", "0"}], ",", 
+     RowBox[{"k4", ">", "0"}], ",", 
+     RowBox[{"p", ">", "0"}], ",", 
+     RowBox[{"k3", ">", "0"}], ",", 
+     RowBox[{"k1", ">", "0"}], ",", 
+     RowBox[{"k2", ">", "0"}], ",", 
+     RowBox[{"rS", ">", "0"}], ",", 
+     RowBox[{"kT4", ">", "0"}], ",", 
+     RowBox[{"kT3", ">", "0"}], ",", 
+     RowBox[{"\[Beta]", ">", "0"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{3.7767696725954723`*^9},
+ CellLabel->"In[5]:=",ExpressionUUID->"1c12ba0e-fd6c-4b7e-8de6-2b784fa72d92"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"SubDen", ":=", 
+    RowBox[{"{", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"Den", "[", 
+        RowBox[{"a_", ",", "b_"}], "]"}], ":>", 
+       RowBox[{"1", "/", 
+        RowBox[{"(", 
+         RowBox[{"a", "-", "b"}], ")"}]}]}], ",", "\[IndentingNewLine]", 
+      RowBox[{"MH2", "\[Rule]", 
+       RowBox[{"MH", "^", "2"}]}], ",", "\[IndentingNewLine]", 
+      RowBox[{"MT2", "\[Rule]", 
+       RowBox[{"MT", "^", "2"}]}], ",", "\[IndentingNewLine]", 
+      RowBox[{"Alfas2", "\[Rule]", 
+       RowBox[{"Alfas", "^", "2"}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}],
+   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"MAT", ":=", 
+    RowBox[{"{", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu5", ",", "Glu2", ",", "Glu4", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "\[Rule]", "A"}], ",", "\[IndentingNewLine]", 
+      RowBox[{
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu4", ",", "Glu5", ",", "Glu2", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "\[Rule]", "B"}], ",", "\[IndentingNewLine]", 
+      RowBox[{
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu2", ",", "Glu5", ",", "Glu4", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "\[Rule]", "C"}], ",", "\[IndentingNewLine]", 
+      RowBox[{
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu4", ",", "Glu2", ",", "Glu5", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "\[Rule]", "D"}], ",", "\[IndentingNewLine]", 
+      RowBox[{
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu5", ",", "Glu4", ",", "Glu2", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "\[Rule]", "F"}], ",", "\[IndentingNewLine]", 
+      RowBox[{
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu2", ",", "Glu4", ",", "Glu5", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "\[Rule]", "G"}]}], "\[IndentingNewLine]", "}"}]}], 
+   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"MATColor", ":=", 
+    RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"A", "\[Rule]", "c3"}], " ", 
+      RowBox[{"(*", 
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu5", ",", "Glu2", ",", "Glu4", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "*)"}], ",", "\[IndentingNewLine]", 
+      RowBox[{"B", "\[Rule]", "c2"}], " ", 
+      RowBox[{"(*", 
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu4", ",", "Glu5", ",", "Glu2", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "*)"}], ",", "\[IndentingNewLine]", 
+      RowBox[{"C", "\[Rule]", "c2"}], " ", 
+      RowBox[{"(*", 
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu2", ",", "Glu5", ",", "Glu4", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "*)"}], ",", "\[IndentingNewLine]", 
+      RowBox[{"D", "\[Rule]", "c3"}], " ", 
+      RowBox[{"(*", 
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu4", ",", "Glu2", ",", "Glu5", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "*)"}], ",", "\[IndentingNewLine]", 
+      RowBox[{"F", "\[Rule]", "c1"}], " ", 
+      RowBox[{"(*", 
+       RowBox[{"Mat", "[", 
+        RowBox[{"SUNT", "[", 
+         RowBox[{
+         "Glu1", ",", "Glu5", ",", "Glu4", ",", "Glu2", ",", "0", ",", "0"}], 
+         "]"}], "]"}], "*)"}], ",", "\[IndentingNewLine]", 
+      RowBox[{"G", "\[Rule]", "c1"}]}], 
+     RowBox[{"(*", " ", 
+      RowBox[{"Mat", "[", 
+       RowBox[{"SUNT", "[", 
+        RowBox[{
+        "Glu1", ",", "Glu2", ",", "Glu4", ",", "Glu5", ",", "0", ",", "0"}], 
+        "]"}], "]"}], "*)"}], "\[IndentingNewLine]", "}"}]}], ";"}], 
+  "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "This", " ", "one", " ", "is", " ", "used", " ", "for", " ", "triangle", 
+    " ", "diagrams"}], " ", "*)"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopRefining", ":=", "\[IndentingNewLine]", 
+    RowBox[{"{", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"a_", "*", 
+        RowBox[{"PVB", "[", 
+         RowBox[{"r_", ",", "n1_", ",", "s_", ",", "m0_", ",", "m1_"}], 
+         "]"}]}], "\[RuleDelayed]", 
+       RowBox[{"a", "*", 
+        RowBox[{"LoopRefine", "[", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"r", ",", "n1", ",", "s", ",", "m0", ",", "m1"}], "]"}], 
+         "]"}]}]}], ",", 
+      RowBox[{
+       RowBox[{"PVB", "[", 
+        RowBox[{"r_", ",", "n1_", ",", "s_", ",", "m0_", ",", "m1_"}], "]"}], 
+       "\[RuleDelayed]", 
+       RowBox[{"LoopRefine", "[", 
+        RowBox[{"PVB", "[", 
+         RowBox[{"r", ",", "n1", ",", "s", ",", "m0", ",", "m1"}], "]"}], 
+        "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+      RowBox[{
+       RowBox[{"a_", "*", 
+        RowBox[{"PVC", "[", 
+         RowBox[{
+         "r_", ",", "n1_", ",", "n2_", ",", "s1_", ",", "s12_", ",", "s2_", 
+          ",", "m0_", ",", "m1_", ",", "m2_"}], "]"}]}], "\[RuleDelayed]", 
+       RowBox[{"a", "*", 
+        RowBox[{"LoopRefine", "[", 
+         RowBox[{"PVC", "[", 
+          RowBox[{
+          "r", ",", "n1", ",", "n2", ",", "s1", ",", "s12", ",", "s2", ",", 
+           "m0", ",", "m1", ",", "m2"}], "]"}], "]"}]}]}], ",", 
+      RowBox[{
+       RowBox[{"PVC", "[", 
+        RowBox[{
+        "r_", ",", "n1_", ",", "n2_", ",", "s1_", ",", "s12_", ",", "s2_", 
+         ",", "m0_", ",", "m1_", ",", "m2_"}], "]"}], "\[RuleDelayed]", 
+       RowBox[{"LoopRefine", "[", 
+        RowBox[{"PVC", "[", 
+         RowBox[{
+         "r", ",", "n1", ",", "n2", ",", "s1", ",", "s12", ",", "s2", ",", 
+          "m0", ",", "m1", ",", "m2"}], "]"}], "]"}]}], ",", 
+      "\[IndentingNewLine]", "\[IndentingNewLine]", 
+      RowBox[{
+       RowBox[{"a_", "*", 
+        RowBox[{"PVD", "[", 
+         RowBox[{
+         "r_", ",", "n1_", ",", "n2_", ",", "n3_", ",", "s1_", ",", "s2_", 
+          ",", "s3_", ",", "s4_", ",", "s12_", ",", "s23_", ",", "m0_", ",", 
+          "m1_", ",", "m2_", ",", "m3_"}], "]"}]}], "\[RuleDelayed]", " ", 
+       RowBox[{"a", "*", 
+        RowBox[{"LoopRefine", "[", 
+         RowBox[{"PVD", "[", 
+          RowBox[{
+          "r", ",", "n1", ",", "n2", ",", "n3", ",", "s1", ",", "s2", ",", 
+           "s3", ",", "s4", ",", "s12", ",", "s23", ",", "m0", ",", "m1", ",",
+            "m2", ",", "m3"}], "]"}], "]"}]}]}], ",", 
+      RowBox[{
+       RowBox[{"PVD", "[", 
+        RowBox[{
+        "r_", ",", "n1_", ",", "n2_", ",", "n3_", ",", "s1_", ",", "s2_", ",",
+          "s3_", ",", "s4_", ",", "s12_", ",", "s23_", ",", "m0_", ",", "m1_",
+          ",", "m2_", ",", "m3_"}], "]"}], "\[RuleDelayed]", " ", 
+       RowBox[{"LoopRefine", "[", 
+        RowBox[{"PVD", "[", 
+         RowBox[{
+         "r", ",", "n1", ",", "n2", ",", "n3", ",", "s1", ",", "s2", ",", 
+          "s3", ",", "s4", ",", "s12", ",", "s23", ",", "m0", ",", "m1", ",", 
+          "m2", ",", "m3"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}],
+    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "This", " ", "one", " ", "is", " ", "used", " ", "for", " ", 
+    "ReplacementRule", " ", 
+    RowBox[{"(", "boxes", ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"LoopRef", " ", ":=", "\[IndentingNewLine]", 
+   RowBox[{"{", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{"PVC", "[", 
+        RowBox[{
+        "r_", ",", "n1_", ",", "n2_", ",", "s1_", ",", "s12_", ",", "s2_", 
+         ",", "m0_", ",", "m1_", ",", "m2_"}], "]"}], "\[RuleDelayed]", 
+       RowBox[{"LoopRefine", "[", 
+        RowBox[{"PVC", "[", 
+         RowBox[{
+         "r", ",", "n1", ",", "n2", ",", "a", ",", "b", ",", "c", ",", "d", 
+          ",", "e", ",", "f"}], "]"}], "]"}]}], "//.", " ", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"a", "\[Rule]", "s1"}], ",", 
+        RowBox[{"b", "\[Rule]", "s12"}], ",", 
+        RowBox[{"c", "\[Rule]", "s2"}], ",", 
+        RowBox[{"d", "\[Rule]", "m0"}], ",", 
+        RowBox[{"e", "\[Rule]", "m1"}], ",", 
+        RowBox[{"f", "\[Rule]", "m2"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"PVD", "[", 
+        RowBox[{
+        "r_", ",", "n1_", ",", "n2_", ",", "n3_", ",", "s1_", ",", "s2_", ",",
+          "s3_", ",", "s4_", ",", "s12_", ",", "s23_", ",", "m0_", ",", "m1_",
+          ",", "m2_", ",", "m3_"}], "]"}], "\[RuleDelayed]", " ", 
+       RowBox[{"LoopRefine", "[", 
+        RowBox[{"PVD", "[", 
+         RowBox[{
+         "r", ",", "n1", ",", "n2", ",", "n3", ",", "a", ",", "b", ",", "c", 
+          ",", "d", ",", "e", ",", "f", ",", "g", ",", "g", ",", "g", ",", 
+          "g"}], "]"}], "]"}]}], "//.", " ", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"a", "->", "s1"}], ",", 
+        RowBox[{"b", "->", "s2"}], ",", 
+        RowBox[{"c", "->", "s3"}], ",", 
+        RowBox[{"d", "->", "s4"}], ",", 
+        RowBox[{"e", "->", "s12"}], ",", 
+        RowBox[{"f", "->", "s23"}], ",", 
+        RowBox[{"g", "->", "m0"}]}], "}"}]}]}], "\[IndentingNewLine]", 
+    "}"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"VelSub", ":=", "\[IndentingNewLine]", 
+  RowBox[{"{", "\[IndentingNewLine]", 
+   RowBox[{"S", "\[Rule]", 
+    RowBox[{"(", 
+     RowBox[{"4", "*", 
+      RowBox[{"MT", "^", "2"}], "*", 
+      RowBox[{"(", 
+       RowBox[{"1", "/", 
+        RowBox[{"(", 
+         RowBox[{"1", "-", 
+          RowBox[{"\[Beta]", "^", "2"}]}], ")"}]}], ")"}]}], ")"}]}], 
+   "\[IndentingNewLine]", "}"}]}]}], "Input",
+ CellChangeTimes->{{3.769416382706212*^9, 3.769416403306004*^9}, {
+   3.7694168727346354`*^9, 3.769416881103343*^9}, {3.769420802600919*^9, 
+   3.769420810995673*^9}, {3.770096644875188*^9, 3.770096645965609*^9}, {
+   3.7758210651486483`*^9, 3.7758210658132687`*^9}, {3.77582111300533*^9, 
+   3.775821113279359*^9}, {3.775821205496907*^9, 3.7758212488675423`*^9}, 
+   3.7758233050860357`*^9, {3.775824239182519*^9, 3.775824245114826*^9}, {
+   3.775825392549559*^9, 3.7758254194463997`*^9}, {3.7758254536359*^9, 
+   3.775825506891447*^9}, {3.776769783675538*^9, 3.7767697849573727`*^9}},
+ CellLabel->"In[6]:=",ExpressionUUID->"a5c5e12e-157e-4719-b09d-930d037e0d1b"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.7723616669772577`*^9, 3.77236173423746*^9}, {
+   3.772361802632022*^9, 3.772361992535933*^9}, {3.772362060474169*^9, 
+   3.772362061390603*^9}, {3.772363406580842*^9, 3.772363416170678*^9}, {
+   3.77288530089063*^9, 3.772885309640726*^9}, 
+   3.775821111773324*^9},ExpressionUUID->"7741718d-edbc-49e5-a241-\
+fb84c7107f7d"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{"g", " ", "+", " ", "g"}], " ", "\[Rule]", " ", "H"}], " ", 
+   "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"SetDirectory", "[", 
+     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"SetDirectory", "[", 
+     RowBox[{"StringJoin", "[", 
+      RowBox[{
+       RowBox[{"ParentDirectory", "[", "]"}], ",", "\"\</feynamps\>\""}], 
+      "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"jets0", " ", "=", " ", 
+     RowBox[{"Import", "[", "\"\<ggH.m\>\"", "]"}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"jets0", " ", "=", " ", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"jets0", "//.", "MAT"}], "//.", " ", "MATColor"}], " ", "//.", 
+      " ", "SubDen"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"jets0PV", " ", "=", " ", 
+     RowBox[{"Collect", "[", 
+      RowBox[{
+       RowBox[{"ReleaseHold", "[", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"HoldForm", "[", 
+            RowBox[{"Evaluate", "[", "jets0", "]"}], "]"}], " ", ")"}], "//.",
+           " ", "RIntList"}], ")"}], "]"}], ",", 
+       RowBox[{"Mat", "[", "__", "]"}]}], "]"}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Export", "[", 
+     RowBox[{"\"\<ggH_PV.m\>\"", ",", "jets0PV"}], "]"}], ";"}]}]}]], "Input",\
+
+ CellChangeTimes->{{3.779127552592814*^9, 3.779127572850503*^9}, 
+   3.779127606378036*^9},
+ CellLabel->"In[24]:=",ExpressionUUID->"9fe10d31-521c-4fe7-844e-895b7b5e190a"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{"g", " ", "+", " ", "g"}], " ", "\[Rule]", " ", 
+    RowBox[{"H", " ", "+", " ", "g"}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"SetDirectory", "[", 
+     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"SetDirectory", "[", 
+     RowBox[{"StringJoin", "[", 
+      RowBox[{
+       RowBox[{"ParentDirectory", "[", "]"}], ",", "\"\</feynamps\>\""}], 
+      "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"jets1", " ", "=", " ", 
+     RowBox[{"Import", "[", "\"\<ggHg.m\>\"", "]"}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"jets1", " ", "=", " ", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"jets1", "//.", "MAT"}], "//.", " ", "MATColor"}], " ", "//.", 
+      " ", "SubDen"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"jets1PV", " ", "=", " ", 
+     RowBox[{"Collect", "[", 
+      RowBox[{
+       RowBox[{"ReleaseHold", "[", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"HoldForm", "[", 
+            RowBox[{"Evaluate", "[", "jets1", "]"}], "]"}], " ", ")"}], "//.",
+           " ", "RIntList"}], ")"}], "]"}], ",", 
+       RowBox[{"Mat", "[", "__", "]"}]}], "]"}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Export", "[", 
+     RowBox[{"\"\<ggHg_PV.m\>\"", ",", "jets1PV"}], "]"}], ";"}], 
+   "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{{3.76941678968123*^9, 3.769416834146682*^9}, {
+   3.769418270698312*^9, 3.7694182769864492`*^9}, {3.769420598958762*^9, 
+   3.769420642106495*^9}, {3.769421602470723*^9, 3.769421736756125*^9}, {
+   3.77374127963312*^9, 3.77374128280485*^9}, 3.7737414197690268`*^9, {
+   3.7743709763737383`*^9, 3.774370977433639*^9}, 3.774371636070733*^9, {
+   3.775823239864522*^9, 3.775823240880198*^9}, {3.775823320902609*^9, 
+   3.7758233229064703`*^9}, {3.779127235327127*^9, 3.779127271388174*^9}, {
+   3.779127318331149*^9, 3.7791273790830193`*^9}, {3.779127417182901*^9, 
+   3.7791274626923656`*^9}, {3.7791275054082212`*^9, 3.779127545503696*^9}},
+ CellLabel->"In[30]:=",ExpressionUUID->"6f54e202-a28b-4a1d-9e81-76bb7154ddaa"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{"Here", " ", "the", " ", "program", " ", 
+    RowBox[{"pv", ".", "py"}], " ", "is", " ", "used", " ", "to", " ", 
+    "produce", " ", "the", " ", "lists", " ", "of", " ", "PV", " ", 
+    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{"Do", ":", "\[IndentingNewLine]", "      ", 
+    RowBox[{
+     RowBox[{"python", " ", 
+      RowBox[{"pv", ".", "py"}], " ", "\"\<../feynamps/ggH_PV.m\>\""}], " ", 
+     "|", " ", 
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"sort", " ", "-", "u"}], " ", ">"}], " ", ".."}], "/", 
+        "pvcoefficients"}], "/", 
+       RowBox[{"ggH_coeff", ".", "txt"}]}], "\n", "       ", "python", " ", 
+      RowBox[{"pv", ".", "py"}], " ", "\"\<../feynamps/ggHg_PV.m\>\""}], " ", 
+     "|", " ", 
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"sort", " ", "-", "u"}], " ", ">"}], " ", ".."}], "/", 
+       "pvcoefficients"}], "/", 
+      RowBox[{"ggHg_coeff", ".", "txt"}]}]}]}], "\[IndentingNewLine]", 
+   "*)"}]}]], "Input",
+ CellChangeTimes->{{3.769951408543744*^9, 3.769951516031106*^9}, {
+  3.770009459536234*^9, 3.770009522564651*^9}, {3.775826780721582*^9, 
+  3.775826781197331*^9}, {3.778510819803602*^9, 3.778510820329376*^9}, {
+  3.7791280023926783`*^9, 
+  3.779128054274996*^9}},ExpressionUUID->"476a37c6-482c-4f61-9ced-\
+5d80a625711e"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.770010869763611*^9, 3.770010879310418*^9}, 
+   3.7791276308023233`*^9},ExpressionUUID->"705b77c9-9d55-4c91-a174-\
+596c11435d8d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"SetDirectory", "[", 
+   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"SetDirectory", "[", 
+   RowBox[{"StringJoin", "[", 
+    RowBox[{
+     RowBox[{"ParentDirectory", "[", "]"}], ",", "\"\</pvcoefficients\>\""}], 
+    "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ggHListPV", "=", 
+   RowBox[{"ToExpression", "[", 
+    RowBox[{"Import", "[", 
+     RowBox[{"\"\<ggH_coeff.txt\>\"", ",", "\"\<Lines\>\""}], "]"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Length", "[", "ggHListPV", "]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ggHgListPV", "=", 
+   RowBox[{"ToExpression", "[", 
+    RowBox[{"Import", "[", 
+     RowBox[{"\"\<ggHg_coeff.txt\>\"", ",", "\"\<Lines\>\""}], "]"}], "]"}]}],
+   ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Length", "[", "ggHgListPV", "]"}]}], "Input",
+ CellChangeTimes->{{3.769946457030057*^9, 3.769946510878006*^9}, {
+   3.7699501822216883`*^9, 3.769950241652359*^9}, {3.769950448721727*^9, 
+   3.769950557949745*^9}, {3.769950617170197*^9, 3.769950624920703*^9}, {
+   3.769950677394843*^9, 3.769950679542734*^9}, {3.769950710781026*^9, 
+   3.769950747626449*^9}, {3.769951294077387*^9, 3.769951300057988*^9}, {
+   3.7699513329326878`*^9, 3.769951349592226*^9}, {3.770009442006164*^9, 
+   3.770009456522052*^9}, 3.770009533388871*^9, {3.770010860120204*^9, 
+   3.770010860297134*^9}, {3.779128063000547*^9, 3.779128199066687*^9}},
+ CellLabel->"In[48]:=",ExpressionUUID->"fd0c50cb-5e3d-46b2-a09e-275f25c954a6"],
+
+Cell[BoxData["4"], "Output",
+ CellChangeTimes->{{3.779128180092963*^9, 3.779128200605661*^9}},
+ CellLabel->"Out[51]=",ExpressionUUID->"323cb7f2-c40f-4754-9540-9426135ece5f"],
+
+Cell[BoxData["18"], "Output",
+ CellChangeTimes->{{3.779128180092963*^9, 3.779128200620792*^9}},
+ CellLabel->"Out[53]=",ExpressionUUID->"2a34b402-4c25-4558-979d-a670f2211d0a"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{"1", "-", "73"}], "*)"}]}]], "Input",
+ CellChangeTimes->{{3.772360684428249*^9, 3.772360688933934*^9}, 
+   3.772886598217041*^9},ExpressionUUID->"f1052ac6-e6f7-4371-afd6-\
+ad461c58d053"],
+
+Cell[BoxData[
+ RowBox[{"Do", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"LRlist", "[", 
+      RowBox[{"[", "n", "]"}], "]"}], "=", 
+     RowBox[{"LoopRefine", "[", 
+      RowBox[{"listPV", "[", 
+       RowBox[{"[", "n", "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"n", ",", "73"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7700095396277313`*^9, 3.770009546050956*^9}, {
+   3.770010902307991*^9, 3.770010922003213*^9}, {3.770011069988926*^9, 
+   3.7700110795936203`*^9}, {3.770011149326112*^9, 3.770011156613451*^9}, {
+   3.7700112291788197`*^9, 3.77001124342817*^9}, 3.770092556097802*^9, {
+   3.770096509105474*^9, 3.7700965202949467`*^9}},
+ CellLabel->"In[11]:=",ExpressionUUID->"47c35d70-ef0a-4ee5-9de6-a89da37d395a"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{"74", "-", "146"}], "*)"}]}]], "Input",
+ CellChangeTimes->{{3.77236069586174*^9, 3.7723607148337317`*^9}, 
+   3.77288659631328*^9},ExpressionUUID->"e49bfcd0-2790-4662-b260-\
+1251fbf55656"],
+
+Cell[BoxData[
+ RowBox[{"Do", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"LRlist", "[", 
+      RowBox[{"[", 
+       RowBox[{"n", "+", "73"}], "]"}], "]"}], "=", 
+     RowBox[{"LoopRefine", "[", 
+      RowBox[{"listPV", "[", 
+       RowBox[{"[", 
+        RowBox[{"n", "+", "73"}], "]"}], "]"}], "]"}]}], ";"}], 
+   "\[IndentingNewLine]", ",", 
+   RowBox[{"{", 
+    RowBox[{"n", ",", "73"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.770092567087772*^9, 3.770092567563299*^9}, {
+  3.770092655295905*^9, 3.770092663038951*^9}, {3.7700951188676767`*^9, 
+  3.770095120205538*^9}, {3.770096692911742*^9, 3.770096696498418*^9}},
+ CellLabel->"In[13]:=",ExpressionUUID->"7c31e5a1-c9d7-4139-bcbf-d567355f68ac"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{"147", "-", "219"}], "*)"}]}]], "Input",
+ CellChangeTimes->{{3.772360719354867*^9, 3.772360730955079*^9}, 
+   3.77288661329921*^9},ExpressionUUID->"df0e2446-e8a9-4c0f-ade0-\
+6243ed23f014"],
+
+Cell[BoxData[
+ RowBox[{"Do", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"LRlist", "[", 
+      RowBox[{"[", 
+       RowBox[{"n", "+", 
+        RowBox[{"2", "*", "73"}]}], "]"}], "]"}], "=", 
+     RowBox[{"LoopRefine", "[", 
+      RowBox[{"listPV", "[", 
+       RowBox[{"[", 
+        RowBox[{"n", "+", 
+         RowBox[{"2", "*", "73"}]}], "]"}], "]"}], "]"}]}], ";"}], 
+   "\[IndentingNewLine]", ",", 
+   RowBox[{"{", 
+    RowBox[{"n", ",", "73"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.770096924865595*^9, 3.770096925250608*^9}, {
+  3.770097051583521*^9, 3.7700970520991364`*^9}},
+ CellLabel->"In[19]:=",ExpressionUUID->"b7439b12-cb51-47a1-a158-9fa93f157c7d"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{"220", "-", "292"}], "*)"}]}]], "Input",
+ CellChangeTimes->{{3.772360753433093*^9, 3.7723607635811663`*^9}, 
+   3.772886615105321*^9},ExpressionUUID->"ba9ecf49-d2ba-4baa-bc4a-\
+47072a88303d"],
+
+Cell[BoxData[
+ RowBox[{"Do", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"LRlist", "[", 
+      RowBox[{"[", 
+       RowBox[{"n", "+", 
+        RowBox[{"3", "*", "73"}]}], "]"}], "]"}], "=", 
+     RowBox[{"LoopRefine", "[", 
+      RowBox[{"listPV", "[", 
+       RowBox[{"[", 
+        RowBox[{"n", "+", 
+         RowBox[{"3", "*", "73"}]}], "]"}], "]"}], "]"}]}], ";"}], 
+   "\[IndentingNewLine]", ",", 
+   RowBox[{"{", 
+    RowBox[{"n", ",", "73"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.770098878330305*^9, 3.770098880489415*^9}, 
+   3.771411006149096*^9, 
+   3.771739280516284*^9},ExpressionUUID->"c1cc9921-c84f-4990-9a13-\
+a36935fe08f6"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LRlist", " ", "=", " ", 
+   RowBox[{"Import", "[", "\"\<analyticPV.m\>\"", "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{3.772885455389707*^9},
+ CellLabel->"In[12]:=",ExpressionUUID->"b325e442-757f-4122-a460-9727e5485960"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Export", "[", 
+    RowBox[{"\"\<analyticPV.m\>\"", ",", "LRlist"}], "]"}], ";"}], " ", 
+  RowBox[{"(*", " ", 
+   RowBox[{"Run", " ", "this", " ", "after", " ", "reading", " ", 
+    RowBox[{"analyticPV", ".", "m"}]}], " ", "*)"}]}]], "Input",
+ CellChangeTimes->{{3.772884594249895*^9, 3.7728846089750853`*^9}},
+ CellLabel->"In[64]:=",ExpressionUUID->"64072172-75c1-400c-b4be-a5a76fc27e9f"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "Copy", " ", "the", " ", "PVs", " ", "to", " ", "a", " ", "new", " ", 
+    "list", " ", "LRlist", " ", "what", " ", "will", " ", "be", " ", "the", 
+    " ", "\"\<LoopRefined\>\"", " ", 
+    RowBox[{"terms", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{"293", "-", "365"}], "*)"}]}]], "Input",
+ CellChangeTimes->{{3.7728868675215187`*^9, 3.772886877363283*^9}, {
+  3.7728873184298553`*^9, 3.772887337415292*^9}, {3.775929495403804*^9, 
+  3.775929497245184*^9}},ExpressionUUID->"75ac93f2-7474-4481-b70f-\
+8b3ab1fc4f2c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Do", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"LRlist", "[", 
+      RowBox[{"[", 
+       RowBox[{"n", "+", 
+        RowBox[{"4", "*", "73"}]}], "]"}], "]"}], "=", 
+     RowBox[{
+      RowBox[{"LRlist", "[", 
+       RowBox[{"[", 
+        RowBox[{"n", "+", 
+         RowBox[{"4", "*", "73"}]}], "]"}], "]"}], "//.", "LoopRef"}]}], ";", 
+    "\[IndentingNewLine]", 
+    RowBox[{"Print", "[", 
+     RowBox[{"n", "+", 
+      RowBox[{"4", "*", "73"}]}], "]"}], ";", "\[IndentingNewLine]", 
+    RowBox[{"Export", "[", 
+     RowBox[{"\"\<analyticPV.m\>\"", ",", "LRlist"}], "]"}], ";"}], 
+   "\[IndentingNewLine]", ",", " ", 
+   RowBox[{"{", 
+    RowBox[{"n", ",", "73"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.77288694186665*^9, 3.772887010616581*^9}, {
+  3.772887072326515*^9, 3.7728871220446568`*^9}, {3.772887221297553*^9, 
+  3.772887227658811*^9}, {3.772887452365738*^9, 3.772887453395618*^9}, {
+  3.7728885491822968`*^9, 3.772888550011717*^9}},
+ CellLabel->"In[12]:=",ExpressionUUID->"df43f43c-f3df-4d31-8f47-e316129e404e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["293"], "Print",
+ CellChangeTimes->{{3.772887221777728*^9, 3.7728872374316874`*^9}, 
+   3.772887315250904*^9, 3.772887359406661*^9, 3.77288745403798*^9, 
+   3.772888041610999*^9, 3.772888092854567*^9, 3.772888665630286*^9, 
+   3.77288870682581*^9, 3.772888739575129*^9, 3.772964867508161*^9},
+ CellLabel->
+  "During evaluation of \
+In[12]:=",ExpressionUUID->"13bb3e84-1aad-451c-9470-217fab9f697f"],
+
+Cell[BoxData["294"], "Print",
+ CellChangeTimes->{{3.772887221777728*^9, 3.7728872374316874`*^9}, 
+   3.772887315250904*^9, 3.772887359406661*^9, 3.77288745403798*^9, 
+   3.772888041610999*^9, 3.772888092854567*^9, 3.772888665630286*^9, 
+   3.77288870682581*^9, 3.772888739575129*^9, 3.7729648755876827`*^9},
+ CellLabel->
+  "During evaluation of \
+In[12]:=",ExpressionUUID->"c6fece5c-a585-4c90-ab33-806fa3705b71"]
+}, Open  ]],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.772964876523367*^9},
+ CellLabel->"Out[12]=",ExpressionUUID->"829f296d-4387-479f-92bc-7a626dfe607c"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"PV", " ", "300", " ", "was", " ", 
+    RowBox[{"stubborn", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"LRlist", "[", 
+   RowBox[{"[", "300", "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.772887637509116*^9, 3.77288767378751*^9}, {
+  3.77288804979731*^9, 3.7728880669445*^9}},
+ CellLabel->"In[13]:=",ExpressionUUID->"0d3ce3b6-3c94-4932-a9ed-194cea17f2b9"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PV300", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"PVD", "[", 
+      RowBox[{"0", ",", "1", ",", "2", ",", "0", ",", "0", ",", "a", ",", 
+       SuperscriptBox["MH", "2"], ",", "b", ",", "0", ",", "T14", ",", "g", 
+       ",", "g", ",", "g", ",", "g"}], "]"}], "//.", "LoopRef"}], "//.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"a", "\[Rule]", 
+       RowBox[{
+        SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}]}], ",", 
+      RowBox[{"b", "->", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", "U"}]}], ",", 
+      RowBox[{"g", "\[Rule]", 
+       RowBox[{"Sqrt", "[", 
+        RowBox[{"MT", "^", "2"}], "]"}]}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.772887687307757*^9, 3.7728877045087748`*^9}, {
+  3.772887768481736*^9, 3.772887790741548*^9}, {3.772887834208604*^9, 
+  3.7728878601223297`*^9}, {3.7728879075747433`*^9, 3.772887957264495*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"5a89f228-5332-4b40-9dd2-0e3e845f3970"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LRlist", "[", 
+    RowBox[{"[", "300", "]"}], "]"}], " ", "=", " ", "PV300"}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.772888005864108*^9, 3.772888014449572*^9}},
+ CellLabel->"In[60]:=",ExpressionUUID->"3a874326-a732-49f9-bf3f-018de4fbf690"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{"366", "-", "438"}], "*)"}]}]], "Input",
+ CellChangeTimes->{{3.772886684987542*^9, 
+  3.7728867268924503`*^9}},ExpressionUUID->"37adef6f-081e-487c-bd44-\
+ab449560d571"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Do", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"LRlist", "[", 
+      RowBox[{"[", 
+       RowBox[{"n", "+", 
+        RowBox[{"5", "*", "73"}]}], "]"}], "]"}], "=", 
+     RowBox[{
+      RowBox[{"LRlist", "[", 
+       RowBox[{"[", 
+        RowBox[{"n", "+", 
+         RowBox[{"5", "*", "73"}]}], "]"}], "]"}], "//.", " ", "LoopRef"}]}], 
+    ";", "\[IndentingNewLine]", 
+    RowBox[{"Print", "[", 
+     RowBox[{"n", "+", 
+      RowBox[{"5", "*", "73"}]}], "]"}], ";", "\[IndentingNewLine]", 
+    RowBox[{"Export", "[", 
+     RowBox[{"\"\<analyticPV.m\>\"", ",", "LRlist"}], "]"}], ";"}], 
+   "\[IndentingNewLine]", ",", 
+   RowBox[{"{", 
+    RowBox[{"n", ",", "73"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.772886718627595*^9, 3.772886720721589*^9}, {
+  3.772887584696403*^9, 3.772887615370928*^9}, {3.7728902380144987`*^9, 
+  3.7728902382758827`*^9}},
+ CellLabel->"In[14]:=",ExpressionUUID->"f3c0843b-be94-4b77-89a7-a517bd2df868"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["366"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964891668998*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"e2ec887b-8f74-4c58-b508-8180d0a5ab39"],
+
+Cell[BoxData["367"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964898888381*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"37e2fbaf-ebf4-468b-9e07-64d66403941b"],
+
+Cell[BoxData["368"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729649060929813`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"2e78dfd3-252a-4510-977f-b4f27ff8aa4b"],
+
+Cell[BoxData["369"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964913212573*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"a0e44cf6-a61f-449f-8a34-2c8ce9d266f3"],
+
+Cell[BoxData["370"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964920354567*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"a931e414-5259-4e72-acd7-dcee07599a82"],
+
+Cell[BoxData["371"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964927557357*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"5594c2a5-c197-4faf-9ffb-e7ba76cbc538"],
+
+Cell[BoxData["372"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964934685068*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"8ecef3ea-5555-4307-bcb5-45617481fea4"],
+
+Cell[BoxData["373"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729649417991037`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"84060125-ad1a-4df3-8ce7-b2dbb52a255e"],
+
+Cell[BoxData["374"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964949054049*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"ba89847a-a4aa-4bc8-bbdf-fc4fe94626a9"],
+
+Cell[BoxData["375"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964956219346*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"4ad9a298-9033-4f95-ba31-e459488b2078"],
+
+Cell[BoxData["376"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729649633964767`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"0f51e120-6ffe-40ed-90a9-16ffc4b8cd7b"],
+
+Cell[BoxData["377"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729649705714684`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"55f10a7d-2dd2-42de-9c51-a8b42913981b"],
+
+Cell[BoxData["378"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964977704796*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"4f770da7-96cd-4cb8-a4d4-ac8321d712cd"],
+
+Cell[BoxData["379"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964984930636*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"649189dd-7c36-4840-a8f2-e90ccecbefc1"],
+
+Cell[BoxData["380"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964992039103*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"69c8ff97-a48c-433d-a1af-293c970ff456"],
+
+Cell[BoxData["381"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772964999150893*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"e5097cc9-3fd7-4356-82cc-935a8fd99f37"],
+
+Cell[BoxData["382"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729650063531103`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"2a4fa068-31d2-42b2-8e27-9cd47a215300"],
+
+Cell[BoxData["383"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965013586713*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"d4490842-541b-4159-b08b-37254e2f02ee"],
+
+Cell[BoxData["384"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965020837448*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"0ae6d1ae-d897-40b7-83ac-03676d9405d7"],
+
+Cell[BoxData["385"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965027975287*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"dd1f2688-2c0e-4ed6-aa9d-d7b634519be6"],
+
+Cell[BoxData["386"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.77296503511196*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"28b3e938-3807-4e3b-9426-e708dcec15b0"],
+
+Cell[BoxData["387"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965042224675*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"b68ca497-f2d7-495a-b577-5f5f7cc0b776"],
+
+Cell[BoxData["388"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965049469451*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"d67f7e5b-0500-4072-a004-7f5c73342e3a"],
+
+Cell[BoxData["389"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965056584694*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"ce08a793-ce51-4874-b4c7-0d99e3e47784"],
+
+Cell[BoxData["390"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965063705216*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"fbbc2328-d686-4169-8a45-f2f916e0d9d2"],
+
+Cell[BoxData["391"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729650707852077`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"1cb44eb4-a5e3-4f09-a2dc-7ed04f4bcf1f"],
+
+Cell[BoxData["392"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965078094244*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"622b5b19-decc-4b43-aecb-2a18b830f72c"],
+
+Cell[BoxData["393"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729650851741037`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"f6dc26ef-5813-4857-bfe4-c26b87bc1f7b"],
+
+Cell[BoxData["394"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965092240261*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"2d3735df-91e7-4795-8dfd-6ed011d79107"],
+
+Cell[BoxData["395"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729651000320807`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"50fe601d-1b2b-4d2e-807b-1d249afe001e"],
+
+Cell[BoxData["396"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729651072457933`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"2fdfacbd-80ef-4c9a-b71f-e2cc0d9afe5e"],
+
+Cell[BoxData["397"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965114382185*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"da85be8b-7972-4185-b906-d61dc785a9fd"],
+
+Cell[BoxData["398"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729651214583406`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"1c79d656-868a-4326-8d0a-2659691bbe1c"],
+
+Cell[BoxData["399"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965128592004*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"efa41b92-f275-451a-ac92-19e0f0f8ac9d"],
+
+Cell[BoxData["400"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729651357337923`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"37e28f01-8fd3-4b48-b1b2-21df0a6ba950"],
+
+Cell[BoxData["401"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965142812318*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"e844650c-6ee0-4b56-bc47-625127c32e2b"],
+
+Cell[BoxData["402"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729651498997393`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"29f611a5-3fe6-49ea-ba52-f894c5b962a5"],
+
+Cell[BoxData["403"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965156982112*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"0d1b53d7-40d6-416f-87a6-b7b7a755e497"],
+
+Cell[BoxData["404"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729651641069736`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"dcd3c150-23ea-4f93-8005-bdd7678c1c03"],
+
+Cell[BoxData["405"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965171237117*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"fe002903-a338-4ec6-ab39-693bb8f32eff"],
+
+Cell[BoxData["406"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729651784048862`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"34a03c80-9c4e-4fcb-b5ff-f3ff0cb1f223"],
+
+Cell[BoxData["407"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965185467684*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"6cb0347b-630c-40c9-be5c-e11d214769dc"],
+
+Cell[BoxData["408"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729651925712223`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"0815e5f7-0b7c-4ceb-83e7-8cfc79826245"],
+
+Cell[BoxData["409"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965199745579*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"92f96f11-b3a8-42e5-98e6-6fee3c21c719"],
+
+Cell[BoxData["410"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965206835451*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"f5dc0de3-7380-4b70-b0d3-54def93aedd4"],
+
+Cell[BoxData["411"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729652139667263`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"a1701a3b-5ef3-47a9-95a2-d8e512233777"],
+
+Cell[BoxData["412"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965221097117*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"4097feba-7377-4752-bb38-a0921cc43c71"],
+
+Cell[BoxData["413"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965228246559*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"dd3dbaf1-61f0-453b-9b9a-36874206af99"],
+
+Cell[BoxData["414"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729652353241167`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"40b1ffb0-1c9e-42ee-9160-2930f36cdfaa"],
+
+Cell[BoxData["415"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729652423967*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"191f384d-858c-4d19-92a6-40c39817d766"],
+
+Cell[BoxData["416"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.77296524948139*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"0ad5044a-36b0-4d57-a03e-5b3764fa61c2"],
+
+Cell[BoxData["417"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965256898061*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"777e0a58-0441-45aa-bb77-379de521b4ea"],
+
+Cell[BoxData["418"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965264013151*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"26958225-f0de-4b0d-8418-1d0e741744db"],
+
+Cell[BoxData["419"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965271160746*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"aa153189-1719-4ec3-a6c4-faeae6eb825e"],
+
+Cell[BoxData["420"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965278275385*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"ad84b383-b8b6-4501-8354-e87c74b4fe47"],
+
+Cell[BoxData["421"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965285455348*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"fb83c3a6-a8b1-4afc-8465-6456a8260a4f"],
+
+Cell[BoxData["422"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.77296529252765*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"cd5fc969-87ec-41e9-8094-20cb832c0cf2"],
+
+Cell[BoxData["423"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965299605927*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"8f96c2e7-a606-44fd-9bd3-787dbc3507ca"],
+
+Cell[BoxData["424"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965306700017*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"1cb89dfe-425a-4c52-9b55-b4a6014c9852"],
+
+Cell[BoxData["425"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965313880247*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"ef7f8635-cadc-4f02-9e3b-547e00252d2e"],
+
+Cell[BoxData["426"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965321075293*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"4f79ee0d-259f-4d53-809b-53a89f702a3d"],
+
+Cell[BoxData["427"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965328169883*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"886f8afa-5606-4059-8b26-d7d6af479013"],
+
+Cell[BoxData["428"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.77296533642483*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"cd7e7c7e-efdb-40bf-ae88-e79e89aee24f"],
+
+Cell[BoxData["429"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965344088553*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"f3dba259-3e90-4a75-828b-055cb49c87c8"],
+
+Cell[BoxData["430"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729653522431707`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"37b1dcf0-6b49-4eb5-b721-89fc56a828df"],
+
+Cell[BoxData["431"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965360769515*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"5f7c8d38-0599-40f0-9972-0a6d5997ecbf"],
+
+Cell[BoxData["432"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965369070016*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"69c00823-96b0-4daa-9990-36f08fb6ce56"],
+
+Cell[BoxData["433"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965377127087*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"fb97acd4-1d96-4a85-8bc6-3305a839a3da"],
+
+Cell[BoxData["434"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965387417776*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"43bad5b4-c421-419d-9915-1b67c66f1036"],
+
+Cell[BoxData["435"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965394992403*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"f5846949-e47a-4e77-914f-0a8f50e06332"],
+
+Cell[BoxData["436"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965402651409*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"6a5ef075-fa3d-4ad6-b501-a5cb532fd6f5"],
+
+Cell[BoxData["437"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.772965410672473*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"ee5772c0-100c-4ff4-83b0-096fcfc8e2a6"],
+
+Cell[BoxData["438"], "Print",
+ CellChangeTimes->{3.7728902511762247`*^9, 3.772960997377637*^9, 
+  3.772963497325268*^9, 3.7729654227478647`*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"fec2f95e-20ad-473c-80c7-bfbc2b46c85f"]
+}, Closed]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"PV", " ", "406", " ", "was", " ", 
+    RowBox[{"stubborn", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"LRlist", "[", 
+   RowBox[{"[", "406", "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.772963340774973*^9, 3.772963345560577*^9}, {
+  3.772963519403051*^9, 
+  3.7729635244305058`*^9}},ExpressionUUID->"083fb79c-daba-4277-b94e-\
+78bed80412be"],
+
+Cell[BoxData[
+ RowBox[{"PVD", "[", 
+  RowBox[{"1", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
+   RowBox[{
+    SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}], ",", 
+   SuperscriptBox["MH", "2"], ",", 
+   RowBox[{
+    RowBox[{"2", " ", 
+     SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", "U"}], ",", "0", 
+   ",", "T14", ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]]}], "]"}]], "Output",
+ CellChangeTimes->{{3.772963343468006*^9, 3.772963372862679*^9}},
+ CellLabel->"Out[29]=",ExpressionUUID->"21437e94-a2d0-4030-9577-1fb730a2c01b"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PV406", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"PVD", "[", 
+      RowBox[{"1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "a", ",", 
+       SuperscriptBox["MH", "2"], ",", "b", ",", "0", ",", "T14", ",", "g", 
+       ",", "g", ",", "g", ",", "g"}], "]"}], "//.", "LoopRef"}], "//.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"a", "\[Rule]", 
+       RowBox[{
+        SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}]}], ",", 
+      RowBox[{"b", "->", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", "U"}]}], ",", 
+      RowBox[{"g", "\[Rule]", 
+       RowBox[{"Sqrt", "[", 
+        RowBox[{"MT", "^", "2"}], "]"}]}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.7729633514518003`*^9, 3.772963361873694*^9}},
+ CellLabel->"In[30]:=",ExpressionUUID->"c9749ffe-5ab8-4c9a-aef7-8af3843d725b"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LRlist", "[", 
+    RowBox[{"[", "406", "]"}], "]"}], " ", "=", " ", "PV406"}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.772963424367772*^9, 3.772963429904943*^9}},
+ CellLabel->"In[32]:=",ExpressionUUID->"2d6ff57e-8bdd-4f5e-9772-e77bcbd1d8d0"],
+
+Cell[BoxData["\[IndentingNewLine]"], "Input",
+ CellChangeTimes->{
+  3.773141712723225*^9},ExpressionUUID->"2239b8d8-532e-4c08-ac3b-\
+e377a166b460"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+  "Define", " ", "the", " ", "replacement", " ", "of", " ", "al", " ", "PV", 
+   " ", "coefficients", " ", "for", " ", "their", " ", "analytical", " ", 
+   RowBox[{"expansion", "."}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.773741455033848*^9, 
+  3.77374148857545*^9}},ExpressionUUID->"e40759ab-7c04-4bf0-a25e-\
+f80786106946"],
+
+Cell[BoxData[{
+ RowBox[{"SetAttributes", "[", 
+  RowBox[{"f", ",", "Listable"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f", "[", 
+   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
+  RowBox[{"a", "\[Rule]", "b"}]}]}], "Input",
+ CellChangeTimes->{{3.773141715006895*^9, 3.7731417742477217`*^9}},
+ CellLabel->"In[15]:=",ExpressionUUID->"007158c3-a206-4cab-88ec-886b70f30fed"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"replacement", "=", 
+  RowBox[{"f", "[", 
+   RowBox[{"listPV", ",", "LRlist"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7731417783694973`*^9, 3.773141825995413*^9}},
+ CellLabel->"In[18]:=",ExpressionUUID->"743fd8ff-17f3-49f2-85d6-506c6d73e5ad"],
+
+Cell[BoxData[
+ InterpretationBox[
+  TagBox[
+   FrameBox[GridBox[{
+      {
+       ItemBox[
+        TagBox[
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"PVC", "[", 
+             RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}], 
+              ",", "T", ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]]}], "]"}], "\[Rule]", 
+            RowBox[{
+             RowBox[{"-", 
+              FractionBox[
+               SuperscriptBox[
+                RowBox[{"Log", "[", 
+                 FractionBox[
+                  RowBox[{
+                   RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                   SqrtBox[
+                    TemplateBox[{"1"},
+                    "OutputSizeLimit`Skeleton"]]}], 
+                  RowBox[{"2", " ", 
+                   SuperscriptBox["MT", "2"]}]], "]"}], "2"], 
+               RowBox[{"2", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T24", 
+                  "-", "U"}], ")"}]}]]}], "+", 
+             FractionBox[
+              SuperscriptBox[
+               RowBox[{"Log", "[", 
+                FractionBox[
+                 RowBox[{
+                  RowBox[{"-", 
+                   SuperscriptBox["MH", "2"]}], "+", 
+                  TemplateBox[{"4"},
+                   "OutputSizeLimit`Skeleton"], "+", 
+                  SqrtBox[
+                   TemplateBox[{"1"},
+                    "OutputSizeLimit`Skeleton"]]}], 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["MT", "2"]}]], "]"}], "2"], 
+              RowBox[{"2", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T24", 
+                 "-", "U"}], ")"}]}]]}]}], ",", 
+           TemplateBox[{"436"},
+            "OutputSizeLimit`Skeleton"], ",", 
+           RowBox[{
+            RowBox[{"PVD", "[", 
+             RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", 
+              SuperscriptBox["MH", "2"], ",", "T24", ",", "0", ",", "0", ",", 
+              
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}], 
+              ",", "T", ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]]}], "]"}], "\[Rule]", 
+            RowBox[{
+             RowBox[{"-", 
+              FractionBox[
+               RowBox[{"T", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}],
+                  ")"}], " ", 
+                RowBox[{"DiscB", "[", 
+                 RowBox[{"T", ",", 
+                  SqrtBox[
+                   SuperscriptBox["MT", "2"]], ",", 
+                  SqrtBox[
+                   SuperscriptBox["MT", "2"]]}], "]"}]}], 
+               RowBox[{"4", " ", 
+                RowBox[{"Kibble\[Phi]", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", "T24", ",", "0", ",", "0", 
+                  ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", 
+                   "T14"}], ",", "T"}], "]"}]}]]}], "-", 
+             FractionBox[
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"]], "+", 
+             TemplateBox[{"6"},
+              "OutputSizeLimit`Skeleton"], "+", 
+             TemplateBox[{"1"},
+              "OutputSizeLimit`Skeleton"], "-", 
+             FractionBox[
+              RowBox[{"T", " ", 
+               TemplateBox[{"2"},
+                "OutputSizeLimit`Skeleton"], " ", 
+               RowBox[{"ScalarD0", "[", 
+                RowBox[{"0", ",", 
+                 TemplateBox[{"8"},
+                  "OutputSizeLimit`Skeleton"], ",", 
+                 SqrtBox[
+                  SuperscriptBox["MT", "2"]]}], "]"}]}], 
+              RowBox[{"8", " ", 
+               SuperscriptBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], "2"]}]]}]}]}], "}"}],
+         Short[#, 5]& ],
+        BaseStyle->{Deployed -> False},
+        StripOnInput->False]},
+      {GridBox[{
+         {
+          TagBox[
+           TooltipBox[
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource[
+                "FEStrings", "sizeBriefExplanation"], StandardForm],
+               ImageSizeCache->{58., {2., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLText",
+             StripOnInput->False],
+            StyleBox[
+             DynamicBox[
+              ToBoxes[
+               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
+               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
+             False]],
+           Annotation[#, 
+            Style[
+             Dynamic[
+              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
+             DynamicUpdating -> True], "Tooltip"]& ], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 18, 17463603852504468309, 5/2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 18, 17463603852504468309, 5 2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm],
+               ImageSizeCache->{42., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm],
+               ImageSizeCache->{42., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 18, 17463603852504468309, Infinity],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           ButtonFunction:>FrontEndExecute[{
+              FrontEnd`SetOptions[
+              FrontEnd`$FrontEnd, 
+               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
+              FrontEnd`FrontEndToken["PreferencesDialog"]}],
+           Evaluator->None,
+           Method->"Preemptive"]}
+        },
+        AutoDelete->False,
+        FrameStyle->GrayLevel[0.85],
+        GridBoxDividers->{"Columns" -> {False, {True}}},
+        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+        GridBoxSpacings->{"Columns" -> {{2}}}]}
+     },
+     DefaultBaseStyle->"Column",
+     GridBoxAlignment->{
+      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+       "RowsIndexed" -> {}},
+     GridBoxDividers->{
+      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
+       "RowsIndexed" -> {}},
+     GridBoxItemSize->{
+      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
+       "RowsIndexed" -> {}},
+     GridBoxSpacings->{"Columns" -> {
+         Offset[0.27999999999999997`], {
+          Offset[0.5599999999999999]}, 
+         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+         Offset[0.2], 
+         Offset[1.2], {
+          Offset[0.4]}, 
+         Offset[0.2]}, "RowsIndexed" -> {}}],
+    BaseStyle->"OutputSizeLimit",
+    FrameMargins->{{12, 12}, {0, 15}},
+    FrameStyle->GrayLevel[0.85],
+    RoundingRadius->5,
+    StripOnInput->False],
+   Deploy,
+   DefaultBaseStyle->"Deploy"],
+  If[17463603852504468309 === $SessionID, 
+   Out[18], Message[
+     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
+   Null]]], "Output",
+ CellChangeTimes->{{3.7731418073007402`*^9, 3.773141832563183*^9}},
+ CellLabel->"Out[18]=",ExpressionUUID->"0fce6bb0-45fe-4e6c-a361-d7b5261cb38e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{"\"\<replacementRule.m\>\"", ",", "replacement"}], "]"}]], "Input",
+ CellChangeTimes->{{3.773141845931491*^9, 3.77314186938391*^9}},
+ CellLabel->"In[19]:=",ExpressionUUID->"f774e49f-9f49-4e9e-8986-5d0680aa1203"],
+
+Cell[BoxData["\<\"replacementRule.m\"\>"], "Output",
+ CellChangeTimes->{3.773141878024766*^9},
+ CellLabel->"Out[19]=",ExpressionUUID->"1a69893c-2615-4d54-91e8-335f2abb5de6"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.775927634314473*^9, 
+  3.775927634901973*^9}},ExpressionUUID->"9a42fe37-6411-44bf-809a-\
+1046a3483503"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"replacement", " ", "=", " ", 
+   RowBox[{"Import", "[", "\"\<replacementRule.m\>\"", "]"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.77374035501915*^9, 3.7737403937904577`*^9}},
+ CellLabel->"In[13]:=",ExpressionUUID->"9e2a44fe-0bb9-4f67-9e8b-da5c10ecf6b1"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["replacement"], "Input",
+ CellChangeTimes->{{3.775826665457222*^9, 3.775826666555854*^9}},
+ CellLabel->"In[24]:=",ExpressionUUID->"f396c3bc-ea1b-44d3-a6cc-f7fecc0fffe5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  TagBox[
+   FrameBox[GridBox[{
+      {
+       ItemBox[
+        TagBox[
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"PVC", "[", 
+             RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}], 
+              ",", "T", ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]]}], "]"}], "\[Rule]", 
+            RowBox[{
+             RowBox[{"-", 
+              FractionBox[
+               SuperscriptBox[
+                RowBox[{"Log", "[", 
+                 FractionBox[
+                  RowBox[{
+                   RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                   SqrtBox[
+                    TemplateBox[{"1"},
+                    "OutputSizeLimit`Skeleton"]]}], 
+                  RowBox[{"2", " ", 
+                   SuperscriptBox["MT", "2"]}]], "]"}], "2"], 
+               RowBox[{"2", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T24", 
+                  "-", "U"}], ")"}]}]]}], "+", 
+             FractionBox[
+              SuperscriptBox[
+               RowBox[{"Log", "[", 
+                FractionBox[
+                 RowBox[{
+                  RowBox[{"-", 
+                   SuperscriptBox["MH", "2"]}], "+", 
+                  TemplateBox[{"4"},
+                   "OutputSizeLimit`Skeleton"], "+", 
+                  SqrtBox[
+                   TemplateBox[{"1"},
+                    "OutputSizeLimit`Skeleton"]]}], 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["MT", "2"]}]], "]"}], "2"], 
+              RowBox[{"2", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T24", 
+                 "-", "U"}], ")"}]}]]}]}], ",", 
+           TemplateBox[{"436"},
+            "OutputSizeLimit`Skeleton"], ",", 
+           RowBox[{
+            RowBox[{"PVD", "[", 
+             RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", 
+              SuperscriptBox["MH", "2"], ",", "T24", ",", "0", ",", "0", ",", 
+              
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}], 
+              ",", "T", ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]], ",", 
+              SqrtBox[
+               SuperscriptBox["MT", "2"]]}], "]"}], "\[Rule]", 
+            RowBox[{
+             RowBox[{"-", 
+              FractionBox[
+               RowBox[{"T", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}],
+                  ")"}], " ", 
+                RowBox[{"DiscB", "[", 
+                 RowBox[{"T", ",", 
+                  SqrtBox[
+                   SuperscriptBox["MT", "2"]], ",", 
+                  SqrtBox[
+                   SuperscriptBox["MT", "2"]]}], "]"}]}], 
+               RowBox[{"4", " ", 
+                RowBox[{"Kibble\[Phi]", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", "T24", ",", "0", ",", "0", 
+                  ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", 
+                   "T14"}], ",", "T"}], "]"}]}]]}], "-", 
+             FractionBox[
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"]], "+", 
+             TemplateBox[{"6"},
+              "OutputSizeLimit`Skeleton"], "+", 
+             FractionBox[
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"]], "-", 
+             FractionBox[
+              RowBox[{"T", " ", 
+               TemplateBox[{"2"},
+                "OutputSizeLimit`Skeleton"], " ", 
+               RowBox[{"ScalarD0", "[", 
+                RowBox[{"0", ",", 
+                 SuperscriptBox["MH", "2"], ",", 
+                 TemplateBox[{"6"},
+                  "OutputSizeLimit`Skeleton"], ",", 
+                 SqrtBox[
+                  SuperscriptBox["MT", "2"]], ",", 
+                 SqrtBox[
+                  SuperscriptBox["MT", "2"]]}], "]"}]}], 
+              RowBox[{"8", " ", 
+               SuperscriptBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], "2"]}]]}]}]}], "}"}],
+         Short[#, 5]& ],
+        BaseStyle->{Deployed -> False},
+        StripOnInput->False]},
+      {GridBox[{
+         {
+          TagBox[
+           TooltipBox[
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource[
+                "FEStrings", "sizeBriefExplanation"], StandardForm],
+               ImageSizeCache->{58., {2., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLText",
+             StripOnInput->False],
+            StyleBox[
+             DynamicBox[
+              ToBoxes[
+               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
+               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
+             False]],
+           Annotation[#, 
+            Style[
+             Dynamic[
+              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
+             DynamicUpdating -> True], "Tooltip"]& ], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 24, 17481197693528306459, 5/2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 24, 17481197693528306459, 5 2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm],
+               ImageSizeCache->{42., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 24, 17481197693528306459, Infinity],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           ButtonFunction:>FrontEndExecute[{
+              FrontEnd`SetOptions[
+              FrontEnd`$FrontEnd, 
+               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
+              FrontEnd`FrontEndToken["PreferencesDialog"]}],
+           Evaluator->None,
+           Method->"Preemptive"]}
+        },
+        AutoDelete->False,
+        FrameStyle->GrayLevel[0.85],
+        GridBoxDividers->{"Columns" -> {False, {True}}},
+        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+        GridBoxSpacings->{"Columns" -> {{2}}}]}
+     },
+     DefaultBaseStyle->"Column",
+     GridBoxAlignment->{
+      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+       "RowsIndexed" -> {}},
+     GridBoxDividers->{
+      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
+       "RowsIndexed" -> {}},
+     GridBoxItemSize->{
+      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
+       "RowsIndexed" -> {}},
+     GridBoxSpacings->{"Columns" -> {
+         Offset[0.27999999999999997`], {
+          Offset[0.5599999999999999]}, 
+         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+         Offset[0.2], 
+         Offset[1.2], {
+          Offset[0.4]}, 
+         Offset[0.2]}, "RowsIndexed" -> {}}],
+    BaseStyle->"OutputSizeLimit",
+    FrameMargins->{{12, 12}, {0, 15}},
+    FrameStyle->GrayLevel[0.85],
+    RoundingRadius->5,
+    StripOnInput->False],
+   Deploy,
+   DefaultBaseStyle->"Deploy"],
+  If[17481197693528306459 === $SessionID, 
+   Out[24], Message[
+     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
+   Null]]], "Output",
+ CellChangeTimes->{3.7758269041780863`*^9},
+ CellLabel->"Out[24]=",ExpressionUUID->"1d1b26d3-3d5a-4f24-a113-21f43e2027cf"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"b1", " ", "=", " ", 
+   RowBox[{"Import", "[", "\"\<ggHgg_PV_box_1_9diags.m\>\"", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"b2", " ", "=", " ", 
+   RowBox[{"Import", "[", "\"\<ggHgg_PV_box_2_9diags.m\>\"", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"b3", " ", "=", " ", 
+   RowBox[{"Import", "[", "\"\<ggHgg_PV_box_3_9diags.m\>\"", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"b4", " ", "=", " ", 
+   RowBox[{"Import", "[", "\"\<ggHgg_PV_box_4_9diags.m\>\"", "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.7737413218610373`*^9, 3.7737413901038446`*^9}, {
+   3.7737415493403063`*^9, 3.7737415755620737`*^9}, 3.7737416080778503`*^9},
+ CellLabel->"In[14]:=",ExpressionUUID->"0484a78b-7482-4457-ac3e-5762b8c80c69"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"b1a", " ", "=", " ", 
+  RowBox[{"b1", "//.", " ", "replacement"}]}]], "Input",
+ CellChangeTimes->{{3.773741803035206*^9, 3.773741821644495*^9}},
+ CellLabel->"In[18]:=",ExpressionUUID->"6f58dd70-ec76-4b2e-8d7d-ae9f5adae4ca"],
+
+Cell[BoxData[
+ InterpretationBox[
+  TagBox[
+   FrameBox[GridBox[{
+      {
+       ItemBox[
+        TagBox[
+         RowBox[{
+          RowBox[{"Amp", "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu1", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "1", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu2", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "2", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}],
+             "\[Rule]", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"S", "[", "1", "]"}], ",", 
+                RowBox[{"k", "[", "3", "]"}], ",", "MH", ",", 
+                RowBox[{"{", "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu4", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "4", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu5", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "5", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], 
+             "}"}]}], "]"}], "[", 
+          RowBox[{
+           FractionBox[
+            RowBox[{"c3", " ", 
+             RowBox[{"(", 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], ")"}]}], "T14"], "+", 
+           FractionBox[
+            RowBox[{"c3", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                FractionBox[
+                 TemplateBox[{"1"},
+                  "OutputSizeLimit`Skeleton"], 
+                 RowBox[{"MW", " ", "SW"}]]}], "+", 
+               TemplateBox[{"69"},
+                "OutputSizeLimit`Skeleton"]}], ")"}]}], "T14"], "+", 
+           FractionBox[
+            RowBox[{"2", " ", "c1", " ", 
+             RowBox[{"(", 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], ")"}]}], "S"], "+", 
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["Alfas", "2"], " ", "c2", " ", "EL", " ", 
+             SuperscriptBox["MT", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                FractionBox[
+                 TemplateBox[{"1"},
+                  "OutputSizeLimit`Skeleton"], "T14"]}], "+", 
+               FractionBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], "S"]}], ")"}]}], 
+            RowBox[{"MW", " ", "SW"}]], "+", 
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["Alfas", "2"], " ", "c2", " ", "EL", " ", 
+             SuperscriptBox["MT", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                FractionBox[
+                 TemplateBox[{"1"},
+                  "OutputSizeLimit`Skeleton"], "T14"]}], "+", 
+               FractionBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], "S"]}], ")"}]}], 
+            RowBox[{"MW", " ", "SW"}]]}], "]"}],
+         Short[#, 5]& ],
+        BaseStyle->{Deployed -> False},
+        StripOnInput->False]},
+      {GridBox[{
+         {
+          TagBox[
+           TooltipBox[
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource[
+                "FEStrings", "sizeBriefExplanation"], StandardForm],
+               ImageSizeCache->{58., {2., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLText",
+             StripOnInput->False],
+            StyleBox[
+             DynamicBox[
+              ToBoxes[
+               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
+               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
+             False]],
+           Annotation[#, 
+            Style[
+             Dynamic[
+              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
+             DynamicUpdating -> True], "Tooltip"]& ], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 18, 17481197693528306459, 5/2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 18, 17481197693528306459, 5 2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm],
+               ImageSizeCache->{42., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm],
+               ImageSizeCache->{42., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 18, 17481197693528306459, Infinity],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           ButtonFunction:>FrontEndExecute[{
+              FrontEnd`SetOptions[
+              FrontEnd`$FrontEnd, 
+               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
+              FrontEnd`FrontEndToken["PreferencesDialog"]}],
+           Evaluator->None,
+           Method->"Preemptive"]}
+        },
+        AutoDelete->False,
+        FrameStyle->GrayLevel[0.85],
+        GridBoxDividers->{"Columns" -> {False, {True}}},
+        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+        GridBoxSpacings->{"Columns" -> {{2}}}]}
+     },
+     DefaultBaseStyle->"Column",
+     GridBoxAlignment->{
+      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+       "RowsIndexed" -> {}},
+     GridBoxDividers->{
+      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
+       "RowsIndexed" -> {}},
+     GridBoxItemSize->{
+      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
+       "RowsIndexed" -> {}},
+     GridBoxSpacings->{"Columns" -> {
+         Offset[0.27999999999999997`], {
+          Offset[0.5599999999999999]}, 
+         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+         Offset[0.2], 
+         Offset[1.2], {
+          Offset[0.4]}, 
+         Offset[0.2]}, "RowsIndexed" -> {}}],
+    BaseStyle->"OutputSizeLimit",
+    FrameMargins->{{12, 12}, {0, 15}},
+    FrameStyle->GrayLevel[0.85],
+    RoundingRadius->5,
+    StripOnInput->False],
+   Deploy,
+   DefaultBaseStyle->"Deploy"],
+  If[17481197693528306459 === $SessionID, 
+   Out[18], Message[
+     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
+   Null]]], "Output",
+ CellChangeTimes->{3.7737419708335533`*^9, 3.775826465540903*^9},
+ CellLabel->"Out[18]=",ExpressionUUID->"b4f39a2e-5da3-4756-9d30-b57a024860f7"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{
+    RowBox[{"\"\<ggHgg_LR_box_\>\"", "<>", 
+     RowBox[{"ToString", "[", "1", "]"}], "<>", "\"\<_9diags.m\>\""}], ",", 
+    RowBox[{"b1a", "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.775826581607827*^9, 3.77582658845979*^9}},
+ CellLabel->"In[22]:=",ExpressionUUID->"6dc8539a-b6fb-45ed-bf01-82aab57aef98"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"b2a", "=", 
+  RowBox[{"b2", "//.", "replacement"}]}]], "Input",
+ CellChangeTimes->{{3.7737418303608932`*^9, 3.7737418362486486`*^9}},
+ CellLabel->"In[23]:=",ExpressionUUID->"cb0ca33d-b1f5-4703-8d8e-8c263a31064a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  TagBox[
+   FrameBox[GridBox[{
+      {
+       ItemBox[
+        TagBox[
+         RowBox[{
+          RowBox[{"Amp", "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu1", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "1", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu2", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "2", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}],
+             "\[Rule]", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"S", "[", "1", "]"}], ",", 
+                RowBox[{"k", "[", "3", "]"}], ",", "MH", ",", 
+                RowBox[{"{", "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu4", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "4", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu5", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "5", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], 
+             "}"}]}], "]"}], "[", 
+          RowBox[{
+           FractionBox[
+            RowBox[{"2", " ", "c1", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               FractionBox[
+                RowBox[{"4", " ", 
+                 TemplateBox[{"5"},
+                  "OutputSizeLimit`Skeleton"], " ", 
+                 RowBox[{"(", 
+                  TemplateBox[{"1"},
+                   "OutputSizeLimit`Skeleton"], ")"}]}], 
+                RowBox[{"MW", " ", "SW"}]], "+", 
+               TemplateBox[{"100"},
+                "OutputSizeLimit`Skeleton"], "+", 
+               TemplateBox[{"1"},
+                "OutputSizeLimit`Skeleton"], "+", 
+               FractionBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], 
+                RowBox[{"MW", " ", "SW"}]]}], ")"}]}], "T24"], "+", 
+           FractionBox[
+            RowBox[{"c2", " ", 
+             RowBox[{"(", 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], ")"}]}], "T14"], "+", 
+           FractionBox[
+            RowBox[{"c2", " ", 
+             TemplateBox[{"1"},
+              "OutputSizeLimit`Skeleton"]}], "T14"], "-", 
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["Alfas", "2"], " ", 
+             TemplateBox[{"3"},
+              "OutputSizeLimit`Skeleton"], " ", 
+             RowBox[{"(", 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], ")"}]}], 
+            RowBox[{"MW", " ", "SW"}]], "-", 
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["Alfas", "2"], " ", "c3", " ", "EL", " ", 
+             SuperscriptBox["MT", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                FractionBox[
+                 TemplateBox[{"1"},
+                  "OutputSizeLimit`Skeleton"], "T24"]}], "+", 
+               FractionBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], "T14"]}], ")"}]}], 
+            RowBox[{"MW", " ", "SW"}]]}], "]"}],
+         Short[#, 5]& ],
+        BaseStyle->{Deployed -> False},
+        StripOnInput->False]},
+      {GridBox[{
+         {
+          TagBox[
+           TooltipBox[
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource[
+                "FEStrings", "sizeBriefExplanation"], StandardForm],
+               ImageSizeCache->{58., {2., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLText",
+             StripOnInput->False],
+            StyleBox[
+             DynamicBox[
+              ToBoxes[
+               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
+               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
+             False]],
+           Annotation[#, 
+            Style[
+             Dynamic[
+              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
+             DynamicUpdating -> True], "Tooltip"]& ], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 23, 17481197693528306459, 5/2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 23, 17481197693528306459, 5 2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm],
+               ImageSizeCache->{42., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 23, 17481197693528306459, Infinity],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           ButtonFunction:>FrontEndExecute[{
+              FrontEnd`SetOptions[
+              FrontEnd`$FrontEnd, 
+               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
+              FrontEnd`FrontEndToken["PreferencesDialog"]}],
+           Evaluator->None,
+           Method->"Preemptive"]}
+        },
+        AutoDelete->False,
+        FrameStyle->GrayLevel[0.85],
+        GridBoxDividers->{"Columns" -> {False, {True}}},
+        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+        GridBoxSpacings->{"Columns" -> {{2}}}]}
+     },
+     DefaultBaseStyle->"Column",
+     GridBoxAlignment->{
+      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+       "RowsIndexed" -> {}},
+     GridBoxDividers->{
+      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
+       "RowsIndexed" -> {}},
+     GridBoxItemSize->{
+      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
+       "RowsIndexed" -> {}},
+     GridBoxSpacings->{"Columns" -> {
+         Offset[0.27999999999999997`], {
+          Offset[0.5599999999999999]}, 
+         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+         Offset[0.2], 
+         Offset[1.2], {
+          Offset[0.4]}, 
+         Offset[0.2]}, "RowsIndexed" -> {}}],
+    BaseStyle->"OutputSizeLimit",
+    FrameMargins->{{12, 12}, {0, 15}},
+    FrameStyle->GrayLevel[0.85],
+    RoundingRadius->5,
+    StripOnInput->False],
+   Deploy,
+   DefaultBaseStyle->"Deploy"],
+  If[17481197693528306459 === $SessionID, 
+   Out[23], Message[
+     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
+   Null]]], "Output",
+ CellChangeTimes->{3.7737423072521887`*^9, 3.775826897885051*^9},
+ CellLabel->"Out[23]=",ExpressionUUID->"1d5fa8ad-833f-46d5-a1dc-a4179db033a8"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{
+    RowBox[{"\"\<ggHgg_LR_box_\>\"", "<>", 
+     RowBox[{"ToString", "[", "2", "]"}], "<>", "\"\<_9diags.m\>\""}], ",", 
+    RowBox[{"b2a", "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.775826642706215*^9, 3.7758266432387667`*^9}},
+ CellLabel->"In[25]:=",ExpressionUUID->"5eff98d5-542a-4fb2-8a57-8b5bb386d93b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"b3a", "=", 
+  RowBox[{"b3", "//.", "replacement"}]}]], "Input",
+ CellChangeTimes->{{3.773741839578579*^9, 3.7737418466102*^9}},
+ CellLabel->"In[26]:=",ExpressionUUID->"6b8a882a-c4d7-48c9-bd9a-89d690e1775f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  TagBox[
+   FrameBox[GridBox[{
+      {
+       ItemBox[
+        TagBox[
+         RowBox[{
+          RowBox[{"Amp", "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu1", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "1", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu2", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "2", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}],
+             "\[Rule]", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"S", "[", "1", "]"}], ",", 
+                RowBox[{"k", "[", "3", "]"}], ",", "MH", ",", 
+                RowBox[{"{", "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu4", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "4", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu5", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "5", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], 
+             "}"}]}], "]"}], "[", 
+          RowBox[{
+           FractionBox[
+            RowBox[{"c2", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               TemplateBox[{"36"},
+                "OutputSizeLimit`Skeleton"], "+", 
+               FractionBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], 
+                RowBox[{"MW", " ", "SW"}]]}], ")"}]}], 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}]], 
+           "+", 
+           FractionBox[
+            RowBox[{"c2", " ", 
+             RowBox[{"(", 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], ")"}]}], 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}]], 
+           "+", 
+           FractionBox[
+            RowBox[{"2", " ", "c1", " ", 
+             RowBox[{"(", 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], ")"}]}], 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}]], 
+           "-", 
+           FractionBox[
+            TemplateBox[{"1"},
+             "OutputSizeLimit`Skeleton"], 
+            RowBox[{"MW", " ", "SW"}]], "-", 
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["Alfas", "2"], " ", "c3", " ", "EL", " ", 
+             SuperscriptBox["MT", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                FractionBox[
+                 TemplateBox[{"1"},
+                  "OutputSizeLimit`Skeleton"], 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", 
+                  "U"}]]}], "+", 
+               FractionBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], 
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"]]}], ")"}]}], 
+            RowBox[{"MW", " ", "SW"}]]}], "]"}],
+         Short[#, 5]& ],
+        BaseStyle->{Deployed -> False},
+        StripOnInput->False]},
+      {GridBox[{
+         {
+          TagBox[
+           TooltipBox[
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource[
+                "FEStrings", "sizeBriefExplanation"], StandardForm],
+               ImageSizeCache->{58., {2., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLText",
+             StripOnInput->False],
+            StyleBox[
+             DynamicBox[
+              ToBoxes[
+               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
+               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
+             False]],
+           Annotation[#, 
+            Style[
+             Dynamic[
+              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
+             DynamicUpdating -> True], "Tooltip"]& ], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 26, 17481197693528306459, 5/2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 26, 17481197693528306459, 5 2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm],
+               ImageSizeCache->{42., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 26, 17481197693528306459, Infinity],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           ButtonFunction:>FrontEndExecute[{
+              FrontEnd`SetOptions[
+              FrontEnd`$FrontEnd, 
+               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
+              FrontEnd`FrontEndToken["PreferencesDialog"]}],
+           Evaluator->None,
+           Method->"Preemptive"]}
+        },
+        AutoDelete->False,
+        FrameStyle->GrayLevel[0.85],
+        GridBoxDividers->{"Columns" -> {False, {True}}},
+        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+        GridBoxSpacings->{"Columns" -> {{2}}}]}
+     },
+     DefaultBaseStyle->"Column",
+     GridBoxAlignment->{
+      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+       "RowsIndexed" -> {}},
+     GridBoxDividers->{
+      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
+       "RowsIndexed" -> {}},
+     GridBoxItemSize->{
+      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
+       "RowsIndexed" -> {}},
+     GridBoxSpacings->{"Columns" -> {
+         Offset[0.27999999999999997`], {
+          Offset[0.5599999999999999]}, 
+         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+         Offset[0.2], 
+         Offset[1.2], {
+          Offset[0.4]}, 
+         Offset[0.2]}, "RowsIndexed" -> {}}],
+    BaseStyle->"OutputSizeLimit",
+    FrameMargins->{{12, 12}, {0, 15}},
+    FrameStyle->GrayLevel[0.85],
+    RoundingRadius->5,
+    StripOnInput->False],
+   Deploy,
+   DefaultBaseStyle->"Deploy"],
+  If[17481197693528306459 === $SessionID, 
+   Out[26], Message[
+     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
+   Null]]], "Output",
+ CellChangeTimes->{3.773742529237939*^9, 3.775827007230092*^9},
+ CellLabel->"Out[26]=",ExpressionUUID->"0dd69f7f-556b-4cf0-903b-9a63338f9b78"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{
+    RowBox[{"\"\<ggHgg_LR_box_\>\"", "<>", 
+     RowBox[{"ToString", "[", "3", "]"}], "<>", "\"\<_9diags.m\>\""}], ",", 
+    RowBox[{"b3a", "[", 
+     RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.77582665388268*^9, 3.77582665463208*^9}},
+ CellLabel->"In[27]:=",ExpressionUUID->"786a397e-8276-4b59-936c-1058b86fa2b4"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"b4a", "=", 
+  RowBox[{"b4", "//.", "replacement"}]}]], "Input",
+ CellChangeTimes->{{3.773741848534903*^9, 3.773741852401463*^9}},
+ CellLabel->"In[28]:=",ExpressionUUID->"cac28fd3-e795-47f1-a77e-e5a2fe196f33"],
+
+Cell[BoxData[
+ InterpretationBox[
+  TagBox[
+   FrameBox[GridBox[{
+      {
+       ItemBox[
+        TagBox[
+         RowBox[{
+          RowBox[{"Amp", "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu1", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "1", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu2", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "2", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}],
+             "\[Rule]", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"S", "[", "1", "]"}], ",", 
+                RowBox[{"k", "[", "3", "]"}], ",", "MH", ",", 
+                RowBox[{"{", "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu4", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "4", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"V", "[", 
+                 RowBox[{"5", ",", 
+                  RowBox[{"{", "Glu5", "}"}]}], "]"}], ",", 
+                RowBox[{"k", "[", "5", "]"}], ",", "0", ",", 
+                RowBox[{"{", 
+                 RowBox[{
+                  SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], 
+             "}"}]}], "]"}], "[", 
+          RowBox[{
+           FractionBox[
+            RowBox[{"2", " ", "c1", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               FractionBox[
+                RowBox[{"4", " ", 
+                 TemplateBox[{"5"},
+                  "OutputSizeLimit`Skeleton"], " ", 
+                 RowBox[{"(", 
+                  TemplateBox[{"1"},
+                   "OutputSizeLimit`Skeleton"], ")"}]}], 
+                RowBox[{"MW", " ", "SW"}]], "+", 
+               TemplateBox[{"92"},
+                "OutputSizeLimit`Skeleton"], "+", 
+               TemplateBox[{"1"},
+                "OutputSizeLimit`Skeleton"], "+", 
+               FractionBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], 
+                RowBox[{"MW", " ", "SW"}]]}], ")"}]}], 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", "T24"}]],
+            "+", 
+           FractionBox[
+            RowBox[{"c3", " ", 
+             RowBox[{"(", 
+              TemplateBox[{"1"},
+               "OutputSizeLimit`Skeleton"], ")"}]}], 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}]], 
+           "+", 
+           FractionBox[
+            RowBox[{"c3", " ", 
+             TemplateBox[{"1"},
+              "OutputSizeLimit`Skeleton"]}], 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", "S", "-", 
+             TemplateBox[{"3"},
+              "OutputSizeLimit`Skeleton"], "-", "U"}]], "+", 
+           FractionBox[
+            TemplateBox[{"1"},
+             "OutputSizeLimit`Skeleton"], 
+            RowBox[{"MW", " ", "SW"}]], "+", 
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["Alfas", "2"], " ", "c2", " ", "EL", " ", 
+             SuperscriptBox["MT", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               FractionBox[
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"], 
+                TemplateBox[{"1"},
+                 "OutputSizeLimit`Skeleton"]], "+", 
+               TemplateBox[{"1"},
+                "OutputSizeLimit`Skeleton"]}], ")"}]}], 
+            RowBox[{"MW", " ", "SW"}]]}], "]"}],
+         Short[#, 5]& ],
+        BaseStyle->{Deployed -> False},
+        StripOnInput->False]},
+      {GridBox[{
+         {
+          TagBox[
+           TooltipBox[
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource[
+                "FEStrings", "sizeBriefExplanation"], StandardForm],
+               ImageSizeCache->{58., {2., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLText",
+             StripOnInput->False],
+            StyleBox[
+             DynamicBox[
+              ToBoxes[
+               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
+               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
+             False]],
+           Annotation[#, 
+            Style[
+             Dynamic[
+              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
+             DynamicUpdating -> True], "Tooltip"]& ], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+                StandardForm],
+               ImageSizeCache->{50., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 28, 17481197693528306459, 5/2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+                StandardForm],
+               ImageSizeCache->{56., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 28, 17481197693528306459, 5 2],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm],
+               ImageSizeCache->{42., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           
+           ButtonFunction:>OutputSizeLimit`ButtonFunction[
+            OutputSizeLimit`Defer, 28, 17481197693528306459, Infinity],
+           Enabled->True,
+           Evaluator->Automatic,
+           Method->"Queued"], 
+          ButtonBox[
+           PaneSelectorBox[{False->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm],
+               ImageSizeCache->{74., {0., 8.}}],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControl",
+             StripOnInput->False], True->
+            StyleBox[
+             StyleBox[
+              DynamicBox[ToBoxes[
+                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+                StandardForm]],
+              StripOnInput->False,
+              DynamicUpdating->True], "OSLControlActive",
+             StripOnInput->False]}, Dynamic[
+             CurrentValue["MouseOver"]],
+            Alignment->Center,
+            FrameMargins->0,
+            ImageSize->{Automatic, 25}],
+           Appearance->None,
+           BaselinePosition->Baseline,
+           ButtonFunction:>FrontEndExecute[{
+              FrontEnd`SetOptions[
+              FrontEnd`$FrontEnd, 
+               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
+              FrontEnd`FrontEndToken["PreferencesDialog"]}],
+           Evaluator->None,
+           Method->"Preemptive"]}
+        },
+        AutoDelete->False,
+        FrameStyle->GrayLevel[0.85],
+        GridBoxDividers->{"Columns" -> {False, {True}}},
+        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+        GridBoxSpacings->{"Columns" -> {{2}}}]}
+     },
+     DefaultBaseStyle->"Column",
+     GridBoxAlignment->{
+      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+       "RowsIndexed" -> {}},
+     GridBoxDividers->{
+      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
+       "RowsIndexed" -> {}},
+     GridBoxItemSize->{
+      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
+       "RowsIndexed" -> {}},
+     GridBoxSpacings->{"Columns" -> {
+         Offset[0.27999999999999997`], {
+          Offset[0.5599999999999999]}, 
+         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+         Offset[0.2], 
+         Offset[1.2], {
+          Offset[0.4]}, 
+         Offset[0.2]}, "RowsIndexed" -> {}}],
+    BaseStyle->"OutputSizeLimit",
+    FrameMargins->{{12, 12}, {0, 15}},
+    FrameStyle->GrayLevel[0.85],
+    RoundingRadius->5,
+    StripOnInput->False],
+   Deploy,
+   DefaultBaseStyle->"Deploy"],
+  If[17481197693528306459 === $SessionID, 
+   Out[28], Message[
+     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
+   Null]]], "Output",
+ CellChangeTimes->{3.773742742516061*^9, 3.775827111056859*^9},
+ CellLabel->"Out[28]=",ExpressionUUID->"fdf26c39-191c-4b8f-8ed6-4f24a3f9beeb"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Export", "[", 
+    RowBox[{
+     RowBox[{"\"\<ggHgg_LR_box_\>\"", "<>", 
+      RowBox[{"ToString", "[", "4", "]"}], "<>", "\"\<_9diags.m\>\""}], ",", 
+     RowBox[{"b4a", "[", 
+      RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";"}], 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.7758266582866173`*^9, 3.775826658808209*^9}},
+ CellLabel->"In[29]:=",ExpressionUUID->"c7feecf3-f47a-423b-924d-e06efe08d9d2"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{"Section", " ", "for", " ", "gg"}], "\[Rule]", "H"}], " ", 
+   "*)"}]}]], "Input",
+ CellChangeTimes->{{3.775231998315331*^9, 
+  3.775232007604499*^9}},ExpressionUUID->"7e7b9f75-0ed1-4382-a7dd-\
+99907c1473ac"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ggHamp", "=", 
+  RowBox[{"Import", "[", "\"\<ggH.m\>\"", "]"}]}]], "Input",
+ CellChangeTimes->{{3.7752319134417143`*^9, 3.7752319328594646`*^9}},
+ CellLabel->"In[12]:=",ExpressionUUID->"ae98646f-6aec-43fc-bc4c-76b34b9d8371"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{"MW", " ", "\[Pi]", " ", "SW"}]], 
+  RowBox[{"Alfas", " ", "EL", " ", "MT2", " ", 
+   RowBox[{"Mat", "[", 
+    RowBox[{"SUNT", "[", 
+     RowBox[{"Glu1", ",", "Glu2", ",", "0", ",", "0"}], "]"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"B0i", "[", 
+         RowBox[{"bb0", ",", "MH2", ",", "MT2", ",", "MT2"}], "]"}], "-", 
+        RowBox[{"4", " ", 
+         RowBox[{"C0i", "[", 
+          RowBox[{
+          "cc00", ",", "0", ",", "MH2", ",", "0", ",", "MT2", ",", "MT2", ",",
+            "MT2"}], "]"}]}]}], ")"}], " ", 
+      RowBox[{"Pair", "[", 
+       RowBox[{
+        RowBox[{"e", "[", "1", "]"}], ",", 
+        RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+     RowBox[{"4", " ", 
+      RowBox[{"C0i", "[", 
+       RowBox[{
+       "cc12", ",", "0", ",", "MH2", ",", "0", ",", "MT2", ",", "MT2", ",", 
+        "MT2"}], "]"}], " ", 
+      RowBox[{"Pair", "[", 
+       RowBox[{
+        RowBox[{"e", "[", "1", "]"}], ",", 
+        RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+      RowBox[{"Pair", "[", 
+       RowBox[{
+        RowBox[{"e", "[", "2", "]"}], ",", 
+        RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"C0i", "[", 
+       RowBox[{
+       "cc0", ",", "0", ",", "MH2", ",", "0", ",", "MT2", ",", "MT2", ",", 
+        "MT2"}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "MH2"}], " ", 
+         RowBox[{"Pair", "[", 
+          RowBox[{
+           RowBox[{"e", "[", "1", "]"}], ",", 
+           RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+        RowBox[{"2", " ", 
+         RowBox[{"Pair", "[", 
+          RowBox[{
+           RowBox[{"e", "[", "1", "]"}], ",", 
+           RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+         RowBox[{"Pair", "[", 
+          RowBox[{
+           RowBox[{"e", "[", "2", "]"}], ",", 
+           RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}]}], 
+    ")"}]}]}]], "Output",
+ CellChangeTimes->{3.775231935723737*^9},
+ CellLabel->"Out[12]=",ExpressionUUID->"b03d30ad-4939-46cf-b5fe-8b765a9784a2"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"ggHamp", " ", "=", " ", 
+   RowBox[{
+    RowBox[{"ggHamp", " ", "//.", " ", "MAT"}], " ", "//.", " ", "SubDen"}]}],
+   ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"d", " ", "=", " ", 
+   RowBox[{"Collect", "[", 
+    RowBox[{
+     RowBox[{"ReleaseHold", "[", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"HoldForm", "[", 
+          RowBox[{"Evaluate", "[", "ggHamp", "]"}], "]"}], " ", ")"}], "//.", 
+        " ", "RIntList"}], ")"}], "]"}], ",", 
+     RowBox[{"Mat", "[", "__", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fd", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"d", "//.", "LoopRefining"}], "//", "Refine"}], "//", 
+    "Simplify"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggH_LR.m\>\"", ",", "fd"}], "]"}], 
+  ";"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.7752320210741873`*^9, 3.775232083331502*^9}},
+ CellLabel->"In[20]:=",ExpressionUUID->"24b1d6d5-8138-410c-bad0-4688d4069032"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{"Section", " ", "for", " ", "gg"}], "\[Rule]", "Hg"}], " ", 
+   "*)"}]}]], "Input",
+ CellChangeTimes->{{3.775233725799533*^9, 
+  3.77523374355394*^9}},ExpressionUUID->"1f278cce-b737-471d-abb8-\
+571bd986d464"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ggHgamp", "=", 
+   RowBox[{"Import", "[", "\"\<ggHg.m\>\"", "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.775233745909586*^9, 3.775233763976185*^9}},
+ CellLabel->"In[10]:=",ExpressionUUID->"9a2e8cfd-31b0-4513-b860-e5717141a96f"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"ggHgamp", "=", 
+   RowBox[{"ggHgamp", "//.", "SubDen"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"d", " ", "=", " ", 
+   RowBox[{"Collect", "[", 
+    RowBox[{
+     RowBox[{"ReleaseHold", "[", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"HoldForm", "[", 
+          RowBox[{"Evaluate", "[", "ggHgamp", "]"}], "]"}], " ", ")"}], "//.",
+         " ", "RIntList"}], ")"}], "]"}], ",", 
+     RowBox[{"Mat", "[", "__", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fd", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"d", "//.", "LoopRefining"}], "//", "Refine"}], "//", 
+    "Simplify"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.775233767887505*^9, 3.7752338144243193`*^9}},
+ CellLabel->"In[15]:=",ExpressionUUID->"f2581317-15ac-431d-858d-1506de0ee6ea"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggHg_LR.m\>\"", ",", "fd"}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{3.775233824527708*^9},
+ CellLabel->"In[19]:=",ExpressionUUID->"935c66bf-fd6a-4022-88ef-839267449906"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.775489103187828*^9, 
+  3.775489103852584*^9}},ExpressionUUID->"e4eda86f-c0c1-4ed1-b09c-\
+a197bbc299c9"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"triangle", " ", "=", " ", 
+   RowBox[{"Import", "[", "\"\<ggHgg_triangle_FeynAmp_2diags.m\>\"", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"triangle", " ", "=", " ", 
+   RowBox[{
+    RowBox[{"triangle", " ", "//.", " ", "MAT"}], " ", "//.", " ", 
+    "SubDen"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"t", " ", "=", " ", 
+   RowBox[{"Collect", "[", 
+    RowBox[{
+     RowBox[{"ReleaseHold", "[", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"HoldForm", "[", 
+          RowBox[{"Evaluate", "[", "triangle", "]"}], "]"}], " ", ")"}], "//.",
+         " ", "RIntList"}], ")"}], "]"}], ",", 
+     RowBox[{"Mat", "[", "__", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ft", "=", 
+   RowBox[{
+    RowBox[{"t", "//.", "LoopRefining"}], "//", "Refine"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggHgg_LR_triangle_2diags.m\>\"", ",", "ft"}], "]"}], 
+  ";"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.775489112120273*^9, 3.775489119038488*^9}},
+ CellLabel->"In[12]:=",ExpressionUUID->"e7549059-0b03-41c9-afd1-97986dde3359"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.7754904767164803`*^9, 
+  3.775490483960333*^9}},ExpressionUUID->"75c75df4-ee72-49af-9630-\
+1cf0eef74f43"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{
+  3.775821061411274*^9},ExpressionUUID->"a4013e44-a682-4c70-a84f-\
+f4695f7dd230"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"triangle", " ", "=", " ", 
+   RowBox[{"Import", "[", "\"\<ggHgg_triangle_FeynAmp_2diags.m\>\"", "]"}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[17]:=",ExpressionUUID->"73dfc6d7-5c31-463e-8864-6b5bef17b11d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"triangle", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{"triangle", "//.", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"C0i", "[", "___", "]"}], "\[Rule]", "0"}], "}"}]}], "//.", 
+      "SubDen"}], "//.", "MAT"}], "//.", "MATColor"}], "//", 
+   "Simplify"}]}]], "Input",
+ CellChangeTimes->{{3.775490489071643*^9, 3.77549054704373*^9}, {
+  3.775490578383366*^9, 3.775490608694393*^9}},
+ CellLabel->"In[25]:=",ExpressionUUID->"b4100299-10f3-4c3c-90b5-db96319fb7d9"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Amp", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"V", "[", 
+         RowBox[{"5", ",", 
+          RowBox[{"{", "Glu1", "}"}]}], "]"}], ",", 
+        RowBox[{"k", "[", "1", "]"}], ",", "0", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"V", "[", 
+         RowBox[{"5", ",", 
+          RowBox[{"{", "Glu2", "}"}]}], "]"}], ",", 
+        RowBox[{"k", "[", "2", "]"}], ",", "0", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}], 
+    "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"S", "[", "1", "]"}], ",", 
+        RowBox[{"k", "[", "3", "]"}], ",", "MH", ",", 
+        RowBox[{"{", "}"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"V", "[", 
+         RowBox[{"5", ",", 
+          RowBox[{"{", "Glu4", "}"}]}], "]"}], ",", 
+        RowBox[{"k", "[", "4", "]"}], ",", "0", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"V", "[", 
+         RowBox[{"5", ",", 
+          RowBox[{"{", "Glu5", "}"}]}], "]"}], ",", 
+        RowBox[{"k", "[", "5", "]"}], ",", "0", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}]}], 
+   "]"}], "[", 
+  RowBox[{"-", 
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"MW", " ", "SW", " ", "T"}]], 
+    RowBox[{"8", " ", 
+     SuperscriptBox["Alfas", "2"], " ", "EL", " ", 
+     SuperscriptBox["MT", "2"], " ", 
+     RowBox[{"B0i", "[", 
+      RowBox[{"bb0", ",", "T", ",", 
+       SuperscriptBox["MT", "2"], ",", 
+       SuperscriptBox["MT", "2"]}], "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"c1", "-", 
+          RowBox[{"2", " ", "c2"}], "+", "c3"}], ")"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "1", "]"}], ",", 
+          RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "2", "]"}], ",", 
+          RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "2"}], " ", "c1"}], "+", "c2", "+", "c3"}], ")"}], 
+        " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "1", "]"}], ",", 
+          RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "2", "]"}], ",", 
+          RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"c1", "+", "c2", "-", 
+          RowBox[{"2", " ", "c3"}]}], ")"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "1", "]"}], ",", 
+          RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"ec", "[", "4", "]"}], ",", 
+          RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+  "]"}]], "Output",
+ CellChangeTimes->{{3.7754905181011047`*^9, 3.775490547530642*^9}, {
+   3.7754905806927757`*^9, 3.775490609286749*^9}, 3.7754907803036346`*^9},
+ CellLabel->"Out[25]=",ExpressionUUID->"227ac9fd-122f-4bdd-8ce6-0421fc3101b9"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"t", " ", "=", " ", 
+   RowBox[{"Collect", "[", 
+    RowBox[{
+     RowBox[{"ReleaseHold", "[", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"HoldForm", "[", 
+          RowBox[{"Evaluate", "[", "triangle", "]"}], "]"}], " ", ")"}], "//.",
+         " ", "RIntList"}], ")"}], "]"}], ",", 
+     RowBox[{"Mat", "[", "__", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ft", "=", 
+   RowBox[{
+    RowBox[{"t", "//.", "LoopRefining"}], "//", "Refine"}]}], ";"}]}], "Input",\
+
+ CellLabel->"In[26]:=",ExpressionUUID->"d027658a-37f9-489d-a307-4d535ae073b9"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ft", "//", "Simplify"}]], "Input",
+ CellChangeTimes->{{3.775490801911936*^9, 3.775490806703685*^9}},
+ CellLabel->"In[29]:=",ExpressionUUID->"55e4d6af-838f-45bf-ab25-da03c1c1d848"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Amp", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"V", "[", 
+         RowBox[{"5", ",", 
+          RowBox[{"{", "Glu1", "}"}]}], "]"}], ",", 
+        RowBox[{"k", "[", "1", "]"}], ",", "0", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"V", "[", 
+         RowBox[{"5", ",", 
+          RowBox[{"{", "Glu2", "}"}]}], "]"}], ",", 
+        RowBox[{"k", "[", "2", "]"}], ",", "0", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}], 
+    "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"S", "[", "1", "]"}], ",", 
+        RowBox[{"k", "[", "3", "]"}], ",", "MH", ",", 
+        RowBox[{"{", "}"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"V", "[", 
+         RowBox[{"5", ",", 
+          RowBox[{"{", "Glu4", "}"}]}], "]"}], ",", 
+        RowBox[{"k", "[", "4", "]"}], ",", "0", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"V", "[", 
+         RowBox[{"5", ",", 
+          RowBox[{"{", "Glu5", "}"}]}], "]"}], ",", 
+        RowBox[{"k", "[", "5", "]"}], ",", "0", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}]}], 
+   "]"}], "[", 
+  RowBox[{"-", 
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"MW", " ", "SW", " ", "T"}]], 
+    RowBox[{"8", " ", 
+     SuperscriptBox["Alfas", "2"], " ", "EL", " ", 
+     SuperscriptBox["MT", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{"2", "+", 
+       FractionBox["1", "\[Epsilon]"], "+", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"T", ",", 
+         SqrtBox[
+          SuperscriptBox["MT", "2"]], ",", 
+         SqrtBox[
+          SuperscriptBox["MT", "2"]]}], "]"}], "+", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], 
+         SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"c1", "-", 
+          RowBox[{"2", " ", "c2"}], "+", "c3"}], ")"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "1", "]"}], ",", 
+          RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "2", "]"}], ",", 
+          RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "2"}], " ", "c1"}], "+", "c2", "+", "c3"}], ")"}], 
+        " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "1", "]"}], ",", 
+          RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "2", "]"}], ",", 
+          RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"c1", "+", "c2", "-", 
+          RowBox[{"2", " ", "c3"}]}], ")"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"e", "[", "1", "]"}], ",", 
+          RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+        RowBox[{"Pair", "[", 
+         RowBox[{
+          RowBox[{"ec", "[", "4", "]"}], ",", 
+          RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+  "]"}]], "Output",
+ CellChangeTimes->{{3.775490802450275*^9, 3.775490807137723*^9}},
+ CellLabel->"Out[29]=",ExpressionUUID->"f7adf7fb-3d44-404a-b9d8-8367ef825cc7"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.775928007733971*^9, 3.775928050142716*^9}, 
+   3.775928158644534*^9, {3.776093459682819*^9, 
+   3.776093460132823*^9}},ExpressionUUID->"a9b9ca57-f825-4517-8b39-\
+8ebebaffad8a"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{"VELOCITY", " ", "SERIES"}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\
+}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], "*)"}]}]], "Input",
+ CellChangeTimes->{{3.778422396725979*^9, 
+  3.778422453872706*^9}},ExpressionUUID->"f261cfc3-9a94-4830-9195-\
+aa48c3328d0f"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"MakeRefineSeriesOf", "[", 
+   RowBox[{"i_", ",", "f_", ",", "string_"}], "]"}], ":=", 
+  "\[IndentingNewLine]", 
+  RowBox[{"{", "\[IndentingNewLine]", 
+   RowBox[{"Do", "[", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{"Serieslist", "[", 
+        RowBox[{"[", "n", "]"}], "]"}], "=", 
+       RowBox[{"LoopRefineSeries", "[", 
+        RowBox[{
+         RowBox[{"LRlistVelSub", "[", 
+          RowBox[{"[", "n", "]"}], "]"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"\[Beta]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"Print", "[", "n", "]"}], ";", "\[IndentingNewLine]", 
+      RowBox[{"Export", "[", 
+       RowBox[{"string", ",", "Serieslist"}], "]"}], ";"}], 
+     "\[IndentingNewLine]", ",", 
+     RowBox[{"{", 
+      RowBox[{"n", ",", "i", ",", "f"}], "}"}]}], "]"}], 
+   "\[IndentingNewLine]", "}"}]}]], "Input",
+ CellLabel->"In[47]:=",ExpressionUUID->"5fb9542c-66c2-4b59-b6c0-3d1e3db1842f"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", "TRIANGLES", " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.778510730293254*^9, 
+  3.778510735378016*^9}},ExpressionUUID->"ce77b5bd-ebce-4c42-9263-\
+53392240007e"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "Translate", " ", "from", " ", "FormCalc", " ", "to", " ", "Package", " ", 
+    "X", " ", 
+    RowBox[{"format", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"triangle", " ", "=", " ", 
+     RowBox[{
+     "Import", "[", "\"\<ggHgg_triangle_FeynAmp_38diags.m\>\"", "]"}]}], 
+    ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"triangle", " ", "=", " ", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"triangle", " ", "//.", "MAT"}], "//.", " ", "MATColor"}], " ",
+       "//.", " ", "SubDen"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"t", " ", "=", " ", 
+     RowBox[{"Collect", "[", 
+      RowBox[{
+       RowBox[{"ReleaseHold", "[", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"HoldForm", "[", 
+            RowBox[{"Evaluate", "[", "triangle", "]"}], "]"}], " ", ")"}], "//.",
+           " ", "RIntList"}], ")"}], "]"}], ",", 
+       RowBox[{"Mat", "[", "__", "]"}]}], "]"}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Export", "[", 
+     RowBox[{"\"\<ggHgg_PV_triangle_38diags.m\>\"", ",", "t"}], "]"}], 
+    ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.778510715046095*^9, 3.7785107796040277`*^9}},
+ CellLabel->"In[16]:=",ExpressionUUID->"9997d1a8-9d83-430a-8554-6cfc2a974c27"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "Loop", " ", "refine", " ", "each", " ", "term", " ", "to", " ", "get", 
+    " ", "analytical", " ", 
+    RowBox[{"expressions", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"listPV", " ", "=", " ", 
+     RowBox[{"ToExpression", "[", 
+      RowBox[{"Import", "[", 
+       RowBox[{"\"\<trianglePVs.m\>\"", ",", "\"\<Lines\>\""}], "]"}], 
+      "]"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"LRlist", " ", "=", " ", 
+     RowBox[{"Range", "[", 
+      RowBox[{"Length", "[", "listPV", "]"}], "]"}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Do", "[", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        RowBox[{"LRlist", "[", 
+         RowBox[{"[", "n", "]"}], "]"}], "=", 
+        RowBox[{"LoopRefine", "[", 
+         RowBox[{"listPV", "[", 
+          RowBox[{"[", "n", "]"}], "]"}], "]"}]}], ";"}], 
+      "\[IndentingNewLine]", ",", 
+      RowBox[{"{", 
+       RowBox[{"n", ",", 
+        RowBox[{"Range", "[", 
+         RowBox[{"Length", "[", "listPV", "]"}], "]"}]}], "}"}]}], "]"}], 
+    ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"LRlist", "=", 
+     RowBox[{
+      RowBox[{"LRlist", " ", "//", "Refine"}], "//", "Simplify"}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Export", "[", 
+     RowBox[{"\"\<analyticPV_triangles.m\>\"", ",", "LRlist"}], "]"}], 
+    ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.77851101564491*^9, 3.778511062594967*^9}, {
+  3.7785111136692533`*^9, 3.778511191309515*^9}, {3.778511261373001*^9, 
+  3.778511275963592*^9}, {3.7785113263462954`*^9, 3.778511340801446*^9}, {
+  3.7785119479302187`*^9, 3.778511963435474*^9}},
+ CellLabel->"In[73]:=",ExpressionUUID->"3e8bf30c-17cd-43d9-b2c2-32aaac3fabf4"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Sub", " ", 
+    RowBox[{"velocities", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"LRlist", "=", 
+     RowBox[{"Import", "[", "\"\<analyticPV_triangles.m\>\"", "]"}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"LRlistVelSub", "=", 
+     RowBox[{"LRlist", "//.", "VelSub"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Export", "[", 
+     RowBox[{"\"\<analyticPVwVel_triangles.m\>\"", ",", "LRlistVelSub"}], 
+     "]"}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Serieslist", "=", "LRlistVelSub"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.778511450788786*^9, 3.7785114862093163`*^9}, {
+  3.7785117654748707`*^9, 3.778511797626837*^9}, {3.7785119836535892`*^9, 
+  3.7785119907167*^9}},
+ CellLabel->"In[78]:=",ExpressionUUID->"0faeac76-b8a2-41ff-a322-8a7cc20f5cdc"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Make", " ", "velocity", " ", 
+    RowBox[{"series", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"MakeRefineSeriesOf", "[", 
+   RowBox[{"1", ",", 
+    RowBox[{"Length", "[", "LRlistVelSub", "]"}], ",", 
+    "\"\<SeriesPV_triangles.m\>\""}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7785115750348883`*^9, 3.778511599881691*^9}, 
+   3.778511760474266*^9, {3.778511968570036*^9, 3.778511982216249*^9}},
+ CellLabel->"In[82]:=",ExpressionUUID->"0aeaadd3-5332-4530-a274-2d257367f236"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["1"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512382902973*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"941d2971-0756-46af-bbfa-35b438dd0e63"],
+
+Cell[BoxData["2"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785123829155407`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"7f9fc3c9-6ddc-47d5-af72-107027ebb276"],
+
+Cell[BoxData["3"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512382931138*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"da3f0120-fdef-4857-aa25-2ee29cd3ae1a"],
+
+Cell[BoxData["4"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785123829400806`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"b6c871c9-430f-4950-8ffa-bdb5d1f09ffe"],
+
+Cell[BoxData["5"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512382949741*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"08b8650b-700a-4a81-98cd-762915822ac6"],
+
+Cell[BoxData["6"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512382958762*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"dc323011-3d7c-4c71-98f9-fc651ab59bcd"],
+
+Cell[BoxData["7"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512383041127*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"dcbc9173-996e-4615-8934-be1437da9dbc"],
+
+Cell[BoxData["8"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512383054595*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"5235f72f-1e09-460f-a972-86c8776de7bf"],
+
+Cell[BoxData["9"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512383069906*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"51d0dc87-3144-4105-a8ae-a650d049a319"],
+
+Cell[BoxData["10"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512383500832*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"61f11d61-f008-44dc-96d0-db1dad10327b"],
+
+Cell[BoxData["11"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785123835765142`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"f3db9187-5fb7-4179-9d5d-fee11f151b8a"],
+
+Cell[BoxData["12"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512383592807*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"55143390-2218-4242-8577-41b5b68bf26f"],
+
+Cell[BoxData["13"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512383605513*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"de5e700a-5013-445e-b472-25d383ca5cf3"],
+
+Cell[BoxData["14"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512384074768*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"04316d54-f297-424b-9b49-acfd45d21630"],
+
+Cell[BoxData["15"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785123841633387`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"017b3ad1-2b25-45a4-8b9d-111686161236"],
+
+Cell[BoxData["16"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785123857490664`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"cf381b0c-ac88-40ab-b951-874fcfdfa6c6"],
+
+Cell[BoxData["17"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512385808852*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"67e161ed-8390-46fa-a181-f56c98936077"],
+
+Cell[BoxData["18"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512387347632*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"12eddb76-c821-45d5-9119-d5d357f2d4eb"],
+
+Cell[BoxData["19"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512387423924*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"f42cca31-6f52-49bc-b356-94d57c78fd27"],
+
+Cell[BoxData["20"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512387488948*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"812113fc-a308-46fd-b058-9e34214fc722"],
+
+Cell[BoxData["21"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512389090189*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"5f1deb06-8268-41a5-84bd-e5a8ada699a5"],
+
+Cell[BoxData["22"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785123892488117`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"28c127e4-f366-4435-9db7-8b114a82b320"],
+
+Cell[BoxData["23"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785123893298607`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"db1f8f22-c844-4e1e-892c-73ca3a41eaee"],
+
+Cell[BoxData["24"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512389413691*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"ae692077-c31d-43f0-a099-c52e179f8dea"],
+
+Cell[BoxData["25"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.77851239078407*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"8f0af9a8-1bc7-4b92-a518-3b7fb75be3ae"],
+
+Cell[BoxData["26"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512390869191*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"60b61b67-6c61-4599-a20d-463c308eb270"],
+
+Cell[BoxData["27"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512390930818*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"60c27d5d-d770-45b4-8b6e-611a3c03ef79"],
+
+Cell[BoxData["28"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512394937373*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"e5c01ae9-55fc-47f8-9c3d-6f54b4b00756"],
+
+Cell[BoxData["29"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.77851239595619*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"7f11c8de-f7aa-4313-ab85-f0bc8404662d"],
+
+Cell[BoxData["30"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785123961155777`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"9e154613-6e9c-4d11-8ddd-6170705528ab"],
+
+Cell[BoxData["31"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512396272484*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"2f8e02d9-a5b4-4bd9-b9d9-aec02153dd7c"],
+
+Cell[BoxData["32"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785124016781063`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"650def7c-a65f-44fb-811b-1fa0b5a45d15"],
+
+Cell[BoxData["33"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785124017895813`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"6474532b-9599-4489-88db-58d38314ab6f"],
+
+Cell[BoxData["34"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512406577866*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"226a40c4-f169-42d2-8ab6-1f67a2f873ea"],
+
+Cell[BoxData["35"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.77851240750906*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"a1944f0f-52a8-49d8-b9c3-20fec2f3235a"],
+
+Cell[BoxData["36"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512407615101*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"3b4b9b10-ab7e-4de6-ab0f-e0018abf925b"],
+
+Cell[BoxData["37"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.77851240772073*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"6c480e69-9121-408a-8dec-f908c61e8d42"],
+
+Cell[BoxData["38"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.7785124137636633`*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"cba40a3e-274e-4ca6-acca-4f9780f8640b"],
+
+Cell[BoxData["39"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512413888442*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"e62616bb-5c74-4eeb-afa2-bb439d81b80e"],
+
+Cell[BoxData["40"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512414033155*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"52e54f32-ac58-4414-93fa-68fcf6f14698"],
+
+Cell[BoxData["41"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512415469339*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"50d0b363-2b99-4f39-bfc0-29a59ae13c83"],
+
+Cell[BoxData["42"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512415986779*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"5dca03fa-6242-4056-b5c8-360525f873d4"],
+
+Cell[BoxData["43"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512416119038*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"91a05c83-f424-4d73-8df9-fd9365c15c65"],
+
+Cell[BoxData["44"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512416251133*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"e35ff97f-1b31-4eec-84d3-b936608c353c"],
+
+Cell[BoxData["45"], "Print",
+ CellChangeTimes->{3.778511819059483*^9, 3.778512417701735*^9},
+ CellLabel->
+  "During evaluation of \
+In[82]:=",ExpressionUUID->"45f0eca5-0ad3-474d-8922-cc6c393a259f"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.778511859290827*^9, 3.778512417825062*^9},
+ CellLabel->"Out[82]=",ExpressionUUID->"cfcdfb24-b305-466a-a1bb-a332ab352a9e"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Serieslist", "=", 
+   RowBox[{
+    RowBox[{"Import", "[", "\"\<SeriesPV_triangles.m\>\"", "]"}], "//", 
+    "Simplify"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.7785118753455553`*^9, 3.778511898085145*^9}, {
+  3.778512429633429*^9, 3.778512431084112*^9}},
+ CellLabel->"In[83]:=",ExpressionUUID->"09576c11-deed-4e65-b168-19d328941f7e"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Define", " ", "replacemente", " ", 
+    RowBox[{"rule", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"SetAttributes", "[", 
+     RowBox[{"f", ",", "Listable"}], "]"}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"f", "[", 
+      RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
+     RowBox[{"a", "\[Rule]", "b"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"replacement", "=", 
+     RowBox[{"f", "[", 
+      RowBox[{"listPV", ",", "Serieslist"}], "]"}]}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Export", "[", 
+     RowBox[{
+     "\"\<replacementRule_triangles_velocity.m\>\"", ",", "replacement"}], 
+     "]"}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.7785121633002787`*^9, 3.778512185802937*^9}, {
+  3.778512231802353*^9, 3.778512308738598*^9}, {3.778512611400076*^9, 
+  3.7785126155855703`*^9}, {3.778512712549934*^9, 
+  3.778512714813554*^9}},ExpressionUUID->"e9cb917d-6bce-4b94-a047-\
+15b919e9e4cc"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Sub", " ", "back", " ", "into", " ", "the", " ", 
+    RowBox[{"amplitude", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"t", "=", 
+     RowBox[{"Import", "[", "\"\<ggHgg_PV_triangle_38diags.m\>\"", "]"}]}], 
+    ";"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"replacement", "=", 
+     RowBox[{
+     "Import", "[", "\"\<replacementRule_triangles_velocity.m\>\"", "]"}]}], 
+    ";"}], "\[IndentingNewLine]", 
+   RowBox[{"tvel", "=", 
+    RowBox[{"t", "//.", "replacement"}]}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Export", "[", 
+     RowBox[{"\"\<ggHgg_VSeries_triangles.m\>\"", ",", "tvel"}], "]"}], 
+    ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.778512663505072*^9, 3.778512822513528*^9}},
+ CellLabel->"In[98]:=",ExpressionUUID->"58da36ab-d8d7-464f-a677-c4ffb3b43015"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"tvelSeries", "=", 
+  RowBox[{"LoopRefineSeries", "[", 
+   RowBox[{"tvel", ",", 
+    RowBox[{"{", 
+     RowBox[{"\[Beta]", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.778513234373919*^9, 3.77851323517974*^9}, {
+  3.778513335636904*^9, 3.778513337021649*^9}, {3.778513385435795*^9, 
+  3.778513408995431*^9}},
+ CellLabel->
+  "In[102]:=",ExpressionUUID->"93d22a91-7738-43f2-ae38-e21755ca22f1"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Simplify","time",
+   "\"Time spent on a transformation exceeded \
+\\!\\(\\*RowBox[{\\\"300.`\\\"}]\\) seconds, and the transformation was \
+aborted. Increasing the value of TimeConstraint option may improve the result \
+of simplification.\"",2,102,18,17498789627688163568,"Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.7785140277805433`*^9},
+ CellLabel->
+  "During evaluation of \
+In[102]:=",ExpressionUUID->"dc04a919-7e52-45e2-bb44-a344b5d1d308"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Simplify","time",
+   "\"Time spent on a transformation exceeded \
+\\!\\(\\*RowBox[{\\\"300.`\\\"}]\\) seconds, and the transformation was \
+aborted. Increasing the value of TimeConstraint option may improve the result \
+of simplification.\"",2,102,19,17498789627688163568,"Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.778514355993286*^9},
+ CellLabel->
+  "During evaluation of \
+In[102]:=",ExpressionUUID->"99a74ed9-9abc-451d-8242-fd4078fd5891"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Simplify","time",
+   "\"Time spent on a transformation exceeded \
+\\!\\(\\*RowBox[{\\\"300.`\\\"}]\\) seconds, and the transformation was \
+aborted. Increasing the value of TimeConstraint option may improve the result \
+of simplification.\"",2,102,20,17498789627688163568,"Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.7785147038057737`*^9},
+ CellLabel->
+  "During evaluation of \
+In[102]:=",ExpressionUUID->"1070ad89-c66d-4906-aa54-fd4ac95964d8"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Simplify\\\", \
+\\\"::\\\", \\\"time\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
+this calculation.\"",2,102,21,17498789627688163568,"Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.7785147039936247`*^9},
+ CellLabel->
+  "During evaluation of \
+In[102]:=",ExpressionUUID->"9dbf4032-8c2f-4bba-9001-aa2649499b6f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.778513238312398*^9, 
+  3.7785132395692987`*^9}},ExpressionUUID->"6e5f5a2d-f8d8-41cc-b7f7-\
+193907c772e2"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   InterpretationBox[
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{
+       FractionBox["1", 
+        RowBox[{"MW", " ", "SW"}]], 
+       RowBox[{"2", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["Alfas", "2"], " ", "c3", " ", "EL", " ", 
+          SuperscriptBox["MT", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             FractionBox["1", "T"], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    FractionBox["T", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+               
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "T"}]], 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                   SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}]}], "-", 
+               RowBox[{"16", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], "2"]}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}]}], "+", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                 ")"}]}], "+", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "T"}]], 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                   "-", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], ")"}],
+                     " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+            RowBox[{
+             FractionBox["1", 
+              RowBox[{
+               RowBox[{"2", " ", 
+                SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+               "U"}]], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], "\[Epsilon]"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+               
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], "2"]], 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                 ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "5", "]"}], ",", 
+                  RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                  "U"}]], 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}]}], "-", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                  "U"}]], 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                   SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}]}], "+", 
+               RowBox[{
+                FractionBox["1", "T24"], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"-", "8"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "+", "T", "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], "\[Epsilon]"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S"}], "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S34"}], "+", "T", "-", "T24", "+", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"5", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+               RowBox[{
+                FractionBox["1", "T14"], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "-", 
+                    RowBox[{"3", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], "\[Epsilon]"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "S34"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T24", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "T24", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], 
+            "+", 
+            RowBox[{
+             FractionBox["1", "S34"], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    FractionBox["S34", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+               
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                   "-", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                 " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+               RowBox[{
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                  "+", 
+                  RowBox[{
+                   FractionBox["1", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], "2"]], 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                 ")"}]}], "+", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                   SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}]}], "-", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", 
+                  "T14"}]], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    FractionBox["S34", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T24", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S", "-", "S34", "-", "T",
+                     "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"6", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"6", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], 
+            "+", 
+            RowBox[{
+             FractionBox["1", "U"], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "U"}]], 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                   SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}]}], "-", 
+               RowBox[{"16", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "U"}], "-", 
+                    FractionBox["U", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+               RowBox[{
+                FractionBox["1", "T14"], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T", "-", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "S34", "-", "T", "+", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "U"}], "-", 
+                    FractionBox["U", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S"}], "+", "S34", "-", "T", "+", "T24"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T", "-", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T", "-", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"8", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T14", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"8", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", 
+                  "T14"}]], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "U"}], "-", 
+                    FractionBox["U", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"6", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"6", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S", "-", "T", "+", "T14",
+                     "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], 
+            "+", 
+            RowBox[{
+             FractionBox["1", "T24"], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                RowBox[{
+                 FractionBox["1", "T"], 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "S34", "+", "T14", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    FractionBox["T", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}]}], ")"}]}], "-", 
+                   RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"8", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"8", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}]}], "-", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", 
+                  "T14"}]], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"-", "2"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "S34"}], " ", "T"}], "+", 
+                    RowBox[{"S34", " ", "T14"}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"T", " ", "U"}], "+", 
+                    RowBox[{"T14", " ", "U"}], "-", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["S34", "2"]}], "-", 
+                    RowBox[{"4", " ", "S34", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "S34", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}]}],
+                     "+", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["S34", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34", " ", "T"}], "-", 
+                    RowBox[{"S34", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S34"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", "U"}], "+", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S34"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}]}],
+                     "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    SuperscriptBox["T", "2"], "-", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}]}],
+                     "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"80", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"10", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"7", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"7", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", "T"}], "+", 
+                    RowBox[{"10", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "192"}], " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "-", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"], " ", "T14"}], "-", 
+                    RowBox[{"9", " ", "T", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", "T24"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"5", " ", "T", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"8", " ", "T14"}], "-", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"T", " ", "T24"}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    SuperscriptBox["T", "2"], "-", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}]}],
+                     "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "80"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "-", 
+                    RowBox[{"10", " ", "T", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"6", " ", "T"}], "+", 
+                    RowBox[{"6", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24"}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"3", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"10", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"8", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"8", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"T", " ", "T24"}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
+            RowBox[{
+             FractionBox["1", 
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}]], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                RowBox[{
+                 FractionBox["1", "S34"], 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T", "+", "T14"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                   RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    FractionBox["S34", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T", "+", "T14"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "-", 
+                   RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"6", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "+", 
+                    RowBox[{"6", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T", "-", "T14"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
+                   RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T", "-", "T14"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S", "-", "S34", "+", 
+                    "T24", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], "+", 
+               RowBox[{
+                FractionBox["1", "T"], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], ")"}],
+                     " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    FractionBox["T", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], ")"}],
+                     " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "+", "T14", "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], ")"}],
+                     " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"5", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"8", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"8", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "T", "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], "+", 
+               RowBox[{
+                FractionBox["1", "T14"], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "U", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                   "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "S", " ", "S34"}], "-", 
+                    SuperscriptBox["S34", "2"], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "S34", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "S34", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}]}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", "T14", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", "T24", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", "U", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                   "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                   "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "S", " ", "S34"}], "-", 
+                    RowBox[{"S34", " ", "T14"}], "+", 
+                    RowBox[{"T", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "10"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", "U"}], "+", 
+                    RowBox[{"10", " ", "T14", " ", "T24", " ", "U"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"], " ", "U"}], "+", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    SuperscriptBox["U", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24", " ", 
+                    SuperscriptBox["U", "2"]}], "+", 
+                    SuperscriptBox["U", "3"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "10"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}], "2"]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}], "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
+            ")"}]}], ")"}]}]}]}], "-", 
+     RowBox[{
+      FractionBox["1", 
+       RowBox[{"MW", " ", "SW"}]], 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["Alfas", "2"], " ", "c3", " ", "EL", " ", 
+         SuperscriptBox["MT", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{
+             FractionBox["1", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}], 
+                ")"}], " ", "T24"}]], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"8", " ", 
+                  SuperscriptBox["MT", "2"], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "T"}], "-", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T14"}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                   ")"}]}], ")"}], "/", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                  " ", 
+                  RowBox[{"Kallen\[Lambda]", "[", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], "-", 
+               RowBox[{"2", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "S34"}], " ", "T"}], "+", 
+                    RowBox[{"S34", " ", "T14"}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"T", " ", "U"}], "+", 
+                    RowBox[{"T14", " ", "U"}], "-", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], "2"], " ", "T24"}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"6", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "28"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "28"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["S34", "2"]}], "-", 
+                    RowBox[{"4", " ", "S34", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "S34", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MT", "2"]}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"8", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"3", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", "T"}], "+", 
+                    RowBox[{"10", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    "T24"}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"112", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"10", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}]}], "-", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"22", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T14"}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"7", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"17", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"34", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "-", "T24"}], ")"}]}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24"}], ")"}], " ", 
+                    "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "3"], "-", 
+                    RowBox[{"3", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"3", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "3"], " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "4"], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T24", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "40"}], " ", 
+                    SuperscriptBox["MH", "4"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "3"], "-", 
+                    RowBox[{"3", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}]}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}]}], ")"}]}], "-", 
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"176", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "-", 
+                    RowBox[{"23", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"30", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"30", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "1408"}], " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T", "3"]}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"61", " ", "T"}], "+", 
+                    RowBox[{"61", " ", "T14"}], "-", 
+                    RowBox[{"30", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"19", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "51"}], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"28", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"56", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"28", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"19", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"19", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "51"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"16", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"144", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"6", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"54", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"55", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "5"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "8"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"176", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "-", 
+                    RowBox[{"32", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"48", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"48", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"400", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"35", " ", "T"}], "+", 
+                    RowBox[{"35", " ", "T14"}], "-", 
+                    RowBox[{"38", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"65", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"65", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"65", " ", "T14"}], "-", 
+                    RowBox[{"58", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"116", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"10", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", "T"}], "+", 
+                    RowBox[{"16", " ", "T14"}], "-", 
+                    RowBox[{"11", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"16", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"9", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"9", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4608", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"1536", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"54", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"109", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"109", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"58", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"147", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"130", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"93", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"18", " ", "T14"}], "+", 
+                    RowBox[{"49", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"147", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"65", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"174", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "-", 
+                    RowBox[{"172", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"254", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    RowBox[{"21", " ", 
+                    SuperscriptBox["T24", "4"]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", "T14"}], "+", 
+                    RowBox[{"29", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"261", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"86", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"522", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"344", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"254", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "19"}], " ", 
+                    SuperscriptBox["T", "4"]}], "-", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"34", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "76"}], " ", "T14"}], "+", 
+                    RowBox[{"14", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "114"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"42", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"34", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "76"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"42", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"68", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "5"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"50", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"32", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"64", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"82", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"82", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "-", 
+                    RowBox[{"11", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"4", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"9", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"9", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "512"}], " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T", "4"]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"13", " ", "T"}], "+", 
+                    RowBox[{"13", " ", "T14"}], "-", 
+                    RowBox[{"69", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"22", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "28"}], " ", "T14"}], "+", 
+                    RowBox[{"26", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"54", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"164", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"164", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"49", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "42"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"78", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"22", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "28"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"78", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"44", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"23", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"23", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"69", " ", "T14"}], "-", 
+                    RowBox[{"121", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"121", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"71", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"21", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"69", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"242", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"71", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "-", "T24"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "-", 
+                    RowBox[{"21", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"29", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"23", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"23", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"13", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"52", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"52", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"46", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "5"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "8"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"176", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "-", 
+                    RowBox[{"24", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"32", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"32", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"320", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", "T"}], "+", 
+                    RowBox[{"20", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"20", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"17", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"17", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"464", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"41", " ", "T"}], "+", 
+                    RowBox[{"41", " ", "T14"}], "-", 
+                    RowBox[{"18", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"14", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"T", " ", "T24"}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4608", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "+", 
+                    RowBox[{"25", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"54", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"181", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"181", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"243", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"50", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"41", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"54", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"486", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"50", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"286", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"140", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"78", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "4"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", "T14"}], "+", 
+                    RowBox[{"286", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"429", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"70", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"858", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"280", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"78", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"31", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"31", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"30", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"62", " ", "T14"}], "+", 
+                    RowBox[{"15", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"93", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"45", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"62", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"176", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "-", 
+                    RowBox[{"25", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"34", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"34", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"144", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "-", 
+                    RowBox[{"6", " ", "T24"}]}], ")"}], " ", "T24"}], "+", 
+                    RowBox[{"72", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"38", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"38", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"55", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"672", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"29", " ", "T"}], "+", 
+                    RowBox[{"29", " ", "T14"}], "-", 
+                    RowBox[{"20", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", "T14"}], "-", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"53", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"106", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"53", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"54", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"54", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"35", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"7", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    SuperscriptBox["T24", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"14", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"14", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"58", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"40", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"17", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"98", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"98", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"80", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "1536"}], " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "4"]}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"29", " ", "T"}], "+", 
+                    RowBox[{"29", " ", "T14"}], "-", 
+                    RowBox[{"115", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"50", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"56", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"26", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "44"}], " ", "T14"}], "+", 
+                    RowBox[{"50", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"51", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"102", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"51", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"280", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"280", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"95", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "66"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"150", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"56", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "44"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"150", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"112", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"117", " ", "T14"}], "-", 
+                    RowBox[{"215", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"215", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"151", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"37", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"117", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"430", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"151", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", "T"}], "+", 
+                    RowBox[{"6", " ", "T14"}], "-", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"37", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "-", 
+                    RowBox[{"8", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"106", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", "T14"}], "+", 
+                    RowBox[{"13", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"13", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"53", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "64"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "2"]}], "-", 
+                    RowBox[{"8", " ", "T", " ", "T14"}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"3", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"8", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "-", 
+                    RowBox[{"6", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}]}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"37", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"31", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"31", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"19", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"62", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"68", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"68", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"320", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"23", " ", "T"}], "+", 
+                    RowBox[{"23", " ", "T14"}], "-", 
+                    RowBox[{"37", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T14"}], "-", 
+                    RowBox[{"6", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "-", 
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"3", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"78", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"98", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"98", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"9", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"20", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"29", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"29", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"87", " ", "T14"}], "-", 
+                    RowBox[{"85", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"85", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"85", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"87", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"170", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"85", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["S34", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34", " ", "T"}], "-", 
+                    RowBox[{"S34", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S34"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", "U"}], "+", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S34"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}]], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["T", "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "14"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "14"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    "T24"}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"464", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"38", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", "T"}], "+", 
+                    RowBox[{"24", " ", "T14"}], "-", "T24"}], ")"}]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], "2"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", "T"}], "+", 
+                    RowBox[{"7", " ", "T14"}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"832", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], "3"], " ", "T24"}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "+", 
+                    RowBox[{"10", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"14", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"26", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"26", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"54", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"52", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"52", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", 
+                    RowBox[{"17", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"14", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"119", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"119", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"89", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"89", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"178", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3584", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"13", " ", "T"}], "+", 
+                    RowBox[{"13", " ", "T14"}], "+", 
+                    RowBox[{"40", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"60", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"60", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"129", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"51", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T14"}], "+", 
+                    RowBox[{"43", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"3", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"86", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"116", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"54", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"28", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"29", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"58", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"87", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"27", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"6", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "4"], "+", 
+                    SuperscriptBox["T14", "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", "T14", " ", "T24", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T24", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "32"}], " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}], 
+                    "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"3", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"8", " ", "T14"}], "-", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"T", " ", "T24"}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}]}], ")"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
+           RowBox[{
+            FractionBox["1", 
+             RowBox[{"T14", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}], 
+               ")"}]}]], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"-", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"8", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                 "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}], " ", 
+                   RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], ")"}]}], "+", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{"8", " ", 
+                 SuperscriptBox["MT", "2"], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "S", " ", "S34"}], "-", 
+                    SuperscriptBox["S34", "2"], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "S34", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "S34", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   FractionBox[
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", "T24", "+", 
+                    "U"}], 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], "-", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24", "-", "U"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"28", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", "T14"}], "+", "T24", "+", "U"}],
+                     ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "256"}], " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"72", " ", "T14"}], "-", 
+                    RowBox[{"11", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"52", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"12", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"160", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", "T14"}], "-", 
+                    RowBox[{"6", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"115", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"36", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"15", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"20", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"49", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"129", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"24", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "11"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"232", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"366", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"56", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3072", " ", 
+                    SuperscriptBox["MT", "12"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T14"}], "+", 
+                    RowBox[{"14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"61", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"134", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"35", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"25", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"236", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"282", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"56", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "5"]}], "-", 
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"134", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"120", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"23", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}]}], ")"}]}], ")"}], "/", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"16", " ", 
+                  SuperscriptBox["MT", "4"]}], "-", 
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                 RowBox[{"8", " ", 
+                  SuperscriptBox["MT", "2"], " ", 
+                  RowBox[{"(", 
+                   RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                 SuperscriptBox[
+                  RowBox[{"(", 
+                   RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                ")"}]}], "-", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{"16", " ", 
+                 SuperscriptBox["MT", "2"], " ", "T14", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24", "+", "U"}], ")"}], 
+                    "2"]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "10"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"464", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"832", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"26", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"52", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"17", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"119", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"3", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"89", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3584", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"40", " ", "T14"}], "+", 
+                    RowBox[{"13", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"60", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"51", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"129", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "4"], "+", 
+                    RowBox[{"28", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"54", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"116", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"T14", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}]}], ")"}]}], ")"}], "/", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"16", " ", 
+                  SuperscriptBox["MT", "4"]}], "-", 
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                 RowBox[{"8", " ", 
+                  SuperscriptBox["MT", "2"], " ", 
+                  RowBox[{"(", 
+                   RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                 SuperscriptBox[
+                  RowBox[{"(", 
+                   RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                ")"}]}], "-", 
+              RowBox[{"2", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}], ")"}]}], ")"}]}], "-", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "S", " ", "S34"}], "-", 
+                    RowBox[{"S34", " ", "T14"}], "+", 
+                    RowBox[{"T", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}], "2"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                  "/", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}]}], ")"}]}], "+", 
+              RowBox[{"4", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"1024", " ", 
+                    SuperscriptBox["MT", "12"]}], "-", 
+                    RowBox[{"1280", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", "T14"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"55", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"91", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"130", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"13", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"33", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"104", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"37", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"88", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"127", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"89", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "12"}], " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "5"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", "T14"}], "+", 
+                    RowBox[{"10", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "60"}], " ", "T14"}], "+", 
+                    RowBox[{"48", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"608", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    SuperscriptBox["T14", "3"], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "64"}], " ", "T14"}], "+", 
+                    RowBox[{"400", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"25", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "12"], " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"52", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"13", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "5"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"14", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "10"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"97", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2320"}], " ", "T14"}], "+", 
+                    RowBox[{"48", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"242", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "10"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"46", " ", "T14"}], "-", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"114", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"90", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"23", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    SuperscriptBox["T14", "4"], "+", 
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"203", " ", "T14"}], "-", "T24", "-", "U"}], 
+                    ")"}]}], "-", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"30", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"136", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"157", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"1446", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"33", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"205", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"1109", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"1024", " ", 
+                    SuperscriptBox["MT", "12"]}], "-", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"51", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"609", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"87", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"381", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"1892", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"102", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"86", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "4"], "-", 
+                    RowBox[{"1566", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"4258", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"78", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "19"}], " ", 
+                    SuperscriptBox["T14", "5"]}], "+", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"996", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2036", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"15", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "12288"}], " ", 
+                    SuperscriptBox["MT", "14"]}], "+", 
+                    RowBox[{"1024", " ", 
+                    SuperscriptBox["MT", "12"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"80", " ", "T14"}], "-", 
+                    RowBox[{"17", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"621", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"361", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"40", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"325", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"1187", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"320", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"25", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"157", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"1832", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3484", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"550", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"35", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"46", " ", 
+                    SuperscriptBox["T14", "5"]}], "+", 
+                    RowBox[{"263", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"1810", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2418", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"220", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "6"], "+", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox["T14", "5"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"122", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"724", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"775", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    RowBox[{"25", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "6"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"14", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24", "-", "U"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}]}], ")"}]}], ")"}], "/", 
+                  SuperscriptBox[
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}], "2"]}], "+", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"], " ", "U"}], "+", 
+                    RowBox[{"18", " ", "T14", " ", "T24", " ", "U"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"], " ", "U"}], "+", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    SuperscriptBox["U", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24", " ", 
+                    SuperscriptBox["U", "2"]}], "+", 
+                    SuperscriptBox["U", "3"], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "14"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"18", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4096", " ", 
+                    SuperscriptBox["MT", "14"]}], "+", 
+                    RowBox[{"2048", " ", 
+                    SuperscriptBox["MT", "12"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"25", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "-", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"34", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"83", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "5"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"56", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"21", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"21", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"13", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"15", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"84", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"99", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"12", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"26", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "4"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"104", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", 
+                    RowBox[{"10", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"86", " ", "T14"}], "+", 
+                    RowBox[{"26", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"1040", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"28", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"39", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"19", " ", "T14"}], "+", 
+                    RowBox[{"52", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MH", "12"], " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"144", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"130", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "744"}], " ", "T14"}], "+", 
+                    RowBox[{"72", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"190", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"400", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"62", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"], "+", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"43", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"404", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"117", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"159", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"580", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"105", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"640", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", "T14"}], "+", 
+                    RowBox[{"17", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"87", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"51", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9728", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"148", " ", "T14"}], "+", 
+                    RowBox[{"41", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"273", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"172", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"23", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"326", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"905", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"333", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"28", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "51"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"246", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"280", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"78", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "221"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"1664", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"2542", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"752", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3072", " ", 
+                    SuperscriptBox["MT", "12"]}], "+", 
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"43", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "17"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"155", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"208", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"209", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "83"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"782", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"108", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"254", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "5"]}], "-", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"217", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"44", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"32", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4096", " ", 
+                    SuperscriptBox["MT", "14"]}], "+", 
+                    RowBox[{"2048", " ", 
+                    SuperscriptBox["MT", "12"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"49", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"1280", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"95", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"96", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"401", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"497", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"238", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2297", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"4760", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3282", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"968", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "51"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"138", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"80", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"42", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"431", " ", 
+                    SuperscriptBox["T14", "5"]}], "+", 
+                    RowBox[{"2349", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"2514", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"1334", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"261", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "35"}], " ", 
+                    SuperscriptBox["T14", "6"]}], "-", 
+                    RowBox[{"920", " ", 
+                    SuperscriptBox["T14", "5"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"2953", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2192", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"1067", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    RowBox[{"136", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "6"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "-", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}]}], ")"}]}], ")"}], "/", 
+                  SuperscriptBox[
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}], "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], 
+       " ", 
+       SuperscriptBox["\[Beta]", "2"]}]}], "+", 
+     InterpretationBox[
+      SuperscriptBox[
+       RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+      SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+      Editable->False]}],
+    SeriesData[$CellContext`\[Beta], 
+     0, {(-2) $CellContext`Alfas^2 $CellContext`c3 $CellContext`EL \
+$CellContext`MT^2 $CellContext`MW^(-1) $CellContext`SW^(-1) \
+($CellContext`T^(-1) ((
+           4 (2 + X`Eps^(-1) + 
+             X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + 
+             Log[$CellContext`MT^(-2) X`Mu^2]) - 
+           4 ($CellContext`MH^2 - $CellContext`T)^(-1) (3 $CellContext`MH^2 + 
+            X`Eps^(-1) $CellContext`MH^2 - 3 $CellContext`T - 
+            X`Eps^(-1) $CellContext`T + $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`T 
+            X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                   Rational[1, 2])]^2 + $CellContext`MH^2 
+             Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`T 
+            Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+            Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2)) ($CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[4]] + $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] - 2 $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`e[2]] $CellContext`Pair[
+             $CellContext`ec[4], 
+             $CellContext`ec[
+             5]]) + ($CellContext`MH^2 - $CellContext`T)^(-1) (
+           Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+               2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                  4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+           Log[Rational[1, 2] $CellContext`MT^(-2) (
+              2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2) (
+           2 ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] + 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[1]]) $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] - $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[
+             5]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] + 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]]) - $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[
+             4]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] + 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]])) - 16 $CellContext`Pair[
+           $CellContext`e[1], 
+           $CellContext`k[3]] (
+          Rational[
+            1, 2] ($CellContext`MH^2 - $CellContext`T)^(-2) \
+(-$CellContext`MH^2 + $CellContext`T - $CellContext`MH^2 
+            X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+             X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+            Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                   4 $CellContext`MT^2)^
+                  Rational[1, 2])]^2 + $CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (
+                 2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^
+                  Rational[1, 2])]^2) ((-2) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[1]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] + $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] + $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]]) + 
+          Rational[
+            1, 2] ($CellContext`MH^2 - $CellContext`T)^(-1) (-
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+            X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) ((-2) \
+$CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] + $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]] + $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[3]])) + 
+         4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+           X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+           X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) (
+           2 ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] + 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]])) $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] - $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[
+             5]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] + 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] ($CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]])) - $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[
+             4]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] + 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] ($CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]])))) + (
+          2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U)^(-1) ((
+           4 (2 + X`Eps^(-1) + 
+             X`DiscB[2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+             Log[$CellContext`MT^(-2) X`Mu^2]) + 
+           4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+             3 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) + 
+             X`Eps^(-1) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) - $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + (
+               
+               2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) 
+              X`DiscB[2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] - $CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                   Rational[
+                    1, 2])]^2 + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) 
+              Log[$CellContext`MT^(-2) X`Mu^2] + $CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2)) ($CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[4]] + $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] - 2 $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`e[2]] $CellContext`Pair[
+             $CellContext`ec[4], 
+             $CellContext`ec[5]]) + (
+           8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+             X`DiscB[2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) - 
+           8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-2) (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MH^2 
+            X`DiscB[2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + $CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                   Rational[1, 2])]^2 - $CellContext`MT^2 
+            Log[Rational[1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                   4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) ($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] - 2 $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`e[2]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[5]])) $CellContext`Pair[
+            $CellContext`ec[5], 
+            $CellContext`k[3]] - 
+         4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+           X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+          X`DiscB[2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) ($CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[
+             4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] - 2 ($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] - $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[5]]) $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[3]]) + $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`ec[
+             4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] - 2 ($CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] - $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[5]]) $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[3]]) - 2 $CellContext`Pair[
+            $CellContext`e[1], 
+            $CellContext`e[
+            2]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] - 2 ($CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[3]] - $CellContext`Pair[
+             $CellContext`ec[4], 
+             $CellContext`k[5]]) $CellContext`Pair[
+             $CellContext`ec[5], 
+             $CellContext`k[
+             3]])) - (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+           Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+               2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                  4 $CellContext`MT^2)^Rational[1, 2])]^2 + 
+          Log[Rational[1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+              2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                 4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) ($CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[
+             4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] + 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[3]]) + $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`ec[
+             4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] + 2 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[3]]) - 2 $CellContext`Pair[
+            $CellContext`e[1], 
+            $CellContext`e[
+            2]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] + 2 $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[5]] $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[3]])) + $CellContext`T24^(-1) ((-8) (
+             Rational[-1, 
+                
+                2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+               X`DiscB[
+               2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (-(($CellContext`MH^2 - 
+                   3 $CellContext`S34 + $CellContext`T + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] + 
+                 2 ($CellContext`S - $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T - 3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 
+               2 ($CellContext`MH^2 - $CellContext`S34 + $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] + 
+               2 ($CellContext`MH^2 - $CellContext`S34 + $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]] + 
+             Rational[-1, 
+                2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-2) (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MH^2 
+               X`DiscB[
+                2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 - $CellContext`MT^2 
+               Log[Rational[
+                   1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) (-(($CellContext`MH^2 - 
+                   3 $CellContext`S34 + $CellContext`T - 
+                   2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] + 
+                 2 ($CellContext`S - $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T - 2 $CellContext`T24 - 3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 
+               2 ($CellContext`MH^2 - $CellContext`S34 + $CellContext`T - 
+                 2 $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] + 
+               2 ($CellContext`MH^2 - $CellContext`S34 + $CellContext`T - 
+                 2 $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]]) + (
+             4 (2 + X`Eps^(-1) + 
+               X`DiscB[
+                2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+               Log[$CellContext`MT^(-2) X`Mu^2]) + 
+             4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+               3 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) + 
+               X`Eps^(-1) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) - $CellContext`MH^2 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+(2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - $CellContext`U) 
+                X`DiscB[
+                 2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] - $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[
+                    1, 2])]^2 + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) 
+                Log[$CellContext`MT^(-2) X`Mu^2] + $CellContext`MT^2 
+                Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2)) ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] ((-$CellContext`S + $CellContext`T14) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 4 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]])) - 2 (2 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] (2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] (2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]])) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] (2 $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]])) + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) + (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U)^(-1) (-
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 + 
+             Log[Rational[1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[
+                   1, 2])]^2) ((-4) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 
+             4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]]) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] (-($CellContext`S - $CellContext`T14) (-$CellContext`MH^2 + \
+$CellContext`S + $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 
+               4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]])) + 8 (-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]] + 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[
+                4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  1]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) + 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[
+                2]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  1]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) - 2 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[
+               4]] (($CellContext`S - $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] (
+                2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   2]] + ($CellContext`S34 + $CellContext`T - \
+$CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 
+                 2]] ((-$CellContext`S34 + $CellContext`T - $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 
+                2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]]))) + 
+           4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+             X`DiscB[2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] (-($CellContext`S - $CellContext`T14) (-$CellContext`MH^2 + \
+$CellContext`S + $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 
+               4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]])) + 
+             2 ((-2) ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] - 
+               
+               2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] (
+                 2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + (3 $CellContext`MH^2 - 
+                   3 $CellContext`S34 + $CellContext`T - 2 $CellContext`T24 - 
+                   3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] (
+                 2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + (3 $CellContext`MH^2 - 
+                   3 $CellContext`S34 + $CellContext`T - 2 $CellContext`T24 - 
+                   3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] (
+              4 ($CellContext`S - $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] (
+                4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + ($CellContext`MH^2 + 
+                  3 $CellContext`S34 + 3 $CellContext`T - 2 $CellContext`T24 - 
+                  5 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 2]] (($CellContext`MH^2 - 5 $CellContext`S34 + 
+                  3 $CellContext`T - 2 $CellContext`T24 + 
+                  3 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 
+                4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])))) + $CellContext`T14^(-1) (
+           8 (Rational[-1, 
+                2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+               X`DiscB[
+               2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) ((-2) ($CellContext`MH^2 - \
+$CellContext`S34 - $CellContext`T + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  4]] (($CellContext`MH^2 - 
+                   3 $CellContext`S34 + $CellContext`T + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 
+                 2 ($CellContext`S - $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 + $CellContext`S34 - 
+                   3 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) - 
+               2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]] + 
+             Rational[-1, 
+                2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-2) (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MH^2 
+               X`DiscB[
+                2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 - $CellContext`MT^2 
+               Log[Rational[
+                   1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[
+                    1, 2])]^2) ((-2) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - 2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 4]] (((-3) $CellContext`MH^2 + $CellContext`S + 
+                  4 $CellContext`S34 + 
+                  3 $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] - 
+                2 ($CellContext`S - $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[
+                  3]] + ((-3) $CellContext`MH^2 + $CellContext`S + 
+                  4 $CellContext`T + 
+                  3 $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]]) - 
+               2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+                2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]]) + (
+             4 (2 + X`Eps^(-1) + 
+               X`DiscB[
+                2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+               Log[$CellContext`MT^(-2) X`Mu^2]) + 
+             4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+               3 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) + 
+               X`Eps^(-1) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) - $CellContext`MH^2 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+(2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - $CellContext`U) 
+                X`DiscB[
+                 2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] - $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[
+                    1, 2])]^2 + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) 
+                Log[$CellContext`MT^(-2) X`Mu^2] + $CellContext`MT^2 
+                Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2)) ((-2) ((-2) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] (2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] (2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] (2 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] (2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((-$CellContext`S + $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + 
+           4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+             X`DiscB[2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (
+             2 ((-2) ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + 
+               2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 8 (-$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] (
+                 2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + (3 $CellContext`MH^2 - 
+                   3 $CellContext`S34 - 3 $CellContext`T - 
+                   2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  4]] ((-2) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] (
+                   2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + (3 $CellContext`MH^2 - 
+                    3 $CellContext`S34 - 3 $CellContext`T - 
+                    2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] (-($CellContext`S - $CellContext`T24) (-$CellContext`MH^2 + \
+$CellContext`S + $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] + 
+               4 (-$CellContext`S + $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] (
+                 4 ($CellContext`MH^2 - $CellContext`S - $CellContext`T14 - \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + ((-7) $CellContext`MH^2 + 
+                   3 $CellContext`S + 8 $CellContext`T + 5 $CellContext`T14 + 
+                   3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[
+                  1]] (((-7) $CellContext`MH^2 + 3 $CellContext`S + 
+                   8 $CellContext`S34 + 5 $CellContext`T14 + 
+                   3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                 4 (-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) + (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U)^(-1) (-
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 + 
+             Log[Rational[1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) (
+             4 (-($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[
+                  1]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 2 (-$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[
+                  1]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`MH^2 + $CellContext`S + \
+$CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  4]] (-($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    4]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`MH^2 + $CellContext`S + \
+$CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] (-($CellContext`S - $CellContext`T24) (-$CellContext`MH^2 + \
+$CellContext`S + $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 
+               2 (($CellContext`S - $CellContext`T24) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] (
+                  2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ((-2) $CellContext`MH^2 + $CellContext`S + 
+                    2 $CellContext`S34 + $CellContext`T24 + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   1]] (((-2) $CellContext`MH^2 + $CellContext`S + 
+                    2 $CellContext`T + $CellContext`T24 + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))))) + $CellContext`S34^(-1) ((
+           4 (2 + X`Eps^(-1) + 
+             X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + 
+             Log[$CellContext`MT^(-2) X`Mu^2]) - 
+           4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (3 $CellContext`MH^2 + 
+            X`Eps^(-1) $CellContext`MH^2 - 3 $CellContext`S34 - 
+            X`Eps^(-1) $CellContext`S34 + $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`S34 
+            X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                   Rational[1, 2])]^2 + $CellContext`MH^2 
+             Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`S34 
+            Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+            Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                 Rational[1, 2])]^2)) ($CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[4]] + $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] - 2 $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`e[2]] $CellContext`Pair[
+             $CellContext`ec[4], 
+             $CellContext`ec[5]]) - 
+         4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+          X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+          X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+($CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[
+             5]] ((-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] + 2 ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]]) $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) + $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`ec[
+             5]] ((-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] + 2 ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] - $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[4]]) $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) - 2 $CellContext`Pair[
+            $CellContext`e[1], 
+            $CellContext`e[
+            2]] ((-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] + 2 $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[3]] ($CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[3]] - $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[4]]))) + $CellContext`Pair[
+            $CellContext`ec[4], 
+            $CellContext`k[
+            3]] ((-8) ($CellContext`MH^2 - $CellContext`S34)^(-1) (-
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+             X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[3]]) + 
+           8 ($CellContext`MH^2 - $CellContext`S34)^(-2) (-$CellContext`MH^2 + \
+$CellContext`S34 - $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+              X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                   Rational[1, 2])]^2 + $CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                   Rational[1, 2])]^2) ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[
+               4]])) + ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+           Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+               2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                  4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+           Log[Rational[1, 2] $CellContext`MT^(-2) (
+              2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+               Rational[1, 2])]^2) ($CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[
+              5]] (($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] + 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) + $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[
+              5]] (($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] + 2 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) - 2 $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`e[
+             2]] (($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] + 2 $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[
+               4]])) - ($CellContext`MH^2 - $CellContext`S - $CellContext`T - \
+$CellContext`T14)^(-1) ((
+            4 (2 + X`Eps^(-1) + 
+              X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + 
+              Log[$CellContext`MT^(-2) X`Mu^2]) - 
+            4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+             3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+             3 $CellContext`S34 - 
+             X`Eps^(-1) $CellContext`S34 + $CellContext`MH^2 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`S34 
+             X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+              Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`S34 
+             Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (
+                 2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^Rational[1, 2])]^2)) (
+            4 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]]) $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] + 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] (2 $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] ((-$CellContext`MH^2 + 
+                2 $CellContext`S + $CellContext`T24 + $CellContext`U) \
+$CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] ((-4) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) - $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[1]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]] + 4 $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]])) + 4 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] + 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] (2 $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] - 4 $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[4]] ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]])) - 
+          8 (Rational[
+             1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-2) \
+(-$CellContext`MH^2 + $CellContext`S34 - $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+              X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                   Rational[1, 2])]^2 + $CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                   Rational[1, 2])]^2) $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[3]] (
+             2 (-$CellContext`MH^2 + $CellContext`S34 + 
+               2 $CellContext`T24) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] (((-2) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                4 $CellContext`T24) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[1]] + (-$CellContext`MH^2 + $CellContext`S34 + 
+                4 $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] + ($CellContext`MH^2 + 
+                2 $CellContext`S - $CellContext`S34 - 2 $CellContext`T + 
+                2 $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]]) + 
+             2 (-$CellContext`MH^2 + $CellContext`S34 + 
+               2 $CellContext`T24) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]]))) + 
+           Rational[
+             1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-1) (-
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+             X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[3]] (
+             2 ($CellContext`MH^2 - $CellContext`S34 - 
+               2 $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] (((-2) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                 4 $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] - ($CellContext`MH^2 - 
+                2 $CellContext`S + $CellContext`S34 - 2 $CellContext`T + 
+                2 $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 3]] + ((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                 4 $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) + 
+             2 ($CellContext`MH^2 - $CellContext`S34 - 
+               2 $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   4]])))) - ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+           Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+               2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                  4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+           Log[Rational[1, 2] $CellContext`MT^(-2) (
+              2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+               Rational[1, 2])]^2) ($CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[
+              5]] (($CellContext`MH^2 - $CellContext`S34) ($CellContext`MH^2 - 
+               2 $CellContext`S - $CellContext`T24 - $CellContext`U) \
+$CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] - 2 ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 3]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + 2 $CellContext`T14 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 4]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   1]] + ($CellContext`MH^2 + $CellContext`S - \
+$CellContext`S34 - $CellContext`T + $CellContext`T14) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) + 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 1]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]))) + 4 ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[
+                5]] (-($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[
+                  5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    3]])) - ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[
+                2]] ((-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[
+                1]] + ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]]) + 2 $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]] (-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])))) - 
+          4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+           X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+           X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+(-$CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[
+              5]] (-($CellContext`MH^2 - $CellContext`S34) ($CellContext`MH^2 - 
+               2 $CellContext`S - $CellContext`T24 - $CellContext`U) \
+$CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[
+                4]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + (5 $CellContext`MH^2 + 
+                 2 $CellContext`S - 3 $CellContext`S34 - 6 $CellContext`T + 
+                 2 $CellContext`T14) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[
+                3]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + ($CellContext`MH^2 - 
+                 2 $CellContext`S + $CellContext`S34 - 2 $CellContext`T + 
+                 6 $CellContext`T14) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + 2 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[
+                1]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + ($CellContext`MH^2 - $CellContext`S34 + 
+                 2 $CellContext`T24 - 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]])) + 2 ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[
+                5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[
+                  5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`MH^2 - $CellContext`S34 + 
+                   2 $CellContext`T24 - 2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+             2 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[
+                2]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + ($CellContext`MH^2 - $CellContext`S34 + 
+                 2 $CellContext`T24 - 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 
+             2 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]]) + 8 $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]] (-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   4]])))))) + $CellContext`U^(-1) (($CellContext`MH^2 - \
+$CellContext`U)^(-1) (
+           Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+               2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                  4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+           Log[Rational[1, 2] $CellContext`MT^(-2) (
+              2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U ((-4) \
+$CellContext`MT^2 + $CellContext`U))^Rational[1, 2])]^2) (
+           2 ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] + 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]]) $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] - $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`ec[
+             5]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] + 2 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[2]]) - $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`ec[
+             4]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] + 2 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]])) - 
+         16 (Rational[1, 4] ($CellContext`MH^2 - $CellContext`U)^(-1) (
+            3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+            3 $CellContext`U - 
+            X`Eps^(-1) $CellContext`U + $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`U 
+            X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                   Rational[1, 2])]^2 + $CellContext`MH^2 
+             Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`U 
+            Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+            Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U ((-4) \
+$CellContext`MT^2 + $CellContext`U))^Rational[1, 2])]^2) ($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] - 2 $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`e[2]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]]) + $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`k[3]] (
+            Rational[
+              1, 2] ($CellContext`MH^2 - $CellContext`U)^(-2) \
+(-$CellContext`MH^2 + $CellContext`U - $CellContext`MH^2 
+              
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) ((-2) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]]) + 
+            Rational[
+              1, 2] ($CellContext`MH^2 - $CellContext`U)^(-1) (-
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+((-2) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]))) + 
+         4 ((2 + X`Eps^(-1) + 
+             X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+             Log[$CellContext`MT^(-2) X`Mu^2]) ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[
+               5]]) + ($CellContext`MH^2 - $CellContext`U)^(-1) (
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+             X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) (
+             2 ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] + 2 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] + 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]])) - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] + 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  3]])))) + $CellContext`T14^(-1) (-($CellContext`MH^2 - \
+$CellContext`U)^(-1) (
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U ((-4) \
+$CellContext`MT^2 + $CellContext`U))^Rational[1, 2])]^2) ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] (($CellContext`S - $CellContext`S34 + $CellContext`T - \
+$CellContext`T24) ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] + 
+               2 (2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                 2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] (
+                   2 ($CellContext`S + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ($CellContext`S + $CellContext`S34 - $CellContext`T + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) - 4 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((-$CellContext`MH^2 + $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   1]] + ($CellContext`S + $CellContext`T24) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[
+                 1]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 4]] (((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ($CellContext`S + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[
+                   5]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) - 2 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  4]])) + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]]))) + (
+             4 (2 + X`Eps^(-1) + 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+               Log[$CellContext`MT^(-2) X`Mu^2]) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-1) (3 $CellContext`MH^2 + 
+              X`Eps^(-1) $CellContext`MH^2 - 3 $CellContext`U - 
+              X`Eps^(-1) $CellContext`U + $CellContext`MH^2 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`U 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`U 
+              Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                   Rational[1, 2])]^2)) ((-2) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] + 2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] + 4 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] ((-2) ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 4 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]])) + 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] ($CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((-$CellContext`S + $CellContext`S34 - $CellContext`T + \
+$CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + 4 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]] - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]]))) - 
+           8 (Rational[
+              1, 2] ($CellContext`MH^2 - $CellContext`U)^(-2) \
+(-$CellContext`MH^2 + $CellContext`U - $CellContext`MH^2 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[
+               3]] ((-2) (-$CellContext`MH^2 + 2 $CellContext`S + 
+                2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] - 
+              2 (-$CellContext`MH^2 + 2 $CellContext`S + 
+               2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] + 8 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 4]] ((-$CellContext`MH^2 + 2 $CellContext`S + 
+                  2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + 
+                2 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] - 2 $CellContext`S $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + 2 $CellContext`T24 $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] - $CellContext`MH^2 $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]] + 2 $CellContext`S $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]] + 2 $CellContext`T24 $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]] + $CellContext`U $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) + 
+            Rational[
+              1, 2] ($CellContext`MH^2 - $CellContext`U)^(-1) (-
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] (
+              2 ((-3) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 
+              2 ((-3) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + 8 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] (((-3) $CellContext`MH^2 + 
+                 4 $CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + 
+               2 ($CellContext`S - $CellContext`S34 + $CellContext`T - \
+$CellContext`T24) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + ((-3) $CellContext`MH^2 + 
+                 4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]]))) - 
+           4 ($CellContext`MH^2 - $CellContext`U)^(-1) (
+            X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+            X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) (
+            2 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] (((-5) $CellContext`MH^2 + 4 $CellContext`S34 + 
+                  4 $CellContext`T + 
+                  2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] + 
+                2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - 
+              2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 4]] ((((-5) $CellContext`MH^2 + 4 $CellContext`S34 + 
+                    4 $CellContext`T + 
+                    2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                  2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] - 
+                2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]])) + 8 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) - 
+              2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] ($CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]])) + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] (($CellContext`S - $CellContext`S34 + $CellContext`T - \
+$CellContext`T24) ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 3]] ((7 $CellContext`MH^2 - 8 $CellContext`S34 - 
+                  2 $CellContext`T14 - 3 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + 
+                4 ((-2) $CellContext`MH^2 + 
+                  2 $CellContext`S34 + $CellContext`T14 + 
+                  2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + (7 $CellContext`MH^2 - 
+                  8 $CellContext`T - 2 $CellContext`T14 - 
+                  3 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]]) + 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  4]])))) + ($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T - $CellContext`T14)^(-1) ((
+             4 (2 + X`Eps^(-1) + 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+               Log[$CellContext`MT^(-2) X`Mu^2]) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-1) (3 $CellContext`MH^2 + 
+              X`Eps^(-1) $CellContext`MH^2 - 3 $CellContext`U - 
+              X`Eps^(-1) $CellContext`U + $CellContext`MH^2 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`U 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`U 
+              Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                   Rational[1, 2])]^2)) ((-2) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] + 2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] + 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[5]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] ((-$CellContext`MH^2 + $CellContext`S34 + 
+                 2 $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] - 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + 4 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]] - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]])) - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] + 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] + 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 4 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]])) - 
+           8 (Rational[
+              1, 2] ($CellContext`MH^2 - $CellContext`U)^(-1) (-
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] (
+              2 ($CellContext`MH^2 - 
+                2 $CellContext`S34 - $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] (((-2) $CellContext`MH^2 + 4 $CellContext`S34 + 
+                  2 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + (3 $CellContext`MH^2 - 
+                  4 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] - ($CellContext`MH^2 + 2 $CellContext`S - 
+                 2 $CellContext`T - 
+                 2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + 
+              2 ($CellContext`MH^2 - 
+                2 $CellContext`S34 - $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + 8 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + 
+            Rational[
+              1, 2] ($CellContext`MH^2 - $CellContext`U)^(-2) \
+(-$CellContext`MH^2 + $CellContext`U - $CellContext`MH^2 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] (
+              2 (-$CellContext`MH^2 + 
+                2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] (((-2) $CellContext`MH^2 + 4 $CellContext`T24 + 
+                 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + (-$CellContext`MH^2 - 2 $CellContext`S + 
+                 2 $CellContext`T - 
+                 2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + (-$CellContext`MH^2 + 
+                 4 $CellContext`S + $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + 
+              2 (-$CellContext`MH^2 + 
+                2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + 8 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) - 
+           4 ($CellContext`MH^2 - $CellContext`U)^(-1) (
+            X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+            X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] (($CellContext`MH^2 - $CellContext`S34 - 
+                2 $CellContext`T14 - $CellContext`T24) ($CellContext`MH^2 - \
+$CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]])) - $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] (
+               2 ($CellContext`MH^2 - 2 $CellContext`S34 + 
+                 2 $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + ((-5) $CellContext`MH^2 - 
+                 2 $CellContext`S + 6 $CellContext`T - 2 $CellContext`T14 + 
+                 3 $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + ($CellContext`MH^2 + 6 $CellContext`S - 
+                 2 $CellContext`T - 
+                 2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]])) - 2 ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[
+                5]] (((-$CellContext`MH^2 + 2 $CellContext`S34 - 
+                   2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                 2 (-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 
+               2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]])) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + 2 $CellContext`S34 - 
+                 2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] + 
+               2 (-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 
+             2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 
+             2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]]) - 8 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   4]])))) - ($CellContext`MH^2 - $CellContext`U)^(-1) (
+            Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                   4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+            Log[Rational[1, 2] $CellContext`MT^(-2) (
+               2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U ((-4) \
+$CellContext`MT^2 + $CellContext`U))^Rational[1, 2])]^2) ($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] (($CellContext`MH^2 - $CellContext`S34 - 
+                2 $CellContext`T14 - $CellContext`T24) ($CellContext`MH^2 - \
+$CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] + 
+              2 ((-2) ($CellContext`MH^2 - $CellContext`U) \
+($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] ((-2) $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 + $CellContext`S - \
+$CellContext`T + $CellContext`T14 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]))) + 4 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] (($CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[
+                   5]] - ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]])) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] ($CellContext`T24 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[
+                 1]] - ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[
+                1]] - ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]]) + 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))))) + $CellContext`T24^(-1) (-$CellContext`T^(-1) \
+(-($CellContext`MH^2 - $CellContext`T)^(-1) (
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2) ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] (-($CellContext`MH^2 - $CellContext`T) ($CellContext`S - \
+$CellContext`S34 - $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 
+               4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) - 
+             2 ((-2) ((-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   2]] + ($CellContext`S + $CellContext`T14) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   3]] + ($CellContext`MH^2 - $CellContext`T) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] - 
+              2 ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  2]] + ($CellContext`S + $CellContext`T14) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  3]] + ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + 
+              2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + 
+              2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] (
+                2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] - 
+                2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   3]] (($CellContext`S + $CellContext`S34 + $CellContext`T14 - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 
+                  2 ($CellContext`S + $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])))) + (
+             4 (2 + X`Eps^(-1) + 
+               X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + 
+               Log[$CellContext`MT^(-2) X`Mu^2]) - 
+             4 ($CellContext`MH^2 - $CellContext`T)^(-1) (3 $CellContext`MH^2 + 
+              X`Eps^(-1) $CellContext`MH^2 - 3 $CellContext`T - 
+              X`Eps^(-1) $CellContext`T + $CellContext`MH^2 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`T 
+              X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`T 
+              Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2)) (
+             2 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] + 2 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] (($CellContext`S - $CellContext`S34 - $CellContext`T14 + \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] - 4 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]])) + 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] ($CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]]) + 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] ($CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]]) - $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] ((-4) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] ($CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]]))) + 
+           8 (Rational[
+               1, 2] ($CellContext`MH^2 - $CellContext`T)^(-1) (-
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+               X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] (
+               2 ((-3) $CellContext`MH^2 + 
+                 2 $CellContext`S34 + $CellContext`T + 
+                 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 
+               2 ((-3) $CellContext`MH^2 + 
+                 2 $CellContext`S34 + $CellContext`T + 
+                 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + 8 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 4]] (((-3) $CellContext`MH^2 + 
+                  4 $CellContext`S34 + $CellContext`T) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + 
+                2 ($CellContext`S - $CellContext`S34 - $CellContext`T14 + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   3]] + ((-3) $CellContext`MH^2 + $CellContext`T + 
+                  4 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) + 
+             Rational[
+               1, 2] ($CellContext`MH^2 - $CellContext`T)^(-2) \
+(-$CellContext`MH^2 + $CellContext`T - $CellContext`MH^2 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[
+                3]] ((-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`S + $CellContext`T + 
+                 2 $CellContext`T14) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] - 
+               2 (-$CellContext`MH^2 + 2 $CellContext`S + $CellContext`T + 
+                2 $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 4]] (((-3) $CellContext`MH^2 + 
+                  4 $CellContext`S34 + $CellContext`T + 
+                  2 $CellContext`T24) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + 
+                2 ($CellContext`S - $CellContext`S34 - $CellContext`T14 + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   3]] + ((-3) $CellContext`MH^2 + $CellContext`T + 
+                  2 $CellContext`T24 + 4 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]]))) - 
+           4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+            X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+            X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) ((-2) \
+(((-5) $CellContext`MH^2 + 4 $CellContext`S34 + $CellContext`T + 
+                2 $CellContext`T24 + 4 $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] + 
+              2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[4]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] - 
+            2 (((-5) $CellContext`MH^2 + 4 $CellContext`S34 + $CellContext`T + 
+               2 $CellContext`T24 + 4 $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] + 
+             2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]]) $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[2]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] (-($CellContext`MH^2 - $CellContext`T) ($CellContext`S - \
+$CellContext`S34 - $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] + 
+              4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]])) - 
+            4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[4]] ($CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] - $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[3]]) - 
+            4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`e[2]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[2]] ($CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] - $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[3]]) - 16 $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[3]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]])) + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] ($CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]])) - $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[4]] ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[
+                3]] ((7 $CellContext`MH^2 - 8 $CellContext`S34 - 
+                 3 $CellContext`T - 2 $CellContext`T24) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 
+               4 ((-2) $CellContext`MH^2 + 
+                 2 $CellContext`S34 + $CellContext`T + 
+                 2 $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + (7 $CellContext`MH^2 - 
+                 3 $CellContext`T - 2 $CellContext`T24 - 
+                 8 $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]]) + 
+             4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[
+                 4]])))) - ($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T - $CellContext`T14)^(-1) ((-2) (((-$CellContext`S34 \
+$CellContext`T + $CellContext`S34 $CellContext`T14 + $CellContext`MH^2 \
+($CellContext`S34 - $CellContext`U) + $CellContext`T $CellContext`U + \
+$CellContext`T14 $CellContext`U - $CellContext`S ($CellContext`S34 + \
+$CellContext`U)) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 
+              4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 
+              4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   4]] (($CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+              4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] - 
+              4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 8 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] ($CellContext`U $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`S34 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`U $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`S34 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT] + (
+               16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+               4 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+               
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) ((-$CellContext`S34^2 - 
+                4 $CellContext`S34 $CellContext`T + 
+                2 $CellContext`S34 $CellContext`T14 + 
+                4 $CellContext`MH^2 ($CellContext`S34 - $CellContext`U) + 
+                4 $CellContext`T $CellContext`U + 
+                2 $CellContext`T14 $CellContext`U + $CellContext`U^2 - 
+                2 $CellContext`S ($CellContext`S34 + $CellContext`U)) \
+$CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 
+              8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 
+              8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ((-4) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] (
+                  2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ((-4) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+              8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] - 
+              8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 32 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] (
+                2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   1]] + ((-3) $CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] (
+                  2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + ((-3) $CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) ((2 $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+              2 ($CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] - (
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) 
+              X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + \
+($CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) 
+               X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT])) + (
+            8 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]]) + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] ((2 $CellContext`S - $CellContext`S34 - 
+                2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 4 (($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]))) + 8 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] - 4 $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[4]] ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] ($CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]]))) (
+            2 (2 + X`Eps^(-1) + 
+              X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + 
+              Log[$CellContext`MT^(-2) X`Mu^2]) - 
+            2 (16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+              4 $CellContext`MH^2 $CellContext`T24 + 
+              2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+              2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+              8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) (
+             3 (16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+               4 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) + 
+             X`Eps^(-1) (
+               16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+               4 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) + $CellContext`MH^2 (
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+($CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+              4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] - (2 $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) $CellContext`T24 
+             X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + (
+               16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+               4 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) Log[$CellContext`MT^(-2) X`Mu^2] + 
+             2 (16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT])) - 
+          4 ((16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+              4 $CellContext`MH^2 $CellContext`T24 + 
+              2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+              2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+              8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) ((-$CellContext`S34^2 - 
+               2 $CellContext`S34 $CellContext`T - $CellContext`S34 \
+$CellContext`T24 + 2 $CellContext`T14 $CellContext`T24 - 
+               2 $CellContext`S (
+                2 $CellContext`S34 + $CellContext`T24) + $CellContext`MH^2 (
+                 2 $CellContext`S + 3 $CellContext`S34 - 2 $CellContext`T14 - 
+                 3 $CellContext`U) + 2 $CellContext`T $CellContext`U + 
+               
+               4 $CellContext`T14 $CellContext`U + $CellContext`T24 \
+$CellContext`U + $CellContext`U^2) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] - 
+             8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[4]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] - 
+             8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[2]] - 
+             4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T24 - \
+$CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] ((2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] (2 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]])) - 
+             8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] - 
+             8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[2]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] + 4 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + 
+                 2 $CellContext`S34 + $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  1]] + (-$CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`MH^2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`T24 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + 2 $CellContext`U $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`MH^2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + 2 $CellContext`S34 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] - $CellContext`S34 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]] + $CellContext`U $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] - $CellContext`MH^2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]] + $CellContext`T24 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]] + 2 $CellContext`U $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]])) ((-2) $CellContext`MH^2 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + (
+               2 $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + 
+             4 $CellContext`MT^2 
+              X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T 
+              X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T14 
+              X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T24 X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+             4 $CellContext`MH^2 $CellContext`MT^2 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MH^2 $CellContext`T 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MH^2 $CellContext`T14 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 $CellContext`T24 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+           Rational[
+             1, 2] (16 $CellContext`MT^4 + $CellContext`T^2 + \
+$CellContext`T14^2 - 4 $CellContext`MH^2 $CellContext`T24 + 
+              2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+              2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+              8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-2) (-($CellContext`S34 - $CellContext`U) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + 
+               2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] - 
+             4 (2 $CellContext`MH^2 - $CellContext`S34 - 
+              2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) - 
+             4 ($CellContext`S34 - $CellContext`U) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]])) ((-2) ($CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) \
+((-16) $CellContext`MT^4 - $CellContext`T^2 - $CellContext`T14^2 + 
+               4 $CellContext`MH^2 $CellContext`T24 - 
+               2 $CellContext`T14 $CellContext`T24 - $CellContext`T24^2 - 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) - 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) + ((
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+                 3 $CellContext`T14 + $CellContext`T24) + 
+               2 $CellContext`MH^4 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+                 3 $CellContext`T14 + 5 $CellContext`T24) - 
+               2 $CellContext`MH^2 (80 $CellContext`MT^4 + 5 $CellContext`T^2 + 
+                10 $CellContext`T $CellContext`T14 + 5 $CellContext`T14^2 + 
+                7 $CellContext`T $CellContext`T24 + 
+                7 $CellContext`T14 $CellContext`T24 + 4 $CellContext`T24^2 + 
+                4 $CellContext`MT^2 (10 $CellContext`T + 10 $CellContext`T14 + 
+                  7 $CellContext`T24))) 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+             6 (-$CellContext`MH^2 + 
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14)^2 (
+              4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] - ((-192) $CellContext`MT^6 - 
+              3 $CellContext`T^3 - 9 $CellContext`T^2 $CellContext`T14 - 
+              9 $CellContext`T $CellContext`T14^2 - 3 $CellContext`T14^3 - 
+              16 $CellContext`MT^4 (9 $CellContext`T + 
+               9 $CellContext`T14 - $CellContext`T24) + 
+              4 $CellContext`MH^4 $CellContext`T24 + $CellContext`T^2 \
+$CellContext`T24 + 
+              2 $CellContext`T $CellContext`T14 $CellContext`T24 + \
+$CellContext`T14^2 $CellContext`T24 + 5 $CellContext`T $CellContext`T24^2 + 
+              5 $CellContext`T14 $CellContext`T24^2 + $CellContext`T24^3 - 
+              4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+               18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+               2 $CellContext`T $CellContext`T24 - 
+               2 $CellContext`T14 $CellContext`T24 - 5 $CellContext`T24^2) + 
+              2 $CellContext`MH^2 (16 $CellContext`MT^4 + $CellContext`T^2 + 
+                2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 + \
+$CellContext`MT^2 (8 $CellContext`T + 8 $CellContext`T14 - 
+                  4 $CellContext`T24) - $CellContext`T $CellContext`T24 - \
+$CellContext`T14 $CellContext`T24 - 4 $CellContext`T24^2)) 
+             X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + 
+             2 ($CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+               2 $CellContext`MH^4 $CellContext`T24 - (
+                2 $CellContext`MT^2 + $CellContext`T + $CellContext`T14) (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MH^2 (
+                 16 $CellContext`MT^4 + $CellContext`T^2 + 
+                 2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 + 
+                 8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 - \
+$CellContext`T24) + $CellContext`T24^2)) 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+           Rational[
+             1, 2] (16 $CellContext`MT^4 + $CellContext`T^2 + \
+$CellContext`T14^2 - 4 $CellContext`MH^2 $CellContext`T24 + 
+              2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+              2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+              8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-2) (-($CellContext`S34 - $CellContext`U) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + 
+               2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] - 
+             4 (2 $CellContext`MH^2 - $CellContext`S34 - 
+              2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) + ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) - 
+             4 ($CellContext`S34 - $CellContext`U) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]])) ((2 $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) ((-16) $CellContext`MT^4 - $CellContext`T^2 - \
+$CellContext`T14^2 + 4 $CellContext`MH^2 $CellContext`T24 - 
+               2 $CellContext`T14 $CellContext`T24 - $CellContext`T24^2 - 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) - 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) - $CellContext`MH^2 ((-80) $CellContext`MT^4 - 
+              5 $CellContext`T^2 - 10 $CellContext`T $CellContext`T14 - 
+              5 $CellContext`T14^2 - 4 $CellContext`T $CellContext`T24 - 
+              4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+              2 $CellContext`MH^2 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+                3 $CellContext`T14 + $CellContext`T24) - 
+              8 $CellContext`MT^2 (5 $CellContext`T + 5 $CellContext`T14 + 
+               2 $CellContext`T24)) 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+($CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) \
+($CellContext`MH^2 (24 $CellContext`MT^2 + 6 $CellContext`T + 
+                 6 $CellContext`T14 - 2 $CellContext`T24) - (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2) 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + (
+               2 $CellContext`MH^2 (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24)^2 + 
+               4 $CellContext`MH^4 $CellContext`T24 - (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14) (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2) 
+              X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+             2 (2 $CellContext`MH^6 $CellContext`T24 - $CellContext`MT^2 (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 + $CellContext`MH^4 (
+                16 $CellContext`MT^4 + $CellContext`T^2 + 
+                2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 + 
+                4 $CellContext`MT^2 (2 $CellContext`T + 2 $CellContext`T14 - 
+                  5 $CellContext`T24) - 3 $CellContext`T $CellContext`T24 - 
+                3 $CellContext`T14 $CellContext`T24 - 
+                2 $CellContext`T24^2) - $CellContext`MH^2 (
+               32 $CellContext`MT^6 + 
+               16 $CellContext`MT^4 (2 $CellContext`T + 2 $CellContext`T14 - 
+                 3 $CellContext`T24) + 
+               2 $CellContext`MT^2 (5 $CellContext`T^2 + 
+                 10 $CellContext`T $CellContext`T14 + 5 $CellContext`T14^2 - 
+                 8 $CellContext`T $CellContext`T24 - 
+                 8 $CellContext`T14 $CellContext`T24 - 
+                 7 $CellContext`T24^2) + ($CellContext`T + $CellContext`T14) \
+($CellContext`T^2 + 
+                 2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 - \
+$CellContext`T $CellContext`T24 - $CellContext`T14 $CellContext`T24 - 
+                 2 $CellContext`T24^2))) 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT])))) + \
+($CellContext`MH^2 - $CellContext`S - $CellContext`T24 - $CellContext`U)^(-1) \
+(-$CellContext`S34^(-1) (
+           4 (2 + X`Eps^(-1) + 
+             X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + 
+             Log[$CellContext`MT^(-2) X`Mu^2]) (4 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] + 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] (2 $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) - $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] ((-4) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]] + 4 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]])) + 4 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] (2 $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + 
+                 2 $CellContext`S + $CellContext`T + $CellContext`T14) \
+$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]]))) - 
+           4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (3 $CellContext`MH^2 + 
+            X`Eps^(-1) $CellContext`MH^2 - 3 $CellContext`S34 - 
+            X`Eps^(-1) $CellContext`S34 + $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`S34 
+            X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                   Rational[1, 2])]^2 + $CellContext`MH^2 
+             Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`S34 
+            Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+            Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^Rational[1, 2])]^2) (
+            4 ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]]) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] + 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] (2 $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) - $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] ((-4) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]] + 4 $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]])) + 4 ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]]) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] (2 $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] ((-$CellContext`MH^2 + 
+                2 $CellContext`S + $CellContext`T + $CellContext`T14) \
+$CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]]))) + 
+           8 (Rational[
+               1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-1) (-
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+               X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[
+                3]] (-(((-2) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                   4 $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - ($CellContext`MH^2 - 
+                  2 $CellContext`S + $CellContext`S34 + 2 $CellContext`T24 - 
+                  2 $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   3]] + ((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                   4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] + 
+               2 (-$CellContext`MH^2 + $CellContext`S34 + 
+                 2 $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] + 
+               2 (-$CellContext`MH^2 + $CellContext`S34 + 
+                 2 $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + 
+             Rational[
+               1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-2) \
+(-$CellContext`MH^2 + $CellContext`S34 - $CellContext`MH^2 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[
+                3]] ((((-2) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                   4 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`MH^2 + $CellContext`S34 + 
+                   4 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + ($CellContext`MH^2 + 
+                   2 $CellContext`S - $CellContext`S34 + 2 $CellContext`T24 - 
+                   2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] + 
+               2 ($CellContext`MH^2 - $CellContext`S34 - 
+                 2 $CellContext`T14) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] + 
+               2 ($CellContext`MH^2 - $CellContext`S34 - 
+                 2 $CellContext`T14) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) - 
+           4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+            X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+            X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+(-$CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 2]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + 
+                2 ($CellContext`MH^2 - $CellContext`S34 - 2 $CellContext`T + 
+                  2 $CellContext`T14) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 4]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + (5 $CellContext`MH^2 + 
+                  2 $CellContext`S - 3 $CellContext`S34 + 2 $CellContext`T24 - 
+                  6 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 3]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + ($CellContext`MH^2 - 
+                  2 $CellContext`S + $CellContext`S34 + 6 $CellContext`T24 - 
+                  2 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]])) + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] (($CellContext`MH^2 - $CellContext`S34) ($CellContext`MH^2 - 
+                2 $CellContext`S - $CellContext`T - $CellContext`T14) \
+$CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] + 
+              4 ($CellContext`MH^2 - $CellContext`S34) ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]])) + 
+            2 ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + ($CellContext`MH^2 - $CellContext`S34 - 
+                  2 $CellContext`T + 2 $CellContext`T14) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) - 
+              2 ($CellContext`MH^2 - $CellContext`S34) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[
+                 2]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + ($CellContext`MH^2 - $CellContext`S34 - 
+                  2 $CellContext`T + 2 $CellContext`T14) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] - 8 $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]] (-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))) - ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+            Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                   4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+            Log[Rational[1, 2] $CellContext`MT^(-2) (
+               2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                Rational[1, 2])]^2) ($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] (($CellContext`MH^2 - $CellContext`S34) ($CellContext`MH^2 - 
+                2 $CellContext`S - $CellContext`T - $CellContext`T14) \
+$CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] + 
+              4 ($CellContext`MH^2 - $CellContext`S34) ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]])) - 
+            2 (2 ($CellContext`MH^2 - $CellContext`S34) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[
+               5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`T14 $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  2]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 
+                 2 $CellContext`T14 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  3]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 
+                 2 $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  4]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`MH^2 + $CellContext`S - \
+$CellContext`S34 + $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) + 
+             2 ($CellContext`MH^2 - $CellContext`S34) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[
+               2]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`T14 $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + 4 $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]] (-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))))) + $CellContext`T^(-1) (
+           4 (2 + X`Eps^(-1) + 
+             X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + 
+             Log[$CellContext`MT^(-2) X`Mu^2]) ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] ((-4) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + 4 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]])) - 2 (($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) + (($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]])) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T14 + 2 $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] + 4 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+           4 ($CellContext`MH^2 - $CellContext`T)^(-1) (3 $CellContext`MH^2 + 
+            X`Eps^(-1) $CellContext`MH^2 - 3 $CellContext`T - 
+            X`Eps^(-1) $CellContext`T + $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`T 
+            X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                   Rational[1, 2])]^2 + $CellContext`MH^2 
+             Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`T 
+            Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+            Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2) ($CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] ((-4) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]])) - 2 (($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] + 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) + (($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]])) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]]) + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T14 + 
+                2 $CellContext`T24) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] + 4 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   4]]))) - ($CellContext`MH^2 - $CellContext`T)^(-1) (
+            Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                   4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+            Log[Rational[1, 2] $CellContext`MT^(-2) (
+               2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2) (
+            4 ($CellContext`T14 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 3]] + ($CellContext`MH^2 - $CellContext`T) \
+$CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] + 
+            4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] ($CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) + 2 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] (
+              2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] - 
+              2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 3]] ((-$CellContext`MH^2 + 
+                  2 $CellContext`S + $CellContext`S34 + $CellContext`T14 + 
+                  2 $CellContext`T24) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - 
+                2 ($CellContext`T14 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]))) + 
+            4 ($CellContext`T14 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 3]] + ($CellContext`MH^2 - $CellContext`T) \
+$CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + 
+            4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] ($CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] (($CellContext`MH^2 - $CellContext`T) ($CellContext`MH^2 - \
+$CellContext`S34 - $CellContext`T14 - 2 $CellContext`T24) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] - 
+              4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]])) + 8 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] (($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]])) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]]))) - 
+           4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+            X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+            X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) (
+            2 (($CellContext`MH^2 - 2 $CellContext`S34 - $CellContext`T + 
+                2 $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] + 
+              2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] + 
+            4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] ($CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) + $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] (
+              4 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] - 
+              4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[
+                 3]] ((9 $CellContext`MH^2 - 2 $CellContext`S34 - 
+                  5 $CellContext`T - 2 $CellContext`T14 - 
+                  8 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - 
+                2 ($CellContext`MH^2 - 2 $CellContext`S34 - $CellContext`T + 
+                 2 $CellContext`T14) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + (3 $CellContext`MH^2 - 
+                  8 $CellContext`S - 2 $CellContext`S34 - 3 $CellContext`T - 
+                  2 $CellContext`T14) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]])) + 
+            2 (($CellContext`MH^2 - 2 $CellContext`S34 - $CellContext`T + 
+                2 $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] + 
+              2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + 
+            4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] ($CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] (($CellContext`MH^2 - $CellContext`T) ($CellContext`MH^2 - \
+$CellContext`S34 - $CellContext`T14 - 2 $CellContext`T24) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] - 
+              4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]])) + 16 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]]))) - 
+           8 (Rational[
+              1, 2] ($CellContext`MH^2 - $CellContext`T)^(-2) \
+(-$CellContext`MH^2 + $CellContext`T - $CellContext`MH^2 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+               X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] (
+              2 (-$CellContext`MH^2 + $CellContext`T + 
+                2 $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 5]] (((-3) $CellContext`MH^2 + 
+                  2 $CellContext`S34 + $CellContext`T - 2 $CellContext`T14 + 
+                  4 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + 
+                2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T14 + 
+                  2 $CellContext`T24) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] + (5 $CellContext`MH^2 - 
+                  2 $CellContext`S34 - 3 $CellContext`T - 2 $CellContext`T14 - 
+                  4 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) + 
+              2 (-$CellContext`MH^2 + $CellContext`T + 
+                2 $CellContext`T14) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + 8 ((-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + 
+            Rational[
+              1, 2] ($CellContext`MH^2 - $CellContext`T)^(-1) (-
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+              X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] (
+              2 ($CellContext`MH^2 - 
+                2 $CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 5]] (((-5) $CellContext`MH^2 + 4 $CellContext`S34 + 
+                  3 $CellContext`T + 4 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + 
+                2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T14 + 
+                  2 $CellContext`T24) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] + (3 $CellContext`MH^2 - $CellContext`T - 
+                  4 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) + 
+              2 ($CellContext`MH^2 - 
+                2 $CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + 8 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))))) + $CellContext`T14^(-1) (
+           4 $CellContext`T14 (16 $CellContext`MT^4 - 
+              4 $CellContext`MH^2 $CellContext`T14 + 
+              8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((-4) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]])) + 8 $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]]) + 8 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                 2 $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) (
+             2 $CellContext`MH^2 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - (
+              
+              4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] - 
+             2 $CellContext`MH^2 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+             4 $CellContext`MT^2 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`T14 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`T24 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`U 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+             4 $CellContext`MH^2 $CellContext`MT^2 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] - $CellContext`MH^2 \
+$CellContext`T14 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`MH^2 \
+$CellContext`T24 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`MH^2 \
+$CellContext`U 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+           2 (16 $CellContext`MT^4 - 4 $CellContext`MH^2 $CellContext`T14 + 
+             8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((
+              4 $CellContext`S $CellContext`S34 - $CellContext`S34^2 + \
+$CellContext`T^2 + 2 $CellContext`S34 $CellContext`T14 - 
+              2 $CellContext`T $CellContext`T14 - 
+              2 $CellContext`MH^2 (
+               2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+               2 $CellContext`T24) - 4 $CellContext`T $CellContext`T24 - 
+              2 $CellContext`S34 $CellContext`U + 
+              2 $CellContext`T $CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] + 
+            8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] + 
+            8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] - 4 $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] (
+             2 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] + (6 $CellContext`MH^2 - 
+               3 $CellContext`S34 - 3 $CellContext`T - 
+               4 $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] (
+               2 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + (6 $CellContext`MH^2 - 
+                 3 $CellContext`S34 - 3 $CellContext`T - 
+                 4 $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]])) + 
+            8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + 
+            8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + 32 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) + ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) - 4 $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[
+              4]] (((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[
+                  1]] + ($CellContext`S34 - $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] + 
+               2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[
+                5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  1]] + ($CellContext`S34 - $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + 
+               2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]]))) (-(
+              4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+            2 $CellContext`T14 
+             X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] + 
+            4 $CellContext`MT^2 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] - $CellContext`T14 
+            X`DiscB[$CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`T24 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`U 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] - 2 $CellContext`MH^2 $CellContext`T14 
+            X`ScalarC0[$CellContext`MH^2, $CellContext`T14, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + 
+            4 $CellContext`MT^2 $CellContext`T14 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`T14^2 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`T14 \
+$CellContext`T24 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`T14 \
+$CellContext`U 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+           2 (16 $CellContext`MT^4 - 4 $CellContext`MH^2 $CellContext`T14 + 
+              8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((-4) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]])) + 8 $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]]) + 8 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                 2 $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) (
+             3 (16 $CellContext`MT^4 - 4 $CellContext`MH^2 $CellContext`T14 + 
+               8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + 
+             X`Eps^(-1) (16 $CellContext`MT^4 - 
+               4 $CellContext`MH^2 $CellContext`T14 + 
+               8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + \
+$CellContext`MH^2 (
+               4 $CellContext`MT^2 - $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T14 ((-2) $CellContext`MH^2 + 
+               4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+              X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] - \
+($CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) (
+              4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + (16 $CellContext`MT^4 - 
+               4 $CellContext`MH^2 $CellContext`T14 + 
+               8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) 
+              Log[$CellContext`MT^(-2) X`Mu^2] + 
+             2 (16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+               8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2)) 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+           2 ((2 + X`Eps^(-1) + 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+              Log[$CellContext`MT^(-2) X`Mu^2]) ((-4) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + 8 $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]]) + 8 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                  2 $CellContext`T24) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))) + (((-2) $CellContext`S $CellContext`S34 - \
+$CellContext`S34 $CellContext`T14 + $CellContext`T $CellContext`T14 + 
+                2 $CellContext`MH^2 ($CellContext`S - $CellContext`T24) + 
+                2 $CellContext`T $CellContext`T24) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] - 
+              4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 
+              4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] + 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 5]] (((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   1]] + ($CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   4]] (((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+              4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] - 
+              4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] - 8 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 4]] (((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+           4 (Rational[
+               1, 2] (16 $CellContext`MT^4 - 
+                4 $CellContext`MH^2 $CellContext`T14 + 
+                8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-2) (-($CellContext`S34 - $CellContext`T) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + 
+                 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 
+               4 (2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+                2 $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) - 
+               4 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) (
+               2 $CellContext`T14 (16 $CellContext`MT^4 - 
+                 4 $CellContext`MH^2 $CellContext`T14 + 
+                 8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) - \
+(64 $CellContext`MT^6 + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 (3 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+                16 $CellContext`MT^4 (5 $CellContext`T14 + 
+                  3 ($CellContext`T24 + $CellContext`U)) - 
+                2 $CellContext`MH^2 $CellContext`T14 (3 $CellContext`T14 + 
+                 5 ($CellContext`T24 + $CellContext`U)) + 
+                4 $CellContext`MT^2 ((-10) $CellContext`MH^2 $CellContext`T14 + 
+                  7 $CellContext`T14^2 + 
+                  10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                  3 ($CellContext`T24 + $CellContext`U)^2)) 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+               6 $CellContext`T14^2 ((-2) $CellContext`MH^2 + 
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+                X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] + \
+(64 $CellContext`MT^6 - 
+                 3 $CellContext`T14^3 + $CellContext`T14^2 $CellContext`T24 + 
+                 5 $CellContext`T14 $CellContext`T24^2 + $CellContext`T24^3 + \
+$CellContext`T14^2 $CellContext`U + 
+                 10 $CellContext`T14 $CellContext`T24 $CellContext`U + 
+                 3 $CellContext`T24^2 $CellContext`U + 
+                 5 $CellContext`T14 $CellContext`U^2 + 
+                 3 $CellContext`T24 $CellContext`U^2 + $CellContext`U^3 + 
+                 2 $CellContext`MH^2 $CellContext`T14 (3 $CellContext`T14 - 
+                   5 ($CellContext`T24 + $CellContext`U)) + 
+                 16 $CellContext`MT^4 (5 $CellContext`T14 + 
+                   3 ($CellContext`T24 + $CellContext`U)) + 
+                 4 $CellContext`MT^2 ((-10) $CellContext`MH^2 \
+$CellContext`T14 + $CellContext`T14^2 + 
+                   10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                   3 ($CellContext`T24 + $CellContext`U)^2)) 
+                X`DiscB[$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+               2 $CellContext`T14 (32 $CellContext`MT^6 + 
+                 16 $CellContext`MT^4 (
+                   2 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+                 2 $CellContext`MT^2 ((-16) $CellContext`MH^2 \
+$CellContext`T14 + 5 $CellContext`T14^2 + 
+                   6 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2) + $CellContext`T14 (
+                   6 $CellContext`MH^4 + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - 2 $CellContext`MH^2 (2 $CellContext`T14 + 
+                    3 ($CellContext`T24 + $CellContext`U)))) 
+                X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+             Rational[-1, 2] (16 $CellContext`MT^4 - 
+                4 $CellContext`MH^2 $CellContext`T14 + 
+                8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-2) (-($CellContext`S34 - $CellContext`T) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + 
+                 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 
+               4 (2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+                2 $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) - 
+               4 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) ((
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) (16 $CellContext`MT^4 - 4 $CellContext`MH^2 $CellContext`T14 + 
+                 8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + \
+$CellContext`MH^2 (16 $CellContext`MT^4 + 
+                 8 $CellContext`MH^2 $CellContext`T14 - 5 $CellContext`T14^2 - 
+                 4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 - 
+                 4 $CellContext`T14 $CellContext`U + 
+                 2 $CellContext`T24 $CellContext`U + $CellContext`U^2 + 
+                 8 $CellContext`MT^2 ((-2) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)) 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T14 ((
+                   4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - 
+                 2 $CellContext`MH^2 (12 $CellContext`MT^2 - $CellContext`T14 + 
+                  3 ($CellContext`T24 + $CellContext`U))) 
+                X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] - \
+(8 $CellContext`MH^4 $CellContext`T14 + $CellContext`T14 (
+                   4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 + $CellContext`MH^2 (16 $CellContext`MT^4 - 
+                  3 $CellContext`T14^2 - 
+                  10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 + 
+                  8 $CellContext`MT^2 ((-5) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U))) 
+               X`DiscB[$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+               2 (64 $CellContext`MT^8 + 
+                 48 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + 
+                 12 $CellContext`MT^4 ((-4) $CellContext`MH^2 \
+$CellContext`T14 + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) - \
+$CellContext`MH^2 $CellContext`T14 (-$CellContext`T14^2 + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U) + 
+                  2 ($CellContext`T24 + $CellContext`U)^2 + $CellContext`MH^2 \
+($CellContext`T14 - 
+                    3 ($CellContext`T24 + $CellContext`U))) + \
+$CellContext`MT^2 (
+                   12 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+                   4 $CellContext`MH^2 $CellContext`T14 (2 $CellContext`T14 + 
+                    5 ($CellContext`T24 + $CellContext`U)))) 
+                X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]))))), 
+      0, (-2) $CellContext`Alfas^2 $CellContext`c3 $CellContext`EL \
+$CellContext`MT^2 $CellContext`MW^(-1) $CellContext`SW^(-1) \
+(-($CellContext`MH^2 - $CellContext`S - $CellContext`T - \
+$CellContext`T14)^(-1) $CellContext`T24^(-1) (
+         8 $CellContext`MT^2 (
+            16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+            4 $CellContext`MH^2 $CellContext`T24 + 
+            2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+            2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+            8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) 
+          X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) (8 $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[5]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]]) + $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[
+              5]] ((2 $CellContext`S - $CellContext`S34 - 
+               2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] - 4 (($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]]))) + 8 ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]]) $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[1]] - 4 $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[4]] ($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[2]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[1]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]] ($CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]]))) ($CellContext`MH^2 (
+             16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 + 
+             2 $CellContext`T ($CellContext`T14 - 2 $CellContext`T24) + 
+             8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 - 
+               2 $CellContext`T24) + 8 $CellContext`MH^2 $CellContext`T24 - 
+             4 $CellContext`T14 $CellContext`T24 - 5 $CellContext`T24^2) 
+            X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - (
+            8 $CellContext`MH^4 $CellContext`T24 + $CellContext`T24 (
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MH^2 (
+              16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 + 
+              2 $CellContext`T ($CellContext`T14 - 5 $CellContext`T24) + 
+              8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 - 
+                5 $CellContext`T24) - 10 $CellContext`T14 $CellContext`T24 - 
+              3 $CellContext`T24^2)) 
+           X`DiscB[$CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + $CellContext`T24 ((-2) $CellContext`MH^2 (
+               12 $CellContext`MT^2 + 3 $CellContext`T + 
+               3 $CellContext`T14 - $CellContext`T24) + (
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2) 
+            X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + (
+             4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) 
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] + 
+           2 (64 $CellContext`MT^8 + 
+             48 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + 
+             12 $CellContext`MT^4 ($CellContext`T^2 + $CellContext`T14^2 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24 ((-4) \
+$CellContext`MH^2 + $CellContext`T24) + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24)) - \
+$CellContext`MH^2 $CellContext`T24 (2 $CellContext`T^2 + 
+              2 $CellContext`T14^2 + $CellContext`T14 $CellContext`T24 - \
+$CellContext`T24^2 + $CellContext`MH^2 ((-3) $CellContext`T - 
+                3 $CellContext`T14 + $CellContext`T24) + $CellContext`T (
+                4 $CellContext`T14 + $CellContext`T24)) + $CellContext`MT^2 \
+($CellContext`T^3 + $CellContext`T14^3 + 
+               3 $CellContext`T14^2 $CellContext`T24 + 
+               3 $CellContext`T^2 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T14 $CellContext`T24 ((-20) $CellContext`MH^2 + 
+                 3 $CellContext`T24) + $CellContext`T24 (12 $CellContext`MH^4 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + \
+$CellContext`T (3 $CellContext`T14^2 + 
+                 6 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+((-20) $CellContext`MH^2 + 3 $CellContext`T24)))) 
+            X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+         2 ((-4) $CellContext`MT^2 (-$CellContext`MH^2 + 
+             8 $CellContext`MT^2 + $CellContext`T + $CellContext`T14)^(-1) (
+             16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+             8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+               8 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1) 
+           X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) ((-$CellContext`S34 $CellContext`T + $CellContext`S34 \
+$CellContext`T14 + $CellContext`MH^2 ($CellContext`S34 - $CellContext`U) + \
+$CellContext`T $CellContext`U + $CellContext`T14 $CellContext`U - \
+$CellContext`S ($CellContext`S34 + $CellContext`U)) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] - 
+            4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[4]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] - 
+            4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[2]] + 4 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] ((($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 4]] (($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]])) - 
+            4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[4]] $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[1]] - 
+            4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`e[2]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[2]] $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[1]] + 8 ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + 4 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] ($CellContext`U $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`S34 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] ($CellContext`U $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`S34 $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   4]]))) (-$CellContext`MH^2 ($CellContext`MH^2 - 
+              8 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+              2 $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) $CellContext`T24 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - (
+             64 $CellContext`MT^8 - 
+             2 $CellContext`MH^2 (-$CellContext`MH^2 + $CellContext`T + \
+$CellContext`T14)^2 $CellContext`T24 + 
+             48 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + 
+             4 $CellContext`MT^4 (3 $CellContext`T^2 + 3 $CellContext`T14^2 + 
+               6 $CellContext`T14 $CellContext`T24 + 
+               6 $CellContext`T ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T24 ((-20) $CellContext`MH^2 + 
+                 3 $CellContext`T24)) + $CellContext`MT^2 ($CellContext`T^3 + \
+$CellContext`T14^3 + 3 $CellContext`T14^2 $CellContext`T24 + 
+               3 $CellContext`T^2 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T14 $CellContext`T24 ((-28) $CellContext`MH^2 + 
+                 3 $CellContext`T24) + $CellContext`T24 (24 $CellContext`MH^4 - 
+                 4 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + \
+$CellContext`T (3 $CellContext`T14^2 + 
+                 6 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+((-28) $CellContext`MH^2 + 3 $CellContext`T24)))) 
+            X`DiscB[$CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + $CellContext`MH^2 ($CellContext`MH^2 - 
+              8 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+              4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) $CellContext`T24 
+             X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - \
+($CellContext`MH^2 - 
+             8 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+             4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) (
+             16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+             8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+               8 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+            X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+          4 $CellContext`MT^2 (
+             16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+             4 $CellContext`MH^2 $CellContext`T24 + 
+             2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+             2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+             8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) (
+             16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+             8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+               8 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1) 
+           X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) ((-$CellContext`S34^2 - 
+              4 $CellContext`S34 $CellContext`T + 
+              2 $CellContext`S34 $CellContext`T14 + 
+              4 $CellContext`MH^2 ($CellContext`S34 - $CellContext`U) + 
+              4 $CellContext`T $CellContext`U + 
+              2 $CellContext`T14 $CellContext`U + $CellContext`U^2 - 
+              2 $CellContext`S ($CellContext`S34 + $CellContext`U)) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] - 
+            8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[4]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] - 
+            8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[2]] + 4 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] ((2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   1]] + ((-4) $CellContext`MH^2 + $CellContext`S34 + 
+                  4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] (
+                2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   1]] + ((-4) $CellContext`MH^2 + $CellContext`S34 + 
+                  4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]])) - 
+            8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[4]] $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[1]] - 
+            8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`e[2]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[2]] $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[1]] + 32 ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + 4 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] (
+              2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[
+                 1]] + ((-3) $CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] (
+                2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   2]] + ((-3) $CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]))) (-(-$CellContext`MT^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 + 
+              2 $CellContext`MH^6 $CellContext`T24 (12 $CellContext`MT^2 + 
+                3 $CellContext`T + 3 $CellContext`T14 + $CellContext`T24) + 
+              2 $CellContext`MH^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (
+                8 $CellContext`MT^4 + ($CellContext`T + $CellContext`T14) \
+$CellContext`T24 + 
+                2 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + 
+                  3 $CellContext`T24)) - 
+              2 $CellContext`MH^4 $CellContext`T24 (96 $CellContext`MT^4 + 
+               4 $CellContext`T^2 + 8 $CellContext`T $CellContext`T14 + 
+               4 $CellContext`T14^2 + 3 $CellContext`T $CellContext`T24 + 
+               3 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               4 $CellContext`MT^2 (10 $CellContext`T + 10 $CellContext`T14 + 
+                 3 $CellContext`T24))) 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + (
+              2 $CellContext`MH^6 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+                3 $CellContext`T14 - $CellContext`T24) $CellContext`T24 - \
+$CellContext`MT^2 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+               3 $CellContext`T14 - $CellContext`T24) (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 - 
+              2 $CellContext`MH^4 $CellContext`T24 (112 $CellContext`MT^4 + 
+               5 $CellContext`T^2 + 10 $CellContext`T $CellContext`T14 + 
+               5 $CellContext`T14^2 + 
+               48 $CellContext`MT^2 ($CellContext`T + $CellContext`T14) - \
+$CellContext`T24^2) + 
+              2 $CellContext`MH^2 (128 $CellContext`MT^8 + 
+                96 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + 
+                  3 $CellContext`T24) + 
+                8 $CellContext`MT^4 (3 $CellContext`T^2 + 
+                  6 $CellContext`T $CellContext`T14 + 3 $CellContext`T14^2 + 
+                  22 $CellContext`T $CellContext`T24 + 
+                  22 $CellContext`T14 $CellContext`T24 + 
+                  5 $CellContext`T24^2) + ($CellContext`T + $CellContext`T14) \
+$CellContext`T24 (2 $CellContext`T^2 + 
+                  2 $CellContext`T14^2 + $CellContext`T14 $CellContext`T24 - \
+$CellContext`T24^2 + $CellContext`T (4 $CellContext`T14 + $CellContext`T24)) + 
+                2 $CellContext`MT^2 ($CellContext`T^3 + $CellContext`T14^3 + 
+                  17 $CellContext`T14^2 $CellContext`T24 + 
+                  7 $CellContext`T14 $CellContext`T24^2 - 
+                  3 $CellContext`T24^3 + $CellContext`T^2 (3 $CellContext`T14 + 
+                    17 $CellContext`T24) + $CellContext`T (
+                    3 $CellContext`T14^2 + 
+                    34 $CellContext`T14 $CellContext`T24 + 
+                    7 $CellContext`T24^2)))) 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + (256 $CellContext`MT^10 + 
+              256 $CellContext`MT^8 ($CellContext`T + $CellContext`T14) + 
+              2 $CellContext`MH^2 ($CellContext`MH^2 - $CellContext`T - \
+$CellContext`T14) $CellContext`T24 ($CellContext`T^2 + $CellContext`T14^2 + \
+$CellContext`T (
+                  2 $CellContext`T14 - $CellContext`T24) - $CellContext`T14 \
+$CellContext`T24 + 2 ($CellContext`MH^2 - $CellContext`T24) $CellContext`T24) + 
+              32 $CellContext`MT^6 (3 $CellContext`T^2 + 
+                6 $CellContext`T $CellContext`T14 + 
+                3 $CellContext`T14^2 - $CellContext`T24 (4 $CellContext`MH^2 + 
+                 3 $CellContext`T24)) + 
+              16 $CellContext`MT^4 ($CellContext`T^3 + 
+                3 $CellContext`T^2 $CellContext`T14 + $CellContext`T14^3 - 
+                3 $CellContext`T14 $CellContext`T24 (
+                 2 $CellContext`MH^2 + $CellContext`T24) + 
+                2 $CellContext`T24 ($CellContext`MH^4 + 
+                  3 $CellContext`MH^2 $CellContext`T24 - $CellContext`T24^2) + 
+                3 $CellContext`T ($CellContext`T14^2 - $CellContext`T24 (
+                   2 $CellContext`MH^2 + $CellContext`T24))) + \
+$CellContext`MT^2 ($CellContext`T^4 + 
+                4 $CellContext`T^3 $CellContext`T14 + $CellContext`T14^4 - 
+                6 $CellContext`T14^2 $CellContext`T24 (
+                 4 $CellContext`MH^2 + $CellContext`T24) + $CellContext`T24^2 \
+((-40) $CellContext`MH^4 + 32 $CellContext`MH^2 $CellContext`T24 - 
+                  3 $CellContext`T24^2) - 
+                8 $CellContext`T14 $CellContext`T24 ((-2) $CellContext`MH^4 - 
+                 4 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + 
+                6 $CellContext`T^2 ($CellContext`T14^2 - $CellContext`T24 (
+                   4 $CellContext`MH^2 + $CellContext`T24)) + 
+                4 $CellContext`T ($CellContext`T14^3 - 
+                  3 $CellContext`T14 $CellContext`T24 (
+                   4 $CellContext`MH^2 + $CellContext`T24) - 
+                  2 $CellContext`T24 ((-2) $CellContext`MH^4 - 
+                   4 $CellContext`MH^2 $CellContext`T24 + \
+$CellContext`T24^2)))) 
+             X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+            2 (16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+             8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+               8 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] + ((-4) $CellContext`MH^4 $CellContext`T24 + (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 - 
+              2 $CellContext`MH^2 (
+               16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 + 
+               2 $CellContext`T ($CellContext`T14 - $CellContext`T24) + 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 - \
+$CellContext`T24) - 
+               2 $CellContext`T14 $CellContext`T24 - $CellContext`T24^2)) (
+              16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+              8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                8 $CellContext`MH^2 $CellContext`T24 + 
+                2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT])) - 
+         4 ((-2) $CellContext`MT^2 (
+             16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+             4 $CellContext`MH^2 $CellContext`T24 + 
+             2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+             2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+             8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-2) (
+             16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+             8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+               8 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1) 
+           X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) (-($CellContext`S34 - $CellContext`U) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + 
+              2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] - 
+            4 (2 $CellContext`MH^2 - $CellContext`S34 - 
+             2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[5]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) - 
+            4 ($CellContext`S34 - $CellContext`U) $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[4]] ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]])) ((-2) $CellContext`MH^2 (
+              16 $CellContext`MH^8 $CellContext`T24^2 - 
+              5 $CellContext`MT^2 (
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) (
+                
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 + $CellContext`MH^6 $CellContext`T24 (
+                176 $CellContext`MT^4 + 11 $CellContext`T^2 + 
+                22 $CellContext`T $CellContext`T14 + 11 $CellContext`T14^2 + 
+                8 $CellContext`MT^2 (11 $CellContext`T + 11 $CellContext`T14 - 
+                  23 $CellContext`T24) - 30 $CellContext`T $CellContext`T24 - 
+                30 $CellContext`T14 $CellContext`T24 - 
+                13 $CellContext`T24^2) + $CellContext`MH^4 $CellContext`T24 \
+((-1408) $CellContext`MT^6 - 17 $CellContext`T^3 - 17 $CellContext`T14^3 - 
+                16 $CellContext`MT^4 (61 $CellContext`T + 61 $CellContext`T14 - 
+                 30 $CellContext`T24) + 8 $CellContext`T14^2 $CellContext`T24 + 
+                19 $CellContext`T14 $CellContext`T24^2 + 
+                6 $CellContext`T24^3 + $CellContext`T^2 ((-51) \
+$CellContext`T14 + 8 $CellContext`T24) - 
+                8 $CellContext`MT^2 (28 $CellContext`T^2 + 
+                 56 $CellContext`T $CellContext`T14 + 28 $CellContext`T14^2 - 
+                 19 $CellContext`T $CellContext`T24 - 
+                 19 $CellContext`T14 $CellContext`T24 - 
+                 17 $CellContext`T24^2) + $CellContext`T ((-51) \
+$CellContext`T14^2 + 16 $CellContext`T14 $CellContext`T24 + 
+                  19 $CellContext`T24^2)) + $CellContext`MH^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (144 $CellContext`MT^6 + 
+                6 ($CellContext`T + $CellContext`T14) ($CellContext`T + \
+$CellContext`T14 - $CellContext`T24) $CellContext`T24 + 
+                24 $CellContext`MT^4 (3 $CellContext`T + 3 $CellContext`T14 + 
+                  5 $CellContext`T24) + $CellContext`MT^2 (9 $CellContext`T^2 + 
+                  9 $CellContext`T14^2 + 54 $CellContext`T14 $CellContext`T24 - 
+                  55 $CellContext`T24^2 + 
+                  18 $CellContext`T ($CellContext`T14 + 3 $CellContext`T24))))
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+(32 $CellContext`MH^10 $CellContext`T24^2 + $CellContext`MT^2 (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^5 + 
+              2 $CellContext`MH^8 $CellContext`T24 (176 $CellContext`MT^4 + 
+                11 $CellContext`T^2 + 22 $CellContext`T $CellContext`T14 + 
+                11 $CellContext`T14^2 + 
+                8 $CellContext`MT^2 (11 $CellContext`T + 11 $CellContext`T14 - 
+                  32 $CellContext`T24) - 48 $CellContext`T $CellContext`T24 - 
+                48 $CellContext`T14 $CellContext`T24 - 11 $CellContext`T24^2) - 
+              8 $CellContext`MH^6 $CellContext`T24 (400 $CellContext`MT^6 + 
+               8 $CellContext`MT^4 (35 $CellContext`T + 35 $CellContext`T14 - 
+                 38 $CellContext`T24) + $CellContext`MT^2 (
+                 65 $CellContext`T^2 + 65 $CellContext`T14^2 + 
+                 2 $CellContext`T (65 $CellContext`T14 - 58 $CellContext`T24) - 
+                 116 $CellContext`T14 $CellContext`T24 - 
+                 45 $CellContext`T24^2) + ($CellContext`T + $CellContext`T14) \
+(5 $CellContext`T^2 + 5 $CellContext`T14^2 + 
+                 10 $CellContext`T ($CellContext`T14 - $CellContext`T24) - 
+                 10 $CellContext`T14 $CellContext`T24 - 
+                 7 $CellContext`T24^2)) - $CellContext`MH^2 (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 (256 $CellContext`MT^6 + 
+               8 $CellContext`MT^4 (16 $CellContext`T + 16 $CellContext`T14 - 
+                 11 $CellContext`T24) + ($CellContext`T + $CellContext`T14) \
+($CellContext`T + $CellContext`T14 - $CellContext`T24) $CellContext`T24 + 
+               2 $CellContext`MT^2 (8 $CellContext`T^2 + 
+                 16 $CellContext`T $CellContext`T14 + 8 $CellContext`T14^2 - 
+                 9 $CellContext`T $CellContext`T24 - 
+                 9 $CellContext`T14 $CellContext`T24 - 
+                 5 $CellContext`T24^2)) + $CellContext`MH^4 (
+                4608 $CellContext`MT^10 + 
+                1536 $CellContext`MT^8 (3 $CellContext`T + 3 $CellContext`T14 + 
+                  5 $CellContext`T24) + 
+                64 $CellContext`MT^6 (27 $CellContext`T^2 + 
+                  54 $CellContext`T $CellContext`T14 + 27 $CellContext`T14^2 + 
+                  109 $CellContext`T $CellContext`T24 + 
+                  109 $CellContext`T14 $CellContext`T24 - 
+                  58 $CellContext`T24^2) + 
+                16 $CellContext`MT^4 (18 $CellContext`T^3 + 
+                  18 $CellContext`T14^3 + 
+                  147 $CellContext`T14^2 $CellContext`T24 - 
+                  130 $CellContext`T14 $CellContext`T24^2 - 
+                  93 $CellContext`T24^3 + 
+                  3 $CellContext`T^2 (18 $CellContext`T14 + 
+                    49 $CellContext`T24) + 
+                  2 $CellContext`T (27 $CellContext`T14^2 + 
+                    147 $CellContext`T14 $CellContext`T24 - 
+                    65 $CellContext`T24^2)) + 
+                2 $CellContext`MT^2 (9 $CellContext`T^4 + 
+                  9 $CellContext`T14^4 + 
+                  174 $CellContext`T14^3 $CellContext`T24 - 
+                  172 $CellContext`T14^2 $CellContext`T24^2 - 
+                  254 $CellContext`T14 $CellContext`T24^3 - 
+                  21 $CellContext`T24^4 + 
+                  6 $CellContext`T^3 (6 $CellContext`T14 + 
+                    29 $CellContext`T24) + 
+                  2 $CellContext`T^2 (27 $CellContext`T14^2 + 
+                    261 $CellContext`T14 $CellContext`T24 - 
+                    86 $CellContext`T24^2) + $CellContext`T (
+                    36 $CellContext`T14^3 + 
+                    522 $CellContext`T14^2 $CellContext`T24 - 
+                    344 $CellContext`T14 $CellContext`T24^2 - 
+                    254 $CellContext`T24^3)) - $CellContext`T24 ((-19) \
+$CellContext`T^4 - 19 $CellContext`T14^4 + 
+                 14 $CellContext`T14^3 $CellContext`T24 + 
+                 34 $CellContext`T14^2 $CellContext`T24^2 + 
+                 2 $CellContext`T14 $CellContext`T24^3 + $CellContext`T24^4 + \
+$CellContext`T^3 ((-76) $CellContext`T14 + 
+                   14 $CellContext`T24) + $CellContext`T^2 ((-114) \
+$CellContext`T14^2 + 42 $CellContext`T14 $CellContext`T24 + 
+                   34 $CellContext`T24^2) + $CellContext`T ((-76) \
+$CellContext`T14^3 + 42 $CellContext`T14^2 $CellContext`T24 + 
+                   68 $CellContext`T14 $CellContext`T24^2 + 
+                   2 $CellContext`T24^3)))) 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + (
+              4 $CellContext`MH^8 (36 $CellContext`MT^2 + 9 $CellContext`T + 
+                9 $CellContext`T14 - $CellContext`T24) $CellContext`T24^2 - \
+$CellContext`MT^2 (
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^5 + 
+              2 $CellContext`MH^6 $CellContext`T24 (192 $CellContext`MT^6 + 
+                3 $CellContext`T^3 + 3 $CellContext`T14^3 + 
+                16 $CellContext`MT^4 (9 $CellContext`T + 9 $CellContext`T14 - 
+                  50 $CellContext`T24) + $CellContext`T^2 (9 $CellContext`T14 - 
+                  32 $CellContext`T24) - 
+                32 $CellContext`T14^2 $CellContext`T24 - 
+                9 $CellContext`T14 $CellContext`T24^2 + 
+                6 $CellContext`T24^3 + $CellContext`T (9 $CellContext`T14^2 - 
+                  64 $CellContext`T14 $CellContext`T24 - 
+                  9 $CellContext`T24^2) + 
+                4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+                  18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+                  82 $CellContext`T $CellContext`T24 - 
+                  82 $CellContext`T14 $CellContext`T24 - 
+                  7 $CellContext`T24^2)) + $CellContext`MH^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 (64 $CellContext`MT^6 + 
+                8 $CellContext`MT^4 (4 $CellContext`T + 4 $CellContext`T14 - 
+                  11 $CellContext`T24) + ($CellContext`T + $CellContext`T14) \
+($CellContext`T + $CellContext`T14 - $CellContext`T24) $CellContext`T24 + 
+                2 $CellContext`MT^2 (2 $CellContext`T^2 + 
+                  4 $CellContext`T $CellContext`T14 + 2 $CellContext`T14^2 - 
+                  9 $CellContext`T $CellContext`T24 - 
+                  9 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2)) + \
+$CellContext`MH^4 $CellContext`T24 ((-512) $CellContext`MT^8 - 
+                7 $CellContext`T^4 - 7 $CellContext`T14^4 - 
+                64 $CellContext`MT^6 (13 $CellContext`T + 13 $CellContext`T14 - 
+                 69 $CellContext`T24) + 
+                26 $CellContext`T14^3 $CellContext`T24 + 
+                22 $CellContext`T14^2 $CellContext`T24^2 - 
+                10 $CellContext`T14 $CellContext`T24^3 + $CellContext`T24^4 + \
+$CellContext`T^3 ((-28) $CellContext`T14 + 26 $CellContext`T24) - 
+                16 $CellContext`MT^4 (27 $CellContext`T^2 + 
+                 54 $CellContext`T $CellContext`T14 + 27 $CellContext`T14^2 - 
+                 164 $CellContext`T $CellContext`T24 - 
+                 164 $CellContext`T14 $CellContext`T24 - 
+                 49 $CellContext`T24^2) + $CellContext`T^2 ((-42) \
+$CellContext`T14^2 + 78 $CellContext`T14 $CellContext`T24 + 
+                  22 $CellContext`T24^2) + $CellContext`T ((-28) \
+$CellContext`T14^3 + 78 $CellContext`T14^2 $CellContext`T24 + 
+                  44 $CellContext`T14 $CellContext`T24^2 - 
+                  10 $CellContext`T24^3) - 
+                4 $CellContext`MT^2 (23 $CellContext`T^3 + 
+                 23 $CellContext`T14^3 + $CellContext`T^2 (
+                   69 $CellContext`T14 - 121 $CellContext`T24) - 
+                 121 $CellContext`T14^2 $CellContext`T24 - 
+                 71 $CellContext`T14 $CellContext`T24^2 + 
+                 21 $CellContext`T24^3 + $CellContext`T (
+                   69 $CellContext`T14^2 - 
+                   242 $CellContext`T14 $CellContext`T24 - 
+                   71 $CellContext`T24^2)))) 
+             X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+            2 ($CellContext`MH^2 (20 $CellContext`MT^2 + 5 $CellContext`T + 
+               5 $CellContext`T14 - $CellContext`T24) - (
+              4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2) (
+             16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+             8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+               8 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] + 
+            2 (16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+              8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                8 $CellContext`MH^2 $CellContext`T24 + 
+                2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) \
+((-2) $CellContext`MH^6 (36 $CellContext`MT^2 + 9 $CellContext`T + 
+                9 $CellContext`T14 - $CellContext`T24) $CellContext`T24 + 
+              2 $CellContext`MT^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 + 
+              2 $CellContext`MH^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (
+                4 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 + \
+$CellContext`MT^2 (5 $CellContext`T + 5 $CellContext`T14 - 
+                  21 $CellContext`T24) + 
+                2 $CellContext`T ($CellContext`T14 - 2 $CellContext`T24) - 
+                4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2) - \
+$CellContext`MH^4 (192 $CellContext`MT^6 + 3 $CellContext`T^3 + 
+               3 $CellContext`T14^3 + 
+               16 $CellContext`MT^4 (9 $CellContext`T + 9 $CellContext`T14 - 
+                 29 $CellContext`T24) + $CellContext`T^2 (9 $CellContext`T14 - 
+                 23 $CellContext`T24) - 
+               23 $CellContext`T14^2 $CellContext`T24 - 
+               13 $CellContext`T14 $CellContext`T24^2 + $CellContext`T24^3 + 
+               4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+                 18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+                 52 $CellContext`T $CellContext`T24 - 
+                 52 $CellContext`T14 $CellContext`T24 - 
+                 15 $CellContext`T24^2) + $CellContext`T (
+                 9 $CellContext`T14^2 - 46 $CellContext`T14 $CellContext`T24 - 
+                 13 $CellContext`T24^2))) 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+          2 $CellContext`MT^2 (
+             16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+             4 $CellContext`MH^2 $CellContext`T24 + 
+             2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+             2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+             8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-2) (
+             16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+             8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+               8 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1) 
+           X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+              
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) (-($CellContext`S34 - $CellContext`U) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + 
+              2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] - 
+            4 (2 $CellContext`MH^2 - $CellContext`S34 - 
+             2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[5]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) - 
+            4 ($CellContext`S34 - $CellContext`U) $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[4]] ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]])) (-(
+              32 $CellContext`MH^10 $CellContext`T24^2 + $CellContext`MT^2 (
+                12 $CellContext`MT^2 + 3 $CellContext`T + 
+                3 $CellContext`T14 - $CellContext`T24) (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^5 + 
+              2 $CellContext`MH^8 $CellContext`T24 (176 $CellContext`MT^4 + 
+                11 $CellContext`T^2 + 22 $CellContext`T $CellContext`T14 + 
+                11 $CellContext`T14^2 + 
+                8 $CellContext`MT^2 (11 $CellContext`T + 11 $CellContext`T14 - 
+                  24 $CellContext`T24) - 32 $CellContext`T $CellContext`T24 - 
+                32 $CellContext`T14 $CellContext`T24 - 
+                11 $CellContext`T24^2) - $CellContext`MH^2 (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 (
+               320 $CellContext`MT^6 + ($CellContext`T + $CellContext`T14) (
+                 5 $CellContext`T + 
+                 5 $CellContext`T14 - $CellContext`T24) $CellContext`T24 + 
+               8 $CellContext`MT^4 (20 $CellContext`T + 20 $CellContext`T14 + 
+                 7 $CellContext`T24) + 
+               2 $CellContext`MT^2 (10 $CellContext`T^2 + 
+                 20 $CellContext`T $CellContext`T14 + 10 $CellContext`T14^2 + 
+                 17 $CellContext`T $CellContext`T24 + 
+                 17 $CellContext`T14 $CellContext`T24 - 
+                 5 $CellContext`T24^2)) - 
+              8 $CellContext`MH^6 $CellContext`T24 (464 $CellContext`MT^6 + 
+               8 $CellContext`MT^4 (41 $CellContext`T + 41 $CellContext`T14 - 
+                 18 $CellContext`T24) + 
+               11 $CellContext`MT^2 (7 $CellContext`T^2 + 
+                 14 $CellContext`T $CellContext`T14 + 7 $CellContext`T14^2 - 
+                 4 $CellContext`T $CellContext`T24 - 
+                 4 $CellContext`T14 $CellContext`T24 - 3 $CellContext`T24^2) + 
+               2 ($CellContext`T + $CellContext`T14) (3 $CellContext`T^2 + 
+                 6 $CellContext`T $CellContext`T14 + 
+                 3 $CellContext`T14^2 - $CellContext`T $CellContext`T24 - \
+$CellContext`T14 $CellContext`T24 - 
+                 2 $CellContext`T24^2)) + $CellContext`MH^4 (
+                4608 $CellContext`MT^10 + 
+                512 $CellContext`MT^8 (9 $CellContext`T + 9 $CellContext`T14 + 
+                  25 $CellContext`T24) + 
+                64 $CellContext`MT^6 (27 $CellContext`T^2 + 
+                  54 $CellContext`T $CellContext`T14 + 27 $CellContext`T14^2 + 
+                  181 $CellContext`T $CellContext`T24 + 
+                  181 $CellContext`T14 $CellContext`T24 + 
+                  10 $CellContext`T24^2) + 
+                16 $CellContext`MT^4 (18 $CellContext`T^3 + 
+                  18 $CellContext`T14^3 + 
+                  243 $CellContext`T14^2 $CellContext`T24 + 
+                  50 $CellContext`T14 $CellContext`T24^2 - 
+                  41 $CellContext`T24^3 + 
+                  27 $CellContext`T^2 (2 $CellContext`T14 + 
+                    9 $CellContext`T24) + $CellContext`T (
+                    54 $CellContext`T14^2 + 
+                    486 $CellContext`T14 $CellContext`T24 + 
+                    50 $CellContext`T24^2)) + 
+                2 $CellContext`MT^2 (9 $CellContext`T^4 + 
+                  9 $CellContext`T14^4 + 
+                  286 $CellContext`T14^3 $CellContext`T24 + 
+                  140 $CellContext`T14^2 $CellContext`T24^2 - 
+                  78 $CellContext`T14 $CellContext`T24^3 - 
+                  13 $CellContext`T24^4 + $CellContext`T^3 (
+                    36 $CellContext`T14 + 286 $CellContext`T24) + 
+                  2 $CellContext`T^2 (27 $CellContext`T14^2 + 
+                    429 $CellContext`T14 $CellContext`T24 + 
+                    70 $CellContext`T24^2) + $CellContext`T (
+                    36 $CellContext`T14^3 + 
+                    858 $CellContext`T14^2 $CellContext`T24 + 
+                    280 $CellContext`T14 $CellContext`T24^2 - 
+                    78 $CellContext`T24^3)) + $CellContext`T24 (
+                  31 $CellContext`T^4 + 31 $CellContext`T14^4 + 
+                  30 $CellContext`T14^3 $CellContext`T24 + 
+                  2 $CellContext`T14^2 $CellContext`T24^2 + 
+                  2 $CellContext`T14 $CellContext`T24^3 - $CellContext`T24^4 + 
+                  2 $CellContext`T^3 (62 $CellContext`T14 + 
+                    15 $CellContext`T24) + 
+                  2 $CellContext`T^2 (93 $CellContext`T14^2 + 
+                    45 $CellContext`T14 $CellContext`T24 + \
+$CellContext`T24^2) + 
+                  2 $CellContext`T (62 $CellContext`T14^3 + 
+                    45 $CellContext`T14^2 $CellContext`T24 + 
+                    2 $CellContext`T14 $CellContext`T24^2 + \
+$CellContext`T24^3)))) 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+            2 ($CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+              16 $CellContext`MH^8 $CellContext`T24^2 - $CellContext`MT^2 (
+               16 $CellContext`MT^2 + 4 $CellContext`T + 4 $CellContext`T14 - 
+               5 $CellContext`T24) (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 + $CellContext`MH^6 $CellContext`T24 (
+                176 $CellContext`MT^4 + 11 $CellContext`T^2 + 
+                22 $CellContext`T $CellContext`T14 + 11 $CellContext`T14^2 + 
+                8 $CellContext`MT^2 (11 $CellContext`T + 11 $CellContext`T14 - 
+                  25 $CellContext`T24) - 34 $CellContext`T $CellContext`T24 - 
+                34 $CellContext`T14 $CellContext`T24 - 
+                13 $CellContext`T24^2) + $CellContext`MH^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (
+                144 $CellContext`MT^6 + ($CellContext`T + $CellContext`T14) (
+                  5 $CellContext`T + 5 $CellContext`T14 - 
+                  6 $CellContext`T24) $CellContext`T24 + 
+                72 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 (9 $CellContext`T^2 + 
+                  18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 + 
+                  38 $CellContext`T $CellContext`T24 + 
+                  38 $CellContext`T14 $CellContext`T24 - 
+                  55 $CellContext`T24^2)) - 
+              2 $CellContext`MH^4 $CellContext`T24 (672 $CellContext`MT^6 + 
+               8 $CellContext`T^3 + 8 $CellContext`T14^3 + 
+               16 $CellContext`MT^4 (29 $CellContext`T + 29 $CellContext`T14 - 
+                 20 $CellContext`T24) + $CellContext`T^2 (24 $CellContext`T14 - 
+                 7 $CellContext`T24) - 7 $CellContext`T14^2 $CellContext`T24 - 
+               10 $CellContext`T14 $CellContext`T24^2 - 3 $CellContext`T24^3 + 
+               2 $CellContext`MT^2 (53 $CellContext`T^2 + 
+                 106 $CellContext`T $CellContext`T14 + 53 $CellContext`T14^2 - 
+                 54 $CellContext`T $CellContext`T24 - 
+                 54 $CellContext`T14 $CellContext`T24 - 
+                 35 $CellContext`T24^2) + 
+               2 $CellContext`T (12 $CellContext`T14^2 - 
+                 7 $CellContext`T14 $CellContext`T24 - 5 $CellContext`T24^2)))
+               X`DiscB[$CellContext`MH^2 - 
+               
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + (
+              4 $CellContext`MH^8 $CellContext`T24^2 (36 $CellContext`MT^2 + 
+                9 $CellContext`T + 
+                9 $CellContext`T14 + $CellContext`T24) - $CellContext`MT^2 (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 (48 $CellContext`MT^4 + 3 $CellContext`T^2 + 
+               6 $CellContext`T $CellContext`T14 + 3 $CellContext`T14^2 + 
+               8 $CellContext`MT^2 (3 $CellContext`T + 3 $CellContext`T14 - 
+                 7 $CellContext`T24) - 14 $CellContext`T $CellContext`T24 - 
+               14 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2) + 
+              2 $CellContext`MH^6 $CellContext`T24 (192 $CellContext`MT^6 + 
+                3 $CellContext`T^3 + 3 $CellContext`T14^3 + 
+                16 $CellContext`MT^4 (9 $CellContext`T + 9 $CellContext`T14 - 
+                  58 $CellContext`T24) + $CellContext`T^2 (9 $CellContext`T14 - 
+                  40 $CellContext`T24) - 
+                40 $CellContext`T14^2 $CellContext`T24 - 
+                17 $CellContext`T14 $CellContext`T24^2 - 6 $CellContext`T24^3 + 
+                4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+                  18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+                  98 $CellContext`T $CellContext`T24 - 
+                  98 $CellContext`T14 $CellContext`T24 - 
+                  19 $CellContext`T24^2) + $CellContext`T (
+                  9 $CellContext`T14^2 - 80 $CellContext`T14 $CellContext`T24 - 
+                  17 $CellContext`T24^2)) + $CellContext`MH^4 \
+$CellContext`T24 ((-1536) $CellContext`MT^8 - 11 $CellContext`T^4 - 
+                11 $CellContext`T14^4 - 
+                64 $CellContext`MT^6 (29 $CellContext`T + 29 $CellContext`T14 - 
+                 115 $CellContext`T24) + 
+                50 $CellContext`T14^3 $CellContext`T24 + 
+                56 $CellContext`T14^2 $CellContext`T24^2 + 
+                26 $CellContext`T14 $CellContext`T24^3 - $CellContext`T24^4 + \
+$CellContext`T^3 ((-44) $CellContext`T14 + 50 $CellContext`T24) - 
+                16 $CellContext`MT^4 (51 $CellContext`T^2 + 
+                 102 $CellContext`T $CellContext`T14 + 51 $CellContext`T14^2 - 
+                 280 $CellContext`T $CellContext`T24 - 
+                 280 $CellContext`T14 $CellContext`T24 - 
+                 
+                 95 $CellContext`T24^2) + $CellContext`T^2 ((-66) \
+$CellContext`T14^2 + 150 $CellContext`T14 $CellContext`T24 + 
+                  56 $CellContext`T24^2) + $CellContext`T ((-44) \
+$CellContext`T14^3 + 150 $CellContext`T14^2 $CellContext`T24 + 
+                  112 $CellContext`T14 $CellContext`T24^2 + 
+                  26 $CellContext`T24^3) - 
+                4 $CellContext`MT^2 (39 $CellContext`T^3 + 
+                 39 $CellContext`T14^3 + $CellContext`T^2 (
+                   117 $CellContext`T14 - 215 $CellContext`T24) - 
+                 215 $CellContext`T14^2 $CellContext`T24 - 
+                 151 $CellContext`T14 $CellContext`T24^2 - 
+                 37 $CellContext`T24^3 + $CellContext`T (
+                   117 $CellContext`T14^2 - 
+                   430 $CellContext`T14 $CellContext`T24 - 
+                   151 $CellContext`T24^2))) + $CellContext`MH^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (256 $CellContext`MT^8 + 
+                32 $CellContext`MT^6 (6 $CellContext`T + 6 $CellContext`T14 - 
+                  7 $CellContext`T24) + 
+                16 $CellContext`MT^4 (3 $CellContext`T^2 + 
+                  6 $CellContext`T $CellContext`T14 + 3 $CellContext`T14^2 - 
+                  2 $CellContext`T $CellContext`T24 - 
+                  2 $CellContext`T14 $CellContext`T24 - 
+                  37 $CellContext`T24^2) + ($CellContext`T + \
+$CellContext`T14) $CellContext`T24 (5 $CellContext`T^2 + 5 $CellContext`T14^2 + 
+                  2 $CellContext`T (5 $CellContext`T14 - 8 $CellContext`T24) - 
+                  16 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2) + 
+                2 $CellContext`MT^2 (2 $CellContext`T^3 + 
+                  2 $CellContext`T14^3 + 
+                  13 $CellContext`T14^2 $CellContext`T24 - 
+                  106 $CellContext`T14 $CellContext`T24^2 - \
+$CellContext`T24^3 + $CellContext`T^2 (6 $CellContext`T14 + 
+                    13 $CellContext`T24) + 
+                  2 $CellContext`T (3 $CellContext`T14^2 + 
+                    13 $CellContext`T14 $CellContext`T24 - 
+                    53 $CellContext`T24^2)))) 
+             X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+            2 ((-64) $CellContext`MT^4 - 4 $CellContext`T^2 - 
+             8 $CellContext`T $CellContext`T14 - 4 $CellContext`T14^2 - 
+             3 $CellContext`T $CellContext`T24 - 
+             3 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + \
+$CellContext`MH^2 (20 $CellContext`MT^2 + 5 $CellContext`T + 
+               5 $CellContext`T14 + $CellContext`T24) - 
+             4 $CellContext`MT^2 (8 $CellContext`T + 8 $CellContext`T14 + 
+              3 $CellContext`T24)) (
+             16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+             8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+               8 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] - 
+            2 (16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+             8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+               8 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) \
+(($CellContext`MT^2 (4 $CellContext`T + 4 $CellContext`T14 - 
+                 6 $CellContext`T24) + ($CellContext`T + $CellContext`T14) \
+($CellContext`T + $CellContext`T14 - 2 $CellContext`T24)) (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 + 
+             2 $CellContext`MH^6 $CellContext`T24 (36 $CellContext`MT^2 + 
+               9 $CellContext`T + 
+               9 $CellContext`T14 + $CellContext`T24) + $CellContext`MH^4 (
+               192 $CellContext`MT^6 + 3 $CellContext`T^3 + 
+               3 $CellContext`T14^3 + 
+               16 $CellContext`MT^4 (9 $CellContext`T + 9 $CellContext`T14 - 
+                 37 $CellContext`T24) + $CellContext`T^2 (9 $CellContext`T14 - 
+                 31 $CellContext`T24) - 
+               31 $CellContext`T14^2 $CellContext`T24 - 
+               19 $CellContext`T14 $CellContext`T24^2 - $CellContext`T24^3 + \
+$CellContext`T (9 $CellContext`T14^2 - 62 $CellContext`T14 $CellContext`T24 - 
+                 19 $CellContext`T24^2) + 
+               4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+                 18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+                 68 $CellContext`T $CellContext`T24 - 
+                 68 $CellContext`T14 $CellContext`T24 - 
+                 17 $CellContext`T24^2)) - 
+             2 $CellContext`MH^2 (320 $CellContext`MT^8 + 2 $CellContext`T^4 + 
+              2 $CellContext`T14^4 + 
+              16 $CellContext`MT^6 (23 $CellContext`T + 23 $CellContext`T14 - 
+                37 $CellContext`T24) + $CellContext`T^3 (8 $CellContext`T14 - 
+                6 $CellContext`T24) - 6 $CellContext`T14^3 $CellContext`T24 - 
+              10 $CellContext`T14^2 $CellContext`T24^2 - 
+              3 $CellContext`T14 $CellContext`T24^3 - $CellContext`T24^4 + 
+              4 $CellContext`MT^4 (39 $CellContext`T^2 + 
+                78 $CellContext`T $CellContext`T14 + 39 $CellContext`T14^2 - 
+                98 $CellContext`T $CellContext`T24 - 
+                98 $CellContext`T14 $CellContext`T24 - 45 $CellContext`T24^2) + 
+              2 $CellContext`T^2 (6 $CellContext`T14^2 - 
+                9 $CellContext`T14 $CellContext`T24 - 
+                5 $CellContext`T24^2) + $CellContext`T (8 $CellContext`T14^3 - 
+                18 $CellContext`T14^2 $CellContext`T24 - 
+                20 $CellContext`T14 $CellContext`T24^2 - 
+                3 $CellContext`T24^3) + $CellContext`MT^2 (
+                29 $CellContext`T^3 + 
+                29 $CellContext`T14^3 + $CellContext`T^2 (87 $CellContext`T14 - 
+                  85 $CellContext`T24) - 
+                85 $CellContext`T14^2 $CellContext`T24 - 
+                85 $CellContext`T14 $CellContext`T24^2 - 
+                7 $CellContext`T24^3 + $CellContext`T (87 $CellContext`T14^2 - 
+                  170 $CellContext`T14 $CellContext`T24 - 
+                  85 $CellContext`T24^2)))) 
+            X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+          4 $CellContext`MT^2 (
+             16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+             4 $CellContext`MH^2 $CellContext`T24 + 
+             2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+             2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+             
+             8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) ((-$CellContext`S34^2 - 
+              2 $CellContext`S34 $CellContext`T - $CellContext`S34 \
+$CellContext`T24 + 2 $CellContext`T14 $CellContext`T24 - 
+              2 $CellContext`S (
+               2 $CellContext`S34 + $CellContext`T24) + $CellContext`MH^2 (
+                2 $CellContext`S + 3 $CellContext`S34 - 2 $CellContext`T14 - 
+                3 $CellContext`U) + 2 $CellContext`T $CellContext`U + 
+              4 $CellContext`T14 $CellContext`U + $CellContext`T24 \
+$CellContext`U + $CellContext`U^2) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] - 
+            8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[4]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] - 
+            8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[2]] - 
+            4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T24 - \
+$CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[5]] ((2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] (2 $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]])) - 
+            8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[4]] $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[1]] - 
+            8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`e[2]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[2]] $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[1]] + 4 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[
+               4]] ((-$CellContext`MH^2 + 
+                2 $CellContext`S34 + $CellContext`T24) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[
+                 1]] + (-$CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] - $CellContext`MH^2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + $CellContext`T24 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + 2 $CellContext`U $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] - $CellContext`MH^2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + 2 $CellContext`S34 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] - $CellContext`S34 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]] + $CellContext`U $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]] - $CellContext`MH^2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] + $CellContext`T24 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]] + 2 $CellContext`U $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]])) ((-$CellContext`MH^2 + 
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14)^(-1) \
+((-2) $CellContext`MH^2 + 
+              4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MH^2 (
+               16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + \
+$CellContext`T24)))^(-1) (256 $CellContext`MT^8 + 
+              192 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + 
+              48 $CellContext`MT^4 ($CellContext`T^2 + $CellContext`T14^2 + 
+                2 $CellContext`T14 $CellContext`T24 + $CellContext`T24 ((-3) \
+$CellContext`MH^2 + $CellContext`T24) + 
+                2 $CellContext`T ($CellContext`T14 + $CellContext`T24)) + \
+$CellContext`MH^2 $CellContext`T24 ((-5) $CellContext`T^2 - 
+                5 $CellContext`T14^2 - 
+                4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                2 $CellContext`MH^2 (3 $CellContext`T + 
+                  3 $CellContext`T14 + $CellContext`T24) - 
+                2 $CellContext`T (5 $CellContext`T14 + 2 $CellContext`T24)) + 
+              4 $CellContext`MT^2 ($CellContext`T^3 + $CellContext`T14^3 + 
+                3 $CellContext`T14^2 $CellContext`T24 + 
+                3 $CellContext`T^2 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T14 $CellContext`T24 ((-14) $CellContext`MH^2 + 
+                  3 $CellContext`T24) + $CellContext`T24 (6 $CellContext`MH^4 - 
+                  8 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + \
+$CellContext`T (3 $CellContext`T14^2 + 
+                  6 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+((-14) $CellContext`MH^2 + 3 $CellContext`T24)))) 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+             X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] - ($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+              
+              12 $CellContext`MT^2 ($CellContext`T + $CellContext`T14) + \
+($CellContext`T + $CellContext`T14)^2 - 
+              2 $CellContext`MH^2 (
+               6 $CellContext`MT^2 + $CellContext`T + $CellContext`T14))^(-1) \
+(16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - $CellContext`T - \
+$CellContext`T14) $CellContext`T24 + 
+              8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                8 $CellContext`MH^2 $CellContext`T24 + 
+                2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1) \
+(2 $CellContext`MH^10 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+               3 $CellContext`T14 - $CellContext`T24) $CellContext`T24 - \
+$CellContext`MH^8 $CellContext`T24 (464 $CellContext`MT^4 + 
+              19 $CellContext`T^2 + 38 $CellContext`T $CellContext`T14 + 
+              19 $CellContext`T14^2 + 
+              8 $CellContext`MT^2 (24 $CellContext`T + 
+                24 $CellContext`T14 - $CellContext`T24) - 
+              4 $CellContext`T $CellContext`T24 - 
+              4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2) - \
+$CellContext`MT^2 (
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 (
+              40 $CellContext`MT^4 + ($CellContext`T + $CellContext`T14)^2 + 
+              2 $CellContext`MT^2 (7 $CellContext`T + 
+                7 $CellContext`T14 + $CellContext`T24)) + $CellContext`MH^2 (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (
+               832 $CellContext`MT^8 + ($CellContext`T + $CellContext`T14)^3 \
+$CellContext`T24 + 
+               48 $CellContext`MT^6 (11 $CellContext`T + 11 $CellContext`T14 + 
+                 10 $CellContext`T24) + $CellContext`MT^2 ($CellContext`T + \
+$CellContext`T14) (7 $CellContext`T^2 + 14 $CellContext`T $CellContext`T14 + 
+                 7 $CellContext`T14^2 + 26 $CellContext`T $CellContext`T24 + 
+                 26 $CellContext`T14 $CellContext`T24 + 3 $CellContext`T24^2) + 
+               4 $CellContext`MT^4 (27 $CellContext`T^2 + 
+                 54 $CellContext`T $CellContext`T14 + 27 $CellContext`T14^2 + 
+                 52 $CellContext`T $CellContext`T24 + 
+                 52 $CellContext`T14 $CellContext`T24 + 
+                 9 $CellContext`T24^2)) + $CellContext`MH^6 (
+               256 $CellContext`MT^8 + 
+               192 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + 
+                 17 $CellContext`T24) + 
+               3 ($CellContext`T + $CellContext`T14) $CellContext`T24 (
+                 7 $CellContext`T^2 + 14 $CellContext`T $CellContext`T14 + 
+                 7 $CellContext`T14^2 + $CellContext`T24^2) + 
+               16 $CellContext`MT^4 (3 $CellContext`T^2 + 
+                 6 $CellContext`T $CellContext`T14 + 3 $CellContext`T14^2 + 
+                 119 $CellContext`T $CellContext`T24 + 
+                 119 $CellContext`T14 $CellContext`T24 + 
+                 13 $CellContext`T24^2) + 
+               4 $CellContext`MT^2 ($CellContext`T^3 + $CellContext`T14^3 + 
+                 89 $CellContext`T14^2 $CellContext`T24 + 
+                 9 $CellContext`T14 $CellContext`T24^2 + 
+                 7 $CellContext`T24^3 + $CellContext`T^2 (3 $CellContext`T14 + 
+                   89 $CellContext`T24) + $CellContext`T (
+                   3 $CellContext`T14^2 + 
+                   178 $CellContext`T14 $CellContext`T24 + 
+                   9 $CellContext`T24^2))) - $CellContext`MH^4 (
+              3584 $CellContext`MT^10 + 
+              256 $CellContext`MT^8 (13 $CellContext`T + 13 $CellContext`T14 + 
+                40 $CellContext`T24) + ($CellContext`T + $CellContext`T14)^2 \
+$CellContext`T24 (9 $CellContext`T^2 + 18 $CellContext`T $CellContext`T14 + 
+                9 $CellContext`T14^2 + 4 $CellContext`T $CellContext`T24 + 
+                4 $CellContext`T14 $CellContext`T24 + 3 $CellContext`T24^2) + 
+              128 $CellContext`MT^6 (9 $CellContext`T^2 + 
+                18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 + 
+                60 $CellContext`T $CellContext`T24 + 
+                60 $CellContext`T14 $CellContext`T24 + 14 $CellContext`T24^2) + 
+              16 $CellContext`MT^4 (11 $CellContext`T^3 + 
+                11 $CellContext`T14^3 + 
+                129 $CellContext`T14^2 $CellContext`T24 + 
+                51 $CellContext`T14 $CellContext`T24^2 + 
+                16 $CellContext`T24^3 + 
+                3 $CellContext`T^2 (11 $CellContext`T14 + 
+                  43 $CellContext`T24) + 
+                3 $CellContext`T (11 $CellContext`T14^2 + 
+                  86 $CellContext`T14 $CellContext`T24 + 
+                  17 $CellContext`T24^2)) + 
+              2 $CellContext`MT^2 (5 $CellContext`T^4 + 5 $CellContext`T14^4 + 
+                116 $CellContext`T14^3 $CellContext`T24 + 
+                54 $CellContext`T14^2 $CellContext`T24^2 + 
+                28 $CellContext`T14 $CellContext`T24^3 + $CellContext`T24^4 + 
+                4 $CellContext`T^3 (5 $CellContext`T14 + 29 $CellContext`T24) + 
+                6 $CellContext`T^2 (5 $CellContext`T14^2 + 
+                  58 $CellContext`T14 $CellContext`T24 + 
+                  9 $CellContext`T24^2) + 
+                4 $CellContext`T (5 $CellContext`T14^3 + 
+                  87 $CellContext`T14^2 $CellContext`T24 + 
+                  27 $CellContext`T14 $CellContext`T24^2 + 
+                  7 $CellContext`T24^3)))) 
+            X`DiscB[$CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT]/
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] - (
+              16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+              8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                8 $CellContext`MH^2 $CellContext`T24 + 
+                2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1) \
+(256 $CellContext`MT^10 + 
+             256 $CellContext`MT^8 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MH^2 $CellContext`T24 (
+               2 $CellContext`MH^2 ($CellContext`T + $CellContext`T14 - \
+$CellContext`T24)^2 + 
+               4 $CellContext`MH^4 $CellContext`T24 - ($CellContext`T + \
+$CellContext`T14) ($CellContext`T + $CellContext`T14 + $CellContext`T24)^2) + 
+             32 $CellContext`MT^6 (3 $CellContext`T^2 + 3 $CellContext`T14^2 + 
+               6 $CellContext`T14 $CellContext`T24 + 
+               6 $CellContext`T ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T24 ((-2) $CellContext`MH^2 + 
+                 3 $CellContext`T24)) + $CellContext`MT^2 ($CellContext`T^4 + \
+$CellContext`T14^4 + 4 $CellContext`T14^3 $CellContext`T24 + 
+               6 $CellContext`T14^2 $CellContext`T24 ((-2) $CellContext`MH^2 + \
+$CellContext`T24) + 
+               4 $CellContext`T14 $CellContext`T24 ((-2) $CellContext`MH^2 + \
+$CellContext`T24)^2 + 
+               4 $CellContext`T^3 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T24^2 ((-32) $CellContext`MH^4 - 
+                 4 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + 
+               6 $CellContext`T^2 ($CellContext`T14^2 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24 ((-2) \
+$CellContext`MH^2 + $CellContext`T24)) + 
+               4 $CellContext`T ($CellContext`T14^3 + 
+                 3 $CellContext`T14^2 $CellContext`T24 + 
+                 3 $CellContext`T14 $CellContext`T24 ((-2) $CellContext`MH^2 + \
+$CellContext`T24) + $CellContext`T24 ((-2) $CellContext`MH^2 + \
+$CellContext`T24)^2)) + 
+             16 $CellContext`MT^4 ($CellContext`T^3 + $CellContext`T14^3 + 
+               3 $CellContext`T14^2 $CellContext`T24 + 
+               3 $CellContext`T14 $CellContext`T24 (-$CellContext`MH^2 + \
+$CellContext`T24) + 
+               3 $CellContext`T^2 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T24 (2 $CellContext`MH^4 - 
+                 2 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + 
+               3 $CellContext`T ($CellContext`T14^2 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+(-$CellContext`MH^2 + $CellContext`T24)))) 
+            X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT]/
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] + 
+            2 $CellContext`MH^2 (16 $CellContext`MT^4 + $CellContext`T^2 + 
+              2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 + \
+$CellContext`MT^2 (8 $CellContext`T + 8 $CellContext`T14 - 
+                4 $CellContext`T24) + 
+              2 $CellContext`MH^2 $CellContext`T24 - $CellContext`T \
+$CellContext`T24 - $CellContext`T14 $CellContext`T24 - 2 $CellContext`T24^2) 
+             X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]))) + \
+$CellContext`T14^(-1) ($CellContext`MH^2 - $CellContext`S - $CellContext`T24 - \
+$CellContext`U)^(-1) ((-8) $CellContext`MT^2 (16 $CellContext`MT^4 - 
+            4 $CellContext`MH^2 $CellContext`T14 + 
+            8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) 
+          X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1) \
+((-4) $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]])) + 8 $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[1]] ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]]) + 8 $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[4]] ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]]) + $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[
+              4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+               2 $CellContext`T24) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]])))) ($CellContext`MH^2 (
+             16 $CellContext`MT^4 + 8 $CellContext`MH^2 $CellContext`T14 - 
+             5 $CellContext`T14^2 - 
+             4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 - 
+             4 $CellContext`T14 $CellContext`U + 
+             2 $CellContext`T24 $CellContext`U + $CellContext`U^2 + 
+             8 $CellContext`MT^2 ((-2) $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)) 
+            X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T14 ((
+               4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - 
+             2 $CellContext`MH^2 (12 $CellContext`MT^2 - $CellContext`T14 + 
+              3 ($CellContext`T24 + $CellContext`U))) 
+            X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] - (
+            8 $CellContext`MH^4 $CellContext`T14 + $CellContext`T14 (
+               
+               4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 + $CellContext`MH^2 (16 $CellContext`MT^4 - 
+              3 $CellContext`T14^2 - 
+              10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 + 
+              8 $CellContext`MT^2 ((-5) $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U))) 
+           X`DiscB[$CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + (
+             4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+           2 (64 $CellContext`MT^8 + 
+             48 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + 
+             12 $CellContext`MT^4 ((-4) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) - $CellContext`MH^2 \
+$CellContext`T14 (-$CellContext`T14^2 + $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U) + 
+              2 ($CellContext`T24 + $CellContext`U)^2 + $CellContext`MH^2 \
+($CellContext`T14 - 
+                3 ($CellContext`T24 + $CellContext`U))) + $CellContext`MT^2 (
+               12 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+               4 $CellContext`MH^2 $CellContext`T14 (2 $CellContext`T14 + 
+                5 ($CellContext`T24 + $CellContext`U)))) 
+            X`ScalarC0[$CellContext`MH^2, $CellContext`T14, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+         8 $CellContext`MT^2 (16 $CellContext`MT^4 - 
+            4 $CellContext`MH^2 $CellContext`T14 + 
+            8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((
+             4 $CellContext`S $CellContext`S34 - $CellContext`S34^2 + \
+$CellContext`T^2 + 2 $CellContext`S34 $CellContext`T14 - 
+             2 $CellContext`T $CellContext`T14 - 
+             2 $CellContext`MH^2 (
+              2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+              2 $CellContext`T24) - 4 $CellContext`T $CellContext`T24 - 
+             2 $CellContext`S34 $CellContext`U + 
+             2 $CellContext`T $CellContext`U) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] + 
+           8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[5]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`ec[5]] + 
+           8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[5]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`k[5]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[1]] - 4 $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[5]] (
+            2 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[2]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] + (6 $CellContext`MH^2 - 3 $CellContext`S34 - 
+              3 $CellContext`T - 4 $CellContext`U) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]] (
+              2 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + (6 $CellContext`MH^2 - 
+                3 $CellContext`S34 - 3 $CellContext`T - 
+                4 $CellContext`U) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]])) + 
+           8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[2]] + 
+           8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`e[2]] $CellContext`Pair[
+              $CellContext`ec[4], 
+              $CellContext`k[1]] $CellContext`Pair[
+              $CellContext`ec[5], 
+              $CellContext`k[2]] + 32 ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) + ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[3]]) ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]]) - 4 $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`ec[
+             4]] (((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 1]] + ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] + 
+              2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[
+               5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[
+                 1]] + ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]] + 
+              2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]]))) ((-$CellContext`MH^2 + 
+              4 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) (
+             4 $CellContext`MT^2 - $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - (
+             16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+             8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+            256 $CellContext`MT^10 + 
+            256 $CellContext`MT^8 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 
+            32 $CellContext`MT^6 (2 $CellContext`MH^2 $CellContext`T14 - 
+             3 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + 
+            16 $CellContext`MT^4 ($CellContext`MH^4 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^3 - $CellContext`MH^2 \
+$CellContext`T14 ($CellContext`T14 + 
+               3 ($CellContext`T24 + $CellContext`U))) + $CellContext`MT^2 (
+              8 $CellContext`MH^4 $CellContext`T14 ((-5) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 + 
+              4 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14^2 - 
+                2 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                3 ($CellContext`T24 + $CellContext`U)^2)) + $CellContext`MH^2 \
+$CellContext`T14 (
+              8 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 - \
+$CellContext`T24 - $CellContext`U) ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 + $CellContext`MH^2 ((-3) $CellContext`T14^2 - 
+                6 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2))) 
+           X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+           X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+            4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + \
+$CellContext`T14 (
+              16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+              8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+             256 $CellContext`MT^8 + 
+             192 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 
+             48 $CellContext`MT^4 (
+              3 $CellContext`MH^2 $CellContext`T14 - ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2) + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`T14^2 - 4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+               5 ($CellContext`T24 + $CellContext`U)^2 + 
+               2 $CellContext`MH^2 ($CellContext`T14 + 
+                 3 ($CellContext`T24 + $CellContext`U))) + 
+             4 $CellContext`MT^2 (
+               6 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+               2 $CellContext`MH^2 $CellContext`T14 (4 $CellContext`T14 + 
+                7 ($CellContext`T24 + $CellContext`U)))) 
+            X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT]/
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+              12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+              2 $CellContext`MH^2 (
+               6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^(-1) \
+(16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 ($CellContext`MH^2 - \
+$CellContext`T24 - $CellContext`U) + 
+              8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+             8 $CellContext`MH^10 $CellContext`T14^2 + $CellContext`MH^8 \
+$CellContext`T14 (16 $CellContext`MT^4 - 5 $CellContext`T14^2 - 
+               28 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 + 
+               8 $CellContext`MT^2 ((-20) $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)) + $CellContext`MH^6 $CellContext`T14 ((-256) \
+$CellContext`MT^6 + 
+               16 $CellContext`MT^4 (72 $CellContext`T14 - 
+                 11 ($CellContext`T24 + $CellContext`U)) + 
+               8 $CellContext`MT^2 (14 $CellContext`T14^2 + 
+                 52 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                 5 ($CellContext`T24 + $CellContext`U)^2) - 
+               3 ($CellContext`T24 + $CellContext`U) ((-5) $CellContext`T14^2 - 
+                12 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2)) + $CellContext`MT^2 (
+                4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^3 (160 $CellContext`MT^6 - 
+               16 $CellContext`MT^4 (7 $CellContext`T14 - 
+                6 ($CellContext`T24 + $CellContext`U)) - 
+               2 $CellContext`MT^2 (3 $CellContext`T14^2 + 
+                22 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                
+                9 ($CellContext`T24 + $CellContext`U)^2) + ($CellContext`T24 + \
+$CellContext`U) (-$CellContext`T14^2 - 
+                 4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2)) + $CellContext`MH^4 (
+               256 $CellContext`MT^10 + 
+               256 $CellContext`MT^8 (
+                 5 $CellContext`T14 + $CellContext`T24 + $CellContext`U) - 
+               32 $CellContext`MT^6 (115 $CellContext`T14^2 - 
+                36 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                3 ($CellContext`T24 + $CellContext`U)^2) - $CellContext`T14 \
+($CellContext`T24 + $CellContext`U)^2 (15 $CellContext`T14^2 + 
+                20 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                3 ($CellContext`T24 + $CellContext`U)^2) - 
+               16 $CellContext`MT^4 (49 $CellContext`T14^3 + 
+                129 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                24 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - \
+($CellContext`T24 + $CellContext`U)^3) + $CellContext`MT^2 ((-11) \
+$CellContext`T14^4 - 
+                 232 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                 366 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+                 56 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + \
+($CellContext`T24 + $CellContext`U)^4)) - $CellContext`MH^2 (
+              3072 $CellContext`MT^12 + 
+              256 $CellContext`MT^10 (11 $CellContext`T14 + 
+                14 ($CellContext`T24 + $CellContext`U)) - 
+              128 $CellContext`MT^8 (45 $CellContext`T14^2 - 
+               22 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+               13 ($CellContext`T24 + $CellContext`U)^2) + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U)^3 ((-5) $CellContext`T14^2 - 
+                4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2) - 
+              32 $CellContext`MT^6 (61 $CellContext`T14^3 + 
+               134 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+               35 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+               12 ($CellContext`T24 + $CellContext`U)^3) - 
+              4 $CellContext`MT^4 (25 $CellContext`T14^4 + 
+               236 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+               282 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 - 
+               56 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - 
+               11 ($CellContext`T24 + $CellContext`U)^4) + $CellContext`MT^2 \
+(-$CellContext`T14^5 - 
+                18 $CellContext`T14^4 ($CellContext`T24 + $CellContext`U) - 
+                134 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U)^2 - 
+                120 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^3 + 
+                23 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^4 + 
+                2 ($CellContext`T24 + $CellContext`U)^5))) 
+            X`DiscB[$CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]/
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+           2 $CellContext`T14 ((
+               4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - $CellContext`MH^2 (
+              12 $CellContext`MT^2 + $CellContext`T14 + 
+              3 ($CellContext`T24 + $CellContext`U))) 
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1) 
+            X`ScalarC0[$CellContext`MH^2, $CellContext`T14, $CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+         16 $CellContext`MT^2 $CellContext`T14 (16 $CellContext`MT^4 - 
+           4 $CellContext`MH^2 $CellContext`T14 + 
+           8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((-4) $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[5]] ($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[2]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]] ($CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[5]])) + 8 $CellContext`Pair[
+             $CellContext`ec[4], 
+             $CellContext`k[1]] ($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]]) + 8 $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`k[4]] ($CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] + $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]]) + $CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`ec[
+             4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+              2 $CellContext`T24) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] ($CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]])))) ((-$CellContext`MH^2 + 
+             4 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+((-2) $CellContext`MH^2 + 
+            4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MH^2 (
+             16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+             8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+            256 $CellContext`MT^8 + 
+            192 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 
+            48 $CellContext`MT^4 (
+             3 $CellContext`MH^2 $CellContext`T14 - ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2) + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`T14^2 - 4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+              5 ($CellContext`T24 + $CellContext`U)^2 + 
+              2 $CellContext`MH^2 ($CellContext`T14 + 
+                3 ($CellContext`T24 + $CellContext`U))) + 
+            4 $CellContext`MT^2 (
+              6 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+              2 $CellContext`MH^2 $CellContext`T14 (4 $CellContext`T14 + 
+               7 ($CellContext`T24 + $CellContext`U)))) 
+           X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+           X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+            4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - (
+            16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+            8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+           256 $CellContext`MT^10 + 
+           256 $CellContext`MT^8 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 
+           32 $CellContext`MT^6 (2 $CellContext`MH^2 $CellContext`T14 - 
+            3 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + \
+$CellContext`MH^2 $CellContext`T14 (4 $CellContext`MH^4 $CellContext`T14 + 
+             2 $CellContext`MH^2 (-$CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - ($CellContext`T24 + $CellContext`U) ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2) + 
+           16 $CellContext`MT^4 (
+             2 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - $CellContext`MH^2 $CellContext`T14 (
+              2 $CellContext`T14 + 
+              3 ($CellContext`T24 + $CellContext`U))) + $CellContext`MT^2 (
+             16 $CellContext`MH^4 $CellContext`T14 ((-2) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 - 
+             4 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14^2 + 
+              4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+              3 ($CellContext`T24 + $CellContext`U)^2))) 
+          X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT]/
+          X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+           4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+            12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+            2 $CellContext`MH^2 (
+             6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^(-1) (
+            16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+            8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+           2 $CellContext`MH^10 $CellContext`T14 (
+             12 $CellContext`MT^2 - $CellContext`T14 + 
+             3 ($CellContext`T24 + $CellContext`U)) - $CellContext`MH^8 \
+$CellContext`T14 (464 $CellContext`MT^4 + $CellContext`T14^2 - 
+            4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+            19 ($CellContext`T24 + $CellContext`U)^2 - 
+            8 $CellContext`MT^2 ($CellContext`T14 - 
+             24 ($CellContext`T24 + $CellContext`U))) - $CellContext`MT^2 (
+             4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 (
+            40 $CellContext`MT^4 + ($CellContext`T24 + $CellContext`U)^2 + 
+            2 $CellContext`MT^2 ($CellContext`T14 + 
+              7 ($CellContext`T24 + $CellContext`U))) + $CellContext`MH^2 (
+              4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 (
+             832 $CellContext`MT^8 + $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+             48 $CellContext`MT^6 (10 $CellContext`T14 + 
+               11 ($CellContext`T24 + $CellContext`U)) + $CellContext`MT^2 \
+($CellContext`T24 + $CellContext`U) (3 $CellContext`T14^2 + 
+               26 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+               7 ($CellContext`T24 + $CellContext`U)^2) + 
+             4 $CellContext`MT^4 (9 $CellContext`T14^2 + 
+               52 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+               27 ($CellContext`T24 + $CellContext`U)^2)) + $CellContext`MH^6 \
+(256 $CellContext`MT^8 + 
+             192 $CellContext`MT^6 (
+               17 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+             16 $CellContext`MT^4 (13 $CellContext`T14^2 + 
+               119 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+               3 ($CellContext`T24 + $CellContext`U)^2) + 
+             3 $CellContext`T14 ($CellContext`T24 + $CellContext`U) \
+($CellContext`T14^2 + 7 ($CellContext`T24 + $CellContext`U)^2) + 
+             4 $CellContext`MT^2 (7 $CellContext`T14^3 + 
+               9 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+               89 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3)) - $CellContext`MH^4 (
+            3584 $CellContext`MT^10 + 
+            256 $CellContext`MT^8 (40 $CellContext`T14 + 
+              
+              13 ($CellContext`T24 + $CellContext`U)) + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U)^2 (3 $CellContext`T14^2 + 
+              4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+              9 ($CellContext`T24 + $CellContext`U)^2) + 
+            128 $CellContext`MT^6 (14 $CellContext`T14^2 + 
+              60 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+              9 ($CellContext`T24 + $CellContext`U)^2) + 
+            16 $CellContext`MT^4 (16 $CellContext`T14^3 + 
+              51 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+              129 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + 
+              11 ($CellContext`T24 + $CellContext`U)^3) + 
+            2 $CellContext`MT^2 ($CellContext`T14^4 + 
+              28 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+              54 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+              116 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+              5 ($CellContext`T24 + $CellContext`U)^4))) 
+          X`DiscB[$CellContext`MH^2 - 
+            4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]/
+          X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+          2 $CellContext`MH^2 (16 $CellContext`MT^4 + 
+            2 $CellContext`MH^2 $CellContext`T14 - 
+            2 $CellContext`T14^2 - $CellContext`T14 $CellContext`T24 + \
+$CellContext`T24^2 - $CellContext`T14 $CellContext`U + 
+            2 $CellContext`T24 $CellContext`U + $CellContext`U^2 + \
+$CellContext`MT^2 ((-4) $CellContext`T14 + 
+              8 ($CellContext`T24 + $CellContext`U))) 
+           X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1) 
+           X`ScalarC0[$CellContext`MH^2, $CellContext`T14, $CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+         2 ((-4) $CellContext`MT^2 (-$CellContext`MH^2 + 
+             4 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+(-$CellContext`MH^2 + 
+             8 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+(-$CellContext`MH^2 + 8 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + 
+            2 $CellContext`MT^2 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]) ((-4) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]])) + 8 $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]]) + 8 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]]) + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                2 $CellContext`T24) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])))) - 
+          4 $CellContext`MT^2 (-$CellContext`MH^2 + 
+            8 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) (
+            16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+            8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) 
+          X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1) \
+(((-2) $CellContext`S $CellContext`S34 - $CellContext`S34 $CellContext`T14 + \
+$CellContext`T $CellContext`T14 + 
+             2 $CellContext`MH^2 ($CellContext`S - $CellContext`T24) + 
+             2 $CellContext`T $CellContext`T24) $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[4]] $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[5]] - 
+           4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`k[4]] $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`k[5]] $CellContext`Pair[
+             $CellContext`ec[4], 
+             $CellContext`ec[5]] - 
+           4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`ec[5]] $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`k[5]] $CellContext`Pair[
+             $CellContext`ec[4], 
+             $CellContext`k[1]] + 4 $CellContext`Pair[
+              $CellContext`e[2], 
+              $CellContext`ec[
+              5]] (((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[
+                1]] + ($CellContext`S + $CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[
+                4]] (((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[
+                  2]] + ($CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]])) - 
+           4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`k[4]] $CellContext`Pair[
+             $CellContext`e[2], 
+             $CellContext`ec[4]] $CellContext`Pair[
+             $CellContext`ec[5], 
+             $CellContext`k[2]] - 
+           4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+             $CellContext`e[1], 
+             $CellContext`e[2]] $CellContext`Pair[
+             $CellContext`ec[4], 
+             $CellContext`k[1]] $CellContext`Pair[
+             $CellContext`ec[5], 
+             $CellContext`k[2]] - 8 ($CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] ($CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] - $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) + ($CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[2]] - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[5]]) $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[3]]) ($CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] + $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[3]]) + 4 $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`ec[
+              4]] (((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[
+                  1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[
+                5]] ((-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  4]]))) (-$CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - 
+             8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) (
+             2 $CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T14 - $CellContext`T24 - \
+$CellContext`U) 
+            X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 $CellContext`T14 ($CellContext`MH^2 - 
+             8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) (
+             4 $CellContext`MT^2 - $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+            X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] - (
+            64 $CellContext`MT^8 - 
+            2 $CellContext`MH^2 $CellContext`T14 (-$CellContext`MH^2 + \
+$CellContext`T24 + $CellContext`U)^2 + 
+            48 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + 
+            4 $CellContext`MT^4 ((-20) $CellContext`MH^2 $CellContext`T14 + 
+              3 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + \
+$CellContext`MT^2 (
+              24 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+              4 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14 + 
+               7 ($CellContext`T24 + $CellContext`U)))) 
+           X`DiscB[$CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] - ($CellContext`MH^2 - 
+            8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) (
+            4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) (
+            16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+            8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2)) 
+           X`ScalarC0[$CellContext`MH^2, $CellContext`T14, $CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT])) + 
+         4 (2 $CellContext`MT^2 (16 $CellContext`MT^4 - 
+              4 $CellContext`MH^2 $CellContext`T14 + 
+              8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-2) (-($CellContext`S34 - $CellContext`T) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + 
+               2 $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] - 
+             4 (2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+              2 $CellContext`U) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) - 
+             4 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]])) (-(-$CellContext`MH^2 + 
+                4 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+(12 $CellContext`MH^4 $CellContext`T14 - (
+                4 $CellContext`MT^2 - $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) (
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 + 
+               2 $CellContext`MH^2 (16 $CellContext`MT^4 - $CellContext`T14^2 - 
+                 6 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 + 
+                 8 $CellContext`MT^2 ((-3) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U))) + 
+             2 $CellContext`MH^2 (
+                16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+               1024 $CellContext`MT^12 - 
+               1280 $CellContext`MT^10 ($CellContext`T14 - $CellContext`T24 - \
+$CellContext`U) + 128 $CellContext`MT^8 (7 $CellContext`MH^2 $CellContext`T14 - 
+                 15 $CellContext`T14^2 - 
+                 10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                 5 ($CellContext`T24 + $CellContext`U)^2) + 
+               32 $CellContext`MT^6 (2 $CellContext`MH^4 $CellContext`T14 - 
+                 5 (5 $CellContext`T14 - $CellContext`T24 - $CellContext`U) \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2 + 
+                 19 $CellContext`MH^2 $CellContext`T14 (
+                   3 $CellContext`T14 + $CellContext`T24 + $CellContext`U)) - 
+               4 $CellContext`MT^4 (
+                5 (7 $CellContext`T14 - $CellContext`T24 - $CellContext`U) \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^3 + 
+                4 $CellContext`MH^4 $CellContext`T14 (55 $CellContext`T14 - 
+                  3 ($CellContext`T24 + $CellContext`U)) - 
+                2 $CellContext`MH^2 $CellContext`T14 (91 $CellContext`T14^2 + 
+                 130 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                 15 ($CellContext`T24 + $CellContext`U)^2)) + \
+$CellContext`MH^2 $CellContext`T14 (
+                 2 $CellContext`MH^4 $CellContext`T14 (3 $CellContext`T14 + 
+                   13 ($CellContext`T24 + $CellContext`U)) - \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2 ($CellContext`T14^2 - 
+                  10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2) + $CellContext`MH^2 ((-5) \
+$CellContext`T14^3 - 
+                   27 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                   33 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3)) + $CellContext`MT^2 (
+                 104 $CellContext`MH^6 $CellContext`T14^2 - (
+                  9 $CellContext`T14 - $CellContext`T24 - $CellContext`U) \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^4 - 
+                 4 $CellContext`MH^4 $CellContext`T14 (37 $CellContext`T14^2 + 
+                  88 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                  3 ($CellContext`T24 + $CellContext`U)^2) + 
+                 2 $CellContext`MH^2 $CellContext`T14 (39 $CellContext`T14^3 + 
+                   127 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                   
+                   89 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3))) 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+             2 $CellContext`T14 (
+                16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) ((-12) \
+$CellContext`MH^8 $CellContext`T14^2 + $CellContext`MT^2 (
+                  4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^5 - $CellContext`MH^2 (
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^3 (
+                40 $CellContext`MT^4 + $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-4) $CellContext`T14 + 
+                  10 ($CellContext`T24 + $CellContext`U))) - 
+               2 $CellContext`MH^6 $CellContext`T14 (96 $CellContext`MT^4 - 
+                5 $CellContext`T14^2 - 
+                9 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                6 ($CellContext`T24 + $CellContext`U)^2 + $CellContext`MT^2 \
+((-60) $CellContext`T14 + 48 ($CellContext`T24 + $CellContext`U))) + 
+               2 $CellContext`MH^4 $CellContext`T14 (
+                 608 $CellContext`MT^6 + $CellContext`T14^3 - 
+                 5 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                 6 ($CellContext`T24 + $CellContext`U)^3 + $CellContext`MT^4 \
+((-64) $CellContext`T14 + 400 ($CellContext`T24 + $CellContext`U)) - 
+                 2 $CellContext`MT^2 (25 $CellContext`T14^2 + 
+                  8 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                  43 ($CellContext`T24 + $CellContext`U)^2))) 
+              X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT]/
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - 
+             2 ($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+               12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+               2 $CellContext`MH^2 (
+                6 $CellContext`MT^2 + $CellContext`T24 + \
+$CellContext`U))^(-1) (
+               16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+               8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+              2 $CellContext`MH^12 $CellContext`T14^2 (52 $CellContext`MT^2 - 
+                3 $CellContext`T14 + 
+                13 ($CellContext`T24 + $CellContext`U)) + $CellContext`MT^2 (
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^5 (
+                16 $CellContext`MT^6 + $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                8 $CellContext`MT^4 (
+                  5 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + \
+$CellContext`MT^2 ($CellContext`T14^2 + 
+                  14 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2)) + $CellContext`MH^10 $CellContext`T14 \
+(64 $CellContext`MT^6 + 5 $CellContext`T14^3 + 
+                3 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                97 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3 + $CellContext`MT^4 ((-2320) \
+$CellContext`T14 + 48 ($CellContext`T24 + $CellContext`U)) + 
+                4 $CellContext`MT^2 (3 $CellContext`T14^2 - 
+                  242 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                  3 ($CellContext`T24 + $CellContext`U)^2)) + \
+$CellContext`MH^2 (
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^3 (
+                512 $CellContext`MT^10 - $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 - 
+                64 $CellContext`MT^8 (46 $CellContext`T14 - 
+                 7 ($CellContext`T24 + $CellContext`U)) - 
+                16 $CellContext`MT^6 (26 $CellContext`T14^2 + 
+                 114 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                 9 ($CellContext`T24 + $CellContext`U)^2) - 
+                4 $CellContext`MT^4 (6 $CellContext`T14^3 + 
+                 45 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                 90 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                 5 ($CellContext`T24 + $CellContext`U)^3) + $CellContext`MT^2 \
+($CellContext`T24 + $CellContext`U) ((-2) $CellContext`T14^3 - 
+                  23 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                  22 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3)) + $CellContext`MH^8 $CellContext`T14 (
+                128 $CellContext`MT^8 + $CellContext`T14^4 + 
+                96 $CellContext`MT^6 (
+                  203 $CellContext`T14 - $CellContext`T24 - $CellContext`U) - 
+                12 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                30 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+                136 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - 
+                3 ($CellContext`T24 + $CellContext`U)^4 + 
+                8 $CellContext`MT^4 (157 $CellContext`T14^2 + 
+                  1446 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                  15 ($CellContext`T24 + $CellContext`U)^2) - 
+                2 $CellContext`MT^2 (33 $CellContext`T14^3 - 
+                 205 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                 1109 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + 
+                 17 ($CellContext`T24 + $CellContext`U)^3)) + \
+$CellContext`MH^6 (1024 $CellContext`MT^12 - 
+                256 $CellContext`MT^10 (51 $CellContext`T14 - 
+                 5 ($CellContext`T24 + $CellContext`U)) - 
+                128 $CellContext`MT^8 (609 $CellContext`T14^2 + 
+                 87 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                 5 ($CellContext`T24 + $CellContext`U)^2) - 
+                32 $CellContext`MT^6 (381 $CellContext`T14^3 + 
+                 1892 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                 102 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                 5 ($CellContext`T24 + $CellContext`U)^3) - $CellContext`T14 \
+($CellContext`T24 + $CellContext`U) (3 $CellContext`T14^4 - 
+                 6 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                 48 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+                 86 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - 
+                 3 ($CellContext`T24 + $CellContext`U)^4) + 
+                4 $CellContext`MT^4 ($CellContext`T14^4 - 
+                  1566 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                  4258 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 - 78 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+                  5 ($CellContext`T24 + $CellContext`U)^4) + \
+$CellContext`MT^2 ((-19) $CellContext`T14^5 + 
+                  43 $CellContext`T14^4 ($CellContext`T24 + $CellContext`U) - 
+                  996 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                  2036 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                  15 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^4 + \
+($CellContext`T24 + $CellContext`U)^5)) + $CellContext`MH^4 ((-12288) \
+$CellContext`MT^14 + 
+                1024 $CellContext`MT^12 (80 $CellContext`T14 - 
+                  17 ($CellContext`T24 + $CellContext`U)) + 
+                256 $CellContext`MT^10 (621 $CellContext`T14^2 + 
+                  361 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                  40 ($CellContext`T24 + $CellContext`U)^2) + 
+                128 $CellContext`MT^8 (325 $CellContext`T14^3 + 
+                  1187 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                  320 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                  25 ($CellContext`T24 + $CellContext`U)^3) + 
+                16 $CellContext`MT^6 (157 $CellContext`T14^4 + 
+                  1832 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                  3484 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                  550 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - 
+                  35 ($CellContext`T24 + $CellContext`U)^4) + \
+$CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 (3 $CellContext`T14^4 + 
+                  4 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                  24 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+                  
+                  22 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - \
+($CellContext`T24 + $CellContext`U)^4) + 
+                4 $CellContext`MT^4 (46 $CellContext`T14^5 + 
+                  263 $CellContext`T14^4 ($CellContext`T24 + $CellContext`U) + 
+                  1810 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                  2418 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                  220 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^4 - 
+                  13 ($CellContext`T24 + $CellContext`U)^5) + \
+$CellContext`MT^2 ($CellContext`T14^6 + 
+                  43 $CellContext`T14^5 ($CellContext`T24 + $CellContext`U) + 
+                  122 $CellContext`T14^4 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                  724 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                  775 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^4 + 25 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^5 - 
+                  2 ($CellContext`T24 + $CellContext`U)^6))) 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]/
+             X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+             4 (256 $CellContext`MT^10 + 
+               256 $CellContext`MT^8 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 
+               32 $CellContext`MT^6 (7 $CellContext`MH^2 $CellContext`T14 - 
+                3 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + 
+               16 $CellContext`MT^4 (
+                 6 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+                 2 $CellContext`MH^2 $CellContext`T14 (2 $CellContext`T14 + 
+                  5 ($CellContext`T24 + $CellContext`U))) + $CellContext`MT^2 \
+(($CellContext`T14 + $CellContext`T24 + $CellContext`U)^4 + 
+                 16 $CellContext`MH^4 $CellContext`T14 ((-2) $CellContext`T14 + 
+                   3 ($CellContext`T24 + $CellContext`U)) + 
+                 2 $CellContext`MH^2 $CellContext`T14 (5 $CellContext`T14^2 - 
+                   14 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                   19 ($CellContext`T24 + $CellContext`U)^2)) + 
+               3 $CellContext`MH^2 $CellContext`T14 (
+                 2 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 - \
+$CellContext`T24 - $CellContext`U) ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - 
+                 2 $CellContext`MH^2 ($CellContext`T14^2 + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U) - ($CellContext`T24 + $CellContext`U)^2)))
+                X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1)
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+           2 $CellContext`MT^2 (16 $CellContext`MT^4 - 
+              4 $CellContext`MH^2 $CellContext`T14 + 
+              8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-2) (-($CellContext`S34 - $CellContext`T) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + 
+               2 $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] - 
+             4 (2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+              2 $CellContext`U) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) - 
+             4 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[4]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]])) (-(-$CellContext`MH^2 + 
+                4 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+(64 $CellContext`MT^6 - 3 $CellContext`T14^3 + 
+               5 $CellContext`T14^2 $CellContext`T24 + 
+               9 $CellContext`T14 $CellContext`T24^2 + $CellContext`T24^3 + 
+               5 $CellContext`T14^2 $CellContext`U + 
+               18 $CellContext`T14 $CellContext`T24 $CellContext`U + 
+               3 $CellContext`T24^2 $CellContext`U + 
+               9 $CellContext`T14 $CellContext`U^2 + 
+               3 $CellContext`T24 $CellContext`U^2 + $CellContext`U^3 + 
+               48 $CellContext`MT^4 (
+                 3 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+               2 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14 - 
+                 7 ($CellContext`T24 + $CellContext`U)) + 
+               4 $CellContext`MT^2 ((-14) $CellContext`MH^2 $CellContext`T14 + 
+                 5 $CellContext`T14^2 + 
+                 18 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                 3 ($CellContext`T24 + $CellContext`U)^2)) + (
+                16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+               4096 $CellContext`MT^14 + 
+               2048 $CellContext`MT^12 (5 $CellContext`T14 + 
+                 3 ($CellContext`T24 + $CellContext`U)) + 
+               256 $CellContext`MT^8 ($CellContext`MH^4 $CellContext`T14 + 
+                 5 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2 (
+                   3 $CellContext`T14 + $CellContext`T24 + $CellContext`U) - \
+$CellContext`MH^2 $CellContext`T14 (25 $CellContext`T14 + 
+                  27 ($CellContext`T24 + $CellContext`U))) - 
+               256 $CellContext`MT^10 (26 $CellContext`MH^2 $CellContext`T14 - 
+                5 (7 $CellContext`T14^2 + 
+                 10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                 3 ($CellContext`T24 + $CellContext`U)^2)) + 
+               16 $CellContext`MT^6 (
+                 16 $CellContext`MH^4 $CellContext`T14 (
+                   8 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+                 5 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^3 (
+                   11 $CellContext`T14 + 
+                   3 ($CellContext`T24 + $CellContext`U)) - 
+                 4 $CellContext`MH^2 $CellContext`T14 (34 $CellContext`T14^2 + 
+                  83 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                  43 ($CellContext`T24 + $CellContext`U)^2)) + \
+$CellContext`MT^2 (($CellContext`T14 + $CellContext`T24 + $CellContext`U)^5 (
+                   5 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+                 48 $CellContext`MH^6 $CellContext`T14^2 (10 $CellContext`T14 - 
+                   3 ($CellContext`T24 + $CellContext`U)) + 
+                 2 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2 ($CellContext`T14^2 - 
+                   56 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                   21 ($CellContext`T24 + $CellContext`U)^2) - 
+                 16 $CellContext`MH^4 $CellContext`T14 (14 $CellContext`T14^3 + 
+                  3 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                  21 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - \
+($CellContext`T24 + $CellContext`U)^3)) - 
+               8 $CellContext`MT^4 (
+                36 $CellContext`MH^6 $CellContext`T14^2 - ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^4 (13 $CellContext`T14 + 
+                 3 ($CellContext`T24 + $CellContext`U)) + 
+                12 $CellContext`MH^4 $CellContext`T14 (3 $CellContext`T14^2 - 
+                  15 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - \
+($CellContext`T24 + $CellContext`U)^2) + 
+                2 $CellContext`MH^2 $CellContext`T14 (17 $CellContext`T14^3 + 
+                  84 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                  99 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + 
+                  32 ($CellContext`T24 + $CellContext`U)^3)) - \
+$CellContext`MH^2 $CellContext`T14 (64 $CellContext`MH^6 $CellContext`T14^2 - 
+                6 $CellContext`MH^4 $CellContext`T14 (7 $CellContext`T14^2 + 
+                 12 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                 3 ($CellContext`T24 + $CellContext`U)^2) - ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 (2 $CellContext`T14^2 - 
+                 5 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - \
+($CellContext`T24 + $CellContext`U)^2) + $CellContext`MH^2 (
+                  7 $CellContext`T14^4 + 
+                  26 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                  6 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 - 
+                  26 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - \
+($CellContext`T24 + $CellContext`U)^4))) 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - 
+             2 $CellContext`T14^2 (
+               16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+               8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+              9 $CellContext`MT^2 (
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 - 
+              6 $CellContext`MH^6 $CellContext`T14 (
+               20 $CellContext`MT^2 + $CellContext`T14 + 
+               5 ($CellContext`T24 + $CellContext`U)) - $CellContext`MH^2 (
+                4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 (
+               104 $CellContext`MT^4 + $CellContext`T14 (-$CellContext`T14 + 
+                 10 ($CellContext`T24 + $CellContext`U)) + $CellContext`MT^2 (
+                 86 $CellContext`T14 + 
+                 26 ($CellContext`T24 + $CellContext`U))) + $CellContext`MH^4 \
+$CellContext`T14 (1040 $CellContext`MT^4 + 5 $CellContext`T14^2 + 
+                28 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                39 ($CellContext`T24 + $CellContext`U)^2 + 
+                8 $CellContext`MT^2 (19 $CellContext`T14 + 
+                  52 ($CellContext`T24 + $CellContext`U)))) 
+             X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT]/
+             X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+                12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+                2 $CellContext`MH^2 (
+                 6 $CellContext`MT^2 + $CellContext`T24 + \
+$CellContext`U))^(-1) (
+                16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+               64 $CellContext`MH^12 $CellContext`T14^3 + 
+               2 $CellContext`MH^10 $CellContext`T14^2 (144 $CellContext`MT^4 - 
+                 27 $CellContext`T14^2 - 
+                 130 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                 9 ($CellContext`T24 + $CellContext`U)^2 + $CellContext`MT^2 \
+((-744) $CellContext`T14 + 
+                   72 ($CellContext`T24 + $CellContext`U))) - \
+$CellContext`MH^8 $CellContext`T14 (256 $CellContext`MT^8 - 
+                17 $CellContext`T14^4 - 
+                190 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                400 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+                62 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + \
+($CellContext`T24 + $CellContext`U)^4 + 
+                128 $CellContext`MT^6 (43 $CellContext`T14 + 
+                  2 ($CellContext`T24 + $CellContext`U)) - 
+                32 $CellContext`MT^4 (404 $CellContext`T14^2 - 
+                 117 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                 3 ($CellContext`T24 + $CellContext`U)^2) - 
+                8 $CellContext`MT^2 (159 $CellContext`T14^3 + 
+                 580 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                 105 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                 2 ($CellContext`T24 + $CellContext`U)^3)) - \
+$CellContext`MT^2 (
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 (640 $CellContext`MT^8 + 
+                32 $CellContext`MT^6 (27 $CellContext`T14 + 
+                  17 ($CellContext`T24 + $CellContext`U)) - 
+                24 $CellContext`MT^4 (19 $CellContext`T14^2 - 
+                 22 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                 7 ($CellContext`T24 + $CellContext`U)^2) + ($CellContext`T24 + \
+$CellContext`U) ((-2) $CellContext`T14^3 - 
+                  15 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                  6 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3) + 
+                2 $CellContext`MT^2 ((-7) $CellContext`T14^3 - 
+                  87 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                  51 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + 
+                  11 ($CellContext`T24 + $CellContext`U)^3)) + \
+$CellContext`MH^6 $CellContext`T14 (9728 $CellContext`MT^10 + 
+                 256 $CellContext`MT^8 (148 $CellContext`T14 + 
+                   41 ($CellContext`T24 + $CellContext`U)) - 
+                 192 $CellContext`MT^6 (273 $CellContext`T14^2 - 
+                  172 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                  23 ($CellContext`T24 + $CellContext`U)^2) - 
+                 32 $CellContext`MT^4 (326 $CellContext`T14^3 + 
+                  905 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                  333 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                  28 ($CellContext`T24 + $CellContext`U)^3) + \
+($CellContext`T24 + $CellContext`U) ((-51) $CellContext`T14^4 - 
+                   246 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                   280 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 78 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+                   3 ($CellContext`T24 + $CellContext`U)^4) + 
+                 2 $CellContext`MT^2 ((-221) $CellContext`T14^4 - 
+                   1664 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U) - 
+                   2542 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                   752 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+                   43 ($CellContext`T24 + $CellContext`U)^4)) + \
+$CellContext`MH^2 (
+                  4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 (3072 $CellContext`MT^12 + 
+                 512 $CellContext`MT^10 (43 $CellContext`T14 + 
+                   7 ($CellContext`T24 + $CellContext`U)) + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U)^3 ((-17) $CellContext`T14^2 + 
+                   6 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2) + 
+                 128 $CellContext`MT^8 (2 $CellContext`T14^2 + 
+                   155 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                   13 ($CellContext`T24 + $CellContext`U)^2) - 
+                 32 $CellContext`MT^6 (208 $CellContext`T14^3 - 
+                  24 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                  209 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                  12 ($CellContext`T24 + $CellContext`U)^3) + 
+                 4 $CellContext`MT^4 ((-83) $CellContext`T14^4 - 
+                   782 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                   108 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                   254 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+                   11 ($CellContext`T24 + $CellContext`U)^4) + 
+                 2 $CellContext`MT^2 (-$CellContext`T14^5 - 
+                   27 $CellContext`T14^4 ($CellContext`T24 + $CellContext`U) - 
+                   
+                   217 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                   44 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                   32 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^4 + \
+($CellContext`T24 + $CellContext`U)^5)) - $CellContext`MH^4 (
+                4096 $CellContext`MT^14 + 
+                2048 $CellContext`MT^12 (49 $CellContext`T14 + 
+                  3 ($CellContext`T24 + $CellContext`U)) + 
+                1280 $CellContext`MT^10 (95 $CellContext`T14^2 + 
+                  96 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                  3 ($CellContext`T24 + $CellContext`U)^2) - 
+                256 $CellContext`MT^8 (401 $CellContext`T14^3 - 
+                 497 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                 238 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                 5 ($CellContext`T24 + $CellContext`U)^3) - 
+                16 $CellContext`MT^6 (2297 $CellContext`T14^4 + 
+                 4760 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                 3282 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                 968 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - 
+                 15 ($CellContext`T24 + $CellContext`U)^4) + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U)^2 ((-51) $CellContext`T14^4 - 
+                  138 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                  80 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+                  42 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+                  3 ($CellContext`T24 + $CellContext`U)^4) - 
+                8 $CellContext`MT^4 (431 $CellContext`T14^5 + 
+                 2349 $CellContext`T14^4 ($CellContext`T24 + $CellContext`U) + 
+                 2514 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                 1334 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 - 
+                 261 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^4 - 
+                 3 ($CellContext`T24 + $CellContext`U)^5) + $CellContext`MT^2 \
+((-35) $CellContext`T14^6 - 
+                  920 $CellContext`T14^5 ($CellContext`T24 + $CellContext`U) - 
+                  2953 $CellContext`T14^4 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                  2192 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                  1067 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^4 + 
+                  136 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^5 + \
+($CellContext`T24 + $CellContext`U)^6))) 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]/
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - 
+             6 $CellContext`T14 (128 $CellContext`MT^8 + 
+              32 $CellContext`MT^6 (5 $CellContext`T14 + 
+                3 ($CellContext`T24 + $CellContext`U)) + 
+              2 $CellContext`MT^2 (
+                20 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2 (
+                  7 $CellContext`T14 + $CellContext`T24 + $CellContext`U) - 
+                12 $CellContext`MH^2 $CellContext`T14 (2 $CellContext`T14 + 
+                 3 ($CellContext`T24 + $CellContext`U))) + 
+              8 $CellContext`MT^4 ((-20) $CellContext`MH^2 $CellContext`T14 + 
+                3 (3 $CellContext`T14^2 + 
+                  4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2)) + $CellContext`T14 (($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 + 
+                2 $CellContext`MH^4 ($CellContext`T14 + 
+                  5 ($CellContext`T24 + $CellContext`U)) - 
+                2 $CellContext`MH^2 ($CellContext`T14^2 + 
+                 5 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                 4 ($CellContext`T24 + $CellContext`U)^2))) 
+             X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1) 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]))))}, 0, 3, 1],
+    Editable->False], ")"}], "-", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"MW", " ", "SW"}]], 
+   RowBox[{"2", " ", 
+    SuperscriptBox["Alfas", "2"], " ", "c1", " ", "EL", " ", 
+    SuperscriptBox["MT", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"(", 
+       InterpretationBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            FractionBox["1", "T"], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    FractionBox["T", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                 RowBox[{"2", " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+              
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "T"}]], 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "-", 
+              RowBox[{"16", " ", 
+               RowBox[{"Pair", "[", 
+                RowBox[{
+                 RowBox[{"e", "[", "1", "]"}], ",", 
+                 RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], "2"]}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                ")"}]}], "-", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "T"}]], 
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                  "-", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], ")"}],
+                    " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+           RowBox[{
+            FractionBox["1", 
+             RowBox[{
+              RowBox[{"2", " ", 
+               SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", "U"}]], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], "\[Epsilon]"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                 RowBox[{"2", " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+              
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], "2"]], 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                ")"}], " ", 
+               RowBox[{"Pair", "[", 
+                RowBox[{
+                 RowBox[{"ec", "[", "5", "]"}], ",", 
+                 RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 RowBox[{"-", 
+                  SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                 "U"}]], 
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "+", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 RowBox[{"-", 
+                  SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                 "U"}]], 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "-", 
+              RowBox[{
+               FractionBox["1", "T24"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "8"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "+", "T", "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], ")"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], "\[Epsilon]"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S"}], "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S34"}], "+", "T", "-", "T24", "+", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"5", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+              RowBox[{
+               FractionBox["1", "S"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "8"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S", "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T14", "-", "T24"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "-", "S", "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T14", "+", "T24"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "S"}], "+", "T14", "+", "T24", "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S"}], "-", 
+                    RowBox[{"4", " ", "T"}], "-", "T14", "-", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "+", "T", "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "-", 
+                    RowBox[{"3", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], ")"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], "\[Epsilon]"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                   ")"}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T14", "-", 
+                    "T24"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"5", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"5", " ", "S"}], "-", 
+                    RowBox[{"3", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "T24"}], "-", 
+                    RowBox[{"8", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "T14", "+", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T14", "+", "T24", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], 
+           "+", 
+           RowBox[{
+            FractionBox["1", "S34"], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    FractionBox["S34", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                 RowBox[{"2", " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+              
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S34"}]], 
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                  "-", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+              RowBox[{
+               RowBox[{"Pair", "[", 
+                RowBox[{
+                 RowBox[{"ec", "[", "4", "]"}], ",", 
+                 RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                 "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], "2"]], 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                ")"}]}], "-", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S34"}]], 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "+", 
+              RowBox[{
+               FractionBox["1", "S"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    FractionBox["S34", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", "T14", "+", "T24", "+", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                   ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                   " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"8", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"8", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
+                 RowBox[{"8", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"4", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "T14", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}]], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    FractionBox["S34", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T24", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                   ")"}]}], "-", 
+                 RowBox[{"8", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S", "-", "S34", "-", "T",
+                     "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                   " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"6", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"6", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], 
+           "+", 
+           RowBox[{
+            FractionBox["1", "U"], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               RowBox[{"(", 
+                RowBox[{"2", "+", 
+                 FractionBox["1", "\[Epsilon]"], "+", 
+                 RowBox[{"DiscB", "[", 
+                  RowBox[{"U", ",", "MT", ",", "MT"}], "]"}], "+", 
+                 RowBox[{"Log", "[", 
+                  FractionBox[
+                   SuperscriptBox["\[Micro]", "2"], 
+                   SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                 RowBox[{"2", " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+              
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "U"}]], 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "-", 
+              RowBox[{"16", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "U"}], "-", 
+                    FractionBox["U", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], "2"]}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                ")"}]}], "-", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "U"}]], 
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                  "-", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                 "T24"}]], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "U"}], "-", 
+                    FractionBox["U", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], "2"]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T14", "+", 
+                    "T24", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"6", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"6", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "-", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}]], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                   ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "U"}], "-", 
+                    FractionBox["U", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], "2"]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"6", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"6", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S", "-", "T", "+", "T14",
+                     "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], 
+           "+", 
+           RowBox[{
+            FractionBox["1", "T24"], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               FractionBox["1", "T"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "S34", "+", "T14", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "+", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    FractionBox["T", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                 RowBox[{"8", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "-", "T14", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"8", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"8", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}]], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "2"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "S34"}], " ", "T"}], "+", 
+                    RowBox[{"S34", " ", "T14"}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"T", " ", "U"}], "+", 
+                    RowBox[{"T14", " ", "U"}], "-", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["S34", "2"]}], "-", 
+                    RowBox[{"4", " ", "S34", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "S34", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}]}],
+                     "+", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["S34", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34", " ", "T"}], "-", 
+                    RowBox[{"S34", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S34"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", "U"}], "+", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S34"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}]}],
+                     "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    SuperscriptBox["T", "2"], "-", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}]}],
+                     "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"80", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"10", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"7", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"7", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", "T"}], "+", 
+                    RowBox[{"10", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "192"}], " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "-", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"], " ", "T14"}], "-", 
+                    RowBox[{"9", " ", "T", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", "T24"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"5", " ", "T", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"8", " ", "T14"}], "-", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"T", " ", "T24"}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    SuperscriptBox["T", "2"], "-", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}]}],
+                     "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "80"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "-", 
+                    RowBox[{"10", " ", "T", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"6", " ", "T"}], "+", 
+                    RowBox[{"6", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24"}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"3", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"10", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"8", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"8", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"T", " ", "T24"}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}],
+          "+", 
+         RowBox[{
+          FractionBox["1", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}], 
+             ")"}], " ", "T24"}]], 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{"8", " ", 
+                SuperscriptBox["MT", "2"], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}], " ", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}], " ", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                  RowBox[{"T24", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], " ", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                   RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], "+", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "T"}], "-", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T14"}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                   RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                 ")"}]}], ")"}], "/", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"16", " ", 
+                   SuperscriptBox["MT", "4"]}], "+", 
+                  SuperscriptBox["T", "2"], "+", 
+                  SuperscriptBox["T14", "2"], "-", 
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                  RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                  SuperscriptBox["T24", "2"], "+", 
+                  RowBox[{"2", " ", "T", " ", 
+                   RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                " ", 
+                RowBox[{"Kallen\[Lambda]", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", 
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                  "T24"}], "]"}]}], ")"}]}], "-", 
+             RowBox[{"2", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "S34"}], " ", "T"}], "+", 
+                    RowBox[{"S34", " ", "T14"}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"T", " ", "U"}], "+", 
+                    RowBox[{"T14", " ", "U"}], "-", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], "2"], " ", "T24"}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"6", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "28"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "28"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], ")"}]}], "+", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["S34", "2"]}], "-", 
+                    RowBox[{"4", " ", "S34", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "S34", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MT", "2"]}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"8", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"3", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", "T"}], "+", 
+                    RowBox[{"10", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    "T24"}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"112", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"10", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}]}], "-", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"22", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T14"}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"7", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"17", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"34", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "-", "T24"}], ")"}]}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24"}], ")"}], " ", 
+                    "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "3"], "-", 
+                    RowBox[{"3", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"3", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "3"], " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "4"], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T24", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "40"}], " ", 
+                    SuperscriptBox["MH", "4"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "3"], "-", 
+                    RowBox[{"3", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}]}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                   " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                   " ", 
+                   RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}]}], ")"}]}], "-", 
+             RowBox[{"4", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"176", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "-", 
+                    RowBox[{"23", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"30", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"30", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "1408"}], " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T", "3"]}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"61", " ", "T"}], "+", 
+                    RowBox[{"61", " ", "T14"}], "-", 
+                    RowBox[{"30", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"19", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "51"}], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"28", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"56", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"28", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"19", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"19", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "51"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"16", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"144", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"6", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"54", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"55", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "5"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "8"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"176", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "-", 
+                    RowBox[{"32", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"48", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"48", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"400", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"35", " ", "T"}], "+", 
+                    RowBox[{"35", " ", "T14"}], "-", 
+                    RowBox[{"38", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"65", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"65", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"65", " ", "T14"}], "-", 
+                    RowBox[{"58", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"116", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"10", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", "T"}], "+", 
+                    RowBox[{"16", " ", "T14"}], "-", 
+                    RowBox[{"11", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"16", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"9", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"9", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4608", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"1536", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"54", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"109", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"109", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"58", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"147", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"130", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"93", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"18", " ", "T14"}], "+", 
+                    RowBox[{"49", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"147", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"65", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"174", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "-", 
+                    RowBox[{"172", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"254", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    RowBox[{"21", " ", 
+                    SuperscriptBox["T24", "4"]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", "T14"}], "+", 
+                    RowBox[{"29", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"261", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"86", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"522", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"344", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"254", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "19"}], " ", 
+                    SuperscriptBox["T", "4"]}], "-", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"34", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "76"}], " ", "T14"}], "+", 
+                    RowBox[{"14", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "114"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"42", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"34", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "76"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"42", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"68", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "5"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"50", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"32", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"64", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"82", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"82", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "-", 
+                    RowBox[{"11", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"4", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"9", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"9", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "512"}], " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T", "4"]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"13", " ", "T"}], "+", 
+                    RowBox[{"13", " ", "T14"}], "-", 
+                    RowBox[{"69", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"22", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "28"}], " ", "T14"}], "+", 
+                    RowBox[{"26", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"54", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"164", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"164", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"49", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "42"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"78", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"22", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "28"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"78", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"44", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"23", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"23", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"69", " ", "T14"}], "-", 
+                    RowBox[{"121", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"121", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"71", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"21", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"69", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"242", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"71", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "-", "T24"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "-", 
+                    RowBox[{"21", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"29", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"23", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"23", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"13", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"52", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"52", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"46", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], ")"}]}], "+", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"2", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "5"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "8"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"176", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "-", 
+                    RowBox[{"24", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"32", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"32", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"320", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", "T"}], "+", 
+                    RowBox[{"20", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"20", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"17", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"17", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"464", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"41", " ", "T"}], "+", 
+                    RowBox[{"41", " ", "T14"}], "-", 
+                    RowBox[{"18", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"14", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"T", " ", "T24"}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4608", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "+", 
+                    RowBox[{"25", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"54", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"181", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"181", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"243", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"50", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"41", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"54", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"486", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"50", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"286", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"140", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"78", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "4"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", "T14"}], "+", 
+                    RowBox[{"286", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"429", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"70", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"858", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"280", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"78", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"31", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"31", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"30", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"62", " ", "T14"}], "+", 
+                    RowBox[{"15", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"93", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"45", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"62", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", "T24"}]}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"176", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"22", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "-", 
+                    RowBox[{"25", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"34", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"34", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"144", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "-", 
+                    RowBox[{"6", " ", "T24"}]}], ")"}], " ", "T24"}], "+", 
+                    RowBox[{"72", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"38", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"38", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"55", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"672", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"29", " ", "T"}], "+", 
+                    RowBox[{"29", " ", "T14"}], "-", 
+                    RowBox[{"20", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", "T14"}], "-", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"53", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"106", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"53", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"54", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"54", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"35", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"7", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    SuperscriptBox["T24", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"14", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"14", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"58", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"40", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"17", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"98", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"98", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"80", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "1536"}], " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "4"]}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"29", " ", "T"}], "+", 
+                    RowBox[{"29", " ", "T14"}], "-", 
+                    RowBox[{"115", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"50", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"56", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"26", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "44"}], " ", "T14"}], "+", 
+                    RowBox[{"50", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"51", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"102", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"51", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"280", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"280", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"95", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "66"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"150", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"56", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "44"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"150", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"112", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"117", " ", "T14"}], "-", 
+                    RowBox[{"215", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"215", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"151", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"37", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"117", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"430", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"151", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", "T"}], "+", 
+                    RowBox[{"6", " ", "T14"}], "-", 
+                    RowBox[{"7", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"37", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "-", 
+                    RowBox[{"8", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"106", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", "T14"}], "+", 
+                    RowBox[{"13", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"13", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"53", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "64"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "2"]}], "-", 
+                    RowBox[{"8", " ", "T", " ", "T14"}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"3", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"3", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"8", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "-", 
+                    RowBox[{"6", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}]}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T"}], "+", 
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"37", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", 
+                    RowBox[{"31", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"31", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"19", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"62", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"68", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"68", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"320", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"23", " ", "T"}], "+", 
+                    RowBox[{"23", " ", "T14"}], "-", 
+                    RowBox[{"37", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T14"}], "-", 
+                    RowBox[{"6", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "-", 
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"3", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "-", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"78", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"98", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"98", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"9", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"20", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"29", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"29", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"87", " ", "T14"}], "-", 
+                    RowBox[{"85", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"85", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "-", 
+                    RowBox[{"85", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"87", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"170", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"85", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], ")"}], 
+                    "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                   " ", 
+                   RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], "+", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["S34", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34", " ", "T"}], "-", 
+                    RowBox[{"S34", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S34"}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", "U"}], "+", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S34"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}]], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["T", "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "14"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "14"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "-", "T24"}], ")"}], " ", 
+                    "T24"}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"464", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"38", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", "T"}], "+", 
+                    RowBox[{"24", " ", "T14"}], "-", "T24"}], ")"}]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], "2"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", "T"}], "+", 
+                    RowBox[{"7", " ", "T14"}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"832", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], "3"], " ", "T24"}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T"}], "+", 
+                    RowBox[{"11", " ", "T14"}], "+", 
+                    RowBox[{"10", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"14", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"26", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"26", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"54", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"52", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"52", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", 
+                    RowBox[{"17", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"14", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"6", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"119", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"119", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"89", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"89", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"178", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3584", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"13", " ", "T"}], "+", 
+                    RowBox[{"13", " ", "T14"}], "+", 
+                    RowBox[{"40", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"18", " ", "T", " ", "T14"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"60", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"60", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T", "3"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"129", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"51", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T14"}], "+", 
+                    RowBox[{"43", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"3", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"86", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T", "4"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"116", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"54", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"28", " ", "T14", " ", 
+                    SuperscriptBox["T24", "3"]}], "+", 
+                    SuperscriptBox["T24", "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"29", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"58", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"87", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"27", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T24", "3"]}]}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T", "+", "T14"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T24"}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"6", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "4"], "+", 
+                    SuperscriptBox["T14", "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T14", "3"], " ", "T24"}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", "T14", " ", "T24", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T24", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "32"}], " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}], 
+                    "2"]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "3"], "+", 
+                    SuperscriptBox["T14", "3"], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "T14", " ", "T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"]}], ")"}]}], "+", 
+                    RowBox[{"3", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T24", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", "T14"}], ")"}], 
+                    " ", "T24"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T", "2"], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"8", " ", "T14"}], "-", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"T", " ", "T24"}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T24", "2"]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24", ",", "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "-", "T14"}], ",", 
+                    "T24"}], "]"}]}]}], ")"}]}], ")"}], "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                   SuperscriptBox["T", "2"], "+", 
+                   SuperscriptBox["T14", "2"], "-", 
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "+", 
+                   RowBox[{"2", " ", "T14", " ", "T24"}], "+", 
+                   SuperscriptBox["T24", "2"], "+", 
+                   RowBox[{"2", " ", "T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                  ")"}]}]}], ")"}]}]}], ")"}], " ", 
+           SuperscriptBox["\[Beta]", "2"]}]}], "+", 
+         InterpretationBox[
+          SuperscriptBox[
+           RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+          SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+          Editable->False]}],
+        SeriesData[$CellContext`\[Beta], 
+         0, {$CellContext`T^(-1) ((
+              4 (2 + X`Eps^(-1) + 
+                X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + 
+                Log[$CellContext`MT^(-2) X`Mu^2]) - 
+              4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+               3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+               3 $CellContext`T - 
+               X`Eps^(-1) $CellContext`T + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`T 
+               X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`T 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^
+                    Rational[1, 2])]^2)) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[
+                 5]]) - ($CellContext`MH^2 - $CellContext`T)^(-1) (
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^
+                 Rational[
+                  1, 2])]^2) (((-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]]) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 2 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[
+               5]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] + 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]]) + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]])) - 16 $CellContext`Pair[
+              $CellContext`e[1], 
+              $CellContext`k[3]] (
+             Rational[
+               1, 2] ($CellContext`MH^2 - $CellContext`T)^(-2) \
+(-$CellContext`MH^2 + $CellContext`T - $CellContext`MH^2 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^
+                    Rational[1, 2])]^2) ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] - 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]]) + 
+             Rational[
+               1, 2] ($CellContext`MH^2 - $CellContext`T)^(-1) (-
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+               X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) \
+($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] - 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]])) - 
+            4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+             X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) \
+(((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]])) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 2 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[
+               5]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] + 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]])) + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]])))) + (
+             
+             2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U)^(-1) ((
+              4 (2 + X`Eps^(-1) + 
+                X`DiscB[
+                 2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+                Log[$CellContext`MT^(-2) X`Mu^2]) + 
+              4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                3 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) + 
+                X`Eps^(-1) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) - $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+(2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - $CellContext`U) 
+                 X`DiscB[
+                  2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] - $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[
+                    1, 2])]^2 + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) 
+                 Log[$CellContext`MT^(-2) X`Mu^2] + $CellContext`MT^2 
+                 Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2)) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]]) + (
+              8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+                X`DiscB[
+                2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] - 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) - 
+              8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-2) (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MH^2 
+               X`DiscB[
+                2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 - $CellContext`MT^2 
+               Log[Rational[
+                   1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] - 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]])) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[3]] - 
+            4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+             X`DiscB[2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] - 2 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] - 2 ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] - $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[
+                2]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] - 2 ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]] - $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[
+                 3]])) + (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U)^(-1) (-
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 + 
+              Log[Rational[1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) (-$CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + $\
+CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[
+                2]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]])) - $CellContext`T24^(-1) ((-8) (
+               Rational[-1, 
+                  2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+                 X`DiscB[
+                 2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (-(($CellContext`MH^2 - 
+                    3 $CellContext`S34 + $CellContext`T + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] + 
+                   2 ($CellContext`S - $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T - 3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                 2 ($CellContext`MH^2 - $CellContext`S34 + $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] + 
+                 2 ($CellContext`MH^2 - $CellContext`S34 + $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + 
+               Rational[-1, 
+                  2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-2) (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - $CellContext`MH^2 
+                 X`DiscB[
+                  2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 - $CellContext`MT^2 
+                 Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) (-(($CellContext`MH^2 - 
+                    3 $CellContext`S34 + $CellContext`T - 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] + 
+                   2 ($CellContext`S - $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T - 2 $CellContext`T24 - 3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                 2 ($CellContext`MH^2 - $CellContext`S34 + $CellContext`T - 
+                   2 $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] + 
+                 2 ($CellContext`MH^2 - $CellContext`S34 + $CellContext`T - 
+                   2 $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) + (
+               4 (2 + X`Eps^(-1) + 
+                 X`DiscB[
+                  2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+                 Log[$CellContext`MT^(-2) X`Mu^2]) + 
+               4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                 3 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) + 
+                 X`Eps^(-1) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) - $CellContext`MH^2 
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+(2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - $CellContext`U) 
+                  X`DiscB[
+                   2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] - $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[
+                    1, 2])]^2 + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) 
+                  Log[$CellContext`MT^(-2) X`Mu^2] + $CellContext`MT^2 
+                  Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2)) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  5]] ((-$CellContext`S + $CellContext`T14) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 4 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]])) - 2 (2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] (2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] (2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] (2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]])) + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) + (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U)^(-1) (-
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 + 
+               Log[Rational[
+                   1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[
+                    1, 2])]^2) ((-4) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] - 
+               4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  5]] (-($CellContext`S - $CellContext`T14) \
+(-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                 4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]])) + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + 4 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[
+                  4]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 4 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[
+                  2]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) - 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 4]] (($CellContext`S - $CellContext`T14) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] (
+                  2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + ($CellContext`S34 + $CellContext`T - \
+$CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   2]] ((-$CellContext`S34 + $CellContext`T - \
+$CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + 
+             4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+               X`DiscB[
+                2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  5]] (-($CellContext`S - $CellContext`T14) \
+(-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                 4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]])) + 
+               2 ((-2) ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                 2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] (
+                   2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + (3 $CellContext`MH^2 - 
+                    3 $CellContext`S34 + $CellContext`T - 2 $CellContext`T24 - 
+                    3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] (
+                   2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + (3 $CellContext`MH^2 - 
+                    3 $CellContext`S34 + $CellContext`T - 2 $CellContext`T24 - 
+                    3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] (
+                4 ($CellContext`S - $CellContext`T14) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] (
+                  4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + ($CellContext`MH^2 + 
+                    3 $CellContext`S34 + 3 $CellContext`T - 
+                    2 $CellContext`T24 - 5 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   2]] (($CellContext`MH^2 - 5 $CellContext`S34 + 
+                    3 $CellContext`T - 2 $CellContext`T24 + 
+                    3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                  4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) + $CellContext`S^(-1) ((-8) (
+                Rational[-1, 
+                   2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-2) (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + $CellContext`MH^2 
+                   X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - $CellContext`MH^2 
+                  X`DiscB[
+                   2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + $CellContext`MT^2 
+                   Log[Rational[
+                    1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 - $CellContext`MT^2 
+                  Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) (
+                  2 ($CellContext`MH^2 + $CellContext`S - 
+                    2 $CellContext`S34 - $CellContext`T14 - $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                  2 (-$CellContext`MH^2 - $CellContext`S + 
+                    2 $CellContext`S34 + $CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] (((-3) $CellContext`MH^2 + 
+                    3 $CellContext`S + $CellContext`T14 + $CellContext`T24 + 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + (3 $CellContext`MH^2 - 
+                    3 $CellContext`S - 
+                    4 $CellContext`T - $CellContext`T14 - $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 
+                    2 (-$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 
+                Rational[-1, 
+                   2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - X`DiscB[
+                  2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (
+                  2 (-$CellContext`MH^2 - $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                  2 ($CellContext`MH^2 + $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] (-($CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T - 3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 + $CellContext`S34 - 
+                    3 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 
+                    2 (-$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + (
+                4 (2 + X`Eps^(-1) + 
+                  X`DiscB[
+                   2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+                  Log[$CellContext`MT^(-2) X`Mu^2]) + 
+                4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                  3 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) + 
+                  X`Eps^(-1) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) - $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) X`DiscB[
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] - $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[
+                    1, 2])]^2 + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) 
+                   Log[$CellContext`MT^(-2) X`Mu^2] + $CellContext`MT^2 
+                   Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[
+                    1, 2])]^2)) ((-$CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 4 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 4 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 4 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]]) - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] (4 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 
+              4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+                X`DiscB[
+                 2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (-$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[
+                   2]] (-($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T14 - $CellContext`T24) ($CellContext`T14 - $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                  4 ($CellContext`T14 - $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] (
+                    4 ($CellContext`MH^2 - $CellContext`S - $CellContext`T14 - \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + ((-7) $CellContext`MH^2 + 
+                    5 $CellContext`S + 8 $CellContext`T + 3 $CellContext`T14 + 
+                    3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] (
+                    4 (-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + (7 $CellContext`MH^2 - 
+                    5 $CellContext`S - 3 $CellContext`T14 - 
+                    3 $CellContext`T24 - 8 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] (
+                  4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    4]] (((-3) $CellContext`MH^2 + $CellContext`S + 
+                    4 $CellContext`S34 + 3 $CellContext`T14 + 
+                    3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                   2 (-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 
+                2 ((-2) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                  2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] (((-3) $CellContext`MH^2 + $CellContext`S + 
+                    4 $CellContext`S34 + 3 $CellContext`T14 + 
+                    3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                    2 (-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) + (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U)^(-1) (-
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 + 
+                Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[
+                   2]] (($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T14 - $CellContext`T24) ($CellContext`T14 - $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                  2 ((-$CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] (
+                    2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`S34 + 
+                    2 $CellContext`T + $CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] (
+                    2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`S34 + $CellContext`T14 + $CellContext`T24 + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) - 
+                4 (($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[
+                    5]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   1]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    2]] (-($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    4]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))))) + $CellContext`S34^(-1) ((
+              4 (2 + X`Eps^(-1) + 
+                X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + 
+                Log[$CellContext`MT^(-2) X`Mu^2]) - 
+              4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+               3 $CellContext`S34 - 
+               X`Eps^(-1) $CellContext`S34 + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`S34 
+               X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`S34 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[1, 2])]^2)) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]]) + 
+            4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+              X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) (
+              2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] + 2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] ((-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 2 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[
+                2]] ((-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] - $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]]))) + $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[
+               3]] ((-8) ($CellContext`MH^2 - $CellContext`S34)^(-1) (-
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+                X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+((-2) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 
+              8 ($CellContext`MH^2 - $CellContext`S34)^(-2) \
+(-$CellContext`MH^2 + $CellContext`S34 - $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                 X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[1, 2])]^2) ((-2) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   4]])) - ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^Rational[1, 2])]^2) (
+             2 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                5]] (($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] (($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] + 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[
+               2]] (($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 2 $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]])) + $CellContext`S^(-1) ((
+                4 (2 + X`Eps^(-1) + 
+                  X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + 
+                  Log[$CellContext`MT^(-2) X`Mu^2]) - 
+                4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+                 3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+                 3 $CellContext`S34 - 
+                 X`Eps^(-1) $CellContext`S34 + $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - $CellContext`S34 
+                 X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                  Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`S34 
+                 Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[
+                    1, 2])]^2)) ((-$CellContext`T - $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] - 4 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) - 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) - 4 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]]) + 4 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + 4 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]])) - 
+              4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+               X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+(-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[
+                  2]] (-($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`T + $CellContext`T14 - $CellContext`T24 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                 4 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 
+                 4 (-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   3]] ((7 $CellContext`MH^2 - 2 $CellContext`S - 
+                    3 $CellContext`S34 - 8 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + ((-7) $CellContext`MH^2 + 
+                    2 $CellContext`S + 3 $CellContext`S34 + 
+                    8 $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                  4 ((-2) $CellContext`MH^2 + $CellContext`S + \
+$CellContext`S34 + 2 $CellContext`T24 + 2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - 
+               2 (2 ($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   1]] (((-3) $CellContext`MH^2 + 2 $CellContext`S + 
+                    3 $CellContext`S34 + 4 $CellContext`T14 + 
+                    4 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) + 
+                2 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    5]] (((-3) $CellContext`MH^2 + 2 $CellContext`S + 
+                    3 $CellContext`S34 + 4 $CellContext`T14 + 
+                    4 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + 
+                   2 (-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) + 
+                 2 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]])) + 8 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])))) + 
+              8 (Rational[
+                  1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-1) (-
+                   X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                  X`DiscB[$CellContext`S34, $CellContext`MT, \
+$CellContext`MT]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] (
+                  2 ((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                    2 ($CellContext`T + $CellContext`U)) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 
+                  2 ((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                   2 ($CellContext`T + $CellContext`U)) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] (((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + (
+                    3 $CellContext`MH^2 - $CellContext`S34 - 
+                    4 $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                    2 ($CellContext`T + $CellContext`T14 - $CellContext`T24 - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + 
+                Rational[
+                  1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-2) \
+(-$CellContext`MH^2 + $CellContext`S34 - $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + $CellContext`MH^2 
+                   X`DiscB[$CellContext`S34, $CellContext`MT, \
+$CellContext`MT] - $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                   Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   3]] ((-2) (-$CellContext`MH^2 + $CellContext`S34 + 
+                    2 ($CellContext`T14 + $CellContext`T24)) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`S34 + 
+                    2 ($CellContext`T14 + $CellContext`T24)) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] ((-$CellContext`MH^2 + $CellContext`S34 + 
+                    2 ($CellContext`T14 + $CellContext`T24)) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 - $CellContext`S34 - 
+                    2 ($CellContext`T14 + $CellContext`T24)) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                   2 (-$CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                   2 ($CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) - ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                   Rational[
+                    1, 2])]^2) ((-4) (($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    
+                    1]] + (-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    3]]) + ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    3]]) + ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]])) + 2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[
+                  2]] (($CellContext`MH^2 - $CellContext`S34) ($CellContext`T + \
+$CellContext`T14 - $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                 2 (2 (-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                   2 ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] (
+                    2 ($CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                    2 $CellContext`T14 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]] + ($CellContext`T - $CellContext`T14 - \
+$CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))))) + ($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T - $CellContext`T14)^(-1) ((
+                4 (2 + X`Eps^(-1) + 
+                  X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + 
+                  Log[$CellContext`MT^(-2) X`Mu^2]) - 
+                4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+                 3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+                 3 $CellContext`S34 - 
+                 X`Eps^(-1) $CellContext`S34 + $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - $CellContext`S34 
+                 X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                  Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`S34 
+                 Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[1, 2])]^2)) (4 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] (2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   5]] ((-$CellContext`MH^2 + 
+                    2 $CellContext`S + $CellContext`T24 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + 4 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] (2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - 4 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]])) - 
+              8 (Rational[
+                 1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-2) \
+(-$CellContext`MH^2 + $CellContext`S34 - $CellContext`MH^2 
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                  X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]] (
+                 2 (-$CellContext`MH^2 + $CellContext`S34 + 
+                   2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   5]] (((-2) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                    4 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + ($CellContext`MH^2 + 
+                    2 $CellContext`S - $CellContext`S34 - 2 $CellContext`T + 
+                    2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) + 
+                 2 (-$CellContext`MH^2 + $CellContext`S34 + 
+                   2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + 
+               Rational[
+                 1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-1) (-
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                 X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]] (
+                 2 ($CellContext`MH^2 - $CellContext`S34 - 
+                   2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    5]] (((-2) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - ($CellContext`MH^2 - 
+                    2 $CellContext`S + $CellContext`S34 - 2 $CellContext`T + 
+                    2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) + 
+                 2 ($CellContext`MH^2 - $CellContext`S34 - 
+                   2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))) - ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                   Rational[1, 2])]^2) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  5]] (($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`MH^2 - 
+                   2 $CellContext`S - $CellContext`T24 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - 2 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 
+                    2 $CellContext`T14 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    4]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 + $CellContext`S - \
+$CellContext`S34 - $CellContext`T + $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]))) + 4 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    5]] (-($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    3]])) - ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + 2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) - 
+              4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+               X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+(-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  5]] (-($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`MH^2 - 
+                   2 $CellContext`S - $CellContext`T24 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    4]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + (5 $CellContext`MH^2 + 
+                    2 $CellContext`S - 3 $CellContext`S34 - 6 $CellContext`T + 
+                    2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + ($CellContext`MH^2 - 
+                    2 $CellContext`S + $CellContext`S34 - 2 $CellContext`T + 
+                    6 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`MH^2 - $CellContext`S34 + 
+                    2 $CellContext`T24 - 2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) + 2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`MH^2 - $CellContext`S34 + 
+                    2 $CellContext`T24 - 2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+                 2 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`MH^2 - $CellContext`S34 + 
+                    2 $CellContext`T24 - 2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 
+                 2 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + 8 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))))) + $CellContext`U^(-1) (
+            4 (2 + X`Eps^(-1) + 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+              Log[$CellContext`MT^(-2) X`Mu^2]) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[
+                 5]]) - ($CellContext`MH^2 - $CellContext`U)^(-1) (
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U ((-4) \
+$CellContext`MT^2 + $CellContext`U))^
+                 Rational[
+                  1, 2])]^2) (((-$CellContext`MH^2 + $CellContext`U) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]]) - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] + 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]])) - 
+            16 (Rational[1, 4] ($CellContext`MH^2 - $CellContext`U)^(-1) (
+               3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+               3 $CellContext`U - 
+               X`Eps^(-1) $CellContext`U + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`U 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`U 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] - 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]]) + 
+             Rational[
+               1, 2] ($CellContext`MH^2 - $CellContext`U)^(-2) \
+(-$CellContext`MH^2 + $CellContext`U - $CellContext`MH^2 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] - 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]]) + 
+             Rational[
+               1, 2] ($CellContext`MH^2 - $CellContext`U)^(-1) (-
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]] - 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]])) - 
+            4 ($CellContext`MH^2 - $CellContext`U)^(-1) (
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+             X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+(((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] + 2 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]])) - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] + 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  3]]))) - ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24)^(-1) (
+             4 (2 + X`Eps^(-1) + 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+               Log[$CellContext`MT^(-2) X`Mu^2]) (($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ((-4) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 3 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] (2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]] + 4 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]] - 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] (2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[
+                  2]] ((-$CellContext`MH^2 + $CellContext`S + $CellContext`T + 
+                   2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 4 (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-1) (3 $CellContext`MH^2 + 
+              X`Eps^(-1) $CellContext`MH^2 - 3 $CellContext`U - 
+              X`Eps^(-1) $CellContext`U + $CellContext`MH^2 
+               
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`U 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`U 
+              Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                   Rational[1, 2])]^2) (($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ((-4) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 3 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[5]] + 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] (2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] + 4 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]] - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] (2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[
+                 2]] ((-$CellContext`MH^2 + $CellContext`S + $CellContext`T + 
+                  2 $CellContext`T14) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 4 (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-2) (-$CellContext`MH^2 + \
+$CellContext`U - $CellContext`MH^2 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[
+               3]] (-((-$CellContext`MH^2 + 2 $CellContext`S34 - 
+                  2 $CellContext`T14 - 
+                  2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] + (-$CellContext`MH^2 + 
+                  4 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] + 
+                2 ($CellContext`MH^2 - 
+                  2 $CellContext`S - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 
+              2 (-$CellContext`MH^2 + 
+                2 $CellContext`S + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] + 
+              2 ($CellContext`MH^2 - 
+                2 $CellContext`S - $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]] + 8 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-1) (-
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[
+               3]] (-(((-3) $CellContext`MH^2 + 
+                  4 $CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] + ($CellContext`MH^2 - 
+                  2 $CellContext`S34 - 2 $CellContext`T14 + 
+                  2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] + 
+                2 (-$CellContext`MH^2 + 
+                  2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 
+              2 ($CellContext`MH^2 - 
+                2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] + 
+              2 (-$CellContext`MH^2 + 
+                2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]] + 8 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) - ($CellContext`MH^2 - $CellContext`U)^(-1) (
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                 2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U ((-4) \
+$CellContext`MT^2 + $CellContext`U))^Rational[1, 2])]^2) ((-2) (
+                2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   4]] (($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`S $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  2]] (($CellContext`MH^2 - $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                 2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]])) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((-$CellContext`MH^2 + $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] + $CellContext`S $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] - 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] - 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] + $CellContext`S $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[
+                 2]] (($CellContext`MH^2 - $CellContext`S - $CellContext`T - 
+                  2 $CellContext`T14) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 
+                4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 8 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-1) (
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) (-(
+                2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] (
+                  2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + (-$CellContext`MH^2 - 
+                    2 $CellContext`S + 
+                    2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   3]] (($CellContext`MH^2 - 2 $CellContext`S34 - 
+                    2 $CellContext`T14 + 
+                    6 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                  4 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   2]] (((-5) $CellContext`MH^2 + 6 $CellContext`S34 - 
+                    2 $CellContext`T14 - 2 $CellContext`T24 + 
+                    3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                  4 (-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]])) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] + 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((-2) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] + ($CellContext`MH^2 + 2 $CellContext`S - 
+                  2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] - 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((-2) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] + ($CellContext`MH^2 + 2 $CellContext`S - 
+                 2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[
+                 2]] (($CellContext`MH^2 - $CellContext`S - $CellContext`T - 
+                  2 $CellContext`T14) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 
+                4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 16 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))) - ($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T - $CellContext`T14)^(-1) (
+             4 (2 + X`Eps^(-1) + 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+               Log[$CellContext`MT^(-2) X`Mu^2]) ((-2) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 4 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  5]] ((-$CellContext`MH^2 + $CellContext`S34 + 
+                   2 $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - 4 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) - 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] + 2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + 4 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + 4 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-1) (3 $CellContext`MH^2 + 
+              X`Eps^(-1) $CellContext`MH^2 - 3 $CellContext`U - 
+              X`Eps^(-1) $CellContext`U + $CellContext`MH^2 
+               
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`U 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`U 
+              Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                   Rational[1, 2])]^2) ((-2) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] + 2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((-$CellContext`MH^2 + $CellContext`S34 + 
+                  2 $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] - 4 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + 4 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]])) - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] + 2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-1) (-
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] (
+              2 ($CellContext`MH^2 - 
+                2 $CellContext`S34 - $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] (((-2) $CellContext`MH^2 + 4 $CellContext`S34 + 
+                  2 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + (3 $CellContext`MH^2 - 
+                  4 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] - ($CellContext`MH^2 + 2 $CellContext`S - 
+                 2 $CellContext`T - 
+                 2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + 
+              2 ($CellContext`MH^2 - 
+                2 $CellContext`S34 - $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + 8 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-2) (-$CellContext`MH^2 + \
+$CellContext`U - $CellContext`MH^2 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[3]] (
+              2 (-$CellContext`MH^2 + 
+                2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] (((-2) $CellContext`MH^2 + 4 $CellContext`T24 + 
+                 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + (-$CellContext`MH^2 - 2 $CellContext`S + 
+                 2 $CellContext`T - 
+                 2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + (-$CellContext`MH^2 + 
+                 4 $CellContext`S + $CellContext`U) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + 
+              2 (-$CellContext`MH^2 + 
+                2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + 8 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-1) (
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] (($CellContext`MH^2 - $CellContext`S34 - 
+                  2 $CellContext`T14 - $CellContext`T24) ($CellContext`MH^2 - \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] - 
+                4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] (
+                 2 ($CellContext`MH^2 - 2 $CellContext`S34 + 
+                   2 $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + ((-5) $CellContext`MH^2 - 
+                   2 $CellContext`S + 6 $CellContext`T - 2 $CellContext`T14 + 
+                   3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + ($CellContext`MH^2 + 
+                   6 $CellContext`S - 2 $CellContext`T - 
+                   2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 2 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  5]] (((-$CellContext`MH^2 + 2 $CellContext`S34 - 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 (-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                 2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  4]] ((-$CellContext`MH^2 + 2 $CellContext`S34 - 
+                   2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                 2 (-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + 
+               2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + 
+               2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) - 8 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))) - ($CellContext`MH^2 - $CellContext`U)^(-1) (
+              Log[
+                Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                 2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U ((-4) \
+$CellContext`MT^2 + $CellContext`U))^Rational[1, 2])]^2) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] (($CellContext`MH^2 - $CellContext`S34 - 
+                  2 $CellContext`T14 - $CellContext`T24) ($CellContext`MH^2 - \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] + 
+                2 ((-2) ($CellContext`MH^2 - $CellContext`U) \
+($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] ((-2) $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 + $CellContext`S - \
+$CellContext`T + $CellContext`T14 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]))) + 4 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] (($CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[
+                    5]] - ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] ($CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   1]] - ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  1]] - ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + 2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))))) + $CellContext`T24^(-1) ($CellContext`T^(-1) \
+(-($CellContext`MH^2 - $CellContext`T)^(-1) (
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^
+                    Rational[1, 2])]^2) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   5]] (-($CellContext`MH^2 - $CellContext`T) ($CellContext`S - \
+$CellContext`S34 - $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                  4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) - 
+                2 ((-2) ((-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    2]] + ($CellContext`S + $CellContext`T14) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                 2 ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    2]] + ($CellContext`S + $CellContext`T14) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + 
+                 2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 
+                 2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] (
+                   2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - 
+                   2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] (($CellContext`S + $CellContext`S34 + \
+$CellContext`T14 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 
+                    2 ($CellContext`S + $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) + 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) + (
+                4 (2 + X`Eps^(-1) + 
+                  X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + 
+                  Log[$CellContext`MT^(-2) X`Mu^2]) - 
+                4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+                 3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+                 3 $CellContext`T - 
+                 X`Eps^(-1) $CellContext`T + $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - $CellContext`T 
+                 X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                  Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`T 
+                 Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2)) (
+                2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   5]] (($CellContext`S - $CellContext`S34 - $CellContext`T14 + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - 4 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + 4 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 4 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ((-4) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + 
+              8 (Rational[
+                  1, 2] ($CellContext`MH^2 - $CellContext`T)^(-1) (-
+                   X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                  X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] (
+                  2 ((-3) $CellContext`MH^2 + 
+                    2 $CellContext`S34 + $CellContext`T + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                  2 ((-3) $CellContext`MH^2 + 
+                    2 $CellContext`S34 + $CellContext`T + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 8 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    4]] (((-3) $CellContext`MH^2 + 
+                    4 $CellContext`S34 + $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                   2 ($CellContext`S - $CellContext`S34 - $CellContext`T14 + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]] + ((-3) $CellContext`MH^2 + $CellContext`T + 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 
+                Rational[
+                  1, 2] ($CellContext`MH^2 - $CellContext`T)^(-2) \
+(-$CellContext`MH^2 + $CellContext`T - $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + $CellContext`MH^2 
+                   X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                   Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   3]] ((-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`S + $CellContext`T + 
+                    2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                  2 (-$CellContext`MH^2 + 2 $CellContext`S + $CellContext`T + 
+                   2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    4]] (((-3) $CellContext`MH^2 + 
+                    4 $CellContext`S34 + $CellContext`T + 
+                    2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                   2 ($CellContext`S - $CellContext`S34 - $CellContext`T14 + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]] + ((-3) $CellContext`MH^2 + $CellContext`T + 
+                    2 $CellContext`T24 + 4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+              4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+               X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) \
+((-2) (((-5) $CellContext`MH^2 + 4 $CellContext`S34 + $CellContext`T + 
+                   2 $CellContext`T24 + 4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 
+                 2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] - 
+               2 (((-5) $CellContext`MH^2 + 
+                  4 $CellContext`S34 + $CellContext`T + 2 $CellContext`T24 + 
+                  4 $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] + 
+                2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  5]] (-($CellContext`MH^2 - $CellContext`T) ($CellContext`S - \
+$CellContext`S34 - $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                 4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) - 
+               4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) - 
+               4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[2]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) - 16 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   3]] ((7 $CellContext`MH^2 - 8 $CellContext`S34 - 
+                    3 $CellContext`T - 2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                  4 ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`S34 + $CellContext`T + 
+                    2 $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + (7 $CellContext`MH^2 - 
+                    3 $CellContext`T - 2 $CellContext`T24 - 
+                    8 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + 
+                4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))) + ($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T - $CellContext`T14)^(-1) ((-2) (((-$CellContext`S34 \
+$CellContext`T + $CellContext`S34 $CellContext`T14 + $CellContext`MH^2 \
+($CellContext`S34 - $CellContext`U) + $CellContext`T $CellContext`U + \
+$CellContext`T14 $CellContext`U - $CellContext`S ($CellContext`S34 + \
+$CellContext`U)) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - 
+                  4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                  4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    5]] ((($CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    4]] (($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+                  4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                  4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 8 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`S34 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`U $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`S34 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) 
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT] + (
+                   16 $CellContext`MT^4 + $CellContext`T^2 + \
+$CellContext`T14^2 - 4 $CellContext`MH^2 $CellContext`T24 + 
+                   2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                   2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+                   8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) ((-$CellContext`S34^2 - 
+                    4 $CellContext`S34 $CellContext`T + 
+                    2 $CellContext`S34 $CellContext`T14 + 
+                    4 $CellContext`MH^2 ($CellContext`S34 - $CellContext`U) + 
+                    4 $CellContext`T $CellContext`U + 
+                    2 $CellContext`T14 $CellContext`U + $CellContext`U^2 - 
+                    2 $CellContext`S ($CellContext`S34 + $CellContext`U)) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - 
+                  8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                  8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    5]] ((2 ($CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ((-4) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] (
+                    2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ((-4) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+                  8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                  8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 32 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] (
+                    2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ((-3) $CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] (
+                    2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + ((-3) $CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) ((2 $CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) 
+                   X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - 2 ($CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) 
+                  X`DiscB[$CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] - (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) 
+                  X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + \
+($CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+                    4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT])) + (
+                8 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   5]] ((2 $CellContext`S - $CellContext`S34 - 
+                    2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - 4 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) (
+                2 (2 + X`Eps^(-1) + 
+                  X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + 
+                  Log[$CellContext`MT^(-2) X`Mu^2]) - 
+                2 (16 $CellContext`MT^4 + $CellContext`T^2 + \
+$CellContext`T14^2 - 4 $CellContext`MH^2 $CellContext`T24 + 
+                  2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+                  8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) (
+                 3 (16 $CellContext`MT^4 + $CellContext`T^2 + \
+$CellContext`T14^2 - 4 $CellContext`MH^2 $CellContext`T24 + 
+                   2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                   2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+                   8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) + 
+                 X`Eps^(-1) (
+                   16 $CellContext`MT^4 + $CellContext`T^2 + \
+$CellContext`T14^2 - 4 $CellContext`MH^2 $CellContext`T24 + 
+                   2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                   2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+                   8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) + $CellContext`MH^2 (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - ($CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) 
+                 X`DiscB[$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] - (2 $CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) $CellContext`T24 
+                 X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + \
+(16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+                   4 $CellContext`MH^2 $CellContext`T24 + 
+                   2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                   2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+                   8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) Log[$CellContext`MT^(-2) X`Mu^2] + 
+                 2 (16 $CellContext`MT^6 + $CellContext`MH^2 \
+($CellContext`MH^2 - $CellContext`T - $CellContext`T14) $CellContext`T24 + 
+                   8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                    8 $CellContext`MH^2 $CellContext`T24 + 
+                    2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                    2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+                  X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT])) - 
+              4 ((16 $CellContext`MT^4 + $CellContext`T^2 + \
+$CellContext`T14^2 - 4 $CellContext`MH^2 $CellContext`T24 + 
+                  2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+                  8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) ((-$CellContext`S34^2 - 
+                   2 $CellContext`S34 $CellContext`T - $CellContext`S34 \
+$CellContext`T24 + 2 $CellContext`T14 $CellContext`T24 - 
+                   2 $CellContext`S (
+                    2 $CellContext`S34 + $CellContext`T24) + \
+$CellContext`MH^2 (2 $CellContext`S + 3 $CellContext`S34 - 2 $CellContext`T14 - 
+                    3 $CellContext`U) + 2 $CellContext`T $CellContext`U + 
+                   4 $CellContext`T14 $CellContext`U + $CellContext`T24 \
+$CellContext`U + $CellContext`U^2) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - 
+                 8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] - 
+                 8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] - 
+                 4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T24 - \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] ((2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] (2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+                 8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - 
+                 8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    4]] ((-$CellContext`MH^2 + 
+                    2 $CellContext`S34 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 2 $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                   2 $CellContext`S34 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`S34 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + $CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 2 $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) ((-2) $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (2 $CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) 
+                  X`DiscB[$CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + 
+                 4 $CellContext`MT^2 
+                  
+                  X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T 
+                  X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T14 
+                  X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T24 X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+                 4 $CellContext`MH^2 $CellContext`MT^2 
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MH^2 $CellContext`T 
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MH^2 $CellContext`T14 
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 $CellContext`T24 
+                  X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+               Rational[
+                 1, 2] (16 $CellContext`MT^4 + $CellContext`T^2 + \
+$CellContext`T14^2 - 4 $CellContext`MH^2 $CellContext`T24 + 
+                  2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+                  8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-2) (-($CellContext`S34 - $CellContext`U) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + 
+                   2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - 
+                 4 (2 $CellContext`MH^2 - $CellContext`S34 - 
+                  2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) - 
+                 4 ($CellContext`S34 - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) ((-2) ($CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) \
+((-16) $CellContext`MT^4 - $CellContext`T^2 - $CellContext`T14^2 + 
+                   4 $CellContext`MH^2 $CellContext`T24 - 
+                   2 $CellContext`T14 $CellContext`T24 - $CellContext`T24^2 - 
+                   2 $CellContext`T ($CellContext`T14 + $CellContext`T24) - 
+                   8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) + ((
+                    4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+                    3 $CellContext`T14 + $CellContext`T24) + 
+                   2 $CellContext`MH^4 (12 $CellContext`MT^2 + 
+                    3 $CellContext`T + 3 $CellContext`T14 + 
+                    5 $CellContext`T24) - 
+                   2 $CellContext`MH^2 (80 $CellContext`MT^4 + 
+                    5 $CellContext`T^2 + 10 $CellContext`T $CellContext`T14 + 
+                    5 $CellContext`T14^2 + 7 $CellContext`T $CellContext`T24 + 
+                    7 $CellContext`T14 $CellContext`T24 + 
+                    4 $CellContext`T24^2 + 
+                    4 $CellContext`MT^2 (10 $CellContext`T + 
+                    10 $CellContext`T14 + 7 $CellContext`T24))) 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - 
+                 6 (-$CellContext`MH^2 + 
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14)^2 \
+(4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + $CellContext`T24) 
+                 X`DiscB[$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] - ((-192) $CellContext`MT^6 - 
+                  3 $CellContext`T^3 - 9 $CellContext`T^2 $CellContext`T14 - 
+                  9 $CellContext`T $CellContext`T14^2 - 3 $CellContext`T14^3 - 
+                  16 $CellContext`MT^4 (9 $CellContext`T + 
+                   9 $CellContext`T14 - $CellContext`T24) + 
+                  4 $CellContext`MH^4 $CellContext`T24 + $CellContext`T^2 \
+$CellContext`T24 + 
+                  2 $CellContext`T $CellContext`T14 $CellContext`T24 + \
+$CellContext`T14^2 $CellContext`T24 + 5 $CellContext`T $CellContext`T24^2 + 
+                  5 $CellContext`T14 $CellContext`T24^2 + $CellContext`T24^3 - 
+                  4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+                   18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+                   2 $CellContext`T $CellContext`T24 - 
+                   2 $CellContext`T14 $CellContext`T24 - 
+                   5 $CellContext`T24^2) + 
+                  2 $CellContext`MH^2 (
+                    16 $CellContext`MT^4 + $CellContext`T^2 + 
+                    2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 + \
+$CellContext`MT^2 (8 $CellContext`T + 8 $CellContext`T14 - 
+                    4 $CellContext`T24) - $CellContext`T $CellContext`T24 - \
+$CellContext`T14 $CellContext`T24 - 4 $CellContext`T24^2)) 
+                 X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + 
+                 2 ($CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+                   2 $CellContext`MH^4 $CellContext`T24 - (
+                    2 $CellContext`MT^2 + $CellContext`T + $CellContext`T14) (
+                    4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MH^2 (
+                    16 $CellContext`MT^4 + $CellContext`T^2 + 
+                    2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 + 
+                    8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 - \
+$CellContext`T24) + $CellContext`T24^2)) 
+                  X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+               Rational[
+                 1, 2] (16 $CellContext`MT^4 + $CellContext`T^2 + \
+$CellContext`T14^2 - 4 $CellContext`MH^2 $CellContext`T24 + 
+                  2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+                  8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-2) (-($CellContext`S34 - $CellContext`U) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + 
+                   2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - 
+                 4 (2 $CellContext`MH^2 - $CellContext`S34 - 
+                  2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) - 
+                 4 ($CellContext`S34 - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) ((2 $CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) ((-16) $CellContext`MT^4 - $CellContext`T^2 - \
+$CellContext`T14^2 + 4 $CellContext`MH^2 $CellContext`T24 - 
+                   2 $CellContext`T14 $CellContext`T24 - $CellContext`T24^2 - 
+                   2 $CellContext`T ($CellContext`T14 + $CellContext`T24) - 
+                   8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24)) - $CellContext`MH^2 ((-80) $CellContext`MT^4 - 
+                  5 $CellContext`T^2 - 10 $CellContext`T $CellContext`T14 - 
+                  5 $CellContext`T14^2 - 4 $CellContext`T $CellContext`T24 - 
+                  4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`MH^2 (12 $CellContext`MT^2 + 
+                    3 $CellContext`T + 3 $CellContext`T14 + $CellContext`T24) - 
+                  8 $CellContext`MT^2 (5 $CellContext`T + 5 $CellContext`T14 + 
+                   2 $CellContext`T24)) 
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+($CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) \
+($CellContext`MH^2 (24 $CellContext`MT^2 + 6 $CellContext`T + 
+                    6 $CellContext`T14 - 2 $CellContext`T24) - (
+                    4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2) 
+                  X`DiscB[$CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + (
+                   2 $CellContext`MH^2 (
+                    4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24)^2 + 
+                   4 $CellContext`MH^4 $CellContext`T24 - (
+                    4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14) (
+                    4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2) 
+                  X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+                 2 (2 $CellContext`MH^6 $CellContext`T24 - $CellContext`MT^2 (
+                    4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 + $CellContext`MH^4 (
+                    16 $CellContext`MT^4 + $CellContext`T^2 + 
+                    2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 + 
+                    4 $CellContext`MT^2 (2 $CellContext`T + 
+                    2 $CellContext`T14 - 5 $CellContext`T24) - 
+                    3 $CellContext`T $CellContext`T24 - 
+                    3 $CellContext`T14 $CellContext`T24 - 
+                    2 $CellContext`T24^2) - $CellContext`MH^2 (
+                   32 $CellContext`MT^6 + 
+                   16 $CellContext`MT^4 (2 $CellContext`T + 
+                    2 $CellContext`T14 - 3 $CellContext`T24) + 
+                   2 $CellContext`MT^2 (5 $CellContext`T^2 + 
+                    10 $CellContext`T $CellContext`T14 + 5 $CellContext`T14^2 - 
+                    8 $CellContext`T $CellContext`T24 - 
+                    8 $CellContext`T14 $CellContext`T24 - 
+                    7 $CellContext`T24^2) + ($CellContext`T + \
+$CellContext`T14) ($CellContext`T^2 + 
+                    2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 - \
+$CellContext`T $CellContext`T24 - $CellContext`T14 $CellContext`T24 - 
+                    2 $CellContext`T24^2))) 
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT])))), 
+          0, ($CellContext`MH^2 - $CellContext`S - $CellContext`T - \
+$CellContext`T14)^(-1) $CellContext`T24^(-1) (
+           8 $CellContext`MT^2 (
+              16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+              4 $CellContext`MH^2 $CellContext`T24 + 
+              2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+              2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+              8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) 
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) (8 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] ((2 $CellContext`S - $CellContext`S34 - 
+                 2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) + 8 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] - 4 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] ($CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]]))) ($CellContext`MH^2 (
+               16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 + 
+               2 $CellContext`T ($CellContext`T14 - 2 $CellContext`T24) + 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 - 
+                 2 $CellContext`T24) + 8 $CellContext`MH^2 $CellContext`T24 - 
+               4 $CellContext`T14 $CellContext`T24 - 5 $CellContext`T24^2) 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - (
+              8 $CellContext`MH^4 $CellContext`T24 + $CellContext`T24 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MH^2 (
+                16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 + 
+                2 $CellContext`T ($CellContext`T14 - 5 $CellContext`T24) + 
+                8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 - 
+                  5 $CellContext`T24) - 10 $CellContext`T14 $CellContext`T24 - 
+                3 $CellContext`T24^2)) 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + $CellContext`T24 ((-2) $CellContext`MH^2 (
+                 12 $CellContext`MT^2 + 3 $CellContext`T + 
+                 3 $CellContext`T14 - $CellContext`T24) + (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2) 
+              X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] + (
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) 
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] + 
+             2 (64 $CellContext`MT^8 + 
+               48 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + 
+               12 $CellContext`MT^4 ($CellContext`T^2 + $CellContext`T14^2 + 
+                 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24 ((-4) \
+$CellContext`MH^2 + $CellContext`T24) + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24)) - \
+$CellContext`MH^2 $CellContext`T24 (2 $CellContext`T^2 + 
+                2 $CellContext`T14^2 + $CellContext`T14 $CellContext`T24 - \
+$CellContext`T24^2 + $CellContext`MH^2 ((-3) $CellContext`T - 
+                  3 $CellContext`T14 + $CellContext`T24) + $CellContext`T (
+                  4 $CellContext`T14 + $CellContext`T24)) + $CellContext`MT^2 \
+($CellContext`T^3 + $CellContext`T14^3 + 
+                 3 $CellContext`T14^2 $CellContext`T24 + 
+                 3 $CellContext`T^2 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T14 $CellContext`T24 ((-20) $CellContext`MH^2 + 
+                   3 $CellContext`T24) + $CellContext`T24 (
+                   12 $CellContext`MH^4 - 
+                   8 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + \
+$CellContext`T (3 $CellContext`T14^2 + 
+                   6 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+((-20) $CellContext`MH^2 + 3 $CellContext`T24)))) 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+           2 ((-4) $CellContext`MT^2 (-$CellContext`MH^2 + 
+               8 $CellContext`MT^2 + $CellContext`T + $CellContext`T14)^(-1) (
+               16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1)
+                X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) ((-$CellContext`S34 $CellContext`T + $CellContext`S34 \
+$CellContext`T14 + $CellContext`MH^2 ($CellContext`S34 - $CellContext`U) + \
+$CellContext`T $CellContext`U + $CellContext`T14 $CellContext`U - \
+$CellContext`S ($CellContext`S34 + $CellContext`U)) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 
+              4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 
+              4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   4]] (($CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+              4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] - 
+              4 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 8 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] ($CellContext`U $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`S34 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ($CellContext`U $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`S34 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) (-$CellContext`MH^2 ($CellContext`MH^2 - 
+                8 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+                2 $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14 - \
+$CellContext`T24) $CellContext`T24 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+(64 $CellContext`MT^8 - 
+               2 $CellContext`MH^2 (-$CellContext`MH^2 + $CellContext`T + \
+$CellContext`T14)^2 $CellContext`T24 + 
+               48 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + 
+               4 $CellContext`MT^4 (3 $CellContext`T^2 + 3 $CellContext`T14^2 + 
+                 6 $CellContext`T14 $CellContext`T24 + 
+                 6 $CellContext`T ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T24 ((-20) $CellContext`MH^2 + 
+                   3 $CellContext`T24)) + $CellContext`MT^2 ($CellContext`T^3 + \
+$CellContext`T14^3 + 3 $CellContext`T14^2 $CellContext`T24 + 
+                 3 $CellContext`T^2 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T14 $CellContext`T24 ((-28) $CellContext`MH^2 + 
+                   3 $CellContext`T24) + $CellContext`T24 (
+                   24 $CellContext`MH^4 - 
+                   4 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + \
+$CellContext`T (3 $CellContext`T14^2 + 
+                   6 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+((-28) $CellContext`MH^2 + 3 $CellContext`T24)))) 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + $CellContext`MH^2 ($CellContext`MH^2 - 
+                8 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+                
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) $CellContext`T24 
+               X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - \
+($CellContext`MH^2 - 
+               8 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+               4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) (
+               16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+            4 $CellContext`MT^2 (
+               16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+               4 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) (
+               16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1)
+                X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) ((-$CellContext`S34^2 - 
+                4 $CellContext`S34 $CellContext`T + 
+                2 $CellContext`S34 $CellContext`T14 + 
+                4 $CellContext`MH^2 ($CellContext`S34 - $CellContext`U) + 
+                4 $CellContext`T $CellContext`U + 
+                2 $CellContext`T14 $CellContext`U + $CellContext`U^2 - 
+                2 $CellContext`S ($CellContext`S34 + $CellContext`U)) \
+$CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 
+              8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 
+              8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ((-4) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] (
+                  2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ((-4) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+              8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] - 
+              8 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 32 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] (
+                2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   1]] + ((-3) $CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] (
+                  2 ($CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + ((-3) $CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) (-(-$CellContext`MT^2 (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 + 
+                2 $CellContext`MH^6 $CellContext`T24 (12 $CellContext`MT^2 + 
+                  3 $CellContext`T + 3 $CellContext`T14 + $CellContext`T24) + 
+                2 $CellContext`MH^2 (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (
+                  8 $CellContext`MT^4 + ($CellContext`T + $CellContext`T14) \
+$CellContext`T24 + 2 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + 
+                    3 $CellContext`T24)) - 
+                2 $CellContext`MH^4 $CellContext`T24 (96 $CellContext`MT^4 + 
+                 4 $CellContext`T^2 + 8 $CellContext`T $CellContext`T14 + 
+                 4 $CellContext`T14^2 + 3 $CellContext`T $CellContext`T24 + 
+                 3 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 4 $CellContext`MT^2 (10 $CellContext`T + 10 $CellContext`T14 + 
+                   3 $CellContext`T24))) 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+(2 $CellContext`MH^6 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+                  3 $CellContext`T14 - $CellContext`T24) $CellContext`T24 - \
+$CellContext`MT^2 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+                 3 $CellContext`T14 - $CellContext`T24) (
+                  
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 - 
+                2 $CellContext`MH^4 $CellContext`T24 (112 $CellContext`MT^4 + 
+                 5 $CellContext`T^2 + 10 $CellContext`T $CellContext`T14 + 
+                 5 $CellContext`T14^2 + 
+                 48 $CellContext`MT^2 ($CellContext`T + $CellContext`T14) - \
+$CellContext`T24^2) + 
+                2 $CellContext`MH^2 (128 $CellContext`MT^8 + 
+                  96 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + 
+                    3 $CellContext`T24) + 
+                  8 $CellContext`MT^4 (3 $CellContext`T^2 + 
+                    6 $CellContext`T $CellContext`T14 + 3 $CellContext`T14^2 + 
+                    22 $CellContext`T $CellContext`T24 + 
+                    22 $CellContext`T14 $CellContext`T24 + 
+                    5 $CellContext`T24^2) + ($CellContext`T + \
+$CellContext`T14) $CellContext`T24 (2 $CellContext`T^2 + 
+                    2 $CellContext`T14^2 + $CellContext`T14 $CellContext`T24 - \
+$CellContext`T24^2 + $CellContext`T (4 $CellContext`T14 + $CellContext`T24)) + 
+                  2 $CellContext`MT^2 ($CellContext`T^3 + $CellContext`T14^3 + 
+                    17 $CellContext`T14^2 $CellContext`T24 + 
+                    7 $CellContext`T14 $CellContext`T24^2 - 
+                    3 $CellContext`T24^3 + $CellContext`T^2 (
+                    3 $CellContext`T14 + 
+                    17 $CellContext`T24) + $CellContext`T (
+                    3 $CellContext`T14^2 + 
+                    34 $CellContext`T14 $CellContext`T24 + 
+                    7 $CellContext`T24^2)))) 
+               X`DiscB[$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + (256 $CellContext`MT^10 + 
+                256 $CellContext`MT^8 ($CellContext`T + $CellContext`T14) + 
+                2 $CellContext`MH^2 ($CellContext`MH^2 - $CellContext`T - \
+$CellContext`T14) $CellContext`T24 ($CellContext`T^2 + $CellContext`T14^2 + \
+$CellContext`T (
+                    2 $CellContext`T14 - $CellContext`T24) - $CellContext`T14 \
+$CellContext`T24 + 2 ($CellContext`MH^2 - $CellContext`T24) $CellContext`T24) + 
+                32 $CellContext`MT^6 (3 $CellContext`T^2 + 
+                  6 $CellContext`T $CellContext`T14 + 
+                  3 $CellContext`T14^2 - $CellContext`T24 (
+                   4 $CellContext`MH^2 + 3 $CellContext`T24)) + 
+                16 $CellContext`MT^4 ($CellContext`T^3 + 
+                  3 $CellContext`T^2 $CellContext`T14 + $CellContext`T14^3 - 
+                  3 $CellContext`T14 $CellContext`T24 (
+                   2 $CellContext`MH^2 + $CellContext`T24) + 
+                  2 $CellContext`T24 ($CellContext`MH^4 + 
+                    3 $CellContext`MH^2 $CellContext`T24 - \
+$CellContext`T24^2) + 
+                  3 $CellContext`T ($CellContext`T14^2 - $CellContext`T24 (
+                    2 $CellContext`MH^2 + $CellContext`T24))) + \
+$CellContext`MT^2 ($CellContext`T^4 + 
+                  4 $CellContext`T^3 $CellContext`T14 + $CellContext`T14^4 - 
+                  6 $CellContext`T14^2 $CellContext`T24 (
+                   4 $CellContext`MH^2 + $CellContext`T24) + \
+$CellContext`T24^2 ((-40) $CellContext`MH^4 + 
+                    32 $CellContext`MH^2 $CellContext`T24 - 
+                    3 $CellContext`T24^2) - 
+                  8 $CellContext`T14 $CellContext`T24 ((-2) $CellContext`MH^4 - 
+                   4 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + 
+                  6 $CellContext`T^2 ($CellContext`T14^2 - $CellContext`T24 (
+                    4 $CellContext`MH^2 + $CellContext`T24)) + 
+                  4 $CellContext`T ($CellContext`T14^3 - 
+                    3 $CellContext`T14 $CellContext`T24 (
+                    4 $CellContext`MH^2 + $CellContext`T24) - 
+                    2 $CellContext`T24 ((-2) $CellContext`MH^4 - 
+                    4 $CellContext`MH^2 $CellContext`T24 + \
+$CellContext`T24^2)))) 
+               X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+              2 (16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] + ((-4) $CellContext`MH^4 $CellContext`T24 + (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 - 
+                2 $CellContext`MH^2 (
+                 16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 + 
+                 2 $CellContext`T ($CellContext`T14 - $CellContext`T24) + 
+                 8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 - \
+$CellContext`T24) - 
+                 2 $CellContext`T14 $CellContext`T24 - $CellContext`T24^2)) (
+                16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+                8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                  8 $CellContext`MH^2 $CellContext`T24 + 
+                  2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+               X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT])) - 
+           4 ((-2) $CellContext`MT^2 (
+               16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+               4 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-2) (
+               16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1)
+                X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) (-($CellContext`S34 - $CellContext`U) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + 
+                2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 
+              4 (2 $CellContext`MH^2 - $CellContext`S34 - 
+               2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) - 
+              4 ($CellContext`S34 - $CellContext`U) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]])) ((-2) $CellContext`MH^2 (
+                16 $CellContext`MH^8 $CellContext`T24^2 - 
+                5 $CellContext`MT^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 + $CellContext`MH^6 $CellContext`T24 (
+                  176 $CellContext`MT^4 + 11 $CellContext`T^2 + 
+                  22 $CellContext`T $CellContext`T14 + 11 $CellContext`T14^2 + 
+                  8 $CellContext`MT^2 (11 $CellContext`T + 
+                    11 $CellContext`T14 - 23 $CellContext`T24) - 
+                  30 $CellContext`T $CellContext`T24 - 
+                  30 $CellContext`T14 $CellContext`T24 - 
+                  13 $CellContext`T24^2) + $CellContext`MH^4 $CellContext`T24 \
+((-1408) $CellContext`MT^6 - 17 $CellContext`T^3 - 17 $CellContext`T14^3 - 
+                  16 $CellContext`MT^4 (61 $CellContext`T + 
+                   61 $CellContext`T14 - 30 $CellContext`T24) + 
+                  8 $CellContext`T14^2 $CellContext`T24 + 
+                  19 $CellContext`T14 $CellContext`T24^2 + 
+                  6 $CellContext`T24^3 + $CellContext`T^2 ((-51) \
+$CellContext`T14 + 8 $CellContext`T24) - 
+                  8 $CellContext`MT^2 (28 $CellContext`T^2 + 
+                   56 $CellContext`T $CellContext`T14 + 28 $CellContext`T14^2 - 
+                   19 $CellContext`T $CellContext`T24 - 
+                   19 $CellContext`T14 $CellContext`T24 - 
+                   17 $CellContext`T24^2) + $CellContext`T ((-51) \
+$CellContext`T14^2 + 16 $CellContext`T14 $CellContext`T24 + 
+                    19 $CellContext`T24^2)) + $CellContext`MH^2 (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (144 $CellContext`MT^6 + 
+                  6 ($CellContext`T + $CellContext`T14) ($CellContext`T + \
+$CellContext`T14 - $CellContext`T24) $CellContext`T24 + 
+                  24 $CellContext`MT^4 (3 $CellContext`T + 3 $CellContext`T14 + 
+                    5 $CellContext`T24) + $CellContext`MT^2 (
+                    9 $CellContext`T^2 + 9 $CellContext`T14^2 + 
+                    54 $CellContext`T14 $CellContext`T24 - 
+                    55 $CellContext`T24^2 + 
+                    18 $CellContext`T ($CellContext`T14 + 
+                    3 $CellContext`T24)))) 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+(32 $CellContext`MH^10 $CellContext`T24^2 + $CellContext`MT^2 (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^5 + 
+                2 $CellContext`MH^8 $CellContext`T24 (176 $CellContext`MT^4 + 
+                  11 $CellContext`T^2 + 22 $CellContext`T $CellContext`T14 + 
+                  11 $CellContext`T14^2 + 
+                  8 $CellContext`MT^2 (11 $CellContext`T + 
+                    11 $CellContext`T14 - 32 $CellContext`T24) - 
+                  48 $CellContext`T $CellContext`T24 - 
+                  48 $CellContext`T14 $CellContext`T24 - 
+                  11 $CellContext`T24^2) - 
+                8 $CellContext`MH^6 $CellContext`T24 (400 $CellContext`MT^6 + 
+                 8 $CellContext`MT^4 (35 $CellContext`T + 35 $CellContext`T14 - 
+                   38 $CellContext`T24) + $CellContext`MT^2 (
+                   65 $CellContext`T^2 + 65 $CellContext`T14^2 + 
+                   2 $CellContext`T (65 $CellContext`T14 - 
+                    58 $CellContext`T24) - 
+                   116 $CellContext`T14 $CellContext`T24 - 
+                   45 $CellContext`T24^2) + ($CellContext`T + \
+$CellContext`T14) (5 $CellContext`T^2 + 5 $CellContext`T14^2 + 
+                   10 $CellContext`T ($CellContext`T14 - $CellContext`T24) - 
+                   10 $CellContext`T14 $CellContext`T24 - 
+                   7 $CellContext`T24^2)) - $CellContext`MH^2 (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 (256 $CellContext`MT^6 + 
+                 8 $CellContext`MT^4 (16 $CellContext`T + 16 $CellContext`T14 - 
+                   11 $CellContext`T24) + ($CellContext`T + $CellContext`T14) \
+($CellContext`T + $CellContext`T14 - $CellContext`T24) $CellContext`T24 + 
+                 2 $CellContext`MT^2 (8 $CellContext`T^2 + 
+                   16 $CellContext`T $CellContext`T14 + 8 $CellContext`T14^2 - 
+                   9 $CellContext`T $CellContext`T24 - 
+                   9 $CellContext`T14 $CellContext`T24 - 
+                   5 $CellContext`T24^2)) + $CellContext`MH^4 (
+                  4608 $CellContext`MT^10 + 
+                  1536 $CellContext`MT^8 (3 $CellContext`T + 
+                    3 $CellContext`T14 + 5 $CellContext`T24) + 
+                  64 $CellContext`MT^6 (27 $CellContext`T^2 + 
+                    54 $CellContext`T $CellContext`T14 + 
+                    27 $CellContext`T14^2 + 
+                    109 $CellContext`T $CellContext`T24 + 
+                    109 $CellContext`T14 $CellContext`T24 - 
+                    58 $CellContext`T24^2) + 
+                  16 $CellContext`MT^4 (18 $CellContext`T^3 + 
+                    18 $CellContext`T14^3 + 
+                    147 $CellContext`T14^2 $CellContext`T24 - 
+                    130 $CellContext`T14 $CellContext`T24^2 - 
+                    93 $CellContext`T24^3 + 
+                    3 $CellContext`T^2 (18 $CellContext`T14 + 
+                    49 $CellContext`T24) + 
+                    2 $CellContext`T (27 $CellContext`T14^2 + 
+                    147 $CellContext`T14 $CellContext`T24 - 
+                    65 $CellContext`T24^2)) + 
+                  2 $CellContext`MT^2 (9 $CellContext`T^4 + 
+                    9 $CellContext`T14^4 + 
+                    174 $CellContext`T14^3 $CellContext`T24 - 
+                    172 $CellContext`T14^2 $CellContext`T24^2 - 
+                    254 $CellContext`T14 $CellContext`T24^3 - 
+                    21 $CellContext`T24^4 + 
+                    6 $CellContext`T^3 (6 $CellContext`T14 + 
+                    29 $CellContext`T24) + 
+                    2 $CellContext`T^2 (27 $CellContext`T14^2 + 
+                    261 $CellContext`T14 $CellContext`T24 - 
+                    86 $CellContext`T24^2) + $CellContext`T (
+                    36 $CellContext`T14^3 + 
+                    522 $CellContext`T14^2 $CellContext`T24 - 
+                    344 $CellContext`T14 $CellContext`T24^2 - 
+                    254 $CellContext`T24^3)) - $CellContext`T24 ((-19) \
+$CellContext`T^4 - 19 $CellContext`T14^4 + 
+                   14 $CellContext`T14^3 $CellContext`T24 + 
+                   34 $CellContext`T14^2 $CellContext`T24^2 + 
+                   2 $CellContext`T14 $CellContext`T24^3 + $CellContext`T24^4 + \
+$CellContext`T^3 ((-76) $CellContext`T14 + 
+                    14 $CellContext`T24) + $CellContext`T^2 ((-114) \
+$CellContext`T14^2 + 42 $CellContext`T14 $CellContext`T24 + 
+                    34 $CellContext`T24^2) + $CellContext`T ((-76) \
+$CellContext`T14^3 + 42 $CellContext`T14^2 $CellContext`T24 + 
+                    68 $CellContext`T14 $CellContext`T24^2 + 
+                    2 $CellContext`T24^3)))) 
+               X`DiscB[$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + (
+                4 $CellContext`MH^8 (36 $CellContext`MT^2 + 9 $CellContext`T + 
+                  9 $CellContext`T14 - $CellContext`T24) $CellContext`T24^2 - \
+$CellContext`MT^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 - \
+$CellContext`T24) (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^5 + 
+                2 $CellContext`MH^6 $CellContext`T24 (192 $CellContext`MT^6 + 
+                  3 $CellContext`T^3 + 3 $CellContext`T14^3 + 
+                  16 $CellContext`MT^4 (9 $CellContext`T + 9 $CellContext`T14 - 
+                    50 $CellContext`T24) + $CellContext`T^2 (
+                    9 $CellContext`T14 - 32 $CellContext`T24) - 
+                  32 $CellContext`T14^2 $CellContext`T24 - 
+                  9 $CellContext`T14 $CellContext`T24^2 + 
+                  6 $CellContext`T24^3 + $CellContext`T (9 $CellContext`T14^2 - 
+                    64 $CellContext`T14 $CellContext`T24 - 
+                    9 $CellContext`T24^2) + 
+                  4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+                    18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+                    82 $CellContext`T $CellContext`T24 - 
+                    82 $CellContext`T14 $CellContext`T24 - 
+                    7 $CellContext`T24^2)) + $CellContext`MH^2 (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 (64 $CellContext`MT^6 + 
+                  8 $CellContext`MT^4 (4 $CellContext`T + 4 $CellContext`T14 - 
+                    11 $CellContext`T24) + ($CellContext`T + \
+$CellContext`T14) ($CellContext`T + $CellContext`T14 - $CellContext`T24) \
+$CellContext`T24 + 2 $CellContext`MT^2 (2 $CellContext`T^2 + 
+                    4 $CellContext`T $CellContext`T14 + 2 $CellContext`T14^2 - 
+                    9 $CellContext`T $CellContext`T24 - 
+                    9 $CellContext`T14 $CellContext`T24 + \
+$CellContext`T24^2)) + $CellContext`MH^4 $CellContext`T24 ((-512) \
+$CellContext`MT^8 - 7 $CellContext`T^4 - 7 $CellContext`T14^4 - 
+                  64 $CellContext`MT^6 (13 $CellContext`T + 
+                   13 $CellContext`T14 - 69 $CellContext`T24) + 
+                  26 $CellContext`T14^3 $CellContext`T24 + 
+                  22 $CellContext`T14^2 $CellContext`T24^2 - 
+                  10 $CellContext`T14 $CellContext`T24^3 + $CellContext`T24^4 + \
+$CellContext`T^3 ((-28) $CellContext`T14 + 26 $CellContext`T24) - 
+                  16 $CellContext`MT^4 (27 $CellContext`T^2 + 
+                   54 $CellContext`T $CellContext`T14 + 27 $CellContext`T14^2 - 
+                   164 $CellContext`T $CellContext`T24 - 
+                   164 $CellContext`T14 $CellContext`T24 - 
+                   49 $CellContext`T24^2) + $CellContext`T^2 ((-42) \
+$CellContext`T14^2 + 78 $CellContext`T14 $CellContext`T24 + 
+                    22 $CellContext`T24^2) + $CellContext`T ((-28) \
+$CellContext`T14^3 + 78 $CellContext`T14^2 $CellContext`T24 + 
+                    44 $CellContext`T14 $CellContext`T24^2 - 
+                    10 $CellContext`T24^3) - 
+                  4 $CellContext`MT^2 (23 $CellContext`T^3 + 
+                   23 $CellContext`T14^3 + $CellContext`T^2 (
+                    69 $CellContext`T14 - 121 $CellContext`T24) - 
+                   121 $CellContext`T14^2 $CellContext`T24 - 
+                   71 $CellContext`T14 $CellContext`T24^2 + 
+                   21 $CellContext`T24^3 + $CellContext`T (
+                    69 $CellContext`T14^2 - 
+                    242 $CellContext`T14 $CellContext`T24 - 
+                    71 $CellContext`T24^2)))) 
+               X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+              2 ($CellContext`MH^2 (20 $CellContext`MT^2 + 5 $CellContext`T + 
+                 5 $CellContext`T14 - $CellContext`T24) - (
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2) (
+               16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] + 
+              2 (16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+                8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                  8 $CellContext`MH^2 $CellContext`T24 + 
+                  2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) \
+((-2) $CellContext`MH^6 (36 $CellContext`MT^2 + 9 $CellContext`T + 
+                  9 $CellContext`T14 - $CellContext`T24) $CellContext`T24 + 
+                2 $CellContext`MT^2 (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 + 
+                2 $CellContext`MH^2 (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (
+                  4 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 + \
+$CellContext`MT^2 (5 $CellContext`T + 5 $CellContext`T14 - 
+                    21 $CellContext`T24) + 
+                  2 $CellContext`T ($CellContext`T14 - 2 $CellContext`T24) - 
+                  4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2) - \
+$CellContext`MH^4 (192 $CellContext`MT^6 + 3 $CellContext`T^3 + 
+                 3 $CellContext`T14^3 + 
+                 16 $CellContext`MT^4 (9 $CellContext`T + 9 $CellContext`T14 - 
+                   29 $CellContext`T24) + $CellContext`T^2 (
+                   9 $CellContext`T14 - 23 $CellContext`T24) - 
+                 23 $CellContext`T14^2 $CellContext`T24 - 
+                 13 $CellContext`T14 $CellContext`T24^2 + $CellContext`T24^3 + 
+                 4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+                   18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+                   52 $CellContext`T $CellContext`T24 - 
+                   52 $CellContext`T14 $CellContext`T24 - 
+                   15 $CellContext`T24^2) + $CellContext`T (
+                   9 $CellContext`T14^2 - 
+                   46 $CellContext`T14 $CellContext`T24 - 
+                   13 $CellContext`T24^2))) 
+               X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+            2 $CellContext`MT^2 (
+               16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+               4 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-2) (
+               16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24)))^(-1)
+                X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) (-($CellContext`S34 - $CellContext`U) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + 
+                2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 
+              4 (2 $CellContext`MH^2 - $CellContext`S34 - 
+               2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) - 
+              4 ($CellContext`S34 - $CellContext`U) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]])) (-(
+                32 $CellContext`MH^10 $CellContext`T24^2 + $CellContext`MT^2 (
+                  12 $CellContext`MT^2 + 3 $CellContext`T + 
+                  3 $CellContext`T14 - $CellContext`T24) (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^5 + 
+                2 $CellContext`MH^8 $CellContext`T24 (176 $CellContext`MT^4 + 
+                  11 $CellContext`T^2 + 22 $CellContext`T $CellContext`T14 + 
+                  11 $CellContext`T14^2 + 
+                  8 $CellContext`MT^2 (11 $CellContext`T + 
+                    11 $CellContext`T14 - 24 $CellContext`T24) - 
+                  32 $CellContext`T $CellContext`T24 - 
+                  32 $CellContext`T14 $CellContext`T24 - 
+                  11 $CellContext`T24^2) - $CellContext`MH^2 (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 (
+                 320 $CellContext`MT^6 + ($CellContext`T + $CellContext`T14) (
+                   5 $CellContext`T + 
+                   5 $CellContext`T14 - $CellContext`T24) $CellContext`T24 + 
+                 8 $CellContext`MT^4 (20 $CellContext`T + 20 $CellContext`T14 + 
+                   7 $CellContext`T24) + 
+                 2 $CellContext`MT^2 (10 $CellContext`T^2 + 
+                   20 $CellContext`T $CellContext`T14 + 10 $CellContext`T14^2 + 
+                   17 $CellContext`T $CellContext`T24 + 
+                   17 $CellContext`T14 $CellContext`T24 - 
+                   5 $CellContext`T24^2)) - 
+                8 $CellContext`MH^6 $CellContext`T24 (464 $CellContext`MT^6 + 
+                 8 $CellContext`MT^4 (41 $CellContext`T + 41 $CellContext`T14 - 
+                   18 $CellContext`T24) + 
+                 11 $CellContext`MT^2 (7 $CellContext`T^2 + 
+                   14 $CellContext`T $CellContext`T14 + 7 $CellContext`T14^2 - 
+                   4 $CellContext`T $CellContext`T24 - 
+                   4 $CellContext`T14 $CellContext`T24 - 
+                   3 $CellContext`T24^2) + 
+                 2 ($CellContext`T + $CellContext`T14) (3 $CellContext`T^2 + 
+                   6 $CellContext`T $CellContext`T14 + 
+                   3 $CellContext`T14^2 - $CellContext`T $CellContext`T24 - \
+$CellContext`T14 $CellContext`T24 - 
+                   2 $CellContext`T24^2)) + $CellContext`MH^4 (
+                  4608 $CellContext`MT^10 + 
+                  512 $CellContext`MT^8 (9 $CellContext`T + 
+                    9 $CellContext`T14 + 25 $CellContext`T24) + 
+                  64 $CellContext`MT^6 (27 $CellContext`T^2 + 
+                    54 $CellContext`T $CellContext`T14 + 
+                    27 $CellContext`T14^2 + 
+                    181 $CellContext`T $CellContext`T24 + 
+                    181 $CellContext`T14 $CellContext`T24 + 
+                    10 $CellContext`T24^2) + 
+                  16 $CellContext`MT^4 (18 $CellContext`T^3 + 
+                    18 $CellContext`T14^3 + 
+                    243 $CellContext`T14^2 $CellContext`T24 + 
+                    50 $CellContext`T14 $CellContext`T24^2 - 
+                    41 $CellContext`T24^3 + 
+                    27 $CellContext`T^2 (2 $CellContext`T14 + 
+                    9 $CellContext`T24) + $CellContext`T (
+                    54 $CellContext`T14^2 + 
+                    486 $CellContext`T14 $CellContext`T24 + 
+                    50 $CellContext`T24^2)) + 
+                  2 $CellContext`MT^2 (9 $CellContext`T^4 + 
+                    9 $CellContext`T14^4 + 
+                    286 $CellContext`T14^3 $CellContext`T24 + 
+                    140 $CellContext`T14^2 $CellContext`T24^2 - 
+                    78 $CellContext`T14 $CellContext`T24^3 - 
+                    13 $CellContext`T24^4 + $CellContext`T^3 (
+                    36 $CellContext`T14 + 286 $CellContext`T24) + 
+                    2 $CellContext`T^2 (27 $CellContext`T14^2 + 
+                    429 $CellContext`T14 $CellContext`T24 + 
+                    70 $CellContext`T24^2) + $CellContext`T (
+                    36 $CellContext`T14^3 + 
+                    858 $CellContext`T14^2 $CellContext`T24 + 
+                    280 $CellContext`T14 $CellContext`T24^2 - 
+                    78 $CellContext`T24^3)) + $CellContext`T24 (
+                    31 $CellContext`T^4 + 31 $CellContext`T14^4 + 
+                    30 $CellContext`T14^3 $CellContext`T24 + 
+                    2 $CellContext`T14^2 $CellContext`T24^2 + 
+                    2 $CellContext`T14 $CellContext`T24^3 - \
+$CellContext`T24^4 + 2 $CellContext`T^3 (62 $CellContext`T14 + 
+                    15 $CellContext`T24) + 
+                    2 $CellContext`T^2 (93 $CellContext`T14^2 + 
+                    45 $CellContext`T14 $CellContext`T24 + \
+$CellContext`T24^2) + 
+                    2 $CellContext`T (62 $CellContext`T14^3 + 
+                    45 $CellContext`T14^2 $CellContext`T24 + 
+                    2 $CellContext`T14 $CellContext`T24^2 + \
+$CellContext`T24^3)))) 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+              2 ($CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14) (
+                16 $CellContext`MH^8 $CellContext`T24^2 - $CellContext`MT^2 (
+                 16 $CellContext`MT^2 + 4 $CellContext`T + 4 $CellContext`T14 - 
+                 5 $CellContext`T24) (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 + $CellContext`MH^6 $CellContext`T24 (
+                  176 $CellContext`MT^4 + 11 $CellContext`T^2 + 
+                  22 $CellContext`T $CellContext`T14 + 11 $CellContext`T14^2 + 
+                  8 $CellContext`MT^2 (11 $CellContext`T + 
+                    11 $CellContext`T14 - 25 $CellContext`T24) - 
+                  34 $CellContext`T $CellContext`T24 - 
+                  34 $CellContext`T14 $CellContext`T24 - 
+                  13 $CellContext`T24^2) + $CellContext`MH^2 (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (
+                  144 $CellContext`MT^6 + ($CellContext`T + $CellContext`T14) \
+(5 $CellContext`T + 5 $CellContext`T14 - 6 $CellContext`T24) $CellContext`T24 + 
+                  72 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 (9 $CellContext`T^2 + 
+                    18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 + 
+                    38 $CellContext`T $CellContext`T24 + 
+                    38 $CellContext`T14 $CellContext`T24 - 
+                    55 $CellContext`T24^2)) - 
+                2 $CellContext`MH^4 $CellContext`T24 (672 $CellContext`MT^6 + 
+                 8 $CellContext`T^3 + 8 $CellContext`T14^3 + 
+                 16 $CellContext`MT^4 (29 $CellContext`T + 
+                   29 $CellContext`T14 - 
+                   20 $CellContext`T24) + $CellContext`T^2 (
+                   24 $CellContext`T14 - 7 $CellContext`T24) - 
+                 7 $CellContext`T14^2 $CellContext`T24 - 
+                 10 $CellContext`T14 $CellContext`T24^2 - 
+                 3 $CellContext`T24^3 + 
+                 2 $CellContext`MT^2 (53 $CellContext`T^2 + 
+                   106 $CellContext`T $CellContext`T14 + 
+                   53 $CellContext`T14^2 - 54 $CellContext`T $CellContext`T24 - 
+                   54 $CellContext`T14 $CellContext`T24 - 
+                   35 $CellContext`T24^2) + 
+                 2 $CellContext`T (12 $CellContext`T14^2 - 
+                   7 $CellContext`T14 $CellContext`T24 - 
+                   5 $CellContext`T24^2))) 
+               X`DiscB[$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT] + (
+                4 $CellContext`MH^8 $CellContext`T24^2 (36 $CellContext`MT^2 + 
+                  9 $CellContext`T + 
+                  9 $CellContext`T14 + $CellContext`T24) - $CellContext`MT^2 (
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 (48 $CellContext`MT^4 + 3 $CellContext`T^2 + 
+                 6 $CellContext`T $CellContext`T14 + 3 $CellContext`T14^2 + 
+                 8 $CellContext`MT^2 (3 $CellContext`T + 3 $CellContext`T14 - 
+                   7 $CellContext`T24) - 14 $CellContext`T $CellContext`T24 - 
+                 14 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2) + 
+                2 $CellContext`MH^6 $CellContext`T24 (192 $CellContext`MT^6 + 
+                  3 $CellContext`T^3 + 3 $CellContext`T14^3 + 
+                  16 $CellContext`MT^4 (9 $CellContext`T + 9 $CellContext`T14 - 
+                    58 $CellContext`T24) + $CellContext`T^2 (
+                    9 $CellContext`T14 - 40 $CellContext`T24) - 
+                  40 $CellContext`T14^2 $CellContext`T24 - 
+                  17 $CellContext`T14 $CellContext`T24^2 - 
+                  6 $CellContext`T24^3 + 
+                  4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+                    18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+                    98 $CellContext`T $CellContext`T24 - 
+                    98 $CellContext`T14 $CellContext`T24 - 
+                    19 $CellContext`T24^2) + $CellContext`T (
+                    9 $CellContext`T14^2 - 
+                    80 $CellContext`T14 $CellContext`T24 - 
+                    17 $CellContext`T24^2)) + $CellContext`MH^4 \
+$CellContext`T24 ((-1536) $CellContext`MT^8 - 11 $CellContext`T^4 - 
+                  11 $CellContext`T14^4 - 
+                  64 $CellContext`MT^6 (29 $CellContext`T + 
+                   29 $CellContext`T14 - 115 $CellContext`T24) + 
+                  50 $CellContext`T14^3 $CellContext`T24 + 
+                  56 $CellContext`T14^2 $CellContext`T24^2 + 
+                  26 $CellContext`T14 $CellContext`T24^3 - $CellContext`T24^4 + \
+$CellContext`T^3 ((-44) $CellContext`T14 + 50 $CellContext`T24) - 
+                  16 $CellContext`MT^4 (51 $CellContext`T^2 + 
+                   102 $CellContext`T $CellContext`T14 + 
+                   51 $CellContext`T14^2 - 
+                   280 $CellContext`T $CellContext`T24 - 
+                   280 $CellContext`T14 $CellContext`T24 - 
+                   95 $CellContext`T24^2) + $CellContext`T^2 ((-66) \
+$CellContext`T14^2 + 150 $CellContext`T14 $CellContext`T24 + 
+                    56 $CellContext`T24^2) + $CellContext`T ((-44) \
+$CellContext`T14^3 + 150 $CellContext`T14^2 $CellContext`T24 + 
+                    112 $CellContext`T14 $CellContext`T24^2 + 
+                    26 $CellContext`T24^3) - 
+                  4 $CellContext`MT^2 (39 $CellContext`T^3 + 
+                   39 $CellContext`T14^3 + $CellContext`T^2 (
+                    117 $CellContext`T14 - 215 $CellContext`T24) - 
+                   215 $CellContext`T14^2 $CellContext`T24 - 
+                   151 $CellContext`T14 $CellContext`T24^2 - 
+                   37 $CellContext`T24^3 + $CellContext`T (
+                    117 $CellContext`T14^2 - 
+                    430 $CellContext`T14 $CellContext`T24 - 
+                    151 $CellContext`T24^2))) + $CellContext`MH^2 (
+                   4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (256 $CellContext`MT^8 + 
+                  32 $CellContext`MT^6 (6 $CellContext`T + 6 $CellContext`T14 - 
+                    7 $CellContext`T24) + 
+                  16 $CellContext`MT^4 (3 $CellContext`T^2 + 
+                    6 $CellContext`T $CellContext`T14 + 3 $CellContext`T14^2 - 
+                    2 $CellContext`T $CellContext`T24 - 
+                    2 $CellContext`T14 $CellContext`T24 - 
+                    37 $CellContext`T24^2) + ($CellContext`T + \
+$CellContext`T14) $CellContext`T24 (5 $CellContext`T^2 + 5 $CellContext`T14^2 + 
+                    2 $CellContext`T (5 $CellContext`T14 - 
+                    8 $CellContext`T24) - 
+                    16 $CellContext`T14 $CellContext`T24 + \
+$CellContext`T24^2) + 
+                  2 $CellContext`MT^2 (2 $CellContext`T^3 + 
+                    2 $CellContext`T14^3 + 
+                    13 $CellContext`T14^2 $CellContext`T24 - 
+                    106 $CellContext`T14 $CellContext`T24^2 - \
+$CellContext`T24^3 + $CellContext`T^2 (6 $CellContext`T14 + 
+                    13 $CellContext`T24) + 
+                    2 $CellContext`T (3 $CellContext`T14^2 + 
+                    13 $CellContext`T14 $CellContext`T24 - 
+                    53 $CellContext`T24^2)))) 
+               X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT] - 
+              2 ((-64) $CellContext`MT^4 - 4 $CellContext`T^2 - 
+               8 $CellContext`T $CellContext`T14 - 4 $CellContext`T14^2 - 
+               3 $CellContext`T $CellContext`T24 - 
+               3 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + \
+$CellContext`MH^2 (20 $CellContext`MT^2 + 5 $CellContext`T + 
+                 5 $CellContext`T14 + $CellContext`T24) - 
+               4 $CellContext`MT^2 (8 $CellContext`T + 8 $CellContext`T14 + 
+                3 $CellContext`T24)) (
+               16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) 
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] - 
+              2 (16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+               8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                 8 $CellContext`MH^2 $CellContext`T24 + 
+                 2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                 2 $CellContext`T ($CellContext`T14 + $CellContext`T24))) \
+(($CellContext`MT^2 (4 $CellContext`T + 4 $CellContext`T14 - 
+                   6 $CellContext`T24) + ($CellContext`T + $CellContext`T14) \
+($CellContext`T + $CellContext`T14 - 2 $CellContext`T24)) (
+                  
+                  4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^3 + 
+               2 $CellContext`MH^6 $CellContext`T24 (36 $CellContext`MT^2 + 
+                 9 $CellContext`T + 
+                 9 $CellContext`T14 + $CellContext`T24) + $CellContext`MH^4 (
+                 192 $CellContext`MT^6 + 3 $CellContext`T^3 + 
+                 3 $CellContext`T14^3 + 
+                 16 $CellContext`MT^4 (9 $CellContext`T + 9 $CellContext`T14 - 
+                   37 $CellContext`T24) + $CellContext`T^2 (
+                   9 $CellContext`T14 - 31 $CellContext`T24) - 
+                 31 $CellContext`T14^2 $CellContext`T24 - 
+                 19 $CellContext`T14 $CellContext`T24^2 - $CellContext`T24^3 + \
+$CellContext`T (9 $CellContext`T14^2 - 62 $CellContext`T14 $CellContext`T24 - 
+                   19 $CellContext`T24^2) + 
+                 4 $CellContext`MT^2 (9 $CellContext`T^2 + 
+                   18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 - 
+                   68 $CellContext`T $CellContext`T24 - 
+                   68 $CellContext`T14 $CellContext`T24 - 
+                   17 $CellContext`T24^2)) - 
+               2 $CellContext`MH^2 (320 $CellContext`MT^8 + 
+                2 $CellContext`T^4 + 2 $CellContext`T14^4 + 
+                16 $CellContext`MT^6 (23 $CellContext`T + 23 $CellContext`T14 - 
+                  37 $CellContext`T24) + $CellContext`T^3 (8 $CellContext`T14 - 
+                  6 $CellContext`T24) - 6 $CellContext`T14^3 $CellContext`T24 - 
+                10 $CellContext`T14^2 $CellContext`T24^2 - 
+                3 $CellContext`T14 $CellContext`T24^3 - $CellContext`T24^4 + 
+                4 $CellContext`MT^4 (39 $CellContext`T^2 + 
+                  78 $CellContext`T $CellContext`T14 + 39 $CellContext`T14^2 - 
+                  98 $CellContext`T $CellContext`T24 - 
+                  98 $CellContext`T14 $CellContext`T24 - 
+                  45 $CellContext`T24^2) + 
+                2 $CellContext`T^2 (6 $CellContext`T14^2 - 
+                  9 $CellContext`T14 $CellContext`T24 - 
+                  5 $CellContext`T24^2) + $CellContext`T (
+                  8 $CellContext`T14^3 - 
+                  18 $CellContext`T14^2 $CellContext`T24 - 
+                  20 $CellContext`T14 $CellContext`T24^2 - 
+                  3 $CellContext`T24^3) + $CellContext`MT^2 (
+                  29 $CellContext`T^3 + 
+                  29 $CellContext`T14^3 + $CellContext`T^2 (
+                    87 $CellContext`T14 - 85 $CellContext`T24) - 
+                  85 $CellContext`T14^2 $CellContext`T24 - 
+                  85 $CellContext`T14 $CellContext`T24^2 - 
+                  7 $CellContext`T24^3 + $CellContext`T (
+                    87 $CellContext`T14^2 - 
+                    170 $CellContext`T14 $CellContext`T24 - 
+                    85 $CellContext`T24^2)))) 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+            4 $CellContext`MT^2 (
+               16 $CellContext`MT^4 + $CellContext`T^2 + $CellContext`T14^2 - 
+               4 $CellContext`MH^2 $CellContext`T24 + 
+               2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+               2 $CellContext`T ($CellContext`T14 + $CellContext`T24) + 
+               8 $CellContext`MT^2 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24))^(-1) ((-$CellContext`S34^2 - 
+                2 $CellContext`S34 $CellContext`T - $CellContext`S34 \
+$CellContext`T24 + 2 $CellContext`T14 $CellContext`T24 - 
+                2 $CellContext`S (
+                 2 $CellContext`S34 + $CellContext`T24) + $CellContext`MH^2 (
+                  2 $CellContext`S + 3 $CellContext`S34 - 2 $CellContext`T14 - 
+                  3 $CellContext`U) + 2 $CellContext`T $CellContext`U + 
+                4 $CellContext`T14 $CellContext`U + $CellContext`T24 \
+$CellContext`U + $CellContext`U^2) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - 
+              8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] - 
+              8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] - 
+              4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T24 - \
+$CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] ((2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]] (2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]])) - 
+              8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] - 
+              8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T24 + \
+$CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[2]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[1]] + 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 4]] ((-$CellContext`MH^2 + 
+                  2 $CellContext`S34 + $CellContext`T24) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   1]] + (-$CellContext`S34 + $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - $CellContext`MH^2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]] + $CellContext`T24 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + 2 $CellContext`U $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] - $CellContext`MH^2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 2 $CellContext`S34 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`T24 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] - $CellContext`S34 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]] + $CellContext`U $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] - $CellContext`MH^2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]] + $CellContext`T24 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]] + 2 $CellContext`U $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) ((-$CellContext`MH^2 + 
+                 4 $CellContext`MT^2 + $CellContext`T + \
+$CellContext`T14)^(-1) ((-2) $CellContext`MH^2 + 
+                4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MH^2 (
+                 16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+                 8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                   8 $CellContext`MH^2 $CellContext`T24 + 
+                   2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                   2 $CellContext`T ($CellContext`T14 + \
+$CellContext`T24)))^(-1) (256 $CellContext`MT^8 + 
+                192 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + 
+                48 $CellContext`MT^4 ($CellContext`T^2 + $CellContext`T14^2 + 
+                  2 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+((-3) $CellContext`MH^2 + $CellContext`T24) + 
+                  2 $CellContext`T ($CellContext`T14 + $CellContext`T24)) + \
+$CellContext`MH^2 $CellContext`T24 ((-5) $CellContext`T^2 - 
+                  5 $CellContext`T14^2 - 
+                  4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`MH^2 (3 $CellContext`T + 
+                    3 $CellContext`T14 + $CellContext`T24) - 
+                  2 $CellContext`T (5 $CellContext`T14 + 2 $CellContext`T24)) + 
+                4 $CellContext`MT^2 ($CellContext`T^3 + $CellContext`T14^3 + 
+                  3 $CellContext`T14^2 $CellContext`T24 + 
+                  3 $CellContext`T^2 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T14 $CellContext`T24 ((-14) $CellContext`MH^2 + 
+                    3 $CellContext`T24) + $CellContext`T24 (
+                    6 $CellContext`MH^4 - 
+                    8 $CellContext`MH^2 $CellContext`T24 + \
+$CellContext`T24^2) + $CellContext`T (3 $CellContext`T14^2 + 
+                    6 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+((-14) $CellContext`MH^2 + 3 $CellContext`T24)))) 
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+               X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] - ($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+                12 $CellContext`MT^2 ($CellContext`T + $CellContext`T14) + \
+($CellContext`T + $CellContext`T14)^2 - 
+                2 $CellContext`MH^2 (
+                 6 $CellContext`MT^2 + $CellContext`T + \
+$CellContext`T14))^(-1) (
+                16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+                8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                  8 $CellContext`MH^2 $CellContext`T24 + 
+                  2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`T ($CellContext`T14 + \
+$CellContext`T24)))^(-1) (
+               2 $CellContext`MH^10 (12 $CellContext`MT^2 + 3 $CellContext`T + 
+                 3 $CellContext`T14 - $CellContext`T24) $CellContext`T24 - \
+$CellContext`MH^8 $CellContext`T24 (464 $CellContext`MT^4 + 
+                19 $CellContext`T^2 + 38 $CellContext`T $CellContext`T14 + 
+                19 $CellContext`T14^2 + 
+                8 $CellContext`MT^2 (24 $CellContext`T + 
+                  24 $CellContext`T14 - $CellContext`T24) - 
+                4 $CellContext`T $CellContext`T24 - 
+                4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2) - \
+$CellContext`MT^2 (
+                 4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^4 (
+                40 $CellContext`MT^4 + ($CellContext`T + $CellContext`T14)^2 + 
+                2 $CellContext`MT^2 (7 $CellContext`T + 
+                  7 $CellContext`T14 + $CellContext`T24)) + $CellContext`MH^2 \
+(4 $CellContext`MT^2 + $CellContext`T + $CellContext`T14 + \
+$CellContext`T24)^2 (
+                 832 $CellContext`MT^8 + ($CellContext`T + \
+$CellContext`T14)^3 $CellContext`T24 + 
+                 48 $CellContext`MT^6 (11 $CellContext`T + 
+                   11 $CellContext`T14 + 
+                   10 $CellContext`T24) + $CellContext`MT^2 ($CellContext`T + \
+$CellContext`T14) (7 $CellContext`T^2 + 14 $CellContext`T $CellContext`T14 + 
+                   7 $CellContext`T14^2 + 26 $CellContext`T $CellContext`T24 + 
+                   26 $CellContext`T14 $CellContext`T24 + 
+                   3 $CellContext`T24^2) + 
+                 4 $CellContext`MT^4 (27 $CellContext`T^2 + 
+                   54 $CellContext`T $CellContext`T14 + 27 $CellContext`T14^2 + 
+                   52 $CellContext`T $CellContext`T24 + 
+                   52 $CellContext`T14 $CellContext`T24 + 
+                   9 $CellContext`T24^2)) + $CellContext`MH^6 (
+                 256 $CellContext`MT^8 + 
+                 192 $CellContext`MT^6 ($CellContext`T + $CellContext`T14 + 
+                   17 $CellContext`T24) + 
+                 3 ($CellContext`T + $CellContext`T14) $CellContext`T24 (
+                   7 $CellContext`T^2 + 14 $CellContext`T $CellContext`T14 + 
+                   7 $CellContext`T14^2 + $CellContext`T24^2) + 
+                 16 $CellContext`MT^4 (3 $CellContext`T^2 + 
+                   6 $CellContext`T $CellContext`T14 + 3 $CellContext`T14^2 + 
+                   119 $CellContext`T $CellContext`T24 + 
+                   119 $CellContext`T14 $CellContext`T24 + 
+                   13 $CellContext`T24^2) + 
+                 4 $CellContext`MT^2 ($CellContext`T^3 + $CellContext`T14^3 + 
+                   89 $CellContext`T14^2 $CellContext`T24 + 
+                   9 $CellContext`T14 $CellContext`T24^2 + 
+                   7 $CellContext`T24^3 + $CellContext`T^2 (
+                    3 $CellContext`T14 + 
+                    89 $CellContext`T24) + $CellContext`T (
+                    3 $CellContext`T14^2 + 
+                    178 $CellContext`T14 $CellContext`T24 + 
+                    9 $CellContext`T24^2))) - $CellContext`MH^4 (
+                3584 $CellContext`MT^10 + 
+                256 $CellContext`MT^8 (13 $CellContext`T + 
+                  13 $CellContext`T14 + 
+                  
+                  40 $CellContext`T24) + ($CellContext`T + \
+$CellContext`T14)^2 $CellContext`T24 (9 $CellContext`T^2 + 
+                  18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 + 
+                  4 $CellContext`T $CellContext`T24 + 
+                  4 $CellContext`T14 $CellContext`T24 + 3 $CellContext`T24^2) + 
+                128 $CellContext`MT^6 (9 $CellContext`T^2 + 
+                  18 $CellContext`T $CellContext`T14 + 9 $CellContext`T14^2 + 
+                  60 $CellContext`T $CellContext`T24 + 
+                  60 $CellContext`T14 $CellContext`T24 + 
+                  14 $CellContext`T24^2) + 
+                16 $CellContext`MT^4 (11 $CellContext`T^3 + 
+                  11 $CellContext`T14^3 + 
+                  129 $CellContext`T14^2 $CellContext`T24 + 
+                  51 $CellContext`T14 $CellContext`T24^2 + 
+                  16 $CellContext`T24^3 + 
+                  3 $CellContext`T^2 (11 $CellContext`T14 + 
+                    43 $CellContext`T24) + 
+                  3 $CellContext`T (11 $CellContext`T14^2 + 
+                    86 $CellContext`T14 $CellContext`T24 + 
+                    17 $CellContext`T24^2)) + 
+                2 $CellContext`MT^2 (5 $CellContext`T^4 + 
+                  5 $CellContext`T14^4 + 
+                  116 $CellContext`T14^3 $CellContext`T24 + 
+                  54 $CellContext`T14^2 $CellContext`T24^2 + 
+                  28 $CellContext`T14 $CellContext`T24^3 + $CellContext`T24^4 + 
+                  4 $CellContext`T^3 (5 $CellContext`T14 + 
+                    29 $CellContext`T24) + 
+                  6 $CellContext`T^2 (5 $CellContext`T14^2 + 
+                    58 $CellContext`T14 $CellContext`T24 + 
+                    9 $CellContext`T24^2) + 
+                  4 $CellContext`T (5 $CellContext`T14^3 + 
+                    87 $CellContext`T14^2 $CellContext`T24 + 
+                    27 $CellContext`T14 $CellContext`T24^2 + 
+                    7 $CellContext`T24^3)))) 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`MT, $CellContext`MT]/
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] - (
+                16 $CellContext`MT^6 + $CellContext`MH^2 ($CellContext`MH^2 - \
+$CellContext`T - $CellContext`T14) $CellContext`T24 + 
+                8 $CellContext`MT^4 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MT^2 ($CellContext`T^2 + $CellContext`T14^2 - 
+                  8 $CellContext`MH^2 $CellContext`T24 + 
+                  2 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 + 
+                  2 $CellContext`T ($CellContext`T14 + \
+$CellContext`T24)))^(-1) (256 $CellContext`MT^10 + 
+               256 $CellContext`MT^8 ($CellContext`T + $CellContext`T14 + \
+$CellContext`T24) + $CellContext`MH^2 $CellContext`T24 (
+                 2 $CellContext`MH^2 ($CellContext`T + $CellContext`T14 - \
+$CellContext`T24)^2 + 
+                 4 $CellContext`MH^4 $CellContext`T24 - ($CellContext`T + \
+$CellContext`T14) ($CellContext`T + $CellContext`T14 + $CellContext`T24)^2) + 
+               32 $CellContext`MT^6 (3 $CellContext`T^2 + 
+                 3 $CellContext`T14^2 + 6 $CellContext`T14 $CellContext`T24 + 
+                 6 $CellContext`T ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T24 ((-2) $CellContext`MH^2 + 
+                   3 $CellContext`T24)) + $CellContext`MT^2 ($CellContext`T^4 + \
+$CellContext`T14^4 + 4 $CellContext`T14^3 $CellContext`T24 + 
+                 6 $CellContext`T14^2 $CellContext`T24 ((-2) \
+$CellContext`MH^2 + $CellContext`T24) + 
+                 4 $CellContext`T14 $CellContext`T24 ((-2) $CellContext`MH^2 + \
+$CellContext`T24)^2 + 
+                 4 $CellContext`T^3 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T24^2 ((-32) $CellContext`MH^4 - 
+                   4 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + 
+                 6 $CellContext`T^2 ($CellContext`T14^2 + 
+                   2 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+((-2) $CellContext`MH^2 + $CellContext`T24)) + 
+                 4 $CellContext`T ($CellContext`T14^3 + 
+                   3 $CellContext`T14^2 $CellContext`T24 + 
+                   3 $CellContext`T14 $CellContext`T24 ((-2) \
+$CellContext`MH^2 + $CellContext`T24) + $CellContext`T24 ((-2) \
+$CellContext`MH^2 + $CellContext`T24)^2)) + 
+               16 $CellContext`MT^4 ($CellContext`T^3 + $CellContext`T14^3 + 
+                 3 $CellContext`T14^2 $CellContext`T24 + 
+                 3 $CellContext`T14 $CellContext`T24 (-$CellContext`MH^2 + \
+$CellContext`T24) + 
+                 3 $CellContext`T^2 ($CellContext`T14 + $CellContext`T24) + \
+$CellContext`T24 (2 $CellContext`MH^4 - 
+                   2 $CellContext`MH^2 $CellContext`T24 + $CellContext`T24^2) + 
+                 3 $CellContext`T ($CellContext`T14^2 + 
+                   2 $CellContext`T14 $CellContext`T24 + $CellContext`T24 \
+(-$CellContext`MH^2 + $CellContext`T24)))) 
+              X`DiscB[$CellContext`T24, $CellContext`MT, $CellContext`MT]/
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24] + 
+              2 $CellContext`MH^2 (16 $CellContext`MT^4 + $CellContext`T^2 + 
+                2 $CellContext`T $CellContext`T14 + $CellContext`T14^2 + \
+$CellContext`MT^2 (8 $CellContext`T + 8 $CellContext`T14 - 
+                  4 $CellContext`T24) + 
+                2 $CellContext`MH^2 $CellContext`T24 - $CellContext`T \
+$CellContext`T24 - $CellContext`T14 $CellContext`T24 - 2 $CellContext`T24^2) 
+               X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24]^(-1) 
+               X`ScalarC0[$CellContext`MH^2, $CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T - $CellContext`T14, \
+$CellContext`T24, $CellContext`MT, $CellContext`MT, $CellContext`MT])))}, 0, 
+         3, 1],
+        Editable->False], ")"}], "+", 
+      RowBox[{
+       FractionBox["1", 
+        RowBox[{
+         SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", "T24"}]], 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          FractionBox["1", "T"], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{"2", "+", 
+                  FractionBox["1", "\[Epsilon]"], "+", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{"T", ",", "MT", ",", "MT"}], "]"}], "+", 
+                  RowBox[{"Log", "[", 
+                   FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "T"}]], 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                   FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                   RowBox[{"3", " ", "T"}], "-", 
+                   FractionBox["T", "\[Epsilon]"], "+", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                   RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                   RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                   RowBox[{"T", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                   RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                  ")"}]}]}]}], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+               RowBox[{"2", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+               RowBox[{"4", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+               RowBox[{"2", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "5", "]"}], ",", 
+                  RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+               RowBox[{"4", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "5", "]"}], ",", 
+                  RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+               RowBox[{
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], ")"}]}], "-", 
+            RowBox[{
+             FractionBox["1", 
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", "T"}]], 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox[
+                 RowBox[{"Log", "[", 
+                  FractionBox[
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                   RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                SuperscriptBox[
+                 RowBox[{"Log", "[", 
+                  FractionBox[
+                   RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                   RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"2", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "2", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "2", "]"}], ",", 
+                   RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "5", "]"}], ",", 
+                   RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "5", "]"}], ",", 
+                   RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                RowBox[{
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}], "+", 
+                RowBox[{"8", " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}]}], ")"}]}]}], "-", 
+            RowBox[{
+             FractionBox["1", 
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", "T"}]], 
+             RowBox[{"4", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"DiscB", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                "-", 
+                RowBox[{"DiscB", "[", 
+                 RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"6", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "9"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "S34"}], "+", 
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                RowBox[{"2", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "2", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                RowBox[{"2", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "2", "]"}], ",", 
+                   RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "5", "]"}], ",", 
+                   RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "5", "]"}], ",", 
+                   RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                RowBox[{
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}], "+", 
+                RowBox[{"16", " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}]}], ")"}]}]}], "-", 
+            RowBox[{"8", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox[
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], "2"]}]], 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "-", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                   RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                   RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"4", " ", "S34"}], "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"4", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{"2", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}]], 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", "S34"}], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], "+", 
+         RowBox[{
+          FractionBox["1", "S"], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"2", "+", 
+                  FractionBox["1", "\[Epsilon]"], "+", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                  RowBox[{"Log", "[", 
+                   FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"-", "4"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "+", "U"}], ")"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "T", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}], " ", 
+                RowBox[{"ScalarC0", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                   "T24"}], ",", 
+                  RowBox[{"-", 
+                   FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                   ",", "MT"}], "]"}]}]}], ")"}]}], "-", 
+            RowBox[{"4", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "-", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"16", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", 
+                    RowBox[{"-", 
+                    FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                     ",", "MT"}], "]"}], " ", 
+                   RowBox[{"(", 
+                    InterpretationBox[
+                    RowBox[{
+                    FractionBox[
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "+", 
+                    InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                    
+                    SeriesData[$CellContext`\[Beta], 0, {
+                    24 $CellContext`MT^4 ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2), 0, 
+                    8 $CellContext`MT^4 (
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) ((
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 (4 $CellContext`MT^2 - 
+                    5 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)) - 8 $CellContext`MH^4 (16 $CellContext`MT^4 + 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + 8 $CellContext`MH^2 (32 $CellContext`MT^6 + 
+                    16 $CellContext`MT^4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + 
+                    14 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3))}, 0, 4, 1],
+                    Editable->False], ")"}]}], "+", 
+                  RowBox[{"(", 
+                   InterpretationBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "192"}], " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{"48", " ", "\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "4"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", "\[Beta]"}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"112", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"768", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}], 
+                    "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"768", " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}], 
+                    "+", 
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], 
+                    ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "+", 
+                    FractionBox[
+                    RowBox[{"96", " ", "\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "4"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "3"]}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]], "+", 
+                    InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                    
+                    SeriesData[$CellContext`\[Beta], 0, {
+                    Rational[
+                    1, 2] ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) (
+                    8 $CellContext`MT^2 ((-16) $CellContext`MH^2 \
+$CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + (-(
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 (
+                    12 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) + 
+                    8 $CellContext`MH^2 $CellContext`MT^2 (
+                    12 $CellContext`MT^2 + 
+                    5 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + ((-192) $CellContext`MT^6 + 
+                    16 $CellContext`MT^4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + 
+                    20 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 + 8 $CellContext`MH^2 (12 $CellContext`MT^4 - 
+                    5 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                    Complex[0, 48] $CellContext`MT^4 
+                    Pi ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2), (-2) $CellContext`MT^2 (
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) ((-2) (48 $CellContext`MH^2 $CellContext`MT^2 - 
+                    112 $CellContext`MT^4 - 
+                    24 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + (768 $CellContext`MT^8 + 
+                    512 $CellContext`MT^6 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) - 
+                    96 $CellContext`MT^4 (
+                    5 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) ($CellContext`S34 + $CellContext`T14 + $CellContext`T24) + (
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) ($CellContext`S34 + $CellContext`T14 + $CellContext`T24)^3 + 
+                    16 $CellContext`MH^2 $CellContext`MT^2 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) (10 $CellContext`MH^2 - 
+                    7 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (768 $CellContext`MT^8 - 
+                    512 $CellContext`MT^6 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) - (
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) ($CellContext`S34 + $CellContext`T14 + $CellContext`T24)^3 + 
+                    96 $CellContext`MT^4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (5 $CellContext`MH^2 - 
+                    4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)) - 
+                    16 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (10 $CellContext`MH^4 - 
+                    13 $CellContext`MH^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                    Complex[0, 96] $CellContext`MT^4 
+                    Pi (32 $CellContext`MT^6 - 
+                    6 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + (
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) ($CellContext`S34 + $CellContext`T14 + $CellContext`T24)^2) \
+(16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3)}, 0, 4, 1],
+                    Editable->False], ")"}]}], ")"}]}], "+", 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", 
+                    RowBox[{"-", 
+                    FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                     ",", "MT"}], "]"}], " ", 
+                   RowBox[{"(", 
+                    InterpretationBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "48"}], " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"208", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}]}], 
+                    ")"}]}]}], ")"}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "+", 
+                    InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                    SeriesData[$CellContext`\[Beta], 
+                    0, {-$CellContext`MT^2 ((-16) $CellContext`MH^2 \
+$CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) ((-8) $CellContext`MH^2 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 - 4 $CellContext`MH^4 (4 $CellContext`MT^2 - 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))), 0, (-4) $CellContext`MT^2 (
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) ((-48) $CellContext`MH^6 $CellContext`MT^2 \
+($CellContext`S34 + $CellContext`T14 + $CellContext`T24) - 
+                    2 $CellContext`MH^2 (
+                    14 $CellContext`MT^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24) ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MT^2 (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^4 + $CellContext`MH^4 (128 $CellContext`MT^6 + 
+                    208 $CellContext`MT^4 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) + 
+                    64 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 - 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3))}, 0, 4, 1],
+                    Editable->False], ")"}]}], "+", 
+                  RowBox[{"(", 
+                   InterpretationBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"80", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "48"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], ")"}]}], ")"}]}], 
+                    "-", 
+                    FractionBox[
+                    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"6", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", "\[Beta]"}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "24"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"240", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"28", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"144", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "3"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "+", 
+                    InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                    
+                    SeriesData[$CellContext`\[Beta], 0, {
+                    Rational[-1, 
+                    2] ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) ((
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + $CellContext`MH^2 (
+                    32 $CellContext`MH^2 $CellContext`MT^2 - 
+                    80 $CellContext`MT^4 - 
+                    16 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - (32 $CellContext`MH^4 $CellContext`MT^2 + 
+                    4 $CellContext`MT^2 (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MH^2 ((-48) $CellContext`MT^4 - 
+                    40 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                    Complex[0, -2] $CellContext`MT^2 
+                    Pi ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) ((
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MH^2 (8 $CellContext`MT^2 - 
+                    6 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))), 2 $CellContext`MT^2 (
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) ((
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) (
+                    16 $CellContext`MH^2 ($CellContext`MT^2 - \
+$CellContext`S34 - $CellContext`T14 - $CellContext`T24) + 
+                    3 (4 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24)^2) + 
+                    8 $CellContext`MH^2 (
+                    16 $CellContext`MH^4 $CellContext`MT^2 + (
+                    5 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + 2 $CellContext`MH^2 ((-24) $CellContext`MT^4 - 
+                    8 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - (128 $CellContext`MH^6 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 - 16 $CellContext`MH^4 (24 $CellContext`MT^4 + 
+                    14 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) - ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + 2 $CellContext`MH^2 (64 $CellContext`MT^6 + 
+                    240 $CellContext`MT^4 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) + 
+                    28 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 - 
+                    7 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3)) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                    Complex[0, -2] $CellContext`MT^2 
+                    Pi (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) (
+                    96 $CellContext`MH^4 $CellContext`MT^2 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) + (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 + 2 $CellContext`MH^2 (256 $CellContext`MT^6 - 
+                    144 $CellContext`MT^4 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) - 
+                    40 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3))}, 0, 4, 1],
+                    Editable->False], ")"}]}], ")"}]}]}], ")"}]}], "-", 
+            RowBox[{"8", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+               RowBox[{"8", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+               RowBox[{"8", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+               RowBox[{"8", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "5", "]"}], ",", 
+                  RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+               RowBox[{"8", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "5", "]"}], ",", 
+                  RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+               RowBox[{
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"ScalarC0", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                   "T24"}], ",", 
+                  RowBox[{"-", 
+                   FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                   ",", "MT"}], "]"}], " ", 
+                RowBox[{"(", 
+                 InterpretationBox[
+                  RowBox[{
+                   RowBox[{"-", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}]]}], "-", 
+                   FractionBox[
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "+", 
+                   InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                  
+                  SeriesData[$CellContext`\[Beta], 0, {
+                   Rational[-1, 2] $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2/(
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2), 
+                    0, (-2) $CellContext`MH^2 $CellContext`MT^2 \
+($CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - $CellContext`T24) (
+                    16 $CellContext`MT^4 - ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24)^2) ((-16) $CellContext`MH^2 \
+$CellContext`MT^2 + (
+                    
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2)}, 0, 4, 1],
+                  Editable->False], ")"}]}], "+", 
+               RowBox[{"(", 
+                InterpretationBox[
+                 RowBox[{
+                  RowBox[{
+                   FractionBox["1", "4"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{"3", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]], "+", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}], 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                  FractionBox[
+                   RowBox[{"\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", "\[Beta]"}], 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], "-", 
+                  FractionBox[
+                   RowBox[{"\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "3"]}], 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "+", 
+                  InterpretationBox[
+                   SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                   SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                   Editable->False]}],
+                 
+                 SeriesData[$CellContext`\[Beta], 0, {
+                  Rational[1, 4] (3 + 
+                    X`Eps^(-1) + $CellContext`MH^2 (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-1) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-1) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT] + 
+                    Log[$CellContext`MT^(-2) X`Mu^2]), 
+                   Complex[0, 1] $CellContext`MT^2 
+                   Pi ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)/((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2), $CellContext`MT^2 ((-16) $CellContext`MH^2 \
+$CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) ((-2) (2 $CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + $CellContext`MH^2 (16 $CellContext`MT^4 - 
+                    8 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + $CellContext`T24) (
+                    4 $CellContext`MH^2 - 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - (
+                    4 $CellContext`MH^4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + $CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 - $CellContext`MH^2 (16 $CellContext`MT^4 + 
+                    8 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + 
+                    5 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                   Complex[0, -1] $CellContext`MT^2 
+                   Pi ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) (-($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + 
+                    2 $CellContext`MH^2 (
+                    16 $CellContext`MT^4 + ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24)^2))}, 0, 4, 1],
+                 Editable->False], ")"}]}], ")"}]}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              InterpretationBox[
+               RowBox[{
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"4", " ", "S", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], ")"}], "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "-", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"32", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                 SuperscriptBox[
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], "+", 
+                InterpretationBox[
+                 SuperscriptBox[
+                  RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+                 SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+                 Editable->False]}],
+               SeriesData[$CellContext`\[Beta], 0, {
+                4 $CellContext`S ((-16) $CellContext`MH^2 $CellContext`MT^2 + \
+(4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-1) (4 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]])) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] ((-$CellContext`T - 2 $CellContext`T14 + 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] (-$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))), 
+                 0, (-32) $CellContext`MT^2 $CellContext`S ((-2) \
+$CellContext`MH^2 + 
+                  4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) (4 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]])) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] ((-$CellContext`T - 2 $CellContext`T14 + 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] (-$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))}, 0, 3, 1],
+               Editable->False], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"ScalarC0", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                   "T24"}], ",", 
+                  RowBox[{"-", 
+                   FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                   ",", "MT"}], "]"}], " ", 
+                RowBox[{"(", 
+                 InterpretationBox[
+                  RowBox[{
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}]}], "+", 
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], "+", 
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox["\[Beta]", "4"]}], "+", 
+                   InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "5"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 5, 1],
+                    Editable->False]}],
+                  
+                  SeriesData[$CellContext`\[Beta], 
+                   0, {$CellContext`MH^2 (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24), 0, 4 $CellContext`MH^2 $CellContext`MT^2, 0, 
+                    4 $CellContext`MH^2 $CellContext`MT^2}, 0, 5, 1],
+                  Editable->False], ")"}]}], "+", 
+               RowBox[{"(", 
+                InterpretationBox[
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], "+", 
+                  RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", "\[Beta]"}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24", "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "2"]}], "+", 
+                  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+                   SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                   SuperscriptBox["\[Beta]", "3"]}], "-", 
+                  RowBox[{
+                   FractionBox["2", "3"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24", "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "4"]}], "+", 
+                  InterpretationBox[
+                   SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "5"],
+                   SeriesData[$CellContext`\[Beta], 0, {}, 0, 5, 1],
+                   Editable->False]}],
+                 
+                 SeriesData[$CellContext`\[Beta], 
+                  0, {(-2) $CellContext`MH^2 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (2 $CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT], 
+                   Complex[0, 1] 
+                   Pi (4 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24), (-2) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24 + 2 $CellContext`MT^2 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                   Complex[0, 4] $CellContext`MT^2 Pi, 
+                   Rational[-2, 3] (
+                    16 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24 + 
+                    6 $CellContext`MT^2 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT])}, 0, 
+                  5, 1],
+                 Editable->False], ")"}]}], ")"}]}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              InterpretationBox[
+               RowBox[{
+                RowBox[{"-", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "S34", " ", "T"}], "-", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "S34", " ", "U"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T14", "+", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], ")"}]}], "+", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"16", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "S34", " ", "T"}], "-", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "S34", " ", "U"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T14", "+", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                 SuperscriptBox[
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], "+", 
+                InterpretationBox[
+                 SuperscriptBox[
+                  RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+                 SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+                 Editable->False]}],
+               
+               SeriesData[$CellContext`\[Beta], 
+                0, {(-2) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-1) (((-2) $CellContext`S34 $CellContext`T - \
+$CellContext`T^2 + 4 $CellContext`T $CellContext`T24 + 
+                    2 $CellContext`S ($CellContext`T - $CellContext`U) + 
+                    2 $CellContext`MH^2 ($CellContext`T + 2 $CellContext`T14 - 
+                    2 $CellContext`T24 - $CellContext`U) + 
+                    2 $CellContext`S34 $CellContext`U - 
+                    4 $CellContext`T14 $CellContext`U + $CellContext`U^2) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                  4 ((-2) ($CellContext`S - $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] - 
+                   2 $CellContext`S34 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 $CellContext`T14 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 $CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + 32 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) - 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] - 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] (
+                    2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                    2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + ($CellContext`T - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]]) + ((-2) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 
+                    2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])), 0, 
+                 16 $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                  4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) (((-2) $CellContext`S34 $CellContext`T - \
+$CellContext`T^2 + 4 $CellContext`T $CellContext`T24 + 
+                    2 $CellContext`S ($CellContext`T - $CellContext`U) + 
+                    2 $CellContext`MH^2 ($CellContext`T + 2 $CellContext`T14 - 
+                    2 $CellContext`T24 - $CellContext`U) + 
+                    2 $CellContext`S34 $CellContext`U - 
+                    4 $CellContext`T14 $CellContext`U + $CellContext`U^2) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                  4 ((-2) ($CellContext`S - $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] - 
+                   2 $CellContext`S34 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 $CellContext`T14 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 $CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + 32 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) - 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] - 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] (
+                    2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                    2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + ($CellContext`T - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]]) + ((-2) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 
+                    2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))}, 0, 3, 1],
+               Editable->False], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"ScalarC0", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                   "T24"}], ",", 
+                  RowBox[{"-", 
+                   FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                   ",", "MT"}], "]"}], " ", 
+                RowBox[{"(", 
+                 InterpretationBox[
+                  RowBox[{
+                   RowBox[{"-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], ")"}]}]}], "-", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], "-", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "4"]}], "+", 
+                   InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "5"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 5, 1],
+                    Editable->False]}],
+                  
+                  SeriesData[$CellContext`\[Beta], 
+                   0, {(-4) $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24), 0, (-4) $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                    8 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24), 0, (-4) $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                    12 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24)}, 0, 5, 1],
+                  Editable->False], ")"}]}], "+", 
+               RowBox[{"(", 
+                InterpretationBox[
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], "-", 
+                  RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+                   SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", "\[Beta]"}], 
+                  "+", 
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{"4", "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "2"]}], "-", 
+                  RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+                   SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                   SuperscriptBox["\[Beta]", "3"]}], "+", 
+                  RowBox[{
+                   FractionBox["4", "3"], " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{"16", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "4"]}], "+", 
+                  InterpretationBox[
+                   SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "5"],
+                   SeriesData[$CellContext`\[Beta], 0, {}, 0, 5, 1],
+                   Editable->False]}],
+                 
+                 SeriesData[$CellContext`\[Beta], 
+                  0, {(4 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT], 
+                   Complex[0, -8] $CellContext`MT^2 Pi, 
+                   4 $CellContext`MT^2 (4 + 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                   Complex[0, -8] $CellContext`MT^2 Pi, 
+                   Rational[4, 3] $CellContext`MT^2 (16 + 
+                    3 X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 3 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT])}, 0, 
+                  5, 1],
+                 Editable->False], ")"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
+     ")"}]}]}], "+", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"MW", " ", "SW"}]], 
+   RowBox[{"2", " ", 
+    SuperscriptBox["Alfas", "2"], " ", "c2", " ", "EL", " ", 
+    SuperscriptBox["MT", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"(", 
+       InterpretationBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            FractionBox["1", "T"], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    FractionBox["T", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"2", " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+              
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "T"}]], 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "+", 
+              RowBox[{"16", " ", 
+               RowBox[{"Pair", "[", 
+                RowBox[{
+                 RowBox[{"e", "[", "1", "]"}], ",", 
+                 RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], "2"]}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}]}], ")"}]}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                ")"}]}], "+", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "T"}]], 
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                  "-", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], ")"}],
+                    " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+           RowBox[{
+            FractionBox["1", "S34"], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    FractionBox["S34", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"2", " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+              
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S34"}]], 
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                  "-", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+              RowBox[{
+               RowBox[{"Pair", "[", 
+                RowBox[{
+                 RowBox[{"ec", "[", "4", "]"}], ",", 
+                 RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                 "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], "2"]], 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                ")"}]}], "-", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S34"}]], 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "+", 
+              RowBox[{
+               FractionBox["1", "S"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    FractionBox["S34", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", "T14", "+", "T24", "+", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                   ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                   " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"8", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"8", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
+                 RowBox[{"8", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", 
+                    RowBox[{"4", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", "T14", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "T14", "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], 
+           "+", 
+           RowBox[{
+            FractionBox["1", 
+             RowBox[{
+              RowBox[{"2", " ", 
+               SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", "U"}]], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], "\[Epsilon]"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"2", " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+              
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], "2"]], 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                ")"}], " ", 
+               RowBox[{"Pair", "[", 
+                RowBox[{
+                 RowBox[{"ec", "[", "5", "]"}], ",", 
+                 RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 RowBox[{"-", 
+                  SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                 "U"}]], 
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "+", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 RowBox[{"-", 
+                  SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                 "U"}]], 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", 
+                   SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"-", "2"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "+", 
+              RowBox[{
+               FractionBox["1", "S"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "8"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S", "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T14", "-", "T24"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "-", "S", "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T14", "+", "T24"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "S"}], "+", "T14", "+", "T24", "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S"}], "-", 
+                    RowBox[{"4", " ", "T"}], "-", "T14", "-", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "+", "T", "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "-", 
+                    RowBox[{"3", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], ")"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], "\[Epsilon]"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                   ")"}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T14", "-", 
+                    "T24"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"5", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"5", " ", "S"}], "-", 
+                    RowBox[{"3", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "T24"}], "-", 
+                    RowBox[{"8", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "T14", "+", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T14", "+", "T24", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+              RowBox[{
+               FractionBox["1", "T14"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"8", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S34", "-", 
+                    RowBox[{"3", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"3", " ", "T14"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}]}], ")"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], "\[Epsilon]"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    "U"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S"}], "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "T"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"3", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "S34"}], "+", 
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U", "+", 
+                    SqrtBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T24", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T"}], "+", "T24", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], 
+           "+", 
+           RowBox[{
+            FractionBox["1", "U"], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "U"}]], 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                  SuperscriptBox[
+                   RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], "-", 
+              RowBox[{"16", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "U"}], "-", 
+                    FractionBox["U", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 "+", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}]}], 
+                   ")"}]}]}], ")"}]}], "+", 
+              RowBox[{"4", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
+              RowBox[{
+               FractionBox["1", "T14"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T", "-", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "S34", "-", "T", "+", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], "+", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "U"}], "-", 
+                    FractionBox["U", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "S"}], "+", "S34", "-", "T", "+", "T24"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                 RowBox[{"8", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T", "-", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T", "-", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"8", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T14", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"8", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "-", 
+              RowBox[{
+               FractionBox["1", 
+                RowBox[{
+                 SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                 "T24"}]], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "U"}], "-", 
+                    FractionBox["U", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                    ")"}]}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "+", "T14", "+", 
+                    "T24", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"6", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"6", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", 
+                    RowBox[{"3", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{"8", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "U", "+", 
+                    SqrtBox[
+                    RowBox[{"U", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "U"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"U", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "T"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+           "+", 
+           RowBox[{
+            FractionBox["1", 
+             RowBox[{
+              SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}]], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"-", 
+               RowBox[{
+                FractionBox["1", "S34"], 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T", "+", "T14"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    FractionBox["S34", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"S34", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T", "+", "T14"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"2", " ", "T"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", 
+                    RowBox[{"4", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", 
+                    RowBox[{"4", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"S34", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"3", " ", "S34"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "-", 
+                    RowBox[{"6", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "+", 
+                    RowBox[{"6", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T", "-", "T14"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", 
+                    RowBox[{"2", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
+                  RowBox[{
+                   FractionBox["1", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}]], 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "+", 
+                    SqrtBox[
+                    RowBox[{"S34", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T", "-", "T14"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", "S", "-", "S34", "+", 
+                    "T24", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], "+", 
+              RowBox[{
+               FractionBox["1", "T"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], ")"}],
+                     " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    FractionBox["T", "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}]}], ")"}],
+                     " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "S34", "+", "T14", "+", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], ")"}],
+                     " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{
+                  FractionBox["1", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}]], 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"5", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"8", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"8", " ", "S"}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "-", 
+                 RowBox[{"8", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], "2"]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S34"}], "+", "T", "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"2", " ", "T14"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}]], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                    
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T14", "+", 
+                    
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "T", "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], "+", 
+              RowBox[{
+               FractionBox["1", "T14"], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T24", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "U", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                  "/", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                   ")"}]}], "-", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "S", " ", "S34"}], "-", 
+                    SuperscriptBox["S34", "2"], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "S34", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "S34", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}]}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T24", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", "T14", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", "T24", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"T14", " ", "U", " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                  "/", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                   ")"}]}], "+", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    "\[Epsilon]"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                  "/", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                   ")"}]}], "-", 
+                 RowBox[{"2", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "S", " ", "S34"}], "-", 
+                    RowBox[{"S34", " ", "T14"}], "+", 
+                    RowBox[{"T", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], "+", 
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "10"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", "U"}], "+", 
+                    RowBox[{"10", " ", "T14", " ", "T24", " ", "U"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"], " ", "U"}], "+", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    SuperscriptBox["U", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24", " ", 
+                    SuperscriptBox["U", "2"]}], "+", 
+                    SuperscriptBox["U", "3"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "10"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}], "2"]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}], "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
+           ")"}], "+", 
+         RowBox[{
+          FractionBox["1", 
+           RowBox[{"T14", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}], 
+             ")"}]}]], 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"8", " ", 
+                  SuperscriptBox["MT", "2"], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                "/", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                   ")"}], " ", 
+                  RowBox[{"Kallen\[Lambda]", "[", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                   "]"}]}], ")"}]}], ")"}]}], "+", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{"8", " ", 
+                SuperscriptBox["MT", "2"], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "S", " ", "S34"}], "-", 
+                    SuperscriptBox["S34", "2"], "+", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"2", " ", "S34", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "S34", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T", " ", "U"}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"32", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  FractionBox[
+                   RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", "T24", "+", 
+                    "U"}], 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], "-", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24", "-", "U"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                   "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"28", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", "T14"}], "+", "T24", "+", "U"}],
+                     ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "256"}], " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"72", " ", "T14"}], "-", 
+                    RowBox[{"11", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"52", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"12", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"160", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", "T14"}], "-", 
+                    RowBox[{"6", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"115", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"36", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"15", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"20", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"49", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"129", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"24", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "11"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"232", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"366", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"56", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3072", " ", 
+                    SuperscriptBox["MT", "12"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T14"}], "+", 
+                    RowBox[{"14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"61", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"134", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"35", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"25", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"236", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"282", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"56", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "5"]}], "-", 
+                    RowBox[{"18", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"134", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"120", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"23", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                   RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}]}], ")"}]}], ")"}], "/", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"16", " ", 
+                 SuperscriptBox["MT", "4"]}], "-", 
+                RowBox[{"4", " ", 
+                 SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                RowBox[{"8", " ", 
+                 SuperscriptBox["MT", "2"], " ", 
+                 RowBox[{"(", 
+                  RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                SuperscriptBox[
+                 RowBox[{"(", 
+                  RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+               ")"}]}], "-", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{"16", " ", 
+                SuperscriptBox["MT", "2"], " ", "T14", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"-", "4"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  FractionBox[
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], 
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", "T24", "+", "U"}], ")"}], 
+                    "2"]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                   "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "10"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"464", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"24", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"832", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", "T14"}], "+", 
+                    RowBox[{"11", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"26", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"52", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"17", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"119", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"3", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"89", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3584", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"40", " ", "T14"}], "+", 
+                    RowBox[{"13", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"60", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"51", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"129", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "4"], "+", 
+                    RowBox[{"28", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"54", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"116", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"T14", " ", "T24"}], "+", 
+                    SuperscriptBox["T24", "2"], "-", 
+                    RowBox[{"T14", " ", "U"}], "+", 
+                    RowBox[{"2", " ", "T24", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], 
+                    " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                   RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}]}], ")"}]}], ")"}], "/", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"16", " ", 
+                 SuperscriptBox["MT", "4"]}], "-", 
+                RowBox[{"4", " ", 
+                 SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                RowBox[{"8", " ", 
+                 SuperscriptBox["MT", "2"], " ", 
+                 RowBox[{"(", 
+                  RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                SuperscriptBox[
+                 RowBox[{"(", 
+                  RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+               ")"}]}], "-", 
+             RowBox[{"2", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "S"}], "-", "S34", "+", "T", "-", 
+                    RowBox[{"2", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}], ")"}]}], ")"}]}], "-", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "S", " ", "S34"}], "-", 
+                    RowBox[{"S34", " ", "T14"}], "+", 
+                    RowBox[{"T", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "T24"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "T", " ", "T24"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T"}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "-", "T24", "-", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}], "2"]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], ")"}], 
+                 "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                   RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}]}], ")"}]}], "+", 
+             RowBox[{"4", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"2", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "3"}], " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"1024", " ", 
+                    SuperscriptBox["MT", "12"]}], "-", 
+                    RowBox[{"1280", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", "T14"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"55", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"91", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"130", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"13", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "5"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"33", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"104", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", "T14"}], "-", "T24", "-", "U"}], ")"}], 
+                    " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"37", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"88", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"39", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"127", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"89", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "12"}], " ", 
+                    SuperscriptBox["MH", "8"], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "5"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", "T14"}], "+", 
+                    RowBox[{"10", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "60"}], " ", "T14"}], "+", 
+                    RowBox[{"48", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"608", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    SuperscriptBox["T14", "3"], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "64"}], " ", "T14"}], "+", 
+                    RowBox[{"400", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"25", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"8", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "12"], " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"52", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"3", " ", "T14"}], "+", 
+                    RowBox[{"13", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "5"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"14", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "10"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"97", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2320"}], " ", "T14"}], "+", 
+                    RowBox[{"48", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"242", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "10"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"46", " ", "T14"}], "-", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"114", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"45", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"90", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"23", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    SuperscriptBox["T14", "4"], "+", 
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"203", " ", "T14"}], "-", "T24", "-", "U"}], 
+                    ")"}]}], "-", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"30", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"136", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"157", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"1446", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"33", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"205", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"1109", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"1024", " ", 
+                    SuperscriptBox["MT", "12"]}], "-", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"51", " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"609", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"87", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"381", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"1892", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"102", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"86", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "4"], "-", 
+                    RowBox[{"1566", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"4258", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"78", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "19"}], " ", 
+                    SuperscriptBox["T14", "5"]}], "+", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"996", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2036", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"15", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "12288"}], " ", 
+                    SuperscriptBox["MT", "14"]}], "+", 
+                    RowBox[{"1024", " ", 
+                    SuperscriptBox["MT", "12"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"80", " ", "T14"}], "-", 
+                    RowBox[{"17", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"621", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"361", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"40", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"325", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"1187", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"320", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"25", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"157", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"1832", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3484", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"550", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"35", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"46", " ", 
+                    SuperscriptBox["T14", "5"]}], "+", 
+                    RowBox[{"263", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"1810", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2418", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"220", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "6"], "+", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox["T14", "5"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"122", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"724", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"775", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    RowBox[{"25", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "6"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"14", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"19", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", "T24", "-", "U"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}]}], ")"}]}], ")"}], "/", 
+                 SuperscriptBox[
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                   ")"}], "2"]}], "+", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"2", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "S34", "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{
+                    FractionBox["1", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"], " ", "T24"}], "+", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    SuperscriptBox["T24", "2"]}], "+", 
+                    SuperscriptBox["T24", "3"], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"], " ", "U"}], "+", 
+                    RowBox[{"18", " ", "T14", " ", "T24", " ", "U"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T24", "2"], " ", "U"}], "+", 
+                    RowBox[{"9", " ", "T14", " ", 
+                    SuperscriptBox["U", "2"]}], "+", 
+                    RowBox[{"3", " ", "T24", " ", 
+                    SuperscriptBox["U", "2"]}], "+", 
+                    SuperscriptBox["U", "3"], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "-", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "14"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"18", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4096", " ", 
+                    SuperscriptBox["MT", "14"]}], "+", 
+                    RowBox[{"2048", " ", 
+                    SuperscriptBox["MT", "12"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"25", " ", "T14"}], "+", 
+                    RowBox[{"27", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "-", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"10", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"11", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"34", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"83", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "5"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", "T14"}], "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "-", 
+                    RowBox[{"56", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"21", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"21", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"36", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"13", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"15", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"84", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"99", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"12", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"26", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"26", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "4"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MH", "6"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"104", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T14"}], "+", 
+                    RowBox[{"10", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"86", " ", "T14"}], "+", 
+                    RowBox[{"26", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"1040", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"28", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"39", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"19", " ", "T14"}], "+", 
+                    RowBox[{"52", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T14", ",", "MT", ",", "MT"}], "]"}]}], ")"}], 
+                    "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MH", "12"], " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "10"], " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"144", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"130", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"9", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "744"}], " ", "T14"}], "+", 
+                    RowBox[{"72", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "8"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"17", " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"190", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"400", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"62", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"], "+", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"43", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"404", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"117", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"159", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"580", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"105", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"640", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"27", " ", "T14"}], "+", 
+                    RowBox[{"17", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"19", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"22", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"87", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"51", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "6"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"9728", " ", 
+                    SuperscriptBox["MT", "10"]}], "+", 
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"148", " ", "T14"}], "+", 
+                    RowBox[{"41", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"192", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"273", " ", 
+                    SuperscriptBox["T14", "2"]}], "-", 
+                    RowBox[{"172", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"23", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"326", " ", 
+                    SuperscriptBox["T14", "3"]}], "+", 
+                    RowBox[{"905", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"333", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"28", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "51"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"246", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"280", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"78", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "221"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"1664", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"2542", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"752", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"43", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T14", "+", "T24", "+", 
+                    "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3072", " ", 
+                    SuperscriptBox["MT", "12"]}], "+", 
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"43", " ", "T14"}], "+", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "17"}], " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"155", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"208", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"209", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "83"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"782", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"108", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"254", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"11", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["T14", "5"]}], "-", 
+                    RowBox[{"27", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"217", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"44", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"32", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4096", " ", 
+                    SuperscriptBox["MT", "14"]}], "+", 
+                    RowBox[{"2048", " ", 
+                    SuperscriptBox["MT", "12"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"49", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"1280", " ", 
+                    SuperscriptBox["MT", "10"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"95", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"96", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "8"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"401", " ", 
+                    SuperscriptBox["T14", "3"]}], "-", 
+                    RowBox[{"497", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"238", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2297", " ", 
+                    SuperscriptBox["T14", "4"]}], "+", 
+                    RowBox[{"4760", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"3282", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"968", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"15", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{"T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "51"}], " ", 
+                    SuperscriptBox["T14", "4"]}], "-", 
+                    RowBox[{"138", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"80", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "+", 
+                    RowBox[{"42", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}]}], ")"}]}], "-", 
+                    
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"431", " ", 
+                    SuperscriptBox["T14", "5"]}], "+", 
+                    RowBox[{"2349", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"2514", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"1334", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "-", 
+                    RowBox[{"261", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}]}], ")"}]}], "+", 
+                    
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "35"}], " ", 
+                    SuperscriptBox["T14", "6"]}], "-", 
+                    RowBox[{"920", " ", 
+                    SuperscriptBox["T14", "5"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "-", 
+                    RowBox[{"2953", " ", 
+                    SuperscriptBox["T14", "4"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], "-", 
+                    RowBox[{"2192", " ", 
+                    SuperscriptBox["T14", "3"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "3"]}], "+", 
+                    RowBox[{"1067", " ", 
+                    SuperscriptBox["T14", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "4"]}], "+", 
+                    RowBox[{"136", " ", "T14", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "5"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "6"]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T24", "-", "U"}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"6", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MH", "4"], " ", "T14"}], "+", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"7", " ", "T14"}], "+", "T24", "+", "U"}], 
+                    ")"}]}], "-", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
+                    "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "20"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["T14", "2"]}], "+", 
+                    RowBox[{"4", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "3"], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["T14", "2"], "+", 
+                    RowBox[{"5", " ", "T14", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T24", "+", "U"}], ")"}], "2"]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+                    "MT", ",", "MT", ",", "MT"}], "]"}]}], ")"}], "/", 
+                    RowBox[{"Kallen\[Lambda]", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "T14", ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}]}], 
+                    "]"}]}]}], ")"}]}], ")"}], "/", 
+                 SuperscriptBox[
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"T14", "+", "T24", "+", "U"}], ")"}], "2"]}], 
+                   ")"}], "2"]}]}], ")"}]}]}], ")"}], " ", 
+           SuperscriptBox["\[Beta]", "2"]}]}], "+", 
+         InterpretationBox[
+          SuperscriptBox[
+           RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+          SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+          Editable->False]}],
+        SeriesData[$CellContext`\[Beta], 
+         0, {$CellContext`T^(-1) ((
+              4 (2 + X`Eps^(-1) + 
+                X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + 
+                Log[$CellContext`MT^(-2) X`Mu^2]) - 
+              4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+               3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+               3 $CellContext`T - 
+               X`Eps^(-1) $CellContext`T + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`T 
+               X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`T 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2)) (
+              2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[
+                5]]) + ($CellContext`MH^2 - $CellContext`T)^(-1) (
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                 2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^
+                  Rational[
+                   1, 2])]^2) (((-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 5]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                  
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]]) - 2 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]])) + 16 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[3]] (
+              Rational[
+                1, 2] ($CellContext`MH^2 - $CellContext`T)^(-2) \
+(-$CellContext`MH^2 + $CellContext`T - $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                 X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^
+                    Rational[1, 2])]^2) ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - 2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[1]]) + 
+              Rational[
+                1, 2] ($CellContext`MH^2 - $CellContext`T)^(-1) (-
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+                X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) \
+($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] - 2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]])) + 
+            4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+              X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) \
+(((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]])) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 5]] ((-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 2 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]])))) + $CellContext`S34^(-1) ((
+              4 (2 + X`Eps^(-1) + 
+                X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + 
+                Log[$CellContext`MT^(-2) X`Mu^2]) - 
+              4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+               3 $CellContext`S34 - 
+               X`Eps^(-1) $CellContext`S34 + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`S34 
+               X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`S34 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^Rational[1, 2])]^2)) (
+              2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]]) + 
+            4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+              X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] + 2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] ((-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 2 ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[
+                 2]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]]))) + $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[
+               3]] ((-8) ($CellContext`MH^2 - $CellContext`S34)^(-1) (-
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+                X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+(-$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) + 
+              8 ($CellContext`MH^2 - $CellContext`S34)^(-2) \
+(-$CellContext`MH^2 + $CellContext`S34 - $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                 X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[1, 2])]^2) (-$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[
+                  4]])) - ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+             Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                 2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+             Log[Rational[1, 2] $CellContext`MT^(-2) (
+                2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                 Rational[1, 2])]^2) ($CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                5]] (($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) - 2 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               5]] (($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] + 2 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[4]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[
+                2]] (($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]])) + $CellContext`S^(-1) ((
+                4 (2 + X`Eps^(-1) + 
+                  X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + 
+                  Log[$CellContext`MT^(-2) X`Mu^2]) - 
+                4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+                 3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+                 3 $CellContext`S34 - 
+                 X`Eps^(-1) $CellContext`S34 + $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - $CellContext`S34 
+                 X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                  Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`S34 
+                 Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[
+                    1, 2])]^2)) ((-$CellContext`T - $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] - 4 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) - 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) - 4 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]]) + 4 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + 4 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]])) - 
+              4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+               X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+(-$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[
+                  2]] (-($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`T + $CellContext`T14 - $CellContext`T24 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                 4 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 
+                 4 (-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   3]] ((7 $CellContext`MH^2 - 2 $CellContext`S - 
+                    3 $CellContext`S34 - 8 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + ((-7) $CellContext`MH^2 + 
+                    2 $CellContext`S + 3 $CellContext`S34 + 
+                    8 $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                  4 ((-2) $CellContext`MH^2 + $CellContext`S + \
+$CellContext`S34 + 2 $CellContext`T24 + 2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - 
+               2 (2 ($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   1]] (((-3) $CellContext`MH^2 + 2 $CellContext`S + 
+                    3 $CellContext`S34 + 4 $CellContext`T14 + 
+                    4 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) + 
+                2 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    5]] (((-3) $CellContext`MH^2 + 2 $CellContext`S + 
+                    3 $CellContext`S34 + 4 $CellContext`T14 + 
+                    4 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + 
+                   2 (-$CellContext`MH^2 + $CellContext`S34) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) + 
+                 2 ($CellContext`MH^2 - $CellContext`S34) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]])) + 8 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])))) + 
+              8 (Rational[
+                  1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-1) (-
+                   X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                  X`DiscB[$CellContext`S34, $CellContext`MT, \
+$CellContext`MT]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] (
+                  2 ((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                    2 ($CellContext`T + $CellContext`U)) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 
+                  2 ((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                   2 ($CellContext`T + $CellContext`U)) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] (((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + (
+                    3 $CellContext`MH^2 - $CellContext`S34 - 
+                    4 $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                    2 ($CellContext`T + $CellContext`T14 - $CellContext`T24 - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + 
+                Rational[
+                  1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-2) \
+(-$CellContext`MH^2 + $CellContext`S34 - $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + $CellContext`MH^2 
+                   X`DiscB[$CellContext`S34, $CellContext`MT, \
+$CellContext`MT] - $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                   Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   3]] ((-2) (-$CellContext`MH^2 + $CellContext`S34 + 
+                    2 ($CellContext`T14 + $CellContext`T24)) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`S34 + 
+                    2 ($CellContext`T14 + $CellContext`T24)) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] ((-$CellContext`MH^2 + $CellContext`S34 + 
+                    2 ($CellContext`T14 + $CellContext`T24)) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 - $CellContext`S34 - 
+                    2 ($CellContext`T14 + $CellContext`T24)) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 
+                   2 (-$CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                   2 ($CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) - ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                   Rational[
+                    1, 2])]^2) ((-4) (($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    3]]) + ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    3]]) + ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]])) + 2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[
+                  2]] (($CellContext`MH^2 - $CellContext`S34) ($CellContext`T + \
+$CellContext`T14 - $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                 2 (2 (-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                   2 ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] (
+                    2 ($CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                    2 $CellContext`T14 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]] + ($CellContext`T - $CellContext`T14 - \
+$CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))))) + (
+             2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U)^(-1) ((
+              4 (2 + X`Eps^(-1) + 
+                X`DiscB[
+                 2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+                Log[$CellContext`MT^(-2) X`Mu^2]) + 
+              4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                3 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) + 
+                X`Eps^(-1) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) - $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+(2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - $CellContext`U) 
+                 X`DiscB[
+                  2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] - $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[
+                    1, 2])]^2 + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) 
+                 Log[$CellContext`MT^(-2) X`Mu^2] + $CellContext`MT^2 
+                 Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2)) (2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]]) + (
+              8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+                X`DiscB[
+                2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) - 
+              8 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-2) (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MH^2 
+               X`DiscB[
+                2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 - $CellContext`MT^2 
+               Log[Rational[
+                   1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) (2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]])) $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[3]] - 
+            4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+             X`DiscB[2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (2 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] - 2 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] - 2 ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] - $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[3]]) - $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[
+               2]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] - 2 ($CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]] - $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[5]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[
+                3]])) + (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U)^(-1) (-
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 + 
+              Log[Rational[1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) ((-2) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[
+                 4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 4]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[
+                 2]] ((-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]])) + $CellContext`S^(-1) ((-8) (
+                Rational[-1, 
+                   2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-2) (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + $CellContext`MH^2 
+                   X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - $CellContext`MH^2 
+                  X`DiscB[
+                   2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + $CellContext`MT^2 
+                   Log[Rational[
+                    1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 - $CellContext`MT^2 
+                  Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) (
+                  2 ($CellContext`MH^2 + $CellContext`S - 
+                    2 $CellContext`S34 - $CellContext`T14 - $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                  2 (-$CellContext`MH^2 - $CellContext`S + 
+                    2 $CellContext`S34 + $CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] (((-3) $CellContext`MH^2 + 
+                    3 $CellContext`S + $CellContext`T14 + $CellContext`T24 + 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + (3 $CellContext`MH^2 - 
+                    3 $CellContext`S - 
+                    4 $CellContext`T - $CellContext`T14 - $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 
+                    2 (-$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 
+                Rational[-1, 
+                   2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - X`DiscB[
+                  2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (
+                  2 (-$CellContext`MH^2 - $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 
+                  2 ($CellContext`MH^2 + $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] (-($CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T - 3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 + $CellContext`S34 - 
+                    3 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 
+                    2 (-$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + (
+                4 (2 + X`Eps^(-1) + 
+                  X`DiscB[
+                   2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+                  Log[$CellContext`MT^(-2) X`Mu^2]) + 
+                4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                  3 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) + 
+                  X`Eps^(-1) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) - $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) X`DiscB[
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] - $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[
+                    1, 2])]^2 + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) 
+                   Log[$CellContext`MT^(-2) X`Mu^2] + $CellContext`MT^2 
+                   Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[
+                    1, 2])]^2)) ((-$CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 4 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 4 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 4 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]]) - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] (4 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) - 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 
+              4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+                X`DiscB[
+                 2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (-$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[
+                   2]] (-($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T14 - $CellContext`T24) ($CellContext`T14 - $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                  4 ($CellContext`T14 - $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] (
+                    4 ($CellContext`MH^2 - $CellContext`S - $CellContext`T14 - \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + ((-7) $CellContext`MH^2 + 
+                    5 $CellContext`S + 8 $CellContext`T + 3 $CellContext`T14 + 
+                    3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] (
+                    4 (-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + (7 $CellContext`MH^2 - 
+                    5 $CellContext`S - 3 $CellContext`T14 - 
+                    3 $CellContext`T24 - 8 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] (
+                  4 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    4]] (((-3) $CellContext`MH^2 + $CellContext`S + 
+                    4 $CellContext`S34 + 3 $CellContext`T14 + 
+                    3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                   2 (-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 
+                2 ((-2) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                  2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] (((-3) $CellContext`MH^2 + $CellContext`S + 
+                    4 $CellContext`S34 + 3 $CellContext`T14 + 
+                    3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                    2 (-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) + (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U)^(-1) (-
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 + 
+                Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[
+                   2]] (($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T14 - $CellContext`T24) ($CellContext`T14 - $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                  2 ((-$CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] (
+                    2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`S34 + 
+                    2 $CellContext`T + $CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] (
+                    2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`S34 + $CellContext`T14 + $CellContext`T24 + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) - 
+                4 (($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[
+                    5]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   1]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    2]] (-($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    4]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))))) + $CellContext`T14^(-1) (
+              8 (Rational[-1, 
+                   2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - X`DiscB[
+                  2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) ((-2) ($CellContext`MH^2 - \
+$CellContext`S34 - $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    4]] (($CellContext`MH^2 - 
+                    3 $CellContext`S34 + $CellContext`T + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 
+                    2 ($CellContext`S - $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 + $CellContext`S34 - 
+                    3 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) - 
+                  2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 
+                Rational[-1, 
+                   2] (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-2) (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + $CellContext`MH^2 
+                   X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - $CellContext`MH^2 
+                  X`DiscB[
+                   2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + $CellContext`MT^2 
+                   Log[Rational[
+                    1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 - $CellContext`MT^2 
+                  Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[
+                    1, 2])]^2) ((-2) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - 2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    4]] (((-3) $CellContext`MH^2 + $CellContext`S + 
+                    4 $CellContext`S34 + 
+                    3 $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - 
+                   2 ($CellContext`S - $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ((-3) $CellContext`MH^2 + $CellContext`S + 
+                    4 $CellContext`T + 
+                    3 $CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) - 
+                  2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+                   2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]))) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + (
+                4 (2 + X`Eps^(-1) + 
+                  X`DiscB[
+                   2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+                  Log[$CellContext`MT^(-2) X`Mu^2]) + 
+                4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (
+                  3 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) + 
+                  X`Eps^(-1) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) - $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) X`DiscB[
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT] - $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[
+                    1, 2])]^2 + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) 
+                   Log[$CellContext`MT^(-2) X`Mu^2] + $CellContext`MT^2 
+                   Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2)) ((-2) ((-2) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] (2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] (2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] (2 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] (2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] ((-$CellContext`S + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + 
+              4 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U)^(-1) (-
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+                X`DiscB[
+                 2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U, $CellContext`MT, $CellContext`MT]) (
+                2 ((-2) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 
+                  2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] (
+                    2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + (3 $CellContext`MH^2 - 
+                    3 $CellContext`S34 - 3 $CellContext`T - 
+                    2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    4]] ((-2) ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] (
+                    2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + (3 $CellContext`MH^2 - 
+                    3 $CellContext`S34 - 3 $CellContext`T - 
+                    2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] (-($CellContext`S - $CellContext`T24) \
+(-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 
+                  4 (-$CellContext`S + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] (
+                    4 ($CellContext`MH^2 - $CellContext`S - $CellContext`T14 - \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + ((-7) $CellContext`MH^2 + 
+                    3 $CellContext`S + 8 $CellContext`T + 5 $CellContext`T14 + 
+                    3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] (((-7) $CellContext`MH^2 + 3 $CellContext`S + 
+                    8 $CellContext`S34 + 5 $CellContext`T14 + 
+                    3 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                    4 (-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) + (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U)^(-1) (-
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 + 
+                Log[Rational[
+                    1, 2] $CellContext`MT^(-2) ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U + (((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U))^Rational[1, 2])]^2) (
+                4 (-($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) - 2 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`MH^2 + $CellContext`S + \
+$CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    4]] (-($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    4]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`MH^2 + $CellContext`S + \
+$CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] (-($CellContext`S - $CellContext`T24) \
+(-$CellContext`MH^2 + $CellContext`S + $CellContext`T14 + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 
+                  2 (($CellContext`S - $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] (
+                    2 ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T - \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ((-2) $CellContext`MH^2 + $CellContext`S + 
+                    2 $CellContext`S34 + $CellContext`T24 + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] (((-2) $CellContext`MH^2 + $CellContext`S + 
+                    2 $CellContext`T + $CellContext`T24 + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                    2 (-$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))))) + $CellContext`U^(-1) (($CellContext`MH^2 - \
+$CellContext`U)^(-1) (
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                 2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U ((-4) \
+$CellContext`MT^2 + $CellContext`U))^
+                  Rational[
+                   1, 2])]^2) (((-$CellContext`MH^2 + $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                5]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] + 2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 4]] ((-$CellContext`MH^2 + $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]])) - 
+            16 (Rational[1, 4] ($CellContext`MH^2 - $CellContext`U)^(-1) (
+               3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+               3 $CellContext`U - 
+               X`Eps^(-1) $CellContext`U + $CellContext`MH^2 
+                
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`U 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`U 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^Rational[1, 2])]^2) (
+               2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]]) + $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[3]] (
+               Rational[
+                 1, 2] ($CellContext`MH^2 - $CellContext`U)^(-2) \
+(-$CellContext`MH^2 + $CellContext`U - $CellContext`MH^2 
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                  X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]]) + 
+               Rational[
+                 1, 2] ($CellContext`MH^2 - $CellContext`U)^(-1) (-
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                 X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+(-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]))) + 
+            4 ((2 + X`Eps^(-1) + 
+                X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+                Log[$CellContext`MT^(-2) X`Mu^2]) (2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[
+                  5]]) + ($CellContext`MH^2 - $CellContext`U)^(-1) (
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+                X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+(((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] + 2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] - 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  5]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] ((-$CellContext`MH^2 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]])))) + $CellContext`T14^(-1) (-($CellContext`MH^2 - \
+$CellContext`U)^(-1) (
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] (($CellContext`S - $CellContext`S34 + $CellContext`T - \
+$CellContext`T24) ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 
+                  2 (2 ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                    2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] (
+                    2 ($CellContext`S + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ($CellContext`S + $CellContext`S34 - $CellContext`T + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) - 4 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    5]] ((-$CellContext`MH^2 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ($CellContext`S + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    4]] (((-$CellContext`MH^2 + $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ($CellContext`S + $CellContext`T24) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[
+                    5]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) - 2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])) + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + (
+                4 (2 + X`Eps^(-1) + 
+                  X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+                  Log[$CellContext`MT^(-2) X`Mu^2]) - 
+                4 ($CellContext`MH^2 - $CellContext`U)^(-1) (
+                 3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+                 3 $CellContext`U - 
+                 X`Eps^(-1) $CellContext`U + $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - $CellContext`U 
+                 X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                  Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`U 
+                 Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2)) ((-2) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + 4 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ((-2) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 4 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] ((-$CellContext`S + $CellContext`S34 - $CellContext`T + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+              8 (Rational[
+                 1, 2] ($CellContext`MH^2 - $CellContext`U)^(-2) \
+(-$CellContext`MH^2 + $CellContext`U - $CellContext`MH^2 
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                  X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[
+                  3]] ((-2) (-$CellContext`MH^2 + 2 $CellContext`S + 
+                   2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                 2 (-$CellContext`MH^2 + 2 $CellContext`S + 
+                  2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    4]] ((-$CellContext`MH^2 + 2 $CellContext`S + 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 
+                   2 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                   2 $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 
+                   2 $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + $CellContext`U $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 
+               Rational[
+                 1, 2] ($CellContext`MH^2 - $CellContext`U)^(-1) (-
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                 X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] (
+                 2 ((-3) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                   2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                 2 ((-3) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                   2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] (((-3) $CellContext`MH^2 + 
+                    4 $CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 
+                  2 ($CellContext`S - $CellContext`S34 + $CellContext`T - \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + ((-3) $CellContext`MH^2 + 
+                    4 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+              4 ($CellContext`MH^2 - $CellContext`U)^(-1) (
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+               X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) (
+               2 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    5]] (((-5) $CellContext`MH^2 + 4 $CellContext`S34 + 
+                    4 $CellContext`T + 
+                    2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - 
+                 2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    4]] ((((-5) $CellContext`MH^2 + 4 $CellContext`S34 + 
+                    4 $CellContext`T + 
+                    2 $CellContext`T14 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                    2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                   2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 8 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) - 
+                 2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  4]] (($CellContext`S - $CellContext`S34 + $CellContext`T - \
+$CellContext`T24) ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] ((7 $CellContext`MH^2 - 8 $CellContext`S34 - 
+                    2 $CellContext`T14 - 3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + 
+                   4 ((-2) $CellContext`MH^2 + 
+                    2 $CellContext`S34 + $CellContext`T14 + 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + (7 $CellContext`MH^2 - 
+                    8 $CellContext`T - 2 $CellContext`T14 - 
+                    3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + 
+                 4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))) - ($CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24)^(-1) ((
+               4 (2 + X`Eps^(-1) + 
+                 X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + 
+                 Log[$CellContext`MT^(-2) X`Mu^2]) - 
+               4 ($CellContext`MH^2 - $CellContext`U)^(-1) (
+                3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+                3 $CellContext`U - 
+                X`Eps^(-1) $CellContext`U + $CellContext`MH^2 
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`U 
+                X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                 Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`U 
+                Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2)) (($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ((-4) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 3 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] (2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]] + 4 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[4]] - 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] (2 $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[4]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[
+                  2]] ((-$CellContext`MH^2 + $CellContext`S + $CellContext`T + 
+                   2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 4 (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) - ($CellContext`MH^2 - $CellContext`U)^(-1) (
+              Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                  2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+              Log[Rational[1, 2] $CellContext`MT^(-2) (
+                 2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U ((-4) \
+$CellContext`MT^2 + $CellContext`U))^Rational[1, 2])]^2) ((-2) (
+                2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   4]] (($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`S $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  2]] (($CellContext`MH^2 - $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                 2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]])) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] + 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((-$CellContext`MH^2 + $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] + $CellContext`S $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] - 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] - 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] + $CellContext`S $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[
+                 2]] (($CellContext`MH^2 - $CellContext`S - $CellContext`T - 
+                  2 $CellContext`T14) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 
+                4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 8 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+             4 ($CellContext`MH^2 - $CellContext`U)^(-1) (
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+              X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) (-(
+                2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] (
+                  2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + (-$CellContext`MH^2 - 
+                    2 $CellContext`S + 
+                    2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   3]] (($CellContext`MH^2 - 2 $CellContext`S34 - 
+                    2 $CellContext`T14 + 
+                    6 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                  4 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[
+                   2]] (((-5) $CellContext`MH^2 + 6 $CellContext`S34 - 
+                    2 $CellContext`T14 - 2 $CellContext`T24 + 
+                    3 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                  4 (-$CellContext`MH^2 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]])) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] + 2 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 5]] ((-2) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] + ($CellContext`MH^2 + 2 $CellContext`S - 
+                  2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[5]] - 
+              4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] - $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] - 2 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((-2) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[1]] + ($CellContext`MH^2 + 2 $CellContext`S - 
+                 2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[4]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[
+                 2]] (($CellContext`MH^2 - $CellContext`S - $CellContext`T - 
+                  2 $CellContext`T14) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 
+                4 ($CellContext`MH^2 - $CellContext`U) ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 16 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+             8 (Rational[
+                1, 2] ($CellContext`MH^2 - $CellContext`U)^(-2) \
+(-$CellContext`MH^2 + $CellContext`U - $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                 X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`U + ($CellContext`U \
+((-4) $CellContext`MT^2 + $CellContext`U))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 3]] (-((-$CellContext`MH^2 + 2 $CellContext`S34 - 
+                    2 $CellContext`T14 - 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] + (-$CellContext`MH^2 + 
+                    4 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 
+                  2 ($CellContext`MH^2 - 
+                    2 $CellContext`S - $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 
+                2 (-$CellContext`MH^2 + 
+                  2 $CellContext`S + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]] + 
+                2 ($CellContext`MH^2 - 
+                  2 $CellContext`S - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]] + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + 
+              Rational[
+                1, 2] ($CellContext`MH^2 - $CellContext`U)^(-1) (-
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+                X`DiscB[$CellContext`U, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 3]] (-(((-3) $CellContext`MH^2 + 
+                    4 $CellContext`S34 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] + ($CellContext`MH^2 - 
+                    2 $CellContext`S34 - 2 $CellContext`T14 + 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 
+                  2 (-$CellContext`MH^2 + 
+                    2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 
+                2 ($CellContext`MH^2 - 
+                  2 $CellContext`T - $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]] + 
+                2 (-$CellContext`MH^2 + 
+                  2 $CellContext`T + $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]] + 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] (-$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))))) + ($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T24 - $CellContext`U)^(-1) (-$CellContext`S34^(-1) (
+              4 (2 + X`Eps^(-1) + 
+                X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + 
+                Log[$CellContext`MT^(-2) X`Mu^2]) (4 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] (2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) - $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + 4 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] (2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] ((-$CellContext`MH^2 + 
+                    2 $CellContext`S + $CellContext`T + $CellContext`T14) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]))) - 
+              4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+               3 $CellContext`S34 - 
+               X`Eps^(-1) $CellContext`S34 + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`S34 
+               X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`S34 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+               Log[
+                 Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^Rational[1, 2])]^2) (
+               4 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] (2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) - $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] ((-4) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + 4 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + 4 ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] (2 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  4]] ((-$CellContext`MH^2 + 
+                   2 $CellContext`S + $CellContext`T + $CellContext`T14) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]))) + 
+              8 (Rational[
+                  1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-1) (-
+                   X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                  X`DiscB[$CellContext`S34, $CellContext`MT, \
+$CellContext`MT]) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   3]] (-(((-2) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                    4 $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - ($CellContext`MH^2 - 
+                    2 $CellContext`S + $CellContext`S34 + 2 $CellContext`T24 - 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] + ((-3) $CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`S34 + 
+                    2 $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`S34 + 
+                    2 $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) + 
+                Rational[
+                  1, 2] ($CellContext`MH^2 - $CellContext`S34)^(-2) \
+(-$CellContext`MH^2 + $CellContext`S34 - $CellContext`MH^2 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + $CellContext`MH^2 
+                   X`DiscB[$CellContext`S34, $CellContext`MT, \
+$CellContext`MT] - $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                   Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`S34 + \
+($CellContext`S34 ((-4) $CellContext`MT^2 + $CellContext`S34))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[
+                   3]] ((((-2) $CellContext`MH^2 + 2 $CellContext`S34 + 
+                    4 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`MH^2 + $CellContext`S34 + 
+                    4 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + ($CellContext`MH^2 + 
+                    2 $CellContext`S - $CellContext`S34 + 2 $CellContext`T24 - 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 
+                  2 ($CellContext`MH^2 - $CellContext`S34 - 
+                    2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + 
+                  2 ($CellContext`MH^2 - $CellContext`S34 - 
+                    2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 8 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) - 
+              4 ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+               X`DiscB[$CellContext`S34, $CellContext`MT, $CellContext`MT]) \
+(-$CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    2]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 
+                   2 ($CellContext`MH^2 - $CellContext`S34 - 2 $CellContext`T + 
+                    2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    4]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + (5 $CellContext`MH^2 + 
+                    2 $CellContext`S - 3 $CellContext`S34 + 
+                    2 $CellContext`T24 - 6 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] ((-4) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + ($CellContext`MH^2 - 
+                    2 $CellContext`S + $CellContext`S34 + 6 $CellContext`T24 - 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  4]] (($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`MH^2 - 
+                   2 $CellContext`S - $CellContext`T - $CellContext`T14) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 
+                 4 ($CellContext`MH^2 - $CellContext`S34) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]])) + 
+               2 ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 - $CellContext`S34 - 
+                    2 $CellContext`T + 2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) - 
+                 2 ($CellContext`MH^2 - $CellContext`S34) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`MH^2 - $CellContext`S34 - 
+                    2 $CellContext`T + 2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] - 8 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))) - ($CellContext`MH^2 - $CellContext`S34)^(-1) (
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`S34 + ($CellContext`S34 \
+((-4) $CellContext`MT^2 + $CellContext`S34))^
+                   Rational[1, 2])]^2) ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  4]] (($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`MH^2 - 
+                   2 $CellContext`S - $CellContext`T - $CellContext`T14) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 
+                 4 ($CellContext`MH^2 - $CellContext`S34) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]])) - 
+               2 (2 ($CellContext`MH^2 - $CellContext`S34) \
+($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] - 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[
+                  5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`T14 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    2]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 
+                    2 $CellContext`T14 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 
+                    2 $CellContext`T24 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    4]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`MH^2 + $CellContext`S - \
+$CellContext`S34 + $CellContext`T24 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) + 
+                2 ($CellContext`MH^2 - $CellContext`S34) ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] - 2 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[
+                  2]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`T14 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 4 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]] (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))))) + $CellContext`T^(-1) (
+              4 (2 + X`Eps^(-1) + 
+                X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + 
+                Log[$CellContext`MT^(-2) X`Mu^2]) ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ((-4) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) - 2 (($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + (($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T14 + 2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 4 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+              4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+               3 $CellContext`MH^2 + X`Eps^(-1) $CellContext`MH^2 - 
+               3 $CellContext`T - 
+               X`Eps^(-1) $CellContext`T + $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+$CellContext`T 
+               X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MT^2 
+                Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MH^2 
+                Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`T 
+               Log[$CellContext`MT^(-2) X`Mu^2] - $CellContext`MT^2 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                   2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^
+                    Rational[1, 2])]^2) ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] ((-4) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) - 2 (($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + 2 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) + (($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] + 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]]) + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  4]] ((-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T14 + 2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] + 4 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) - ($CellContext`MH^2 - $CellContext`T)^(-1) (
+               Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                   2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^Rational[1, 2])]^2 - 
+               Log[Rational[1, 2] $CellContext`MT^(-2) (
+                  2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2) (
+               4 ($CellContext`T14 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 
+               4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + 2 $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] (
+                 2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - 
+                 2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] ((-$CellContext`MH^2 + 
+                    2 $CellContext`S + $CellContext`S34 + $CellContext`T14 + 
+                    2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - 2 ($CellContext`T14 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`S $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]))) + 
+               4 ($CellContext`T14 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] + ($CellContext`MH^2 - $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 
+               4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  4]] (($CellContext`MH^2 - $CellContext`T) \
+($CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - 
+                   2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 
+                 4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 8 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+              4 ($CellContext`MH^2 - $CellContext`T)^(-1) (
+               X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - 
+               X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) (
+               2 (($CellContext`MH^2 - 2 $CellContext`S34 - $CellContext`T + 
+                   2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 
+                 2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 
+               4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] (
+                 4 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - 
+                 4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    3]] ((9 $CellContext`MH^2 - 2 $CellContext`S34 - 
+                    5 $CellContext`T - 2 $CellContext`T14 - 
+                    8 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - 
+                   2 ($CellContext`MH^2 - 2 $CellContext`S34 - $CellContext`T + 
+                    2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + (3 $CellContext`MH^2 - 
+                    8 $CellContext`S - 2 $CellContext`S34 - 3 $CellContext`T - 
+                    2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) + 
+               2 (($CellContext`MH^2 - 2 $CellContext`S34 - $CellContext`T + 
+                   2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] + 
+                 2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 
+               4 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[
+                  4]] (($CellContext`MH^2 - $CellContext`T) \
+($CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - 
+                   2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 
+                 4 ($CellContext`MH^2 - $CellContext`T) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])) + 16 $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) - 
+              8 (Rational[
+                 1, 2] ($CellContext`MH^2 - $CellContext`T)^(-2) \
+(-$CellContext`MH^2 + $CellContext`T - $CellContext`MH^2 
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 
+                  X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT] - \
+$CellContext`MT^2 
+                 Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+                    2 $CellContext`MT^2 + $CellContext`MH ($CellContext`MH^2 - 
+                    4 $CellContext`MT^2)^
+                    Rational[1, 2])]^2 + $CellContext`MT^2 
+                  Log[Rational[1, 2] $CellContext`MT^(-2) (
+                    2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T \
+((-4) $CellContext`MT^2 + $CellContext`T))^
+                    Rational[1, 2])]^2) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] (
+                 2 (-$CellContext`MH^2 + $CellContext`T + 
+                   2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    5]] (((-3) $CellContext`MH^2 + 
+                    2 $CellContext`S34 + $CellContext`T - 2 $CellContext`T14 + 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 
+                   2 (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T14 + 2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + (5 $CellContext`MH^2 - 
+                    2 $CellContext`S34 - 3 $CellContext`T - 
+                    2 $CellContext`T14 - 4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) + 
+                 2 (-$CellContext`MH^2 + $CellContext`T + 
+                   2 $CellContext`T14) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 8 ((-$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]))) + 
+               Rational[
+                 1, 2] ($CellContext`MH^2 - $CellContext`T)^(-1) (-
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                 X`DiscB[$CellContext`T, $CellContext`MT, $CellContext`MT]) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] (
+                 2 ($CellContext`MH^2 - 
+                   2 $CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    5]] (((-5) $CellContext`MH^2 + 4 $CellContext`S34 + 
+                    3 $CellContext`T + 4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + 
+                   2 (-$CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T14 + 2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] + (
+                    3 $CellContext`MH^2 - $CellContext`T - 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) + 
+                 2 ($CellContext`MH^2 - 
+                   2 $CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + 8 ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))))) + $CellContext`T14^(-1) (
+              4 $CellContext`T14 (16 $CellContext`MT^4 - 
+                 4 $CellContext`MH^2 $CellContext`T14 + 
+                 8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((-4) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + 8 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + 8 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                    2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) (
+                2 $CellContext`MH^2 
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] - \
+(4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + $CellContext`U) 
+                X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] - 
+                2 $CellContext`MH^2 
+                X`DiscB[$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+                4 $CellContext`MT^2 
+                 X`DiscB[$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`T14 
+                 X`DiscB[$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`T24 
+                 X`DiscB[$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`U 
+                 X`DiscB[$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+                4 $CellContext`MH^2 $CellContext`MT^2 
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] - $CellContext`MH^2 \
+$CellContext`T14 
+                X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`MH^2 \
+$CellContext`T24 
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`MH^2 \
+$CellContext`U 
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+              2 (16 $CellContext`MT^4 - 4 $CellContext`MH^2 $CellContext`T14 + 
+                8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((
+                 4 $CellContext`S $CellContext`S34 - $CellContext`S34^2 + \
+$CellContext`T^2 + 2 $CellContext`S34 $CellContext`T14 - 
+                 2 $CellContext`T $CellContext`T14 - 
+                 2 $CellContext`MH^2 (
+                  2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                  2 $CellContext`T24) - 4 $CellContext`T $CellContext`T24 - 
+                 2 $CellContext`S34 $CellContext`U + 
+                 2 $CellContext`T $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] + 
+               8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + 
+               8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - 4 $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] (
+                2 ((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + (6 $CellContext`MH^2 - 
+                  3 $CellContext`S34 - 3 $CellContext`T - 
+                  4 $CellContext`U) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] (
+                  2 ((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + (6 $CellContext`MH^2 - 
+                    3 $CellContext`S34 - 3 $CellContext`T - 
+                    4 $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) + 
+               8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 
+               8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + 32 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) - 4 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 4]] (((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ($CellContext`S34 - $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + ($CellContext`S34 - $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]] + 
+                  2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) (-(
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + 
+               2 $CellContext`T14 
+                X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] + 
+               4 $CellContext`MT^2 
+                X`DiscB[$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] - $CellContext`T14 
+               X`DiscB[$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`T24 
+                X`DiscB[$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + $CellContext`U 
+                X`DiscB[$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] - 2 $CellContext`MH^2 $CellContext`T14 
+               X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + 
+               4 $CellContext`MT^2 $CellContext`T14 
+                X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`T14^2 
+                X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`T14 \
+$CellContext`T24 
+                X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT] + $CellContext`T14 \
+$CellContext`U 
+                X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+              2 (16 $CellContext`MT^4 - 4 $CellContext`MH^2 $CellContext`T14 + 
+                 8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((-4) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + 8 $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + 8 $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[
+                   4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                    2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) (
+                3 (16 $CellContext`MT^4 - 
+                  4 $CellContext`MH^2 $CellContext`T14 + 
+                  8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + 
+                X`Eps^(-1) (16 $CellContext`MT^4 - 
+                  4 $CellContext`MH^2 $CellContext`T14 + 
+                  8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + \
+$CellContext`MH^2 (
+                  4 $CellContext`MT^2 - $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+                 X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T14 ((-2) $CellContext`MH^2 + 
+                  4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+                 X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] - \
+($CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) (
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+                X`DiscB[$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + (16 $CellContext`MT^4 - 
+                  4 $CellContext`MH^2 $CellContext`T14 + 
+                  8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) 
+                 Log[$CellContext`MT^(-2) X`Mu^2] + 
+                2 (16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                  8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2)) 
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+              2 ((2 + X`Eps^(-1) + 
+                 X`DiscB[$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+                 Log[$CellContext`MT^(-2) X`Mu^2]) ((-4) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + 8 $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    4]] ((2 $CellContext`S - $CellContext`S34 + \
+$CellContext`T - 2 $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]])))) + (((-2) $CellContext`S $CellContext`S34 - \
+$CellContext`S34 $CellContext`T14 + $CellContext`T $CellContext`T14 + 
+                   2 $CellContext`MH^2 ($CellContext`S - $CellContext`T24) + 
+                   2 $CellContext`T $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 
+                 4 ((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] - 
+                 4 ((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + 4 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[
+                    5]] (((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    1]] + ($CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[
+                    4]] (((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+                 4 ((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] - 
+                 4 ((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] - 8 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[
+                    4]] (((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))) 
+                X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+              4 (Rational[
+                  1, 2] (16 $CellContext`MT^4 - 
+                   4 $CellContext`MH^2 $CellContext`T14 + 
+                   8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-2) (-($CellContext`S34 - $CellContext`T) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 
+                  4 (2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+                   2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) - 
+                  4 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) (
+                  2 $CellContext`T14 (16 $CellContext`MT^4 - 
+                    4 $CellContext`MH^2 $CellContext`T14 + 
+                    8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) - \
+(64 $CellContext`MT^6 + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 (3 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+                   16 $CellContext`MT^4 (5 $CellContext`T14 + 
+                    3 ($CellContext`T24 + $CellContext`U)) - 
+                   2 $CellContext`MH^2 $CellContext`T14 (3 $CellContext`T14 + 
+                    5 ($CellContext`T24 + $CellContext`U)) + 
+                   4 $CellContext`MT^2 ((-10) $CellContext`MH^2 \
+$CellContext`T14 + 7 $CellContext`T14^2 + 
+                    10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                    3 ($CellContext`T24 + $CellContext`U)^2)) 
+                  X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 6 $CellContext`T14^2 ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+                   X`DiscB[$CellContext`T14, $CellContext`MT, \
+$CellContext`MT] + (64 $CellContext`MT^6 - 
+                    3 $CellContext`T14^3 + $CellContext`T14^2 \
+$CellContext`T24 + 
+                    5 $CellContext`T14 $CellContext`T24^2 + \
+$CellContext`T24^3 + $CellContext`T14^2 $CellContext`U + 
+                    10 $CellContext`T14 $CellContext`T24 $CellContext`U + 
+                    3 $CellContext`T24^2 $CellContext`U + 
+                    5 $CellContext`T14 $CellContext`U^2 + 
+                    3 $CellContext`T24 $CellContext`U^2 + $CellContext`U^3 + 
+                    2 $CellContext`MH^2 $CellContext`T14 (3 $CellContext`T14 - 
+                    5 ($CellContext`T24 + $CellContext`U)) + 
+                    16 $CellContext`MT^4 (5 $CellContext`T14 + 
+                    3 ($CellContext`T24 + $CellContext`U)) + 
+                    4 $CellContext`MT^2 ((-10) $CellContext`MH^2 \
+$CellContext`T14 + $CellContext`T14^2 + 
+                    10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                    3 ($CellContext`T24 + $CellContext`U)^2)) 
+                   X`DiscB[$CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+                  2 $CellContext`T14 (32 $CellContext`MT^6 + 
+                    16 $CellContext`MT^4 (
+                    2 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+                    2 $CellContext`MT^2 ((-16) $CellContext`MH^2 \
+$CellContext`T14 + 5 $CellContext`T14^2 + 
+                    6 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2) + $CellContext`T14 (
+                    6 $CellContext`MH^4 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2 - 
+                    2 $CellContext`MH^2 (2 $CellContext`T14 + 
+                    3 ($CellContext`T24 + $CellContext`U)))) 
+                   X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+                Rational[-1, 2] (16 $CellContext`MT^4 - 
+                   4 $CellContext`MH^2 $CellContext`T14 + 
+                   8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-2) (-($CellContext`S34 - $CellContext`T) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + 
+                    2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] - 
+                  4 (2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+                   2 $CellContext`U) $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) - 
+                  4 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) ((
+                    4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) (16 $CellContext`MT^4 - 4 $CellContext`MH^2 $CellContext`T14 + 
+                    8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + \
+$CellContext`MH^2 (16 $CellContext`MT^4 + 
+                    8 $CellContext`MH^2 $CellContext`T14 - 
+                    5 $CellContext`T14^2 - 
+                    4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 - 
+                    4 $CellContext`T14 $CellContext`U + 
+                    2 $CellContext`T24 $CellContext`U + $CellContext`U^2 + 
+                    8 $CellContext`MT^2 ((-2) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)) 
+                   X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + $CellContext`T14 ((
+                    4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - 2 $CellContext`MH^2 (
+                    12 $CellContext`MT^2 - $CellContext`T14 + 
+                    3 ($CellContext`T24 + $CellContext`U))) 
+                   X`DiscB[$CellContext`T14, $CellContext`MT, \
+$CellContext`MT] - (
+                   8 $CellContext`MH^4 $CellContext`T14 + $CellContext`T14 (
+                    4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 + $CellContext`MH^2 (16 $CellContext`MT^4 - 
+                    3 $CellContext`T14^2 - 
+                    10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 + 
+                    8 $CellContext`MT^2 ((-5) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U))) 
+                  X`DiscB[$CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + 
+                  2 (64 $CellContext`MT^8 + 
+                    48 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + 
+                    12 $CellContext`MT^4 ((-4) $CellContext`MH^2 \
+$CellContext`T14 + ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) - \
+$CellContext`MH^2 $CellContext`T14 (-$CellContext`T14^2 + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U) + 
+                    2 ($CellContext`T24 + $CellContext`U)^2 + \
+$CellContext`MH^2 ($CellContext`T14 - 
+                    3 ($CellContext`T24 + $CellContext`U))) + \
+$CellContext`MT^2 (
+                    12 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+                    4 $CellContext`MH^2 $CellContext`T14 (2 $CellContext`T14 + 
+                    5 ($CellContext`T24 + $CellContext`U)))) 
+                   X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT])))), 
+          0, $CellContext`T14^(-1) ($CellContext`MH^2 - $CellContext`S - \
+$CellContext`T24 - $CellContext`U)^(-1) ((-8) $CellContext`MT^2 (
+              16 $CellContext`MT^4 - 4 $CellContext`MH^2 $CellContext`T14 + 
+              8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) 
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1) \
+((-4) $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[4]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[5]])) + 8 $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[5]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`e[2]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]]) + 8 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`ec[5]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]]) + $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                 2 $CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) ($CellContext`MH^2 (
+               16 $CellContext`MT^4 + 8 $CellContext`MH^2 $CellContext`T14 - 
+               5 $CellContext`T14^2 - 
+               4 $CellContext`T14 $CellContext`T24 + $CellContext`T24^2 - 
+               4 $CellContext`T14 $CellContext`U + 
+               2 $CellContext`T24 $CellContext`U + $CellContext`U^2 + 
+               8 $CellContext`MT^2 ((-2) $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)) 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`T14 ((
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - 
+               2 $CellContext`MH^2 (12 $CellContext`MT^2 - $CellContext`T14 + 
+                3 ($CellContext`T24 + $CellContext`U))) 
+              X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] - (
+              8 $CellContext`MH^4 $CellContext`T14 + $CellContext`T14 (
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 + $CellContext`MH^2 (16 $CellContext`MT^4 - 
+                3 $CellContext`T14^2 - 
+                10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 + 
+                8 $CellContext`MT^2 ((-5) $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U))) 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] + (
+               4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+             2 (64 $CellContext`MT^8 + 
+               48 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + 
+               12 $CellContext`MT^4 ((-4) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) - $CellContext`MH^2 \
+$CellContext`T14 (-$CellContext`T14^2 + $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U) + 
+                2 ($CellContext`T24 + $CellContext`U)^2 + $CellContext`MH^2 \
+($CellContext`T14 - 
+                  3 ($CellContext`T24 + $CellContext`U))) + $CellContext`MT^2 \
+(12 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^3 - 
+                 4 $CellContext`MH^2 $CellContext`T14 (2 $CellContext`T14 + 
+                  5 ($CellContext`T24 + $CellContext`U)))) 
+              X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+           8 $CellContext`MT^2 (16 $CellContext`MT^4 - 
+              4 $CellContext`MH^2 $CellContext`T14 + 
+              8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((
+               4 $CellContext`S $CellContext`S34 - $CellContext`S34^2 + \
+$CellContext`T^2 + 2 $CellContext`S34 $CellContext`T14 - 
+               2 $CellContext`T $CellContext`T14 - 
+               2 $CellContext`MH^2 (
+                2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                2 $CellContext`T24) - 4 $CellContext`T $CellContext`T24 - 
+               2 $CellContext`S34 $CellContext`U + 
+               2 $CellContext`T $CellContext`U) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] + 
+             8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`ec[5]] + 
+             8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[5]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`k[5]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] - 4 $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] (
+              2 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + (6 $CellContext`MH^2 - 
+                3 $CellContext`S34 - 3 $CellContext`T - 
+                4 $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] (
+                2 ((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[2]] + (6 $CellContext`MH^2 - 
+                  3 $CellContext`S34 - 3 $CellContext`T - 
+                  4 $CellContext`U) $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]])) + 
+             8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`k[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + 
+             8 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`e[2]] $CellContext`Pair[
+                $CellContext`ec[4], 
+                $CellContext`k[1]] $CellContext`Pair[
+                $CellContext`ec[5], 
+                $CellContext`k[2]] + 32 ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] ($CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] - $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) + ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] - $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[5]]) $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[3]]) ($CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[3]]) - 4 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] (((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[
+                   1]] + ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] + 
+                2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[
+                 5]] ((-2) ($CellContext`MH^2 - $CellContext`S34) \
+$CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[
+                   1]] + ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]] + 
+                2 (-$CellContext`MH^2 + $CellContext`T) $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]]))) ((-$CellContext`MH^2 + 
+                4 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+(4 $CellContext`MT^2 - $CellContext`T14 + $CellContext`T24 + $CellContext`U) - \
+(16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 ($CellContext`MH^2 - \
+$CellContext`T24 - $CellContext`U) + 
+               8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+              256 $CellContext`MT^10 + 
+              256 $CellContext`MT^8 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 
+              32 $CellContext`MT^6 (2 $CellContext`MH^2 $CellContext`T14 - 
+               3 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + 
+              16 $CellContext`MT^4 ($CellContext`MH^4 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^3 - $CellContext`MH^2 \
+$CellContext`T14 ($CellContext`T14 + 
+                 3 ($CellContext`T24 + $CellContext`U))) + $CellContext`MT^2 (
+                8 $CellContext`MH^4 $CellContext`T14 ((-5) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 + 
+                4 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14^2 - 
+                  2 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                  3 ($CellContext`T24 + $CellContext`U)^2)) + \
+$CellContext`MH^2 $CellContext`T14 (
+                8 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 - \
+$CellContext`T24 - $CellContext`U) ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 + $CellContext`MH^2 ((-3) $CellContext`T14^2 - 
+                  6 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2))) 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+             X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + \
+$CellContext`T14 (
+                16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+               256 $CellContext`MT^8 + 
+               192 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 
+               48 $CellContext`MT^4 (
+                3 $CellContext`MH^2 $CellContext`T14 - ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2) + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`T14^2 - 4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                 5 ($CellContext`T24 + $CellContext`U)^2 + 
+                 2 $CellContext`MH^2 ($CellContext`T14 + 
+                   3 ($CellContext`T24 + $CellContext`U))) + 
+               4 $CellContext`MT^2 (
+                 6 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+                 2 $CellContext`MH^2 $CellContext`T14 (4 $CellContext`T14 + 
+                  7 ($CellContext`T24 + $CellContext`U)))) 
+              X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT]/
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+                12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+                2 $CellContext`MH^2 (
+                 6 $CellContext`MT^2 + $CellContext`T24 + \
+$CellContext`U))^(-1) (
+                16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+               8 $CellContext`MH^10 $CellContext`T14^2 + $CellContext`MH^8 \
+$CellContext`T14 (16 $CellContext`MT^4 - 5 $CellContext`T14^2 - 
+                 28 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 + 
+                 8 $CellContext`MT^2 ((-20) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)) + $CellContext`MH^6 $CellContext`T14 \
+((-256) $CellContext`MT^6 + 
+                 16 $CellContext`MT^4 (72 $CellContext`T14 - 
+                   11 ($CellContext`T24 + $CellContext`U)) + 
+                 8 $CellContext`MT^2 (14 $CellContext`T14^2 + 
+                   52 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                   5 ($CellContext`T24 + $CellContext`U)^2) - 
+                 3 ($CellContext`T24 + $CellContext`U) ((-5) \
+$CellContext`T14^2 - 
+                  12 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2)) + $CellContext`MT^2 (
+                  
+                  4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^3 (160 $CellContext`MT^6 - 
+                 16 $CellContext`MT^4 (7 $CellContext`T14 - 
+                  6 ($CellContext`T24 + $CellContext`U)) - 
+                 2 $CellContext`MT^2 (3 $CellContext`T14^2 + 
+                  22 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                  9 ($CellContext`T24 + $CellContext`U)^2) + \
+($CellContext`T24 + $CellContext`U) (-$CellContext`T14^2 - 
+                   4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2)) + $CellContext`MH^4 (
+                 256 $CellContext`MT^10 + 
+                 256 $CellContext`MT^8 (
+                   5 $CellContext`T14 + $CellContext`T24 + $CellContext`U) - 
+                 32 $CellContext`MT^6 (115 $CellContext`T14^2 - 
+                  36 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                  3 ($CellContext`T24 + $CellContext`U)^2) - $CellContext`T14 \
+($CellContext`T24 + $CellContext`U)^2 (15 $CellContext`T14^2 + 
+                  20 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                  3 ($CellContext`T24 + $CellContext`U)^2) - 
+                 16 $CellContext`MT^4 (49 $CellContext`T14^3 + 
+                  129 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                  24 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - \
+($CellContext`T24 + $CellContext`U)^3) + $CellContext`MT^2 ((-11) \
+$CellContext`T14^4 - 
+                   232 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                   366 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                   56 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + \
+($CellContext`T24 + $CellContext`U)^4)) - $CellContext`MH^2 (
+                3072 $CellContext`MT^12 + 
+                256 $CellContext`MT^10 (11 $CellContext`T14 + 
+                  14 ($CellContext`T24 + $CellContext`U)) - 
+                128 $CellContext`MT^8 (45 $CellContext`T14^2 - 
+                 22 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                 13 ($CellContext`T24 + $CellContext`U)^2) + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U)^3 ((-5) $CellContext`T14^2 - 
+                  4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2) - 
+                32 $CellContext`MT^6 (61 $CellContext`T14^3 + 
+                 134 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                 35 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                 12 ($CellContext`T24 + $CellContext`U)^3) - 
+                4 $CellContext`MT^4 (25 $CellContext`T14^4 + 
+                 236 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                 282 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 - 
+                 56 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - 
+                 11 ($CellContext`T24 + $CellContext`U)^4) + \
+$CellContext`MT^2 (-$CellContext`T14^5 - 
+                  18 $CellContext`T14^4 ($CellContext`T24 + $CellContext`U) - 
+                  134 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                  120 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 + 23 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^4 + 
+                  2 ($CellContext`T24 + $CellContext`U)^5))) 
+              X`DiscB[$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]/
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+             2 $CellContext`T14 ((
+                 4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - $CellContext`MH^2 (
+                12 $CellContext`MT^2 + $CellContext`T14 + 
+                3 ($CellContext`T24 + $CellContext`U))) 
+              X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1)
+                 X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+           16 $CellContext`MT^2 $CellContext`T14 (16 $CellContext`MT^4 - 
+             4 $CellContext`MH^2 $CellContext`T14 + 
+             8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-1) ((-4) $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[5]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[2]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[5]])) + 8 $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[5]] $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`e[2]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]]) + 8 $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]] ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`ec[5]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[4]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]]) + $CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[
+               4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                2 $CellContext`T24) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[5]] ($CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[4]])))) ((-$CellContext`MH^2 + 
+               4 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+((-2) $CellContext`MH^2 + 
+              4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MH^2 (
+               16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+               8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+              256 $CellContext`MT^8 + 
+              192 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 
+              48 $CellContext`MT^4 (
+               3 $CellContext`MH^2 $CellContext`T14 - ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2) + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`T14^2 - 4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                5 ($CellContext`T24 + $CellContext`U)^2 + 
+                2 $CellContext`MH^2 ($CellContext`T14 + 
+                  3 ($CellContext`T24 + $CellContext`U))) + 
+              4 $CellContext`MT^2 (
+                6 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+                2 $CellContext`MH^2 $CellContext`T14 (4 $CellContext`T14 + 
+                 7 ($CellContext`T24 + $CellContext`U)))) 
+             X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+             X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - (
+              16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+              8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+             256 $CellContext`MT^10 + 
+             256 $CellContext`MT^8 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 
+             32 $CellContext`MT^6 (2 $CellContext`MH^2 $CellContext`T14 - 
+              3 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + \
+$CellContext`MH^2 $CellContext`T14 (4 $CellContext`MH^4 $CellContext`T14 + 
+               2 $CellContext`MH^2 (-$CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - ($CellContext`T24 + $CellContext`U) ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2) + 
+             16 $CellContext`MT^4 (
+               2 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - $CellContext`MH^2 $CellContext`T14 (
+                2 $CellContext`T14 + 
+                3 ($CellContext`T24 + $CellContext`U))) + $CellContext`MT^2 (
+               16 $CellContext`MH^4 $CellContext`T14 ((-2) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 - 
+               4 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14^2 + 
+                4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                3 ($CellContext`T24 + $CellContext`U)^2))) 
+            X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT]/
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+              12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+              2 $CellContext`MH^2 (
+               6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^(-1) \
+(16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 ($CellContext`MH^2 - \
+$CellContext`T24 - $CellContext`U) + 
+              8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+             2 $CellContext`MH^10 $CellContext`T14 (
+               12 $CellContext`MT^2 - $CellContext`T14 + 
+               3 ($CellContext`T24 + $CellContext`U)) - $CellContext`MH^8 \
+$CellContext`T14 (464 $CellContext`MT^4 + $CellContext`T14^2 - 
+              4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+              19 ($CellContext`T24 + $CellContext`U)^2 - 
+              8 $CellContext`MT^2 ($CellContext`T14 - 
+               24 ($CellContext`T24 + $CellContext`U))) - $CellContext`MT^2 (
+               4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 (
+              40 $CellContext`MT^4 + ($CellContext`T24 + $CellContext`U)^2 + 
+              2 $CellContext`MT^2 ($CellContext`T14 + 
+                7 ($CellContext`T24 + $CellContext`U))) + $CellContext`MH^2 (
+                4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 (
+               832 $CellContext`MT^8 + $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+               48 $CellContext`MT^6 (10 $CellContext`T14 + 
+                 11 ($CellContext`T24 + $CellContext`U)) + $CellContext`MT^2 \
+($CellContext`T24 + $CellContext`U) (3 $CellContext`T14^2 + 
+                 26 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                 7 ($CellContext`T24 + $CellContext`U)^2) + 
+               4 $CellContext`MT^4 (9 $CellContext`T14^2 + 
+                 52 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                 27 ($CellContext`T24 + $CellContext`U)^2)) + \
+$CellContext`MH^6 (256 $CellContext`MT^8 + 
+               192 $CellContext`MT^6 (
+                 17 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+               16 $CellContext`MT^4 (13 $CellContext`T14^2 + 
+                 119 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                 3 ($CellContext`T24 + $CellContext`U)^2) + 
+               3 $CellContext`T14 ($CellContext`T24 + $CellContext`U) \
+($CellContext`T14^2 + 7 ($CellContext`T24 + $CellContext`U)^2) + 
+               4 $CellContext`MT^2 (7 $CellContext`T14^3 + 
+                 9 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                 89 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3)) - $CellContext`MH^4 (
+              3584 $CellContext`MT^10 + 
+              256 $CellContext`MT^8 (40 $CellContext`T14 + 
+                13 ($CellContext`T24 + $CellContext`U)) + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U)^2 (3 $CellContext`T14^2 + 
+                4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                9 ($CellContext`T24 + $CellContext`U)^2) + 
+              128 $CellContext`MT^6 (14 $CellContext`T14^2 + 
+                60 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                9 ($CellContext`T24 + $CellContext`U)^2) + 
+              16 $CellContext`MT^4 (16 $CellContext`T14^3 + 
+                51 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                129 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + 
+                11 ($CellContext`T24 + $CellContext`U)^3) + 
+              2 $CellContext`MT^2 ($CellContext`T14^4 + 
+                28 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                54 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+                116 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+                5 ($CellContext`T24 + $CellContext`U)^4))) 
+            X`DiscB[$CellContext`MH^2 - 
+              4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]/
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+            2 $CellContext`MH^2 (16 $CellContext`MT^4 + 
+              2 $CellContext`MH^2 $CellContext`T14 - 
+              2 $CellContext`T14^2 - $CellContext`T14 $CellContext`T24 + \
+$CellContext`T24^2 - $CellContext`T14 $CellContext`U + 
+              2 $CellContext`T24 $CellContext`U + $CellContext`U^2 + \
+$CellContext`MT^2 ((-4) $CellContext`T14 + 
+                8 ($CellContext`T24 + $CellContext`U))) 
+             X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1) 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) - 
+           2 ((-4) $CellContext`MT^2 (-$CellContext`MH^2 + 
+               4 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+(-$CellContext`MH^2 + 
+               8 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+(-$CellContext`MH^2 + 8 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + 
+              2 $CellContext`MT^2 
+               X`DiscB[$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]) ((-4) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[2]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]])) + 8 $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[1]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`ec[5]] $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`e[2]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]]) + 8 $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[4]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`ec[5]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[4]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]]) + $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[
+                 4]] ((2 $CellContext`S - $CellContext`S34 + $CellContext`T - 
+                  2 $CellContext`T24) $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`ec[5]] - 4 (($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))) - 
+            4 $CellContext`MT^2 (-$CellContext`MH^2 + 
+              8 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) (
+              16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+              8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) 
+            X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U]^(-1) \
+(((-2) $CellContext`S $CellContext`S34 - $CellContext`S34 $CellContext`T14 + \
+$CellContext`T $CellContext`T14 + 
+               2 $CellContext`MH^2 ($CellContext`S - $CellContext`T24) + 
+               2 $CellContext`T $CellContext`T24) $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[4]] $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[5]] - 
+             4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`ec[5]] - 
+             4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`ec[5]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`k[5]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] + 4 $CellContext`Pair[
+                $CellContext`e[2], 
+                $CellContext`ec[
+                5]] (((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[
+                  1]] + ($CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[3]] $CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] + $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[
+                  4]] (((-2) $CellContext`MH^2 + $CellContext`S34 + \
+$CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + ($CellContext`S + $CellContext`T14 + \
+$CellContext`T24) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]])) - 
+             4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`k[4]] $CellContext`Pair[
+               $CellContext`e[2], 
+               $CellContext`ec[4]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] - 
+             4 ((-2) $CellContext`MH^2 + $CellContext`S34 + $CellContext`T) \
+$CellContext`Pair[
+               $CellContext`e[1], 
+               $CellContext`e[2]] $CellContext`Pair[
+               $CellContext`ec[4], 
+               $CellContext`k[1]] $CellContext`Pair[
+               $CellContext`ec[5], 
+               $CellContext`k[2]] - 8 ($CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[3]] ($CellContext`Pair[
+                  $CellContext`ec[4], 
+                  $CellContext`k[1]] - $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) + ($CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`k[2]] - $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`k[5]]) $CellContext`Pair[
+                 $CellContext`ec[4], 
+                 $CellContext`k[3]]) ($CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[3]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[2]] + $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`k[5]] $CellContext`Pair[
+                 $CellContext`ec[5], 
+                 $CellContext`k[3]]) + 4 $CellContext`Pair[
+                $CellContext`e[1], 
+                $CellContext`ec[
+                4]] (((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]]) $CellContext`Pair[
+                  $CellContext`ec[5], 
+                  $CellContext`k[2]] + $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`k[
+                  5]] ((-$CellContext`MH^2 + $CellContext`S34) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    1]] + (-$CellContext`MH^2 + $CellContext`T) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    4]]))) (-$CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - 
+               8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) (
+               2 $CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T14 - $CellContext`T24 - \
+$CellContext`U) 
+              X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT] + \
+$CellContext`MH^2 $CellContext`T14 ($CellContext`MH^2 - 
+               8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) (
+               4 $CellContext`MT^2 - $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) 
+              X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT] - (
+              64 $CellContext`MT^8 - 
+              2 $CellContext`MH^2 $CellContext`T14 (-$CellContext`MH^2 + \
+$CellContext`T24 + $CellContext`U)^2 + 
+              48 $CellContext`MT^6 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + 
+              4 $CellContext`MT^4 ((-20) $CellContext`MH^2 $CellContext`T14 + 
+                3 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + \
+$CellContext`MT^2 (
+                24 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+                4 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14 + 
+                 7 ($CellContext`T24 + $CellContext`U)))) 
+             X`DiscB[$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT] - ($CellContext`MH^2 - 
+              8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) (
+              4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) (
+              16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+              8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2)) 
+             X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+               4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT])) + 
+           4 (2 $CellContext`MT^2 (16 $CellContext`MT^4 - 
+                4 $CellContext`MH^2 $CellContext`T14 + 
+                8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-2) (-($CellContext`S34 - $CellContext`T) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + 
+                 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 
+               4 (2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+                2 $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) - 
+               4 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) + ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) (-(-$CellContext`MH^2 + 
+                  4 $CellContext`MT^2 + $CellContext`T24 + \
+$CellContext`U)^(-1) (
+                 12 $CellContext`MH^4 $CellContext`T14 - (
+                  4 $CellContext`MT^2 - $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) (
+                   4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 + 
+                 2 $CellContext`MH^2 (
+                   16 $CellContext`MT^4 - $CellContext`T14^2 - 
+                   6 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 + 
+                   8 $CellContext`MT^2 ((-3) $CellContext`T14 + \
+$CellContext`T24 + $CellContext`U))) + 
+               2 $CellContext`MH^2 (
+                  16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                  8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+                 1024 $CellContext`MT^12 - 
+                 1280 $CellContext`MT^10 ($CellContext`T14 - $CellContext`T24 - \
+$CellContext`U) + 128 $CellContext`MT^8 (7 $CellContext`MH^2 $CellContext`T14 - 
+                   15 $CellContext`T14^2 - 
+                   10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                   5 ($CellContext`T24 + $CellContext`U)^2) + 
+                 32 $CellContext`MT^6 (2 $CellContext`MH^4 $CellContext`T14 - 
+                   5 (5 $CellContext`T14 - $CellContext`T24 - $CellContext`U) \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2 + 
+                   19 $CellContext`MH^2 $CellContext`T14 (
+                    3 $CellContext`T14 + $CellContext`T24 + $CellContext`U)) - 
+                 4 $CellContext`MT^4 (
+                  5 (7 $CellContext`T14 - $CellContext`T24 - $CellContext`U) \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^3 + 
+                  4 $CellContext`MH^4 $CellContext`T14 (55 $CellContext`T14 - 
+                    3 ($CellContext`T24 + $CellContext`U)) - 
+                  2 $CellContext`MH^2 $CellContext`T14 (91 $CellContext`T14^2 + 
+                   130 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                   15 ($CellContext`T24 + $CellContext`U)^2)) + \
+$CellContext`MH^2 $CellContext`T14 (
+                   2 $CellContext`MH^4 $CellContext`T14 (3 $CellContext`T14 + 
+                    13 ($CellContext`T24 + $CellContext`U)) - \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2 ($CellContext`T14^2 - 
+                    
+                    10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2) + $CellContext`MH^2 ((-5) \
+$CellContext`T14^3 - 
+                    27 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                    33 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3)) + $CellContext`MT^2 (
+                   104 $CellContext`MH^6 $CellContext`T14^2 - (
+                    9 $CellContext`T14 - $CellContext`T24 - $CellContext`U) \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^4 - 
+                   4 $CellContext`MH^4 $CellContext`T14 (
+                    37 $CellContext`T14^2 + 
+                    88 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                    3 ($CellContext`T24 + $CellContext`U)^2) + 
+                   2 $CellContext`MH^2 $CellContext`T14 (
+                    39 $CellContext`T14^3 + 
+                    127 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U) + 
+                    89 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3))) 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+                X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+               2 $CellContext`T14 (
+                  16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                  8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) ((-12) \
+$CellContext`MH^8 $CellContext`T14^2 + $CellContext`MT^2 (
+                    4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^5 - $CellContext`MH^2 (
+                   4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^3 (
+                  40 $CellContext`MT^4 + $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-4) $CellContext`T14 + 
+                    10 ($CellContext`T24 + $CellContext`U))) - 
+                 2 $CellContext`MH^6 $CellContext`T14 (96 $CellContext`MT^4 - 
+                  5 $CellContext`T14^2 - 
+                  9 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                  6 ($CellContext`T24 + $CellContext`U)^2 + $CellContext`MT^2 \
+((-60) $CellContext`T14 + 48 ($CellContext`T24 + $CellContext`U))) + 
+                 2 $CellContext`MH^4 $CellContext`T14 (
+                   608 $CellContext`MT^6 + $CellContext`T14^3 - 
+                   5 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                   6 ($CellContext`T24 + $CellContext`U)^3 + \
+$CellContext`MT^4 ((-64) $CellContext`T14 + 
+                    400 ($CellContext`T24 + $CellContext`U)) - 
+                   2 $CellContext`MT^2 (25 $CellContext`T14^2 + 
+                    8 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                    43 ($CellContext`T24 + $CellContext`U)^2))) 
+                X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT]/
+                X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - 
+               2 ($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+                 12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+                 2 $CellContext`MH^2 (
+                  6 $CellContext`MT^2 + $CellContext`T24 + \
+$CellContext`U))^(-1) (
+                 16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                 8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+                2 $CellContext`MH^12 $CellContext`T14^2 (52 $CellContext`MT^2 - 
+                  3 $CellContext`T14 + 
+                  13 ($CellContext`T24 + $CellContext`U)) + $CellContext`MT^2 \
+(4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^5 (
+                  16 $CellContext`MT^6 + $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                  8 $CellContext`MT^4 (
+                    5 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + \
+$CellContext`MT^2 ($CellContext`T14^2 + 
+                    14 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2)) + $CellContext`MH^10 $CellContext`T14 \
+(64 $CellContext`MT^6 + 5 $CellContext`T14^3 + 
+                  3 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                  97 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3 + $CellContext`MT^4 ((-2320) \
+$CellContext`T14 + 48 ($CellContext`T24 + $CellContext`U)) + 
+                  4 $CellContext`MT^2 (3 $CellContext`T14^2 - 
+                    242 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                    3 ($CellContext`T24 + $CellContext`U)^2)) + \
+$CellContext`MH^2 (
+                   4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^3 (
+                  512 $CellContext`MT^10 - $CellContext`T14^2 \
+($CellContext`T24 + $CellContext`U)^3 - 
+                  64 $CellContext`MT^8 (46 $CellContext`T14 - 
+                   7 ($CellContext`T24 + $CellContext`U)) - 
+                  16 $CellContext`MT^6 (26 $CellContext`T14^2 + 
+                   114 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                   9 ($CellContext`T24 + $CellContext`U)^2) - 
+                  4 $CellContext`MT^4 (6 $CellContext`T14^3 + 
+                   45 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                   90 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                   5 ($CellContext`T24 + $CellContext`U)^3) + \
+$CellContext`MT^2 ($CellContext`T24 + $CellContext`U) ((-2) \
+$CellContext`T14^3 - 
+                    23 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                    22 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3)) + $CellContext`MH^8 $CellContext`T14 (
+                  128 $CellContext`MT^8 + $CellContext`T14^4 + 
+                  96 $CellContext`MT^6 (
+                    203 $CellContext`T14 - $CellContext`T24 - $CellContext`U) - 
+                  12 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                  30 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+                  136 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - 
+                  3 ($CellContext`T24 + $CellContext`U)^4 + 
+                  8 $CellContext`MT^4 (157 $CellContext`T14^2 + 
+                    1446 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                    15 ($CellContext`T24 + $CellContext`U)^2) - 
+                  2 $CellContext`MT^2 (33 $CellContext`T14^3 - 
+                   205 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                   1109 $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                   17 ($CellContext`T24 + $CellContext`U)^3)) + \
+$CellContext`MH^6 (1024 $CellContext`MT^12 - 
+                  256 $CellContext`MT^10 (51 $CellContext`T14 - 
+                   5 ($CellContext`T24 + $CellContext`U)) - 
+                  128 $CellContext`MT^8 (609 $CellContext`T14^2 + 
+                   87 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                   5 ($CellContext`T24 + $CellContext`U)^2) - 
+                  32 $CellContext`MT^6 (381 $CellContext`T14^3 + 
+                   1892 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U) + 102 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                   5 ($CellContext`T24 + $CellContext`U)^3) - \
+$CellContext`T14 ($CellContext`T24 + $CellContext`U) (3 $CellContext`T14^4 - 
+                   6 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                   48 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 86 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - 
+                   3 ($CellContext`T24 + $CellContext`U)^4) + 
+                  4 $CellContext`MT^4 ($CellContext`T14^4 - 
+                    1566 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U) - 
+                    4258 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 - 78 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+                    5 ($CellContext`T24 + $CellContext`U)^4) + \
+$CellContext`MT^2 ((-19) $CellContext`T14^5 + 
+                    43 $CellContext`T14^4 ($CellContext`T24 + $CellContext`U) - 
+                    996 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                    2036 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                    15 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^4 + \
+($CellContext`T24 + $CellContext`U)^5)) + $CellContext`MH^4 ((-12288) \
+$CellContext`MT^14 + 
+                  1024 $CellContext`MT^12 (80 $CellContext`T14 - 
+                    17 ($CellContext`T24 + $CellContext`U)) + 
+                  256 $CellContext`MT^10 (621 $CellContext`T14^2 + 
+                    361 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                    40 ($CellContext`T24 + $CellContext`U)^2) + 
+                  128 $CellContext`MT^8 (325 $CellContext`T14^3 + 
+                    1187 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U) + 320 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                    25 ($CellContext`T24 + $CellContext`U)^3) + 
+                  16 $CellContext`MT^6 (157 $CellContext`T14^4 + 
+                    1832 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U) + 
+                    3484 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                    550 $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^3 - 
+                    35 ($CellContext`T24 + $CellContext`U)^4) + \
+$CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 (3 $CellContext`T14^4 + 
+                    4 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) + 
+                    24 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                    22 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - \
+($CellContext`T24 + $CellContext`U)^4) + 
+                  4 $CellContext`MT^4 (46 $CellContext`T14^5 + 
+                    263 $CellContext`T14^4 ($CellContext`T24 + \
+$CellContext`U) + 
+                    1810 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                    2418 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                    220 $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^4 - 
+                    13 ($CellContext`T24 + $CellContext`U)^5) + \
+$CellContext`MT^2 ($CellContext`T14^6 + 
+                    43 $CellContext`T14^5 ($CellContext`T24 + $CellContext`U) + 
+                    122 $CellContext`T14^4 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                    724 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                    775 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^4 + 25 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^5 - 
+                    2 ($CellContext`T24 + $CellContext`U)^6))) 
+               X`DiscB[$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]/
+               X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + 
+               4 (256 $CellContext`MT^10 + 
+                 
+                 256 $CellContext`MT^8 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) - 32 $CellContext`MT^6 (7 $CellContext`MH^2 $CellContext`T14 - 
+                  3 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2) + 
+                 16 $CellContext`MT^4 (
+                   6 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 - 
+                   2 $CellContext`MH^2 $CellContext`T14 (2 $CellContext`T14 + 
+                    5 ($CellContext`T24 + $CellContext`U))) + \
+$CellContext`MT^2 (($CellContext`T14 + $CellContext`T24 + $CellContext`U)^4 + 
+                   16 $CellContext`MH^4 $CellContext`T14 ((-2) \
+$CellContext`T14 + 3 ($CellContext`T24 + $CellContext`U)) + 
+                   2 $CellContext`MH^2 $CellContext`T14 (5 $CellContext`T14^2 - 
+                    14 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                    19 ($CellContext`T24 + $CellContext`U)^2)) + 
+                 3 $CellContext`MH^2 $CellContext`T14 (
+                   2 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 - \
+$CellContext`T24 - $CellContext`U) ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 - 
+                   2 $CellContext`MH^2 ($CellContext`T14^2 + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U) - ($CellContext`T24 + $CellContext`U)^2)))
+                  X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                   4 $CellContext`MT^2 - $CellContext`T24 - \
+$CellContext`U]^(-1) 
+                X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT]) + 
+             2 $CellContext`MT^2 (16 $CellContext`MT^4 - 
+                4 $CellContext`MH^2 $CellContext`T14 + 
+                8 $CellContext`MT^2 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2)^(-2) (-($CellContext`S34 - $CellContext`T) ((-2) \
+$CellContext`MH^2 + $CellContext`S34 + $CellContext`T + 
+                 2 $CellContext`U) $CellContext`Pair[
+                  $CellContext`e[1], 
+                  $CellContext`ec[4]] $CellContext`Pair[
+                  $CellContext`e[2], 
+                  $CellContext`ec[5]] - 
+               4 (2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T - 
+                2 $CellContext`U) $CellContext`Pair[
+                 $CellContext`e[2], 
+                 $CellContext`ec[5]] ($CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[1]] + $CellContext`Pair[
+                   $CellContext`e[1], 
+                   $CellContext`k[4]] $CellContext`Pair[
+                   $CellContext`ec[4], 
+                   $CellContext`k[3]]) - 
+               4 ($CellContext`S34 - $CellContext`T) $CellContext`Pair[
+                 $CellContext`e[1], 
+                 $CellContext`ec[4]] ($CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[3]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[2]] + $CellContext`Pair[
+                   $CellContext`e[2], 
+                   $CellContext`k[5]] $CellContext`Pair[
+                   $CellContext`ec[5], 
+                   $CellContext`k[3]]) + 16 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]] + $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]])) (-(-$CellContext`MH^2 + 
+                  4 $CellContext`MT^2 + $CellContext`T24 + \
+$CellContext`U)^(-1) (64 $CellContext`MT^6 - 3 $CellContext`T14^3 + 
+                 5 $CellContext`T14^2 $CellContext`T24 + 
+                 9 $CellContext`T14 $CellContext`T24^2 + $CellContext`T24^3 + 
+                 5 $CellContext`T14^2 $CellContext`U + 
+                 18 $CellContext`T14 $CellContext`T24 $CellContext`U + 
+                 3 $CellContext`T24^2 $CellContext`U + 
+                 9 $CellContext`T14 $CellContext`U^2 + 
+                 3 $CellContext`T24 $CellContext`U^2 + $CellContext`U^3 + 
+                 48 $CellContext`MT^4 (
+                   3 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+                 2 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14 - 
+                   7 ($CellContext`T24 + $CellContext`U)) + 
+                 4 $CellContext`MT^2 ((-14) $CellContext`MH^2 \
+$CellContext`T14 + 5 $CellContext`T14^2 + 
+                   18 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                   3 ($CellContext`T24 + $CellContext`U)^2)) + (
+                  16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                  8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+                 4096 $CellContext`MT^14 + 
+                 2048 $CellContext`MT^12 (5 $CellContext`T14 + 
+                   3 ($CellContext`T24 + $CellContext`U)) + 
+                 256 $CellContext`MT^8 ($CellContext`MH^4 $CellContext`T14 + 
+                   5 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2 \
+(3 $CellContext`T14 + $CellContext`T24 + $CellContext`U) - $CellContext`MH^2 \
+$CellContext`T14 (25 $CellContext`T14 + 
+                    27 ($CellContext`T24 + $CellContext`U))) - 
+                 256 $CellContext`MT^10 (
+                  26 $CellContext`MH^2 $CellContext`T14 - 
+                  5 (7 $CellContext`T14^2 + 
+                   10 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                   3 ($CellContext`T24 + $CellContext`U)^2)) + 
+                 16 $CellContext`MT^6 (
+                   16 $CellContext`MH^4 $CellContext`T14 (
+                    8 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+                   5 ($CellContext`T14 + $CellContext`T24 + $CellContext`U)^3 \
+(11 $CellContext`T14 + 3 ($CellContext`T24 + $CellContext`U)) - 
+                   4 $CellContext`MH^2 $CellContext`T14 (
+                    34 $CellContext`T14^2 + 
+                    83 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                    43 ($CellContext`T24 + $CellContext`U)^2)) + \
+$CellContext`MT^2 (($CellContext`T14 + $CellContext`T24 + $CellContext`U)^5 (
+                    5 $CellContext`T14 + $CellContext`T24 + $CellContext`U) + 
+                   48 $CellContext`MH^6 $CellContext`T14^2 (
+                    10 $CellContext`T14 - 
+                    3 ($CellContext`T24 + $CellContext`U)) + 
+                   2 $CellContext`MH^2 $CellContext`T14 ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2 ($CellContext`T14^2 - 
+                    56 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                    21 ($CellContext`T24 + $CellContext`U)^2) - 
+                   16 $CellContext`MH^4 $CellContext`T14 (
+                    14 $CellContext`T14^3 + 
+                    3 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                    21 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - \
+($CellContext`T24 + $CellContext`U)^3)) - 
+                 8 $CellContext`MT^4 (
+                  36 $CellContext`MH^6 $CellContext`T14^2 - ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^4 (13 $CellContext`T14 + 
+                   3 ($CellContext`T24 + $CellContext`U)) + 
+                  12 $CellContext`MH^4 $CellContext`T14 (3 $CellContext`T14^2 - 
+                    15 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - \
+($CellContext`T24 + $CellContext`U)^2) + 
+                  2 $CellContext`MH^2 $CellContext`T14 (17 $CellContext`T14^3 + 
+                    84 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                    99 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + 
+                    32 ($CellContext`T24 + $CellContext`U)^3)) - \
+$CellContext`MH^2 $CellContext`T14 (64 $CellContext`MH^6 $CellContext`T14^2 - 
+                  6 $CellContext`MH^4 $CellContext`T14 (7 $CellContext`T14^2 + 
+                   12 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                   3 ($CellContext`T24 + $CellContext`U)^2) - \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^3 (
+                   2 $CellContext`T14^2 - 
+                   5 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - \
+($CellContext`T24 + $CellContext`U)^2) + $CellContext`MH^2 (
+                    7 $CellContext`T14^4 + 
+                    26 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                    6 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                    26 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - \
+($CellContext`T24 + $CellContext`U)^4))) 
+                X`DiscB[$CellContext`MH^2, $CellContext`MT, $CellContext`MT]/
+                X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - 
+               2 $CellContext`T14^2 (
+                 16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                 8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+                9 $CellContext`MT^2 (
+                   4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 - 
+                6 $CellContext`MH^6 $CellContext`T14 (
+                 20 $CellContext`MT^2 + $CellContext`T14 + 
+                 5 ($CellContext`T24 + $CellContext`U)) - $CellContext`MH^2 (
+                  4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 (
+                 104 $CellContext`MT^4 + $CellContext`T14 (-$CellContext`T14 + 
+                   10 ($CellContext`T24 + $CellContext`U)) + \
+$CellContext`MT^2 (86 $CellContext`T14 + 
+                   26 ($CellContext`T24 + $CellContext`U))) + \
+$CellContext`MH^4 $CellContext`T14 (1040 $CellContext`MT^4 + 
+                  5 $CellContext`T14^2 + 
+                  28 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                  39 ($CellContext`T24 + $CellContext`U)^2 + 
+                  8 $CellContext`MT^2 (19 $CellContext`T14 + 
+                    52 ($CellContext`T24 + $CellContext`U)))) 
+               X`DiscB[$CellContext`T14, $CellContext`MT, $CellContext`MT]/
+               X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+                  12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+                  2 $CellContext`MH^2 (
+                   6 $CellContext`MT^2 + $CellContext`T24 + \
+$CellContext`U))^(-1) (
+                  16 $CellContext`MT^6 + $CellContext`MH^2 $CellContext`T14 \
+($CellContext`MH^2 - $CellContext`T24 - $CellContext`U) + 
+                  8 $CellContext`MT^4 ($CellContext`T14 + $CellContext`T24 + \
+$CellContext`U) + $CellContext`MT^2 ((-8) $CellContext`MH^2 $CellContext`T14 + \
+($CellContext`T14 + $CellContext`T24 + $CellContext`U)^2))^(-1) (
+                 64 $CellContext`MH^12 $CellContext`T14^3 + 
+                 2 $CellContext`MH^10 $CellContext`T14^2 (
+                   144 $CellContext`MT^4 - 27 $CellContext`T14^2 - 
+                   130 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                   9 ($CellContext`T24 + $CellContext`U)^2 + \
+$CellContext`MT^2 ((-744) $CellContext`T14 + 
+                    72 ($CellContext`T24 + $CellContext`U))) - \
+$CellContext`MH^8 $CellContext`T14 (256 $CellContext`MT^8 - 
+                  17 $CellContext`T14^4 - 
+                  190 $CellContext`T14^3 ($CellContext`T24 + $CellContext`U) - 
+                  400 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                  62 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + \
+($CellContext`T24 + $CellContext`U)^4 + 
+                  128 $CellContext`MT^6 (43 $CellContext`T14 + 
+                    2 ($CellContext`T24 + $CellContext`U)) - 
+                  32 $CellContext`MT^4 (404 $CellContext`T14^2 - 
+                   117 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                   3 ($CellContext`T24 + $CellContext`U)^2) - 
+                  8 $CellContext`MT^2 (159 $CellContext`T14^3 + 
+                   580 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                   105 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                   2 ($CellContext`T24 + $CellContext`U)^3)) - \
+$CellContext`MT^2 (
+                   4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^4 (640 $CellContext`MT^8 + 
+                  32 $CellContext`MT^6 (27 $CellContext`T14 + 
+                    17 ($CellContext`T24 + $CellContext`U)) - 
+                  24 $CellContext`MT^4 (19 $CellContext`T14^2 - 
+                   22 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                   7 ($CellContext`T24 + $CellContext`U)^2) + \
+($CellContext`T24 + $CellContext`U) ((-2) $CellContext`T14^3 - 
+                    15 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                    6 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + \
+($CellContext`T24 + $CellContext`U)^3) + 
+                  2 $CellContext`MT^2 ((-7) $CellContext`T14^3 - 
+                    87 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) + 
+                    51 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 + 
+                    11 ($CellContext`T24 + $CellContext`U)^3)) + \
+$CellContext`MH^6 $CellContext`T14 (9728 $CellContext`MT^10 + 
+                   256 $CellContext`MT^8 (148 $CellContext`T14 + 
+                    41 ($CellContext`T24 + $CellContext`U)) - 
+                   192 $CellContext`MT^6 (273 $CellContext`T14^2 - 
+                    172 $CellContext`T14 ($CellContext`T24 + $CellContext`U) - 
+                    23 ($CellContext`T24 + $CellContext`U)^2) - 
+                   32 $CellContext`MT^4 (326 $CellContext`T14^3 + 
+                    905 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U) - 333 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                    28 ($CellContext`T24 + $CellContext`U)^3) + \
+($CellContext`T24 + $CellContext`U) ((-51) $CellContext`T14^4 - 
+                    246 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U) - 
+                    280 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 78 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+                    3 ($CellContext`T24 + $CellContext`U)^4) + 
+                   2 $CellContext`MT^2 ((-221) $CellContext`T14^4 - 
+                    1664 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U) - 
+                    2542 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                    752 $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                    43 ($CellContext`T24 + $CellContext`U)^4)) + \
+$CellContext`MH^2 (
+                    4 $CellContext`MT^2 + $CellContext`T14 + $CellContext`T24 + \
+$CellContext`U)^2 (3072 $CellContext`MT^12 + 
+                   512 $CellContext`MT^10 (43 $CellContext`T14 + 
+                    
+                    7 ($CellContext`T24 + $CellContext`U)) + $CellContext`T14 \
+($CellContext`T24 + $CellContext`U)^3 ((-17) $CellContext`T14^2 + 
+                    6 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2) + 
+                   128 $CellContext`MT^8 (2 $CellContext`T14^2 + 
+                    155 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                    13 ($CellContext`T24 + $CellContext`U)^2) - 
+                   32 $CellContext`MT^6 (208 $CellContext`T14^3 - 
+                    24 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                    209 $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^2 - 12 ($CellContext`T24 + $CellContext`U)^3) + 
+                   4 $CellContext`MT^4 ((-83) $CellContext`T14^4 - 
+                    782 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U) + 
+                    108 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                    254 $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^3 + 11 ($CellContext`T24 + $CellContext`U)^4) + 
+                   2 $CellContext`MT^2 (-$CellContext`T14^5 - 
+                    27 $CellContext`T14^4 ($CellContext`T24 + $CellContext`U) - 
+                    217 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^2 + 
+                    44 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                    32 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^4 + \
+($CellContext`T24 + $CellContext`U)^5)) - $CellContext`MH^4 (
+                  4096 $CellContext`MT^14 + 
+                  2048 $CellContext`MT^12 (49 $CellContext`T14 + 
+                    3 ($CellContext`T24 + $CellContext`U)) + 
+                  1280 $CellContext`MT^10 (95 $CellContext`T14^2 + 
+                    96 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                    3 ($CellContext`T24 + $CellContext`U)^2) - 
+                  256 $CellContext`MT^8 (401 $CellContext`T14^3 - 
+                   497 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U) - 
+                   238 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 - 
+                   5 ($CellContext`T24 + $CellContext`U)^3) - 
+                  16 $CellContext`MT^6 (2297 $CellContext`T14^4 + 
+                   4760 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U) - 
+                   3282 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                   968 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 - 
+                   15 ($CellContext`T24 + $CellContext`U)^4) + \
+$CellContext`T14 ($CellContext`T24 + $CellContext`U)^2 ((-51) \
+$CellContext`T14^4 - 
+                    138 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U) - 80 $CellContext`T14^2 ($CellContext`T24 + $CellContext`U)^2 + 
+                    42 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^3 + 
+                    3 ($CellContext`T24 + $CellContext`U)^4) - 
+                  8 $CellContext`MT^4 (431 $CellContext`T14^5 + 
+                   2349 $CellContext`T14^4 ($CellContext`T24 + \
+$CellContext`U) + 
+                   2514 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                   1334 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^3 - 
+                   261 $CellContext`T14 ($CellContext`T24 + $CellContext`U)^4 - 
+                   3 ($CellContext`T24 + $CellContext`U)^5) + \
+$CellContext`MT^2 ((-35) $CellContext`T14^6 - 
+                    920 $CellContext`T14^5 ($CellContext`T24 + \
+$CellContext`U) - 
+                    2953 $CellContext`T14^4 ($CellContext`T24 + \
+$CellContext`U)^2 - 
+                    2192 $CellContext`T14^3 ($CellContext`T24 + \
+$CellContext`U)^3 + 
+                    1067 $CellContext`T14^2 ($CellContext`T24 + \
+$CellContext`U)^4 + 
+                    136 $CellContext`T14 ($CellContext`T24 + \
+$CellContext`U)^5 + ($CellContext`T24 + $CellContext`U)^6))) 
+                X`DiscB[$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT]/
+                X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U] - 
+               6 $CellContext`T14 (128 $CellContext`MT^8 + 
+                32 $CellContext`MT^6 (5 $CellContext`T14 + 
+                  3 ($CellContext`T24 + $CellContext`U)) + 
+                2 $CellContext`MT^2 (
+                  20 $CellContext`MH^4 $CellContext`T14 + ($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^2 (
+                    7 $CellContext`T14 + $CellContext`T24 + $CellContext`U) - 
+                  12 $CellContext`MH^2 $CellContext`T14 (2 $CellContext`T14 + 
+                   3 ($CellContext`T24 + $CellContext`U))) + 
+                8 $CellContext`MT^4 ((-20) $CellContext`MH^2 $CellContext`T14 + 
+                  3 (3 $CellContext`T14^2 + 
+                    4 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2)) + $CellContext`T14 (($CellContext`T14 + \
+$CellContext`T24 + $CellContext`U)^3 + 
+                  2 $CellContext`MH^4 ($CellContext`T14 + 
+                    5 ($CellContext`T24 + $CellContext`U)) - 
+                  2 $CellContext`MH^2 ($CellContext`T14^2 + 
+                   5 $CellContext`T14 ($CellContext`T24 + $CellContext`U) + 
+                   4 ($CellContext`T24 + $CellContext`U)^2))) 
+               X`Kallen\[Lambda][$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                  4 $CellContext`MT^2 - $CellContext`T24 - \
+$CellContext`U]^(-1) 
+               X`ScalarC0[$CellContext`MH^2, $CellContext`T14, \
+$CellContext`MH^2 - 
+                 4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+$CellContext`MT, $CellContext`MT, $CellContext`MT])))}, 0, 3, 1],
+        Editable->False], ")"}], "+", 
+      RowBox[{
+       FractionBox["1", 
+        RowBox[{
+         SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", "T24"}]], 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          FractionBox["1", "T"], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"4", " ", 
+                RowBox[{"(", 
+                 RowBox[{"2", "+", 
+                  FractionBox["1", "\[Epsilon]"], "+", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{"T", ",", "MT", ",", "MT"}], "]"}], "+", 
+                  RowBox[{"Log", "[", 
+                   FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "-", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], "-", "T"}]], 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                   FractionBox[
+                    SuperscriptBox["MH", "2"], "\[Epsilon]"], "-", 
+                   RowBox[{"3", " ", "T"}], "-", 
+                   FractionBox["T", "\[Epsilon]"], "+", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                   RowBox[{"T", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "+", 
+                   RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                   RowBox[{"T", " ", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], "-", 
+                   RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], 
+                  ")"}]}]}]}], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+               RowBox[{"2", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+               RowBox[{"4", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+               RowBox[{"2", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "5", "]"}], ",", 
+                  RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+               RowBox[{"4", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                  RowBox[{"Pair", "[", 
+                   RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "5", "]"}], ",", 
+                  RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+               RowBox[{
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], ")"}]}], "-", 
+            RowBox[{
+             FractionBox["1", 
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", "T"}]], 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox[
+                 RowBox[{"Log", "[", 
+                  FractionBox[
+                   RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                   RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"], "-", 
+                SuperscriptBox[
+                 RowBox[{"Log", "[", 
+                  FractionBox[
+                   RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                   RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"2", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "2", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "2", "]"}], ",", 
+                   RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "5", "]"}], ",", 
+                   RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "5", "]"}], ",", 
+                   RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                RowBox[{
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}], "+", 
+                RowBox[{"8", " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}]}], ")"}]}]}], "-", 
+            RowBox[{
+             FractionBox["1", 
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", "T"}]], 
+             RowBox[{"4", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"DiscB", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                "-", 
+                RowBox[{"DiscB", "[", 
+                 RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "7"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "S34"}], "+", 
+                    RowBox[{"3", " ", "T"}], "+", 
+                    RowBox[{"6", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "9"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", 
+                    RowBox[{"8", " ", "S34"}], "+", 
+                    RowBox[{"5", " ", "T"}], "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                RowBox[{"2", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "2", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "4", "]"}], ",", 
+                   RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                RowBox[{"2", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "+", 
+                    RowBox[{"2", " ", "S"}], "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "2", "]"}], ",", 
+                   RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "5", "]"}], ",", 
+                   RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                RowBox[{"4", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"ec", "[", "5", "]"}], ",", 
+                   RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                RowBox[{
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S", "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}], "+", 
+                RowBox[{"16", " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                  ")"}]}]}], ")"}]}]}], "-", 
+            RowBox[{"8", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox[
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], "2"]}]], 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "-", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], "-", 
+                   RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"MH", " ", 
+                    SqrtBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}]}]]}]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+                   RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+                    SqrtBox[
+                    RowBox[{"T", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "4"}], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"]}]], "]"}], "2"]}]}], ")"}], " ", 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"4", " ", "S34"}], "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S"}], "-", 
+                    RowBox[{"4", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"2", " ", "S"}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", 
+                    RowBox[{"2", " ", "S"}], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}], "+", 
+               RowBox[{
+                FractionBox["1", 
+                 RowBox[{"2", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}]}]], 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                   RowBox[{"DiscB", "[", 
+                    RowBox[{"T", ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                 
+                 RowBox[{"Pair", "[", 
+                  RowBox[{
+                   RowBox[{"e", "[", "1", "]"}], ",", 
+                   RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "S", "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", "S34"}], "-", 
+                    RowBox[{"3", " ", "T"}], "-", 
+                    RowBox[{"4", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", "S34"}], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T", "-", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", 
+                    RowBox[{"2", " ", "U"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                   RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], "+", 
+         RowBox[{
+          FractionBox["1", "S"], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"2", "+", 
+                  FractionBox["1", "\[Epsilon]"], "+", 
+                  RowBox[{"DiscB", "[", 
+                   RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}], "+", 
+                  RowBox[{"Log", "[", 
+                   FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"-", "4"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], "+", 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", "T14"}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", "T24"}], "-", 
+                    RowBox[{"2", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "T14", " ", "U"}], "+", 
+                    RowBox[{"S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "+", "U"}], ")"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "T", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                  RowBox[{"8", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["MH", "2"]}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}], " ", 
+                RowBox[{"ScalarC0", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                   "T24"}], ",", 
+                  RowBox[{"-", 
+                   FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                   ",", "MT"}], "]"}]}]}], ")"}]}], "-", 
+            RowBox[{"4", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "-", "U"}], ")"}], 
+                   " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"16", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", 
+                    RowBox[{"-", 
+                    FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                     ",", "MT"}], "]"}], " ", 
+                   RowBox[{"(", 
+                    InterpretationBox[
+                    RowBox[{
+                    FractionBox[
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "+", 
+                    InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                    
+                    SeriesData[$CellContext`\[Beta], 0, {
+                    24 $CellContext`MT^4 ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2), 0, 
+                    8 $CellContext`MT^4 (
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) ((
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 (4 $CellContext`MT^2 - 
+                    5 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)) - 8 $CellContext`MH^4 (16 $CellContext`MT^4 + 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + 8 $CellContext`MH^2 (32 $CellContext`MT^6 + 
+                    16 $CellContext`MT^4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + 
+                    14 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3))}, 0, 4, 1],
+                    Editable->False], ")"}]}], "+", 
+                  RowBox[{"(", 
+                   InterpretationBox[
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"5", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "192"}], " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"20", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], ")"}]}], "+", 
+                    FractionBox[
+                    RowBox[{"48", " ", "\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "4"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", "\[Beta]"}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"48", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"112", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"768", " ", 
+                    SuperscriptBox["MT", "8"]}], "+", 
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}], 
+                    "+", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"7", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"768", " ", 
+                    SuperscriptBox["MT", "8"]}], "-", 
+                    RowBox[{"512", " ", 
+                    SuperscriptBox["MT", "6"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}], 
+                    "+", 
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"10", " ", 
+                    SuperscriptBox["MH", "4"]}], "-", 
+                    RowBox[{"13", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}]}], 
+                    ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "+", 
+                    FractionBox[
+                    RowBox[{"96", " ", "\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "4"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "3"]}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]], "+", 
+                    InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                    
+                    SeriesData[$CellContext`\[Beta], 0, {
+                    Rational[
+                    1, 2] ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) (
+                    8 $CellContext`MT^2 ((-16) $CellContext`MH^2 \
+$CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + (-(
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 (
+                    12 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) + 
+                    8 $CellContext`MH^2 $CellContext`MT^2 (
+                    12 $CellContext`MT^2 + 
+                    5 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + ((-192) $CellContext`MT^6 + 
+                    16 $CellContext`MT^4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + 
+                    20 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 + 8 $CellContext`MH^2 (12 $CellContext`MT^4 - 
+                    5 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                    Complex[0, 48] $CellContext`MT^4 
+                    Pi ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2), (-2) $CellContext`MT^2 (
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) ((-2) (48 $CellContext`MH^2 $CellContext`MT^2 - 
+                    112 $CellContext`MT^4 - 
+                    24 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + (768 $CellContext`MT^8 + 
+                    512 $CellContext`MT^6 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) - 
+                    96 $CellContext`MT^4 (
+                    5 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) ($CellContext`S34 + $CellContext`T14 + $CellContext`T24) + (
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) ($CellContext`S34 + $CellContext`T14 + $CellContext`T24)^3 + 
+                    16 $CellContext`MH^2 $CellContext`MT^2 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) (10 $CellContext`MH^2 - 
+                    7 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (768 $CellContext`MT^8 - 
+                    512 $CellContext`MT^6 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) - (
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) ($CellContext`S34 + $CellContext`T14 + $CellContext`T24)^3 + 
+                    96 $CellContext`MT^4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (5 $CellContext`MH^2 - 
+                    4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)) - 
+                    16 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (10 $CellContext`MH^4 - 
+                    13 $CellContext`MH^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                    Complex[0, 96] $CellContext`MT^4 
+                    Pi (32 $CellContext`MT^6 - 
+                    6 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + (
+                    2 $CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) ($CellContext`S34 + $CellContext`T14 + $CellContext`T24)^2) \
+(16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3)}, 0, 4, 1],
+                    Editable->False], ")"}]}], ")"}]}], "+", 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"2", " ", "S34"}], "-", "T", "-", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"ScalarC0", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", 
+                    RowBox[{"-", 
+                    FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                     ",", "MT"}], "]"}], " ", 
+                   RowBox[{"(", 
+                    InterpretationBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "8"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "48"}], " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "4"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"208", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "-", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}]}], 
+                    ")"}]}]}], ")"}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "+", 
+                    InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                    
+                    SeriesData[$CellContext`\[Beta], 
+                    0, {-$CellContext`MT^2 ((-16) $CellContext`MH^2 \
+$CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) ((-8) $CellContext`MH^2 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 - 4 $CellContext`MH^4 (4 $CellContext`MT^2 - 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))), 0, (-4) $CellContext`MT^2 (
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) ((-48) $CellContext`MH^6 $CellContext`MT^2 \
+($CellContext`S34 + $CellContext`T14 + $CellContext`T24) - 
+                    2 $CellContext`MH^2 (
+                    14 $CellContext`MT^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24) ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MT^2 (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^4 + $CellContext`MH^4 (128 $CellContext`MT^6 + 
+                    208 $CellContext`MT^4 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) + 
+                    64 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 - 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3))}, 0, 4, 1],
+                    Editable->False], ")"}]}], "+", 
+                  RowBox[{"(", 
+                   InterpretationBox[
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"80", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"32", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "48"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], "/", 
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], ")"}]}], ")"}]}], 
+                    "-", 
+                    FractionBox[
+                    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{"6", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", "\[Beta]"}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]}], ")"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"5", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "24"}], " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"128", " ", 
+                    SuperscriptBox["MH", "6"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "-", 
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"24", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"14", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"64", " ", 
+                    SuperscriptBox["MT", "6"]}], "+", 
+                    RowBox[{"240", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"28", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "-", 
+                    RowBox[{"7", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"96", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "3"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"256", " ", 
+                    SuperscriptBox["MT", "6"]}], "-", 
+                    RowBox[{"144", " ", 
+                    SuperscriptBox["MT", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "-", 
+                    RowBox[{"40", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "3"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "3"]}], ")"}], "/", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "3"]}], "+", 
+                    InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                    
+                    SeriesData[$CellContext`\[Beta], 0, {
+                    Rational[-1, 
+                    2] ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) ((
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + $CellContext`MH^2 (
+                    32 $CellContext`MH^2 $CellContext`MT^2 - 
+                    80 $CellContext`MT^4 - 
+                    16 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - (32 $CellContext`MH^4 $CellContext`MT^2 + 
+                    4 $CellContext`MT^2 (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MH^2 ((-48) $CellContext`MT^4 - 
+                    40 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                    Complex[0, -2] $CellContext`MT^2 
+                    Pi ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) ((
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + $CellContext`MH^2 (8 $CellContext`MT^2 - 
+                    
+                    6 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))), 2 $CellContext`MT^2 (
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) ((
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) (
+                    16 $CellContext`MH^2 ($CellContext`MT^2 - \
+$CellContext`S34 - $CellContext`T14 - $CellContext`T24) + 
+                    3 (4 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24)^2) + 
+                    8 $CellContext`MH^2 (
+                    16 $CellContext`MH^4 $CellContext`MT^2 + (
+                    5 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + 2 $CellContext`MH^2 ((-24) $CellContext`MT^4 - 
+                    8 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - (128 $CellContext`MH^6 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 - 16 $CellContext`MH^4 (24 $CellContext`MT^4 + 
+                    14 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) - ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + 2 $CellContext`MH^2 (64 $CellContext`MT^6 + 
+                    240 $CellContext`MT^4 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) + 
+                    28 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 - 
+                    7 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3)) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                    Complex[0, -2] $CellContext`MT^2 
+                    Pi (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-3) (
+                    96 $CellContext`MH^4 $CellContext`MT^2 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) + (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3 + 2 $CellContext`MH^2 (256 $CellContext`MT^6 - 
+                    144 $CellContext`MT^4 ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) - 
+                    40 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + 
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^3))}, 0, 4, 1],
+                    Editable->False], ")"}]}], ")"}]}]}], ")"}]}], "-", 
+            RowBox[{"8", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                  RowBox[{
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+               RowBox[{"8", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+               RowBox[{"8", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "4", "]"}], ",", 
+                  RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+               RowBox[{"8", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "5", "]"}], ",", 
+                  RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+               RowBox[{"8", " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "2", "]"}], ",", 
+                  RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"ec", "[", "5", "]"}], ",", 
+                  RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+               RowBox[{
+                RowBox[{"Pair", "[", 
+                 RowBox[{
+                  RowBox[{"e", "[", "1", "]"}], ",", 
+                  RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                   RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                  RowBox[{"4", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                 ")"}]}]}], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"ScalarC0", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                   "T24"}], ",", 
+                  RowBox[{"-", 
+                   FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                   ",", "MT"}], "]"}], " ", 
+                RowBox[{"(", 
+                 InterpretationBox[
+                  RowBox[{
+                   RowBox[{"-", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}]]}], "-", 
+                   FractionBox[
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "+", 
+                   InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                    Editable->False]}],
+                  
+                  SeriesData[$CellContext`\[Beta], 0, {
+                   Rational[-1, 2] $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2/(
+                    16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2), 
+                    0, (-2) $CellContext`MH^2 $CellContext`MT^2 \
+($CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - $CellContext`T24) (
+                    16 $CellContext`MT^4 - ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24)^2) ((-16) $CellContext`MH^2 \
+$CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2)}, 0, 4, 1],
+                  Editable->False], ")"}]}], "+", 
+               RowBox[{"(", 
+                InterpretationBox[
+                 RowBox[{
+                  RowBox[{
+                   FractionBox["1", "4"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{"3", "+", 
+                    FractionBox["1", "\[Epsilon]"], "+", 
+                    FractionBox[
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]], "+", 
+                    FractionBox[
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}], 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]], "+", 
+                    RowBox[{"Log", "[", 
+                    FractionBox[
+                    SuperscriptBox["\[Micro]", "2"], 
+                    SuperscriptBox["MT", "2"]], "]"}]}], ")"}]}], "+", 
+                  FractionBox[
+                   RowBox[{"\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", "\[Beta]"}], 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}]], "+", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "-", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "+", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "-", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "4"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], "+", 
+                    RowBox[{"5", " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], "-", 
+                  FractionBox[
+                   RowBox[{"\[ImaginaryI]", " ", 
+                    SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}]}], " ", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "4"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"S34", "+", "T14", "+", "T24"}], ")"}], "2"]}], 
+                    ")"}]}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "3"]}], 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]], "+", 
+                  InterpretationBox[
+                   SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "4"],
+                   SeriesData[$CellContext`\[Beta], 0, {}, 0, 4, 1],
+                   Editable->False]}],
+                 
+                 SeriesData[$CellContext`\[Beta], 0, {
+                  Rational[1, 4] (3 + 
+                    X`Eps^(-1) + $CellContext`MH^2 (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-1) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + ($CellContext`MH^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-1) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT] + 
+                    Log[$CellContext`MT^(-2) X`Mu^2]), 
+                   Complex[0, 1] $CellContext`MT^2 
+                   Pi ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)/((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2), $CellContext`MT^2 ((-16) $CellContext`MH^2 \
+$CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) ((-2) (2 $CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) (16 $CellContext`MH^2 $CellContext`MT^2 - (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2) + $CellContext`MH^2 (16 $CellContext`MT^4 - 
+                    8 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + $CellContext`T24) (
+                    4 $CellContext`MH^2 - 
+                    
+                    3 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24))) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] - (
+                    4 $CellContext`MH^4 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + ($CellContext`S34 + $CellContext`T14 + $CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 - $CellContext`MH^2 (16 $CellContext`MT^4 + 
+                    8 $CellContext`MT^2 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) + 
+                    5 ($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                   Complex[0, -1] $CellContext`MT^2 
+                   Pi ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) (-($CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2 + 
+                    2 $CellContext`MH^2 (
+                    16 $CellContext`MT^4 + ($CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24)^2))}, 0, 4, 1],
+                 Editable->False], ")"}]}], ")"}]}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              InterpretationBox[
+               RowBox[{
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"4", " ", "S", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], ")"}], "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], "-", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"32", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "-", 
+                    RowBox[{"2", " ", "T14"}], "+", 
+                    RowBox[{"2", " ", "T24"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}]}], ")"}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                 SuperscriptBox[
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], "+", 
+                InterpretationBox[
+                 SuperscriptBox[
+                  RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+                 SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+                 Editable->False]}],
+               
+               SeriesData[$CellContext`\[Beta], 0, {
+                4 $CellContext`S ((-16) $CellContext`MH^2 $CellContext`MT^2 + \
+(4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-1) (4 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]])) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] ((-$CellContext`T - 2 $CellContext`T14 + 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] (-$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))), 
+                 0, (-32) $CellContext`MT^2 $CellContext`S ((-2) \
+$CellContext`MH^2 + 
+                  4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) (4 (-$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - 2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] ($CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]])) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 8 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[
+                    2]] ((-$CellContext`T - 2 $CellContext`T14 + 
+                    2 $CellContext`T24 + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 4 ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] (-$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) + ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])))}, 0, 3, 1],
+               Editable->False], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"ScalarC0", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                   "T24"}], ",", 
+                  RowBox[{"-", 
+                   FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                   ",", "MT"}], "]"}], " ", 
+                RowBox[{"(", 
+                 InterpretationBox[
+                  RowBox[{
+                   RowBox[{
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}]}], "+", 
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], "+", 
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    SuperscriptBox["\[Beta]", "4"]}], "+", 
+                   InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "5"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 5, 1],
+                    Editable->False]}],
+                  
+                  SeriesData[$CellContext`\[Beta], 
+                   0, {$CellContext`MH^2 (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24), 0, 4 $CellContext`MH^2 $CellContext`MT^2, 0, 
+                    4 $CellContext`MH^2 $CellContext`MT^2}, 0, 5, 1],
+                  Editable->False], ")"}]}], "+", 
+               RowBox[{"(", 
+                InterpretationBox[
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"]}], "-", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], "+", 
+                  RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", "\[Beta]"}], "-", 
+                  RowBox[{"2", " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24", "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "2"]}], "+", 
+                  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+                   SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                   SuperscriptBox["\[Beta]", "3"]}], "-", 
+                  RowBox[{
+                   FractionBox["2", "3"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"16", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24", "+", 
+                    RowBox[{"6", " ", 
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "4"]}], "+", 
+                  InterpretationBox[
+                   SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "5"],
+                   SeriesData[$CellContext`\[Beta], 0, {}, 0, 5, 1],
+                   Editable->False]}],
+                 
+                 SeriesData[$CellContext`\[Beta], 
+                  0, {(-2) $CellContext`MH^2 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (2 $CellContext`MH^2 - 
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT], 
+                   Complex[0, 1] 
+                   Pi (4 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24), (-2) (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24 + 2 $CellContext`MT^2 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                   Complex[0, 4] $CellContext`MT^2 Pi, 
+                   Rational[-2, 3] (
+                    16 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24 + 
+                    6 $CellContext`MT^2 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT])}, 0, 
+                  5, 1],
+                 Editable->False], ")"}]}], ")"}]}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              InterpretationBox[
+               RowBox[{
+                RowBox[{"-", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "S34", " ", "T"}], "-", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "S34", " ", "U"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T14", "+", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}]}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}]}], ")"}]}], "+", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"16", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", "S34", " ", "T"}], "-", 
+                    SuperscriptBox["T", "2"], "+", 
+                    RowBox[{"4", " ", "T", " ", "T24"}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"T", "+", 
+                    RowBox[{"2", " ", "T14"}], "-", 
+                    RowBox[{"2", " ", "T24"}], "-", "U"}], ")"}]}], "+", 
+                    RowBox[{"2", " ", "S34", " ", "U"}], "-", 
+                    RowBox[{"4", " ", "T14", " ", "U"}], "+", 
+                    SuperscriptBox["U", "2"]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"S", "-", "S34", "+", "T14", "+", "T24"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "S", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", "S34", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T14", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", "T24", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"T", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"U", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"32", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "-", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "-", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"8", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", "T", "+", "U"}], ")"}], 
+                    " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"ec", "[", "4", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "2", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"e", "[", "1", "]"}], ",", 
+                    RowBox[{"e", "[", "2", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "5", "]"}]}], "]"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"T", "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", 
+                    RowBox[{"2", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "T"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", "T"}], "+", "U"}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "4", "]"}], ",", 
+                    RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", 
+                    RowBox[{"Pair", "[", 
+                    RowBox[{
+                    RowBox[{"ec", "[", "5", "]"}], ",", 
+                    RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], 
+                    ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "2"]}], ")"}], "/", 
+                 SuperscriptBox[
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "16"}], " ", 
+                    SuperscriptBox["MH", "2"], " ", 
+                    SuperscriptBox["MT", "2"]}], "+", 
+                    SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], "2"]}], ")"}], "2"]}], "+", 
+                InterpretationBox[
+                 SuperscriptBox[
+                  RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+                 SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+                 Editable->False]}],
+               
+               SeriesData[$CellContext`\[Beta], 
+                0, {(-2) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-1) (((-2) $CellContext`S34 $CellContext`T - \
+$CellContext`T^2 + 4 $CellContext`T $CellContext`T24 + 
+                    2 $CellContext`S ($CellContext`T - $CellContext`U) + 
+                    2 $CellContext`MH^2 ($CellContext`T + 2 $CellContext`T14 - 
+                    2 $CellContext`T24 - $CellContext`U) + 
+                    2 $CellContext`S34 $CellContext`U - 
+                    4 $CellContext`T14 $CellContext`U + $CellContext`U^2) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                  4 ((-2) ($CellContext`S - $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] - 
+                   2 $CellContext`S34 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 $CellContext`T14 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 $CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + 32 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) - 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] - 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] (
+                    2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                    2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + ($CellContext`T - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]]) + ((-2) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 
+                    2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]])), 0, 
+                 16 $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                  4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24) ((-16) $CellContext`MH^2 $CellContext`MT^2 + (
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24)^2)^(-2) (((-2) $CellContext`S34 $CellContext`T - \
+$CellContext`T^2 + 4 $CellContext`T $CellContext`T24 + 
+                    2 $CellContext`S ($CellContext`T - $CellContext`U) + 
+                    2 $CellContext`MH^2 ($CellContext`T + 2 $CellContext`T14 - 
+                    2 $CellContext`T24 - $CellContext`U) + 
+                    2 $CellContext`S34 $CellContext`U - 
+                    4 $CellContext`T14 $CellContext`U + $CellContext`U^2) \
+$CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] - 
+                  4 ((-2) ($CellContext`S - $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[
+                    1]] + ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] + 2 $CellContext`S $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] - 
+                   2 $CellContext`S34 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 $CellContext`T14 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 
+                   2 $CellContext`T24 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]] + 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[4]] - 2 $CellContext`MH^2 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`T $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]] + $CellContext`U $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[5]]) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`ec[5]] + 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] - 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[5]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] + 32 ($CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[3]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] - $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[3]]) ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]] ($CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[2]]) - ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[2]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[3]]) - 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`k[2]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] + 
+                  8 ((-2) $CellContext`MH^2 + $CellContext`T + \
+$CellContext`U) $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`ec[4]] $CellContext`Pair[
+                    $CellContext`e[2], 
+                    $CellContext`k[1]] $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]] - 4 $CellContext`Pair[
+                    $CellContext`e[1], 
+                    $CellContext`e[2]] ($CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[5]] (
+                    2 ($CellContext`MH^2 - $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[1]] - 
+                    2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    2]] + ($CellContext`T - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[
+                    3]]) + ((-2) ($CellContext`MH^2 - $CellContext`U) \
+$CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[1]] + 
+                    2 ($CellContext`MH^2 - $CellContext`T) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[
+                    2]] + (-$CellContext`T + $CellContext`U) $CellContext`Pair[
+                    $CellContext`ec[4], 
+                    $CellContext`k[3]]) $CellContext`Pair[
+                    $CellContext`ec[5], 
+                    $CellContext`k[4]]))}, 0, 3, 1],
+               Editable->False], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"ScalarC0", "[", 
+                 RowBox[{
+                  SuperscriptBox["MH", "2"], ",", 
+                  RowBox[{
+                   SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                   "T24"}], ",", 
+                  RowBox[{"-", 
+                   FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], 
+                    RowBox[{
+                    RowBox[{"-", "1"}], "+", 
+                    SuperscriptBox["\[Beta]", "2"]}]]}], ",", "MT", ",", "MT",
+                   ",", "MT"}], "]"}], " ", 
+                RowBox[{"(", 
+                 InterpretationBox[
+                  RowBox[{
+                   RowBox[{"-", 
+                    RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], ")"}]}]}], "-", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"8", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "2"]}], "-", 
+                   RowBox[{"4", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["MT", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["MH", "2"]}], "+", 
+                    RowBox[{"12", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}]}], ")"}], " ", 
+                    SuperscriptBox["\[Beta]", "4"]}], "+", 
+                   InterpretationBox[
+                    SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "5"],
+                    SeriesData[$CellContext`\[Beta], 0, {}, 0, 5, 1],
+                    Editable->False]}],
+                  
+                  SeriesData[$CellContext`\[Beta], 
+                   0, {(-4) $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                    4 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24), 0, (-4) $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                    
+                    8 $CellContext`MT^2 + $CellContext`S34 + $CellContext`T14 + \
+$CellContext`T24), 0, (-4) $CellContext`MT^2 ((-2) $CellContext`MH^2 + 
+                    12 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24)}, 0, 5, 1],
+                  Editable->False], ")"}]}], "+", 
+               RowBox[{"(", 
+                InterpretationBox[
+                 RowBox[{
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "+", "S34", "+", "T14", "+", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["MT", "2"]}], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ")"}], " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], "-", 
+                  RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+                   SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", "\[Beta]"}], 
+                  "+", 
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{"4", "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], "]"}], 
+                    "+", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "2"]}], "-", 
+                  RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+                   SuperscriptBox["MT", "2"], " ", "\[Pi]", " ", 
+                   SuperscriptBox["\[Beta]", "3"]}], "+", 
+                  RowBox[{
+                   FractionBox["4", "3"], " ", 
+                   SuperscriptBox["MT", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{"16", "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], ",", "MT", ",", "MT"}], 
+                    "]"}]}], "+", 
+                    RowBox[{"3", " ", 
+                    RowBox[{"DiscB", "[", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["MH", "2"], "-", "S34", "-", "T14", "-", 
+                    "T24"}], ",", "MT", ",", "MT"}], "]"}]}]}], ")"}], " ", 
+                   SuperscriptBox["\[Beta]", "4"]}], "+", 
+                  InterpretationBox[
+                   SuperscriptBox[
+                    RowBox[{"O", "[", "\[Beta]", "]"}], "5"],
+                   SeriesData[$CellContext`\[Beta], 0, {}, 0, 5, 1],
+                   Editable->False]}],
+                 
+                 SeriesData[$CellContext`\[Beta], 
+                  0, {(4 $CellContext`MT^2 + $CellContext`S34 + \
+$CellContext`T14 + $CellContext`T24) 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + (
+                    4 $CellContext`MT^2 - $CellContext`S34 - $CellContext`T14 - \
+$CellContext`T24) 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT], 
+                   Complex[0, -8] $CellContext`MT^2 Pi, 
+                   4 $CellContext`MT^2 (4 + 
+                    X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT]), 
+                   Complex[0, -8] $CellContext`MT^2 Pi, 
+                   Rational[4, 3] $CellContext`MT^2 (16 + 
+                    3 X`DiscB[$CellContext`MH^2, $CellContext`MT, \
+$CellContext`MT] + 3 
+                    X`DiscB[$CellContext`MH^2 - $CellContext`S34 - \
+$CellContext`T14 - $CellContext`T24, $CellContext`MT, $CellContext`MT])}, 0, 
+                  5, 1],
+                 Editable->False], ")"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
+     ")"}]}]}]}]], "Output",
+ CellChangeTimes->{3.778513163539002*^9},
+ CellLabel->
+  "Out[100]=",ExpressionUUID->"6849d88e-ad0f-49c4-99da-875ddf3df840"]
+}, Closed]],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.778511510005802*^9, 
+  3.778511515077896*^9}},ExpressionUUID->"3bccd808-2d0d-4aed-ad5c-\
+f98dce1bb2fa"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.77851141463636*^9, 
+  3.778511424867489*^9}},ExpressionUUID->"9214d531-c1c4-4f0b-8067-\
+62d509d3780e"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.778511201027299*^9, 
+  3.778511260406787*^9}},ExpressionUUID->"5d134bbf-d270-4d46-9aad-\
+c35a20b3af10"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"listPV", "=", 
+   RowBox[{"ToExpression", "[", 
+    RowBox[{"Import", "[", 
+     RowBox[{"\"\<allPVs.m\>\"", ",", "\"\<Lines\>\""}], "]"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"LRlist", "=", 
+   RowBox[{"Import", "[", "\"\<analyticPV.m\>\"", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"LRlistVelSub", "=", 
+    RowBox[{"LRlist", "//.", "VelSub"}]}], ";"}], "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{
+    "Take", " ", "analytic", " ", "expansions", " ", "of", " ", "PV", " ", 
+     "coefficients", " ", "and", " ", "sub", " ", "S"}], "\[Rule]", 
+    RowBox[{"4", "*", 
+     RowBox[{
+      RowBox[{"MT", "^", "2"}], "/", 
+      RowBox[{"(", 
+       RowBox[{"1", "-", 
+        RowBox[{"\[Beta]", "^", "2"}]}], ")"}]}]}]}], 
+   "*)"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<analyticPVwVel.m\>\"", ",", "LRlistVelSub"}], "]"}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.776094397166354*^9, 3.776094421774979*^9}, {
+  3.776094465962419*^9, 3.77609447206217*^9}, {3.776097668612061*^9, 
+  3.776097774958314*^9}},
+ CellLabel->"In[23]:=",ExpressionUUID->"c9706e32-aa64-4bea-be5e-fca139f74b78"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "Copy", " ", "the", " ", "analytical", " ", "list", " ", "in", " ", 
+    "terms", " ", "of", " ", "\[Beta]", " ", "into", " ", "a", " ", "new", 
+    " ", "list", " ", "where", " ", "all", " ", "the", " ", "series", " ", 
+    "will", " ", 
+    RowBox[{"be", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"LRlistVelSub", "=", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"Import", "[", "\"\<analyticPVwVel.m\>\"", "]"}], 
+       "\[IndentingNewLine]", "Serieslist"}], "=", "LRlistVelSub"}]}], ";", 
+    "\[IndentingNewLine]", 
+    RowBox[{"Export", "[", 
+     RowBox[{"\"\<SeriesPV.m\>\"", ",", "Serieslist"}], "]"}], ";"}], 
+   "*)"}]}]], "Input",
+ CellChangeTimes->{{3.7760979510647297`*^9, 3.776098054974638*^9}, {
+   3.776098200620619*^9, 3.776098218898759*^9}, {3.776441930928959*^9, 
+   3.7764419581321993`*^9}, {3.776784952061544*^9, 3.776785007236261*^9}, 
+   3.776785058756402*^9},ExpressionUUID->"2098a55c-4e04-413e-b48c-\
+2e3e1420aeba"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"listPV", "=", 
+   RowBox[{"ToExpression", "[", 
+    RowBox[{"Import", "[", 
+     RowBox[{"\"\<allPVs.m\>\"", ",", "\"\<Lines\>\""}], "]"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"LRlistVelSub", "=", 
+   RowBox[{"Import", "[", "\"\<analyticPVwVel.m\>\"", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Serieslist", "=", 
+   RowBox[{"Import", "[", "\"\<SeriesPV.m\>\"", "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.776098079828*^9, 3.776098100180982*^9}, {
+  3.776785024592134*^9, 3.7767850503846416`*^9}, {3.7770393437154408`*^9, 
+  3.777039344707755*^9}},
+ CellLabel->"In[50]:=",ExpressionUUID->"f11165e8-30f4-4621-91cb-e78cc1116c62"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.7764430997613564`*^9, 3.776443193530168*^9}, {
+  3.776785094676215*^9, 3.7767850983052683`*^9}, {3.7785115369627542`*^9, 
+  3.778511543496728*^9}, {3.778511607544853*^9, 
+  3.778511621841559*^9}},ExpressionUUID->"881beb7c-e557-4703-a5ed-\
+8b7345c6403b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"1", ",", "10"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776443243134263*^9, 3.776443254122056*^9}},
+ CellLabel->"In[34]:=",ExpressionUUID->"86953094-992b-4ece-81d3-0f54f8c99910"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["1"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.77678515057268*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"8b88be0a-a13e-4a7b-8295-c1008ad658d6"],
+
+Cell[BoxData["2"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.776785163091247*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"f854acc1-f24a-43ce-9107-892da3741105"],
+
+Cell[BoxData["3"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.776785174993379*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"0ebf2041-29ad-490d-ae2c-fb00ea60e896"],
+
+Cell[BoxData["4"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.776785186604517*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"ce7c7420-29bb-4bc7-9fe1-c52d92b3c17c"],
+
+Cell[BoxData["5"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.776785198456546*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"bdb7f0f5-ae0e-47e3-bde4-add2b2e9172d"],
+
+Cell[BoxData["6"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.776785210430993*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"6ccc5234-8d31-4f80-b860-fb9bc1ead01e"],
+
+Cell[BoxData["7"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.776785222781147*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"9f6f5a15-4625-4559-aeb6-4e62d60ea660"],
+
+Cell[BoxData["8"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.7767852353323383`*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"cc753901-6a7d-4228-ac53-35d451b86d77"],
+
+Cell[BoxData["9"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.776785249113072*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"8fe1d30b-85ec-47bd-8e46-174bcc6be6cf"],
+
+Cell[BoxData["10"], "Print",
+ CellChangeTimes->{3.7764432560233297`*^9, 3.776785262024439*^9},
+ CellLabel->
+  "During evaluation of \
+In[34]:=",ExpressionUUID->"cd6b11e5-086b-4a28-ba23-c88ce09cbddb"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.776443394718553*^9, 3.776785274825478*^9},
+ CellLabel->"Out[34]=",ExpressionUUID->"f9eb79c9-79ab-4972-ac5d-9bf4d7c5706c"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"11", ",", "20"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776443269263505*^9, 3.776443297130433*^9}},
+ CellLabel->"In[35]:=",ExpressionUUID->"f96bfd50-3c93-487b-b72c-0efa966db052"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["11"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.776785275132083*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"0df55f20-b51c-4417-8687-560b75680ad9"],
+
+Cell[BoxData["12"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.7767852879137363`*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"65afac5f-ac1b-405d-95ca-d88dcc034907"],
+
+Cell[BoxData["13"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.7767853015886583`*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"155d77b5-d5ca-47b5-bba8-036aff1d2443"],
+
+Cell[BoxData["14"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.7767853138957233`*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"6402840f-e54b-49d2-8ce8-0175340b2083"],
+
+Cell[BoxData["15"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.7767853287329063`*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"736736de-4f33-4375-9ad5-d9f98f5dba87"],
+
+Cell[BoxData["16"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.776785343544771*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"5d2d9825-5632-4457-8211-7dd6cee750a8"],
+
+Cell[BoxData["17"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.776785355100485*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"23906453-43f1-4403-92b6-e9fb94c0ae50"],
+
+Cell[BoxData["18"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.776785367047596*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"2ba2eb99-fc54-459f-85c0-ed99d7ad07c9"],
+
+Cell[BoxData["19"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.776785378980294*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"94070629-691b-4d0a-9eb7-69b91078a11e"],
+
+Cell[BoxData["20"], "Print",
+ CellChangeTimes->{3.776443394822617*^9, 3.776785394147324*^9},
+ CellLabel->
+  "During evaluation of \
+In[35]:=",ExpressionUUID->"3812bf93-11c7-45dc-bd0e-7ed9238191ce"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.776443542586445*^9, 3.776785425375132*^9},
+ CellLabel->"Out[35]=",ExpressionUUID->"3f41a929-7beb-4259-8ecb-4fc1d8a69374"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"21", ",", "30"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7764432864380407`*^9, 3.776443300191421*^9}},
+ CellLabel->"In[36]:=",ExpressionUUID->"fe1a97a8-532e-4e7a-8a88-f565caae5f97"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["21"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.7767854255703907`*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"203826e8-d100-4a48-aa61-b8cae880ddf2"],
+
+Cell[BoxData["22"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.776785442882122*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"9a8a2d64-a921-4ebe-b6c4-e90419eee1c2"],
+
+Cell[BoxData["23"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.776785459608718*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"ceff1cb8-2c39-4c0f-a43a-efcbdbef0fe2"],
+
+Cell[BoxData["24"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.7767854716911592`*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"89a661a3-5c0c-4326-a393-6e4972db4a6b"],
+
+Cell[BoxData["25"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.7767854851652393`*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"6aa6f90c-6c91-4f86-8968-1103cba7975b"],
+
+Cell[BoxData["26"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.776785499030817*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"0dcb36c1-0668-4b8a-bc01-4945a598c78a"],
+
+Cell[BoxData["27"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.776785515033786*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"0fcfcd70-8d7b-435d-a163-acb028e6e16e"],
+
+Cell[BoxData["28"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.776785529395587*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"3b7724cb-54a4-4dde-8ea0-50e5610b792e"],
+
+Cell[BoxData["29"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.776785544335827*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"b613c9c7-96f4-4a6c-8f08-8e6df52762df"],
+
+Cell[BoxData["30"], "Print",
+ CellChangeTimes->{3.7764435427174063`*^9, 3.776785557473522*^9},
+ CellLabel->
+  "During evaluation of \
+In[36]:=",ExpressionUUID->"a6fd0189-8e91-469a-9897-389a4893d7b0"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.776443670712986*^9, 3.776785570034812*^9},
+ CellLabel->"Out[36]=",ExpressionUUID->"4a8fef41-31e5-42c1-8bdc-68e9f7afbd6a"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"31", ",", "40"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7764435657641363`*^9, 3.77644357390454*^9}},
+ CellLabel->"In[37]:=",ExpressionUUID->"2aecbe65-4b44-4dfa-93ef-65fd39540c9b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["31"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785570242344*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"2fca990b-8284-4e3f-8a3b-7f56db89acc5"],
+
+Cell[BoxData["32"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785587092491*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"3177b850-296d-49fe-8867-d3473a1b0c35"],
+
+Cell[BoxData["33"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785603039337*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"c0b4e928-89e9-4d85-8e51-5cbdf9ce41aa"],
+
+Cell[BoxData["34"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785615262904*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"a373700f-9836-44d5-8a5f-930119678171"],
+
+Cell[BoxData["35"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785628518416*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"ca822f7e-70c9-46a4-a25f-582acb77abcb"],
+
+Cell[BoxData["36"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785640345977*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"96e22b30-8c73-4518-8d23-873121d8fc48"],
+
+Cell[BoxData["37"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785654876864*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"83708b79-d67b-4c05-93e9-38073aa7fe05"],
+
+Cell[BoxData["38"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785669062007*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"78e88359-b700-4328-bea6-a2b0d14a7cac"],
+
+Cell[BoxData["39"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785684171424*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"704157f3-bfb2-4f43-b5f0-c5bfbc560aab"],
+
+Cell[BoxData["40"], "Print",
+ CellChangeTimes->{3.776443670904154*^9, 3.776785699617958*^9},
+ CellLabel->
+  "During evaluation of \
+In[37]:=",ExpressionUUID->"7565254f-9a77-48dc-9444-33b886723862"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.7764437965534983`*^9, 3.7767857127548532`*^9},
+ CellLabel->"Out[37]=",ExpressionUUID->"2e1c38af-7450-4ecc-a05c-257dcdba5451"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"41", ",", "50"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776443577378374*^9, 3.776443584277933*^9}},
+ CellLabel->"In[38]:=",ExpressionUUID->"8ee863b5-d147-4e8a-bd18-9c421dd23787"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["41"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.776785714716011*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"2009a193-ceea-46ef-bd80-037d926017cf"],
+
+Cell[BoxData["42"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.7767857269185553`*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"0a74d1db-0a55-41c7-a355-eca543eb70e7"],
+
+Cell[BoxData["43"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.776785741022086*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"e55077bb-d892-44dc-b006-f69eb07618f5"],
+
+Cell[BoxData["44"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.776785753210094*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"55c1e9be-56a5-4944-b983-985ca4b80876"],
+
+Cell[BoxData["45"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.776785766312956*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"17abba4e-1848-488c-bde6-35cdf05998d4"],
+
+Cell[BoxData["46"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.7767857790050087`*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"8842af6b-8a1e-48e1-98ef-18ca8f39a91d"],
+
+Cell[BoxData["47"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.776785791100809*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"c65f5711-d87e-4702-85dc-948bb2237f08"],
+
+Cell[BoxData["48"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.776785802631966*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"c6fbe64a-ceca-439e-8b29-9c26adf965ef"],
+
+Cell[BoxData["49"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.7767858142527943`*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"9fcc8d20-19ef-45d4-bc4b-aefbb0a6e431"],
+
+Cell[BoxData["50"], "Print",
+ CellChangeTimes->{3.776443982326789*^9, 3.776785826998526*^9},
+ CellLabel->
+  "During evaluation of \
+In[38]:=",ExpressionUUID->"3f30f015-4bfc-47f5-99d8-e3f68011c8c2"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.776444120895063*^9, 3.776785840151104*^9},
+ CellLabel->"Out[38]=",ExpressionUUID->"6069c659-d902-4918-a553-fc39b0ec194b"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"51", ",", "60"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776443586530539*^9, 3.776443592423757*^9}},
+ CellLabel->"In[39]:=",ExpressionUUID->"71acea69-b2b3-491d-ae15-f4df099b9b39"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["51"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.7767858419914427`*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"4145e9a2-b86f-444d-9e6f-514e102a7a17"],
+
+Cell[BoxData["52"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.776785854642742*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"0f110600-9945-4ce8-ada0-239cd91d8e03"],
+
+Cell[BoxData["53"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.7767858670519247`*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"f8453fc4-a721-4441-9016-2af31abf7022"],
+
+Cell[BoxData["54"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.77678587860671*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"e7b4daf0-0724-4551-8ded-34ecced4ec32"],
+
+Cell[BoxData["55"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.776785899077808*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"654cff30-d67b-463f-9d66-f38a5cbd6e2c"],
+
+Cell[BoxData["56"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.776785911675519*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"0398c397-cea0-48c6-adee-2da2335e66cb"],
+
+Cell[BoxData["57"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.776785970139532*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"0f95316d-23be-46b1-8fb4-6dfdb7e99fe2"],
+
+Cell[BoxData["58"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.7767860221105433`*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"0996f87d-8f52-4872-8581-efb748040ff9"],
+
+Cell[BoxData["59"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.776786035628929*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"6098c8b1-ad3d-4b8a-850a-4b9fb5e363cf"],
+
+Cell[BoxData["60"], "Print",
+ CellChangeTimes->{3.776443800474946*^9, 3.776786056778813*^9},
+ CellLabel->
+  "During evaluation of \
+In[39]:=",ExpressionUUID->"57383c2a-c8e3-461c-bd50-359a76498569"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.776443976586389*^9, 3.776786068478281*^9},
+ CellLabel->"Out[39]=",ExpressionUUID->"abee5d57-ae1c-4b68-8896-520cd5335c43"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"61", ",", "70"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776443895676042*^9, 3.7764439025510397`*^9}},
+ CellLabel->"In[40]:=",ExpressionUUID->"75b90654-1ac3-4894-8e5d-81d701b5e39a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["61"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.776786068647437*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"eea3546e-d9ee-471e-845d-31f4851702d4"],
+
+Cell[BoxData["62"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.77678608583508*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"aedb175e-f30c-4a30-9760-18498d2f5ebb"],
+
+Cell[BoxData["63"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.776786106159192*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"9ef01fde-35d5-4cdb-8e20-06150be4917d"],
+
+Cell[BoxData["64"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.77678612326231*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"801f39b3-2897-4def-aace-35be798602f1"],
+
+Cell[BoxData["65"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.7767862008943367`*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"4524b0a4-c3cf-4eee-9bae-4a4411158765"],
+
+Cell[BoxData["66"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.7767862141571617`*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"9ad23010-af47-4eb5-80b1-72cc7a2f8eb2"],
+
+Cell[BoxData["67"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.77678622905718*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"9a39c0cc-b71d-4bfb-b47a-e3532770aa9b"],
+
+Cell[BoxData["68"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.7767862419295692`*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"e9a4811a-4dfc-4847-9ed8-9f5e7fb0a1bd"],
+
+Cell[BoxData["69"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.776786261757922*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"4a551457-b8aa-425f-b484-9ebe7095e485"],
+
+Cell[BoxData["70"], "Print",
+ CellChangeTimes->{3.776444121014134*^9, 3.77678627337957*^9},
+ CellLabel->
+  "During evaluation of \
+In[40]:=",ExpressionUUID->"ed43c117-5a2c-4198-9efb-7da7dd4d4034"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.776444349736045*^9, 3.776786285140325*^9},
+ CellLabel->"Out[40]=",ExpressionUUID->"1a9dd832-cded-404a-9e8e-55603b4d7433"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"71", ",", "74"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776443911251691*^9, 3.776443916249816*^9}, {
+  3.776689273159155*^9, 3.7766892742943563`*^9}},
+ CellLabel->"In[41]:=",ExpressionUUID->"f824d033-691a-4d1f-92f5-4ab01423a5ad"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["71"], "Print",
+ CellChangeTimes->{3.7767867569465714`*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"92d7c1bd-c362-4205-9f66-6a01b447a4eb"],
+
+Cell[BoxData["72"], "Print",
+ CellChangeTimes->{3.776786775814592*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"54df0102-003b-4884-bb53-111b767a4c0f"],
+
+Cell[BoxData["73"], "Print",
+ CellChangeTimes->{3.77678681709319*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"42fe5d37-9e86-4d1b-b9a2-35370152be1a"],
+
+Cell[BoxData["74"], "Print",
+ CellChangeTimes->{3.7767868301606617`*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"e05f68ba-59c9-4014-82ba-94955347b056"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.776786842276802*^9},
+ CellLabel->"Out[41]=",ExpressionUUID->"52db8c9f-9b99-4b63-bfd9-226b29998173"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"listPV", "[", 
+  RowBox[{"[", "75", "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776787459822847*^9, 3.776787465570936*^9}},
+ CellLabel->"In[19]:=",ExpressionUUID->"e1619147-dbd8-4b95-92c0-a0a9e3d6e05f"],
+
+Cell[BoxData[
+ RowBox[{"PVD", "[", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
+   SuperscriptBox["MH", "2"], ",", "T24", ",", "0", ",", 
+   RowBox[{
+    RowBox[{"2", " ", 
+     SuperscriptBox["MH", "2"]}], "-", "S34", "-", "T", "-", "U"}], ",", 
+   RowBox[{
+    SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T14"}], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]]}], "]"}]], "Output",
+ CellChangeTimes->{3.7767874660047407`*^9, 3.777039323951621*^9, 
+  3.77703936276413*^9},
+ CellLabel->"Out[19]=",ExpressionUUID->"6b31f62a-bb61-4325-bbb2-0f8b38f9d9b0"]
+}, Open  ]],
+
+Cell["75!!!", "Item",
+ CellChangeTimes->{{3.7766892897103367`*^9, 3.776689292589683*^9}, {
+  3.776771111675651*^9, 
+  3.7767711116789007`*^9}},ExpressionUUID->"b8f7dd32-654c-4d69-a388-\
+00e73e20b2c5"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"Serieslist", "[", 
+     RowBox[{"[", "75", "]"}], "]"}], "=", 
+    RowBox[{"LoopRefineSeries", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"Serieslist", "[", 
+        RowBox[{"[", "75", "]"}], "]"}], "//", "C0Expand"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Beta]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.776771115782947*^9, 3.776771166696539*^9}, {
+   3.776774759564896*^9, 3.776774774035293*^9}, 3.777039366299951*^9},
+ CellLabel->"In[20]:=",ExpressionUUID->"6385e4e6-3aa6-4ca7-8de4-83d30633a5ae"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.7770488168803797`*^9},
+ CellLabel->"Out[20]=",ExpressionUUID->"20e798ff-b0ce-4e4d-8da1-a093ebf96720"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<SeriesPV.m\>\"", ",", "Serieslist"}], "]"}], ";"}]], "Input",E\
+xpressionUUID->"35538101-3df6-4320-82c6-fb90398dcf8b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"76", ",", "80"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776689276561438*^9, 3.776689284488558*^9}},
+ CellLabel->"In[45]:=",ExpressionUUID->"c6f1e48f-f2b3-4633-a270-2d837481a3a1"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "PowerMod","ninv",
+   "\"\\!\\(\\*RowBox[{\\\"0\\\"}]\\) is not invertible modulo \
+\\!\\(\\*RowBox[{\\\"12979\\\"}]\\).\"",2,45,18,17487480350447340170,
+   "Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.776792950030538*^9},
+ CellLabel->
+  "During evaluation of \
+In[45]:=",ExpressionUUID->"da0ce5b5-a752-4f0c-81a9-b9f06d7ab115"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "PowerMod","ninv",
+   "\"\\!\\(\\*RowBox[{\\\"0\\\"}]\\) is not invertible modulo \
+\\!\\(\\*RowBox[{\\\"12983\\\"}]\\).\"",2,45,19,17487480350447340170,
+   "Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.7767940973463*^9},
+ CellLabel->
+  "During evaluation of \
+In[45]:=",ExpressionUUID->"be0f414f-c102-4bf4-9e35-0d311e65c76f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["76"], "Print",
+ CellChangeTimes->{3.7768541523191643`*^9},
+ CellLabel->
+  "During evaluation of \
+In[45]:=",ExpressionUUID->"3bba7d8f-9b06-484f-b4d3-632f231afc37"],
+
+Cell[BoxData["77"], "Print",
+ CellChangeTimes->{3.7768541668859043`*^9},
+ CellLabel->
+  "During evaluation of \
+In[45]:=",ExpressionUUID->"f659f692-01ec-4858-acaa-d60f4b4998e6"],
+
+Cell[BoxData["78"], "Print",
+ CellChangeTimes->{3.776854212135365*^9},
+ CellLabel->
+  "During evaluation of \
+In[45]:=",ExpressionUUID->"e9e35560-6a98-4d85-ba46-29424be208af"],
+
+Cell[BoxData["79"], "Print",
+ CellChangeTimes->{3.7768542239248447`*^9},
+ CellLabel->
+  "During evaluation of \
+In[45]:=",ExpressionUUID->"5d1876d0-f98c-4bb2-9711-124711ea1dab"],
+
+Cell[BoxData["80"], "Print",
+ CellChangeTimes->{3.776854254612438*^9},
+ CellLabel->
+  "During evaluation of \
+In[45]:=",ExpressionUUID->"ae667c6d-6a3b-4b8a-9bf8-9c76aa4faf28"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.776689267763878*^9, 3.776699593931198*^9, 
+  3.7767874206690207`*^9, 3.7768542661889467`*^9},
+ CellLabel->"Out[45]=",ExpressionUUID->"88acd967-1c2c-4b4e-b73d-ecbd06540448"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"81", ",", "90"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776443917783449*^9, 3.776443919685523*^9}},
+ CellLabel->"In[46]:=",ExpressionUUID->"8d487f69-3cc5-4b15-a17c-36b0f0a098da"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["81"], "Print",
+ CellChangeTimes->{3.776700119904262*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"2846bb9c-a0e3-4cc6-9863-49dc879372fb"],
+
+Cell[BoxData["82"], "Print",
+ CellChangeTimes->{3.776700154471498*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"8e8e94ae-2685-46cf-824c-9dccd6aaa7c9"],
+
+Cell[BoxData["83"], "Print",
+ CellChangeTimes->{3.776700232105164*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"ea5a6e57-459b-44f3-af8d-e27fd9f73504"],
+
+Cell[BoxData["84"], "Print",
+ CellChangeTimes->{3.776700243872916*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"236d0628-1541-4ee1-8294-d993f0d4fc6b"],
+
+Cell[BoxData["85"], "Print",
+ CellChangeTimes->{3.776700255672224*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"41931755-f8dd-4016-8ec3-12f189f6c48b"],
+
+Cell[BoxData["86"], "Print",
+ CellChangeTimes->{3.7767002710240192`*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"87cc3efa-15c5-4aac-9f59-fc77c411956d"],
+
+Cell[BoxData["87"], "Print",
+ CellChangeTimes->{3.776700312653447*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"c28fc9bb-8175-41ae-b5b8-a2af110aa01e"],
+
+Cell[BoxData["88"], "Print",
+ CellChangeTimes->{3.776700325253311*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"c804e0fc-13b8-404c-be08-a7e750465f41"],
+
+Cell[BoxData["89"], "Print",
+ CellChangeTimes->{3.776700337712092*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"017215f5-e5a5-412a-95b0-02e856ef17cf"],
+
+Cell[BoxData["90"], "Print",
+ CellChangeTimes->{3.776700369863812*^9},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"27abe593-5557-4139-b432-a9d130c93652"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{3.776700381356884*^9},
+ CellLabel->"Out[41]=",ExpressionUUID->"27df6f47-5fa2-4e39-b7f2-afc3c720e098"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"91", "!!"}], "!"}]], "Input",
+ CellChangeTimes->{{3.776710137747867*^9, 
+  3.776710140512113*^9}},ExpressionUUID->"df98973f-1c7c-43bf-ada2-\
+bc8f065d9ee0"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"92", ",", "93"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776443921988063*^9, 3.776443924549123*^9}, {
+  3.776710129712762*^9, 3.776710129777527*^9}, {3.7767651224554663`*^9, 
+  3.776765122530267*^9}},ExpressionUUID->"2649d505-baee-414f-ba61-\
+a848c431375f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["92"], "Print",
+ CellChangeTimes->{3.7767105057578077`*^9},
+ CellLabel->
+  "During evaluation of \
+In[16]:=",ExpressionUUID->"d990281d-da4e-44ce-bba0-3be9e51984c8"],
+
+Cell[BoxData["93"], "Print",
+ CellChangeTimes->{3.776710524276116*^9},
+ CellLabel->
+  "During evaluation of \
+In[16]:=",ExpressionUUID->"8e564ec2-2ba2-4af6-8839-241a48c4b011"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"94", ",", "96"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776765131249621*^9, 3.77676513359492*^9}, {
+  3.776769027719905*^9, 
+  3.776769028143591*^9}},ExpressionUUID->"e440a8fa-6daf-4e52-952c-\
+f2a2da027d58"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["94"], "Print",
+ CellChangeTimes->{3.776765358159745*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"47e9eb29-eb3c-44eb-bde5-daa461e7965a"],
+
+Cell[BoxData["95"], "Print",
+ CellChangeTimes->{3.776766430832265*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"3c8d7c90-91f7-46fd-ac69-8701bacfe25a"],
+
+Cell[BoxData["96"], "Print",
+ CellChangeTimes->{3.776766650819006*^9},
+ CellLabel->
+  "During evaluation of \
+In[14]:=",ExpressionUUID->"44a1988b-44c7-4cc4-accc-daccc86bdfec"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"97", ",", "99"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7767690384336767`*^9, 3.776769041527905*^9}, {
+  3.776769652566134*^9, 
+  3.776769652707741*^9}},ExpressionUUID->"ccd5003b-7be8-4452-a781-\
+58d0de738e3e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["97"], "Print",
+ CellChangeTimes->{3.7767692848390903`*^9},
+ CellLabel->
+  "During evaluation of \
+In[20]:=",ExpressionUUID->"590c91e2-ef3c-4505-aa0b-95d55137b2bb"],
+
+Cell[BoxData["98"], "Print",
+ CellChangeTimes->{3.776769324118517*^9},
+ CellLabel->
+  "During evaluation of \
+In[20]:=",ExpressionUUID->"69d37e74-c56f-4a12-bc84-953b1ee45562"],
+
+Cell[BoxData["99"], "Print",
+ CellChangeTimes->{3.776769364155541*^9},
+ CellLabel->
+  "During evaluation of \
+In[20]:=",ExpressionUUID->"400a6676-c5b0-4df1-b6bb-83a59b331179"]
+}, Open  ]]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"100", "!!"}], "!"}]], "Input",
+ CellChangeTimes->{{3.77676980141416*^9, 
+  3.776769804422761*^9}},ExpressionUUID->"07237824-5e81-41b0-bd1d-\
+7d744858c3ed"],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"100", ",", "100"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7767696618153877`*^9, 3.776769664581789*^9}},
+ CellLabel->"In[14]:=",ExpressionUUID->"4d28e53c-4af5-40ba-890a-a6a9f9544d99"],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"101", ",", "110"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776444442314954*^9, 3.7764444486258802`*^9}},
+ CellLabel->"In[14]:=",ExpressionUUID->"712b80aa-b8c4-4294-a783-8d276a083f12"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"111", ",", "120"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776444452743092*^9, 3.7764444558555803`*^9}},
+ CellLabel->"In[18]:=",ExpressionUUID->"0121b0f2-33a2-4f93-abd0-b7335f00f4ba"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Part","partd",
+   "\"Part specification \\!\\(\\*RowBox[{\\\"Null\\\", \\\"\
+\[LeftDoubleBracket]\\\", \\\"111\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
+longer than depth of object.\"",2,18,9,17487480350447340170,
+   "Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.776784888098915*^9, 3.7767849123546*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"535114a6-b030-4308-8246-00c024410468"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Set","partd",
+   "\"Part specification \\!\\(\\*RowBox[{\\\"Serieslist\\\", \\\"\
+\[LeftDoubleBracket]\\\", \\\"n\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
+longer than depth of object.\"",2,18,10,17487480350447340170,
+   "Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.776784888098915*^9, 3.776784912383677*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"3fff711e-1dcc-463e-a740-414e01e7545b"],
+
+Cell[BoxData["111"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.776784912404812*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"02b1fe8c-97b1-4f62-af5e-560a0f061657"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Part","partd",
+   "\"Part specification \\!\\(\\*RowBox[{\\\"Null\\\", \\\"\
+\[LeftDoubleBracket]\\\", \\\"112\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
+longer than depth of object.\"",2,18,11,17487480350447340170,
+   "Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.776784888098915*^9, 3.776784912411974*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"4d229124-7f85-4bce-9345-8223a1b56caa"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Set","partd",
+   "\"Part specification \\!\\(\\*RowBox[{\\\"Serieslist\\\", \\\"\
+\[LeftDoubleBracket]\\\", \\\"n\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
+longer than depth of object.\"",2,18,12,17487480350447340170,
+   "Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.776784888098915*^9, 3.776784912433069*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"9b026f9b-c1da-4642-96e1-ffec3e99e1ad"],
+
+Cell[BoxData["112"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.776784912454528*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"ee45a9cb-8f55-46b4-86d8-aa90b6d7b196"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Part","partd",
+   "\"Part specification \\!\\(\\*RowBox[{\\\"Null\\\", \\\"\
+\[LeftDoubleBracket]\\\", \\\"113\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
+longer than depth of object.\"",2,18,13,17487480350447340170,
+   "Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.776784888098915*^9, 3.7767849124617*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"3f134fed-054a-4e7f-bf83-da4ec88b63a5"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Part\\\", \\\"::\\\", \
+\\\"partd\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
+calculation.\"",2,18,14,17487480350447340170,"Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.776784888098915*^9, 3.776784912483165*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"deb651cd-9750-4f33-8892-dc4873ea19f8"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Set","partd",
+   "\"Part specification \\!\\(\\*RowBox[{\\\"Serieslist\\\", \\\"\
+\[LeftDoubleBracket]\\\", \\\"n\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
+longer than depth of object.\"",2,18,15,17487480350447340170,
+   "Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.776784888098915*^9, 3.7767849125091677`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"5597723e-0b2d-4d43-b93e-f96034ffcb06"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Set\\\", \\\"::\\\", \\\
+\"partd\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
+calculation.\"",2,18,16,17487480350447340170,"Alternate Kernel"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.776784888098915*^9, 3.77678491253011*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"8ef06157-c74b-48e8-9c7f-327d7302c28c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["113"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.776784912553726*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"6d010356-450e-479a-ba67-eeb3e26ec291"],
+
+Cell[BoxData["114"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.7767849125613317`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"3f15cc52-1ff6-45cb-a9fd-644d776c5f89"],
+
+Cell[BoxData["115"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.776784912578126*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"4feea194-42f6-4ca1-9312-62f92ec665a5"],
+
+Cell[BoxData["116"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.7767849125886307`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"6258c9d5-91a7-48d5-8231-34e495c40fa5"],
+
+Cell[BoxData["117"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.776784912599008*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"ffc76446-691d-4b15-befd-5803a78522c1"],
+
+Cell[BoxData["118"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.776784912609436*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"0837e534-d7bb-47f7-aed6-303356623331"],
+
+Cell[BoxData["119"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.7767849126170053`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"f10d2730-aa78-4b6e-80cd-badb4c9a088b"],
+
+Cell[BoxData["120"], "Print",
+ CellChangeTimes->{{3.776784888135707*^9, 3.776784912624434*^9}},
+ CellLabel->
+  "During evaluation of \
+In[18]:=",ExpressionUUID->"38a8da08-2436-4aa2-9ed3-acd6b62059aa"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"{", "Null", "}"}]], "Output",
+ CellChangeTimes->{{3.776784888384467*^9, 3.776784912631989*^9}},
+ CellLabel->"Out[18]=",ExpressionUUID->"3bacc01c-d443-45cd-8552-6920b7d54570"]
+}, Closed]],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"121", ",", "130"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776444458244686*^9, 
+  3.776444461374363*^9}},ExpressionUUID->"0a825a05-32b2-4319-8639-\
+70ebb7dae721"],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"131", ",", "140"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7764444638773613`*^9, 
+  3.776444468707367*^9}},ExpressionUUID->"e4a86cf3-8ee8-4a68-8635-\
+217b0ba4a640"],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"141", ",", "150"}], "]"}]], "Input",
+ CellChangeTimes->{{3.77644446538631*^9, 
+  3.776444471430943*^9}},ExpressionUUID->"4e14b37b-639b-46ea-b50a-\
+b14416358740"],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"151", ",", "160"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7764444787943296`*^9, 
+  3.776444482084239*^9}},ExpressionUUID->"bf2275c2-8d1c-4d02-b7e4-\
+41137641140c"],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"161", ",", "170"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776444494542491*^9, 
+  3.776444507655608*^9}},ExpressionUUID->"6e0c2be4-ee3a-45fa-b831-\
+83a1095ac1be"],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"171", ",", "180"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776444496397092*^9, 
+  3.776444509668532*^9}},ExpressionUUID->"9186e914-9912-4033-a987-\
+f84144195af6"],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"181", ",", "190"}], "]"}]], "Input",
+ CellChangeTimes->{{3.776444498515769*^9, 
+  3.776444511347576*^9}},ExpressionUUID->"f6a2e77b-0b25-4468-8b4c-\
+79e5f414742d"],
+
+Cell[BoxData[
+ RowBox[{"MakeRefineSeriesOf", "[", 
+  RowBox[{"191", ",", "200"}], "]"}]], "Input",
+ CellChangeTimes->{{3.7764445005724*^9, 
+  3.776444513235516*^9}},ExpressionUUID->"a3b27975-8859-466d-a7c0-\
+b105c7fe73d9"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\
+]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.778422435234481*^9, 
+  3.7784224443536377`*^9}},ExpressionUUID->"25926e05-bb3c-422b-8e2b-\
+9a57e964ba2b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+   "Testing", " ", "best", " ", "way", " ", "to", " ", "do", " ", "a", " ", 
+    "velocity", " ", "expansion"}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"PV1", "=", 
+   RowBox[{"listPV", "[", 
+    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.7760942680435867`*^9, 3.776094278882065*^9}, {
+  3.776094338531843*^9, 3.776094352527562*^9}},
+ CellLabel->
+  "In[117]:=",ExpressionUUID->"a36cae1e-df45-49d4-a412-416ac62654e5"],
+
+Cell[BoxData[
+ RowBox[{"PVC", "[", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+   RowBox[{
+    SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}], ",", "T", 
+   ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]]}], "]"}]], "Output",
+ CellChangeTimes->{{3.776094343698943*^9, 3.7760943624781322`*^9}},
+ CellLabel->
+  "Out[117]=",ExpressionUUID->"a396975e-2717-4a82-90d1-7c091fb198e9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"PV2", "=", 
+  RowBox[{"LRSlist", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.776094367741146*^9, 3.776094368596299*^9}},
+ CellLabel->
+  "In[119]:=",ExpressionUUID->"9b7c4721-c242-428f-936b-c73b023c8d5b"],
+
+Cell[BoxData[
+ RowBox[{"PVC", "[", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+   RowBox[{
+    SuperscriptBox["MH", "2"], "-", "T24", "-", "U", "-", 
+    FractionBox[
+     RowBox[{"4", " ", 
+      SuperscriptBox["MT", "2"]}], 
+     RowBox[{"1", "-", 
+      SuperscriptBox["\[Beta]", "2"]}]]}], ",", "T", ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]], ",", 
+   SqrtBox[
+    SuperscriptBox["MT", "2"]]}], "]"}]], "Output",
+ CellChangeTimes->{{3.7760943646124887`*^9, 3.776094368962675*^9}},
+ CellLabel->
+  "Out[119]=",ExpressionUUID->"234fb216-0308-486e-aa4f-ee9ceb3aa02b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LRPV1", "=", 
+  RowBox[{"LRlist", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7760945284004583`*^9, 3.776094540625855*^9}},
+ CellLabel->
+  "In[123]:=",ExpressionUUID->"38f9a86e-2833-456d-aa7a-12baa82bf6d4"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    SuperscriptBox[
+     RowBox[{"Log", "[", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+        SqrtBox[
+         RowBox[{
+          RowBox[{"-", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["MT", "2"]}], "-", "T"}], ")"}]}], " ", "T"}]]}], 
+       RowBox[{"2", " ", 
+        SuperscriptBox["MT", "2"]}]], "]"}], "2"], 
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T24", "-", "U"}], 
+      ")"}]}]]}], "+", 
+  FractionBox[
+   SuperscriptBox[
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["MH", "2"]}], "+", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["MT", "2"]}], "+", "S", "+", "T24", "+", "U", "+", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["MH", "2"], "-", "S", "-", "T24", "-", "U"}], 
+           ")"}]}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "S", "+", "T24", "+", "U"}], 
+          ")"}]}]]}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox["MT", "2"]}]], "]"}], "2"], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["MH", "2"], "-", "S", "-", "T", "-", "T24", "-", "U"}], 
+     ")"}]}]]}]], "Output",
+ CellChangeTimes->{{3.776094534901574*^9, 3.776094541151403*^9}},
+ CellLabel->
+  "Out[123]=",ExpressionUUID->"1c05b19f-f3b9-494a-b37f-364f77e0b0b1"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Case", " ", "1"}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{
+    "Use", " ", "our", " ", "already", " ", "expanded", " ", "PV", " ", 
+     "coefficient"}], ",", " ", 
+    RowBox[{
+     RowBox[{"sub", " ", "S"}], "\[Rule]", 
+     RowBox[{"4", "*", 
+      RowBox[{
+       RowBox[{"MT", "^", "2"}], "/", 
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"\[Beta]", "^", "2"}]}], ")"}]}]}]}], ",", " ", 
+    RowBox[{"use", " ", "LoopRefineSeries"}]}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"mLRPV1", "=", 
+     RowBox[{"LRPV1", "//.", "VelSub"}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{"mLRPV1LoopSeries", "=", 
+    RowBox[{
+     RowBox[{"LoopRefineSeries", "[", 
+      RowBox[{"mLRPV1", ",", 
+       RowBox[{"{", 
+        RowBox[{"\[Beta]", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", 
+     "Simplify"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.7760942132860537`*^9, 3.7760942177198477`*^9}, {
+  3.776094285750037*^9, 3.776094337363894*^9}, {3.77609437704847*^9, 
+  3.776094389854731*^9}, {3.776094549422592*^9, 3.7760946761359653`*^9}, {
+  3.7760947685302134`*^9, 3.77609476909201*^9}},
+ CellLabel->
+  "In[135]:=",ExpressionUUID->"b2c199ef-3321-44d3-a08a-1b1de3e1b269"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+           SqrtBox[
+            RowBox[{"T", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["MH", "2"]}], "+", 
+          RowBox[{"6", " ", 
+           SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+          SqrtBox[
+           RowBox[{
+            SuperscriptBox["MH", "4"], "+", 
+            RowBox[{"32", " ", 
+             SuperscriptBox["MT", "4"]}], "+", 
+            RowBox[{"12", " ", 
+             SuperscriptBox["MT", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["MH", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"6", " ", 
+                SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+              ")"}]}]}]]}], 
+         RowBox[{"2", " ", 
+          SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["MH", "2"]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], 
+       ")"}]}]]}], "+", 
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["MH", "2"]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], ")"}],
+       "2"]], 
+    RowBox[{"2", " ", 
+     SuperscriptBox["MT", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox[
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+            SqrtBox[
+             RowBox[{"T", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"-", "4"}], " ", 
+                 SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+       FractionBox[
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], 
+          ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["MH", "2"]}], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["MH", "4"], "+", 
+              RowBox[{"32", " ", 
+               SuperscriptBox["MT", "4"]}], "+", 
+              RowBox[{"12", " ", 
+               SuperscriptBox["MT", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+              RowBox[{"2", " ", 
+               SuperscriptBox["MH", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"6", " ", 
+                  SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                ")"}]}]}]]}], 
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}]], "]"}]}], 
+        SqrtBox[
+         RowBox[{
+          SuperscriptBox["MH", "4"], "+", 
+          RowBox[{"32", " ", 
+           SuperscriptBox["MT", "4"]}], "+", 
+          RowBox[{"12", " ", 
+           SuperscriptBox["MT", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MH", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"6", " ", 
+              SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+            ")"}]}]}]]], "+", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"6", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+           SqrtBox[
+            RowBox[{
+             SuperscriptBox["MH", "4"], "+", 
+             RowBox[{"32", " ", 
+              SuperscriptBox["MT", "4"]}], "+", 
+             RowBox[{"12", " ", 
+              SuperscriptBox["MT", "2"], " ", 
+              RowBox[{"(", 
+               RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+             RowBox[{"2", " ", 
+              SuperscriptBox["MH", "2"], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"6", " ", 
+                 SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+               ")"}]}]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+     SuperscriptBox["\[Beta]", "2"]}]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+    SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Beta], 0, {
+   Rational[-1, 2] (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-1) (-
+      Log[Rational[1, 2] $CellContext`MT^(-2) (
+          2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2 + 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+         6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+           12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+           2 $CellContext`MH^2 (
+            6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+          Rational[1, 2])]^2), 0, 
+    2 $CellContext`MT^2 (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-2) (-
+      Log[Rational[1, 2] $CellContext`MT^(-2) (
+          2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2 - 
+     2 (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U) ($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+       12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+       2 $CellContext`MH^2 (
+        6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+      Rational[-1, 2] 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+        6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+          12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+          2 $CellContext`MH^2 (
+           6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+         Rational[1, 2])] + 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+         6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+           12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+           2 $CellContext`MH^2 (
+            6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+          Rational[1, 2])]^2)}, 0, 3, 1],
+  Editable->False]], "Output",
+ CellChangeTimes->{{3.776094672071906*^9, 3.7760946764443398`*^9}, 
+   3.776094771951503*^9},
+ CellLabel->
+  "Out[136]=",ExpressionUUID->"f04f6eb6-3a6c-42bd-b978-23a251c30109"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Case", " ", "2"}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{" ", 
+     RowBox[{
+      RowBox[{
+      "Use", " ", "our", " ", "already", " ", "expanded", " ", "PV", " ", 
+       "coefficient"}], ",", " ", 
+      RowBox[{
+       RowBox[{"sub", " ", "S"}], "\[Rule]", 
+       RowBox[{"4", "*", 
+        RowBox[{
+         RowBox[{"MT", "^", "2"}], "/", 
+         RowBox[{"(", 
+          RowBox[{"1", "-", 
+           RowBox[{"\[Beta]", "^", "2"}]}], ")"}]}]}]}]}], ")"}], ",", " ", 
+    RowBox[{"use", " ", "Series"}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"mLRPV1Series", "=", 
+   RowBox[{
+    RowBox[{"Series", "[", 
+     RowBox[{"mLRPV1", ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Beta]", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", 
+    "Simplify"}]}]}]], "Input",
+ CellChangeTimes->{{3.776094683105962*^9, 3.776094777128416*^9}},
+ CellLabel->
+  "In[137]:=",ExpressionUUID->"a7e9b28f-cd05-4629-a301-685337db32b1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+           SqrtBox[
+            RowBox[{"T", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["MH", "2"]}], "+", 
+          RowBox[{"6", " ", 
+           SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+          SqrtBox[
+           RowBox[{
+            SuperscriptBox["MH", "4"], "+", 
+            RowBox[{"32", " ", 
+             SuperscriptBox["MT", "4"]}], "+", 
+            RowBox[{"12", " ", 
+             SuperscriptBox["MT", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["MH", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"6", " ", 
+                SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+              ")"}]}]}]]}], 
+         RowBox[{"2", " ", 
+          SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["MH", "2"]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], 
+       ")"}]}]]}], "+", 
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["MH", "2"]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], ")"}],
+       "2"]], 
+    RowBox[{"2", " ", 
+     SuperscriptBox["MT", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox[
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+            SqrtBox[
+             RowBox[{"T", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"-", "4"}], " ", 
+                 SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+       FractionBox[
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], 
+          ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["MH", "2"]}], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["MH", "4"], "+", 
+              RowBox[{"32", " ", 
+               SuperscriptBox["MT", "4"]}], "+", 
+              RowBox[{"12", " ", 
+               SuperscriptBox["MT", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+              RowBox[{"2", " ", 
+               SuperscriptBox["MH", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"6", " ", 
+                  SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                ")"}]}]}]]}], 
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}]], "]"}]}], 
+        SqrtBox[
+         RowBox[{
+          SuperscriptBox["MH", "4"], "+", 
+          RowBox[{"32", " ", 
+           SuperscriptBox["MT", "4"]}], "+", 
+          RowBox[{"12", " ", 
+           SuperscriptBox["MT", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MH", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"6", " ", 
+              SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+            ")"}]}]}]]], "+", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"6", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+           SqrtBox[
+            RowBox[{
+             SuperscriptBox["MH", "4"], "+", 
+             RowBox[{"32", " ", 
+              SuperscriptBox["MT", "4"]}], "+", 
+             RowBox[{"12", " ", 
+              SuperscriptBox["MT", "2"], " ", 
+              RowBox[{"(", 
+               RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+             RowBox[{"2", " ", 
+              SuperscriptBox["MH", "2"], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"6", " ", 
+                 SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+               ")"}]}]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+     SuperscriptBox["\[Beta]", "2"]}]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+    SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Beta], 0, {
+   Rational[-1, 2] (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-1) (-
+      Log[Rational[1, 2] $CellContext`MT^(-2) (
+          2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2 + 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+         6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+           12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+           2 $CellContext`MH^2 (
+            6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+          Rational[1, 2])]^2), 0, 
+    2 $CellContext`MT^2 (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-2) (-
+      Log[Rational[1, 2] $CellContext`MT^(-2) (
+          2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2 - 
+     2 (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U) ($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+       12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+       2 $CellContext`MH^2 (
+        6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+      Rational[-1, 2] 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+        6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+          12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+          2 $CellContext`MH^2 (
+           6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+         Rational[1, 2])] + 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+         6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+           12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+           2 $CellContext`MH^2 (
+            6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+          Rational[1, 2])]^2)}, 0, 3, 1],
+  Editable->False]], "Output",
+ CellChangeTimes->{3.776094778441732*^9},
+ CellLabel->
+  "Out[137]=",ExpressionUUID->"fb8aa450-fac0-43d2-94fb-164b894fd43e"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{"Case", " ", "1"}], ",", 
+    RowBox[{"2", " ", "give", " ", "the", " ", "same", " ", "value"}], ",", 
+    " ", 
+    RowBox[{"no", " ", "difference", " ", "in", " ", 
+     RowBox[{"performance", "?"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"mLRPV1LoopSeries", "\[Equal]", "mLRPV1Series"}]}]], "Input",
+ CellChangeTimes->{{3.776094786738435*^9, 3.776094815754766*^9}, {
+  3.77609488885246*^9, 
+  3.776094893262938*^9}},ExpressionUUID->"1e5b2a80-6558-4a6a-a208-\
+6ffd66be10ca"],
+
+Cell[BoxData["True"], "Output",
+ CellChangeTimes->{3.77609479503203*^9},
+ CellLabel->
+  "Out[138]=",ExpressionUUID->"ba76a9bc-1692-4293-93e4-3b98a9ab7916"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Case", " ", "3"}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Use", " ", "un"}], "-", 
+     RowBox[{"expanded", " ", "PV", " ", "coefficient"}]}], ",", " ", 
+    RowBox[{
+     RowBox[{"sub", " ", "S"}], "\[Rule]", 
+     RowBox[{"4", "*", 
+      RowBox[{
+       RowBox[{"MT", "^", "2"}], "/", 
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"\[Beta]", "^", "2"}]}], ")"}]}]}]}], ",", " ", 
+    RowBox[{"use", " ", "LoopRefineSeries"}]}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"mLRPV2LoopSeries", "=", 
+   RowBox[{
+    RowBox[{"LoopRefineSeries", "[", 
+     RowBox[{"PV2", ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Beta]", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", 
+    "Simplify"}]}]}]], "Input",
+ CellChangeTimes->{{3.7760948569997253`*^9, 3.776095006903996*^9}},
+ CellLabel->
+  "In[139]:=",ExpressionUUID->"0c715131-89c6-40ef-8f9e-32d8bd8c07e3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+           SqrtBox[
+            RowBox[{"T", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["MH", "2"]}], "+", 
+          RowBox[{"6", " ", 
+           SuperscriptBox["MT", "2"]}], "+", "T24", "+", 
+          SqrtBox[
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["MH", "2"], "-", 
+              RowBox[{"8", " ", 
+               SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ")"}], 
+            " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["MH", "2"], "-", 
+              RowBox[{"4", " ", 
+               SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ")"}]}]], 
+          "+", "U"}], 
+         RowBox[{"2", " ", 
+          SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["MH", "2"]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], 
+       ")"}]}]]}], "+", 
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["MH", "2"]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], ")"}],
+       "2"]], 
+    RowBox[{"2", " ", 
+     SuperscriptBox["MT", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], 
+          ")"}], " ", 
+         RowBox[{"DiscB", "[", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["MH", "2"], "-", 
+            RowBox[{"4", " ", 
+             SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+           SqrtBox[
+            SuperscriptBox["MT", "2"]], ",", 
+           SqrtBox[
+            SuperscriptBox["MT", "2"]]}], "]"}]}], 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["MH", "2"]}], "+", 
+         RowBox[{"8", " ", 
+          SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], "-", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+           SqrtBox[
+            RowBox[{"T", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MT", "2"]}]], "]"}], "2"], "+", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"6", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "T24", "+", 
+           SqrtBox[
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", 
+               RowBox[{"8", " ", 
+                SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ")"}], 
+             " ", 
+             RowBox[{"(", 
+              RowBox[{
+               SuperscriptBox["MH", "2"], "-", 
+               RowBox[{"4", " ", 
+                SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ")"}]}]],
+            "+", "U"}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+     SuperscriptBox["\[Beta]", "2"]}]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+    SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Beta], 0, {
+   Rational[-1, 2] (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-1) (-
+      Log[Rational[1, 2] $CellContext`MT^(-2) (
+          2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2 + 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+         6 $CellContext`MT^2 + $CellContext`T24 + (($CellContext`MH^2 - 
+            8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) \
+($CellContext`MH^2 - 
+            4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U))^
+          Rational[1, 2] + $CellContext`U)]^2), 0, 
+    2 $CellContext`MT^2 (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-2) (
+     2 (-$CellContext`MH^2 + 
+        8 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) \
+(-$CellContext`MH^2 + 
+       4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U) 
+      X`DiscB[$CellContext`MH^2 - 
+        4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+($CellContext`MT^2)^Rational[1, 2], ($CellContext`MT^2)^Rational[1, 2]] - 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (
+        2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2 + 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+         6 $CellContext`MT^2 + $CellContext`T24 + (($CellContext`MH^2 - 
+            8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) \
+($CellContext`MH^2 - 
+            4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U))^
+          Rational[1, 2] + $CellContext`U)]^2)}, 0, 3, 1],
+  Editable->False]], "Output",
+ CellChangeTimes->{3.7760950081103888`*^9},
+ CellLabel->
+  "Out[139]=",ExpressionUUID->"ee09fd16-2531-4ab1-be6d-4d7237f2c0f6"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Case", " ", "4"}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Use", " ", "un"}], "-", 
+     RowBox[{"expanded", " ", "PV", " ", "coefficient"}]}], ",", " ", 
+    RowBox[{
+     RowBox[{"sub", " ", "S"}], "\[Rule]", 
+     RowBox[{"4", "*", 
+      RowBox[{
+       RowBox[{"MT", "^", "2"}], "/", 
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"\[Beta]", "^", "2"}]}], ")"}]}]}]}], ",", " ", 
+    RowBox[{"use", " ", "LoopRefine"}], ",", " ", 
+    RowBox[{"then", " ", "LoopRefineSeries"}]}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"mLRPV2LoopSeries2", "=", 
+   RowBox[{
+    RowBox[{"LoopRefineSeries", "[", 
+     RowBox[{
+      RowBox[{"LoopRefine", "[", "PV2", "]"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Beta]", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", 
+    "Simplify"}]}]}]], "Input",
+ CellChangeTimes->{{3.776094943833243*^9, 3.776094948875589*^9}, {
+  3.776095031975548*^9, 3.7760950965361834`*^9}},
+ CellLabel->
+  "In[142]:=",ExpressionUUID->"192cc319-c4e4-49c2-9aae-8c5e3d52b6b5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+           SqrtBox[
+            RowBox[{"T", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["MH", "2"]}], "+", 
+          RowBox[{"6", " ", 
+           SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+          SqrtBox[
+           RowBox[{
+            SuperscriptBox["MH", "4"], "+", 
+            RowBox[{"32", " ", 
+             SuperscriptBox["MT", "4"]}], "+", 
+            RowBox[{"12", " ", 
+             SuperscriptBox["MT", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["MH", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"6", " ", 
+                SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+              ")"}]}]}]]}], 
+         RowBox[{"2", " ", 
+          SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["MH", "2"]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], 
+       ")"}]}]]}], "+", 
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["MH", "2"]}], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], ")"}],
+       "2"]], 
+    RowBox[{"2", " ", 
+     SuperscriptBox["MT", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox[
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["MT", "2"]}], "-", "T", "+", 
+            SqrtBox[
+             RowBox[{"T", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"-", "4"}], " ", 
+                 SuperscriptBox["MT", "2"]}], "+", "T"}], ")"}]}]]}], 
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], "-", 
+       FractionBox[
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}], 
+          ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["MH", "2"]}], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+            SqrtBox[
+             RowBox[{
+              SuperscriptBox["MH", "4"], "+", 
+              RowBox[{"32", " ", 
+               SuperscriptBox["MT", "4"]}], "+", 
+              RowBox[{"12", " ", 
+               SuperscriptBox["MT", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+              RowBox[{"2", " ", 
+               SuperscriptBox["MH", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"6", " ", 
+                  SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+                ")"}]}]}]]}], 
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}]], "]"}]}], 
+        SqrtBox[
+         RowBox[{
+          SuperscriptBox["MH", "4"], "+", 
+          RowBox[{"32", " ", 
+           SuperscriptBox["MT", "4"]}], "+", 
+          RowBox[{"12", " ", 
+           SuperscriptBox["MT", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MH", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"6", " ", 
+              SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+            ")"}]}]}]]], "+", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"6", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U", "+", 
+           SqrtBox[
+            RowBox[{
+             SuperscriptBox["MH", "4"], "+", 
+             RowBox[{"32", " ", 
+              SuperscriptBox["MT", "4"]}], "+", 
+             RowBox[{"12", " ", 
+              SuperscriptBox["MT", "2"], " ", 
+              RowBox[{"(", 
+               RowBox[{"T24", "+", "U"}], ")"}]}], "+", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{"T24", "+", "U"}], ")"}], "2"], "-", 
+             RowBox[{"2", " ", 
+              SuperscriptBox["MH", "2"], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"6", " ", 
+                 SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}], 
+               ")"}]}]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["MT", "2"]}]], "]"}], "2"]}], ")"}], " ", 
+     SuperscriptBox["\[Beta]", "2"]}]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+    SeriesData[$CellContext`\[Beta], 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Beta], 0, {
+   Rational[-1, 2] (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-1) (-
+      Log[Rational[1, 2] $CellContext`MT^(-2) (
+          2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2 + 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+         6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+           12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+           2 $CellContext`MH^2 (
+            6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+          Rational[1, 2])]^2), 0, 
+    2 $CellContext`MT^2 (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-2) (-
+      Log[Rational[1, 2] $CellContext`MT^(-2) (
+          2 $CellContext`MT^2 - $CellContext`T + ($CellContext`T ((-4) \
+$CellContext`MT^2 + $CellContext`T))^Rational[1, 2])]^2 - 
+     2 (-$CellContext`MH^2 + 
+      4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U) ($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+       12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+       2 $CellContext`MH^2 (
+        6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+      Rational[-1, 2] 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+        6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+          12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+          2 $CellContext`MH^2 (
+           6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+         Rational[1, 2])] + 
+     Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+         6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U + \
+($CellContext`MH^4 + 32 $CellContext`MT^4 + 
+           12 $CellContext`MT^2 ($CellContext`T24 + $CellContext`U) + \
+($CellContext`T24 + $CellContext`U)^2 - 
+           2 $CellContext`MH^2 (
+            6 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U))^
+          Rational[1, 2])]^2)}, 0, 3, 1],
+  Editable->False]], "Output",
+ CellChangeTimes->{{3.7760950761911373`*^9, 3.776095096903057*^9}},
+ CellLabel->
+  "Out[142]=",ExpressionUUID->"72f30e8f-2cdf-4cf1-b2ac-4bad814133c2"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{"Case", " ", "3"}], ",", 
+    RowBox[{"4", " ", "give", " ", "DIFFERENT", " ", "answers"}]}], " ", 
+   "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"FullSimplify", "[", 
+   RowBox[{"mLRPV2LoopSeries", "\[Equal]", "mLRPV2LoopSeries2"}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.7760951076835823`*^9, 
+  3.776095161154098*^9}},ExpressionUUID->"aa4bbc56-9042-4ac4-9da9-\
+d8a6a099ffb0"],
+
+Cell[BoxData[
+ RowBox[{
+  InterpretationBox[
+   RowBox[{
+    FractionBox[
+     RowBox[{"4", " ", 
+      SuperscriptBox["MT", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"DiscB", "[", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["MH", "2"], "-", 
+            RowBox[{"4", " ", 
+             SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+           SqrtBox[
+            SuperscriptBox["MT", "2"]], ",", 
+           SqrtBox[
+            SuperscriptBox["MT", "2"]]}], "]"}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["MH", "2"]}], "+", 
+          RowBox[{"8", " ", 
+           SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]], "+", 
+        FractionBox[
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["MH", "2"]}], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["MT", "2"]}], "+", "T24", "+", 
+            SqrtBox[
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["MH", "2"], "-", 
+                RowBox[{"8", " ", 
+                 SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ")"}], 
+              " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["MH", "2"], "-", 
+                RowBox[{"4", " ", 
+                 SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+               ")"}]}]], "+", "U"}], 
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}]], "]"}], 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", 
+             RowBox[{"8", " ", 
+              SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ")"}], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", 
+             RowBox[{"4", " ", 
+              SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+            ")"}]}]]]}], ")"}], " ", 
+      SuperscriptBox["\[Beta]", "2"]}], 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["MH", "2"]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}]], "+", 
+    InterpretationBox[
+     SuperscriptBox[
+      RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+     SeriesData[$CellContext`\[Beta], 0, {}, 2, 3, 1],
+     Editable->False]}],
+   SeriesData[$CellContext`\[Beta], 0, {
+    4 $CellContext`MT^2 (-$CellContext`MH^2 + 
+       4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-1) ((-$CellContext`MH^2 + 
+         8 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) 
+       X`DiscB[$CellContext`MH^2 - 
+         4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+($CellContext`MT^2)^Rational[1, 2], ($CellContext`MT^2)^
+         Rational[1, 2]] + (($CellContext`MH^2 - 
+          8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) \
+($CellContext`MH^2 - 
+          4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U))^
+        Rational[-1, 2] 
+       Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+          6 $CellContext`MT^2 + $CellContext`T24 + (($CellContext`MH^2 - 
+             8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) \
+($CellContext`MH^2 - 
+             4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U))^
+           Rational[1, 2] + $CellContext`U)])}, 2, 3, 1],
+   Editable->False], "\[Equal]", "0"}]], "Output",
+ CellChangeTimes->{{3.7760951169017067`*^9, 3.776095125732332*^9}},
+ CellLabel->
+  "Out[144]=",ExpressionUUID->"5dd7bd0b-df4b-42b4-afa6-169da77820b0"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{"Case", " ", "1"}], ",", 
+    RowBox[{
+    "2", " ", "and", " ", "4", " ", "give", " ", "the", " ", "same", " ", 
+     "result"}]}], " ", "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"mLRPV1LoopSeries", "\[Equal]", "mLRPV2LoopSeries2"}]}]], "Input",
+ CellChangeTimes->{{3.776095186462483*^9, 3.7760951971387672`*^9}, {
+  3.776095252021922*^9, 
+  3.776095266705385*^9}},ExpressionUUID->"acbb6382-4324-4bfb-aa84-\
+71272d55c7d4"],
+
+Cell[BoxData["True"], "Output",
+ CellChangeTimes->{3.776095198717999*^9},
+ CellLabel->
+  "Out[145]=",ExpressionUUID->"f4100da3-c681-47f2-ac13-8b324b099b4e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Case", " ", "3", " ", "is", " ", "different"}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"FullSimplify", "[", 
+   RowBox[{"mLRPV1LoopSeries", "\[Equal]", "mLRPV2LoopSeries"}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.776095201801568*^9, 3.776095278918404*^9}},
+ CellLabel->
+  "In[149]:=",ExpressionUUID->"1be0f3b4-e047-4a26-9afa-df89d8bb25eb"],
+
+Cell[BoxData[
+ RowBox[{
+  InterpretationBox[
+   RowBox[{
+    FractionBox[
+     RowBox[{"4", " ", 
+      SuperscriptBox["MT", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{"DiscB", "[", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", 
+             RowBox[{"4", " ", 
+              SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ",", 
+            SqrtBox[
+             SuperscriptBox["MT", "2"]], ",", 
+            SqrtBox[
+             SuperscriptBox["MT", "2"]]}], "]"}], 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["MH", "2"]}], "+", 
+           RowBox[{"8", " ", 
+            SuperscriptBox["MT", "2"]}], "+", "T24", "+", "U"}]]}], "-", 
+        FractionBox[
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["MH", "2"]}], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["MT", "2"]}], "+", "T24", "+", 
+            SqrtBox[
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["MH", "2"], "-", 
+                RowBox[{"8", " ", 
+                 SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ")"}], 
+              " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["MH", "2"], "-", 
+                RowBox[{"4", " ", 
+                 SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+               ")"}]}]], "+", "U"}], 
+           RowBox[{"2", " ", 
+            SuperscriptBox["MT", "2"]}]], "]"}], 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", 
+             RowBox[{"8", " ", 
+              SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], ")"}], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["MH", "2"], "-", 
+             RowBox[{"4", " ", 
+              SuperscriptBox["MT", "2"]}], "-", "T24", "-", "U"}], 
+            ")"}]}]]]}], ")"}], " ", 
+      SuperscriptBox["\[Beta]", "2"]}], 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["MH", "2"]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["MT", "2"]}], "+", "T", "+", "T24", "+", "U"}]], "+", 
+    InterpretationBox[
+     SuperscriptBox[
+      RowBox[{"O", "[", "\[Beta]", "]"}], "3"],
+     SeriesData[$CellContext`\[Beta], 0, {}, 2, 3, 1],
+     Editable->False]}],
+   SeriesData[$CellContext`\[Beta], 0, {
+    4 $CellContext`MT^2 (-$CellContext`MH^2 + 
+       4 $CellContext`MT^2 + $CellContext`T + $CellContext`T24 + \
+$CellContext`U)^(-1) (-(-$CellContext`MH^2 + 
+         8 $CellContext`MT^2 + $CellContext`T24 + $CellContext`U)^(-1) 
+       X`DiscB[$CellContext`MH^2 - 
+         4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U, \
+($CellContext`MT^2)^Rational[1, 2], ($CellContext`MT^2)^
+         Rational[1, 2]] - (($CellContext`MH^2 - 
+         8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) \
+($CellContext`MH^2 - 
+         4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U))^
+       Rational[-1, 2] 
+      Log[Rational[1, 2] $CellContext`MT^(-2) (-$CellContext`MH^2 + 
+         6 $CellContext`MT^2 + $CellContext`T24 + (($CellContext`MH^2 - 
+            8 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U) \
+($CellContext`MH^2 - 
+            4 $CellContext`MT^2 - $CellContext`T24 - $CellContext`U))^
+          Rational[1, 2] + $CellContext`U)])}, 2, 3, 1],
+   Editable->False], "\[Equal]", "0"}]], "Output",
+ CellChangeTimes->{{3.776095218727405*^9, 3.776095249937913*^9}, 
+   3.776095280416049*^9},
+ CellLabel->
+  "Out[149]=",ExpressionUUID->"481fa417-77b8-4946-b4f9-04ed930e142d"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.776094017637576*^9, 
+  3.776094018336205*^9}},ExpressionUUID->"1e1abde8-f7ad-44b1-99b4-\
+1370e978f66d"]
+},
+WindowSize->{992, 755},
+WindowMargins->{{87, Automatic}, {Automatic, 0}},
+FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
+2018)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 1181, 26, 94, "Input",ExpressionUUID->"a9eb43f9-c437-4ff0-ae8b-eb31f4d06b38"],
+Cell[CellGroupData[{
+Cell[1764, 50, 636, 12, 94, "Input",ExpressionUUID->"aa6e76d2-ec10-49c0-b6e0-1dd4d91b1a18"],
+Cell[CellGroupData[{
+Cell[2425, 66, 1868, 27, 46, "Print",ExpressionUUID->"0faa258c-cb99-4ffa-abdc-8a866ea3d423"],
+Cell[4296, 95, 1736, 26, 101, "Print",ExpressionUUID->"68a135c8-1ea0-4213-881d-6b4d19bc89ac"]
+}, Open  ]]
+}, Open  ]],
+Cell[6059, 125, 1328, 31, 94, "Input",ExpressionUUID->"1c12ba0e-fd6c-4b7e-8de6-2b784fa72d92"],
+Cell[7390, 158, 10660, 257, 1165, "Input",ExpressionUUID->"a5c5e12e-157e-4719-b09d-930d037e0d1b"],
+Cell[18053, 417, 371, 6, 30, "Input",ExpressionUUID->"7741718d-edbc-49e5-a241-fb84c7107f7d"],
+Cell[18427, 425, 1621, 46, 157, "Input",ExpressionUUID->"9fe10d31-521c-4fe7-844e-895b7b5e190a"],
+Cell[20051, 473, 2246, 53, 178, "Input",ExpressionUUID->"6f54e202-a28b-4a1d-9e81-76bb7154ddaa"],
+Cell[22300, 528, 1479, 36, 136, "Input",ExpressionUUID->"476a37c6-482c-4f61-9ced-5d80a625711e"],
+Cell[23782, 566, 177, 3, 30, "Input",ExpressionUUID->"705b77c9-9d55-4c91-a174-596c11435d8d"],
+Cell[CellGroupData[{
+Cell[23984, 573, 1564, 33, 136, "Input",ExpressionUUID->"fd0c50cb-5e3d-46b2-a09e-275f25c954a6"],
+Cell[25551, 608, 173, 2, 34, "Output",ExpressionUUID->"323cb7f2-c40f-4754-9540-9426135ece5f"],
+Cell[25727, 612, 174, 2, 34, "Output",ExpressionUUID->"2a34b402-4c25-4558-979d-a670f2211d0a"]
+}, Open  ]],
+Cell[25916, 617, 261, 6, 52, "Input",ExpressionUUID->"f1052ac6-e6f7-4371-afd6-ad461c58d053"],
+Cell[26180, 625, 810, 18, 73, "Input",ExpressionUUID->"47c35d70-ef0a-4ee5-9de6-a89da37d395a"],
+Cell[26993, 645, 263, 6, 52, "Input",ExpressionUUID->"e49bfcd0-2790-4662-b260-1251fbf55656"],
+Cell[27259, 653, 740, 18, 73, "Input",ExpressionUUID->"7c31e5a1-c9d7-4139-bcbf-d567355f68ac"],
+Cell[28002, 673, 263, 6, 52, "Input",ExpressionUUID->"df0e2446-e8a9-4c0f-ade0-6243ed23f014"],
+Cell[28268, 681, 704, 19, 73, "Input",ExpressionUUID->"b7439b12-cb51-47a1-a158-9fa93f157c7d"],
+Cell[28975, 702, 266, 6, 52, "Input",ExpressionUUID->"ba9ecf49-d2ba-4baa-bc4a-47072a88303d"],
+Cell[29244, 710, 683, 20, 73, "Input",ExpressionUUID->"c1cc9921-c84f-4990-9a13-a36935fe08f6"],
+Cell[29930, 732, 256, 5, 30, "Input",ExpressionUUID->"b325e442-757f-4122-a460-9727e5485960"],
+Cell[30189, 739, 435, 9, 30, "Input",ExpressionUUID->"64072172-75c1-400c-b4be-a5a76fc27e9f"],
+Cell[30627, 750, 607, 13, 52, "Input",ExpressionUUID->"75ac93f2-7474-4481-b70f-8b3ab1fc4f2c"],
+Cell[CellGroupData[{
+Cell[31259, 767, 1092, 27, 115, "Input",ExpressionUUID->"df43f43c-f3df-4d31-8f47-e316129e404e"],
+Cell[CellGroupData[{
+Cell[32376, 798, 410, 7, 24, "Print",ExpressionUUID->"13bb3e84-1aad-451c-9470-217fab9f697f"],
+Cell[32789, 807, 412, 7, 24, "Print",ExpressionUUID->"c6fece5c-a585-4c90-ab33-806fa3705b71"]
+}, Open  ]],
+Cell[33216, 817, 156, 2, 34, "Output",ExpressionUUID->"829f296d-4387-479f-92bc-7a626dfe607c"]
+}, Open  ]],
+Cell[33387, 822, 427, 9, 52, "Input",ExpressionUUID->"0d3ce3b6-3c94-4932-a9ed-194cea17f2b9"],
+Cell[33817, 833, 1058, 24, 56, "Input",ExpressionUUID->"5a89f228-5332-4b40-9dd2-0e3e845f3970"],
+Cell[34878, 859, 290, 7, 30, "Input",ExpressionUUID->"3a874326-a732-49f9-bf3f-018de4fbf690"],
+Cell[35171, 868, 243, 6, 52, "Input",ExpressionUUID->"37adef6f-081e-487c-bd44-ab449560d571"],
+Cell[CellGroupData[{
+Cell[35439, 878, 998, 26, 115, "Input",ExpressionUUID->"f3c0843b-be94-4b77-89a7-a517bd2df868"],
+Cell[CellGroupData[{
+Cell[36462, 908, 247, 5, 24, "Print",ExpressionUUID->"e2ec887b-8f74-4c58-b508-8180d0a5ab39"],
+Cell[36712, 915, 247, 5, 24, "Print",ExpressionUUID->"37e2fbaf-ebf4-468b-9e07-64d66403941b"],
+Cell[36962, 922, 249, 5, 24, "Print",ExpressionUUID->"2e78dfd3-252a-4510-977f-b4f27ff8aa4b"],
+Cell[37214, 929, 247, 5, 24, "Print",ExpressionUUID->"a0e44cf6-a61f-449f-8a34-2c8ce9d266f3"],
+Cell[37464, 936, 247, 5, 24, "Print",ExpressionUUID->"a931e414-5259-4e72-acd7-dcee07599a82"],
+Cell[37714, 943, 247, 5, 24, "Print",ExpressionUUID->"5594c2a5-c197-4faf-9ffb-e7ba76cbc538"],
+Cell[37964, 950, 247, 5, 24, "Print",ExpressionUUID->"8ecef3ea-5555-4307-bcb5-45617481fea4"],
+Cell[38214, 957, 249, 5, 24, "Print",ExpressionUUID->"84060125-ad1a-4df3-8ce7-b2dbb52a255e"],
+Cell[38466, 964, 247, 5, 24, "Print",ExpressionUUID->"ba89847a-a4aa-4bc8-bbdf-fc4fe94626a9"],
+Cell[38716, 971, 247, 5, 24, "Print",ExpressionUUID->"4ad9a298-9033-4f95-ba31-e459488b2078"],
+Cell[38966, 978, 249, 5, 24, "Print",ExpressionUUID->"0f51e120-6ffe-40ed-90a9-16ffc4b8cd7b"],
+Cell[39218, 985, 249, 5, 24, "Print",ExpressionUUID->"55f10a7d-2dd2-42de-9c51-a8b42913981b"],
+Cell[39470, 992, 247, 5, 24, "Print",ExpressionUUID->"4f770da7-96cd-4cb8-a4d4-ac8321d712cd"],
+Cell[39720, 999, 247, 5, 24, "Print",ExpressionUUID->"649189dd-7c36-4840-a8f2-e90ccecbefc1"],
+Cell[39970, 1006, 247, 5, 24, "Print",ExpressionUUID->"69c8ff97-a48c-433d-a1af-293c970ff456"],
+Cell[40220, 1013, 247, 5, 24, "Print",ExpressionUUID->"e5097cc9-3fd7-4356-82cc-935a8fd99f37"],
+Cell[40470, 1020, 249, 5, 24, "Print",ExpressionUUID->"2a4fa068-31d2-42b2-8e27-9cd47a215300"],
+Cell[40722, 1027, 247, 5, 24, "Print",ExpressionUUID->"d4490842-541b-4159-b08b-37254e2f02ee"],
+Cell[40972, 1034, 247, 5, 24, "Print",ExpressionUUID->"0ae6d1ae-d897-40b7-83ac-03676d9405d7"],
+Cell[41222, 1041, 247, 5, 24, "Print",ExpressionUUID->"dd1f2688-2c0e-4ed6-aa9d-d7b634519be6"],
+Cell[41472, 1048, 246, 5, 24, "Print",ExpressionUUID->"28b3e938-3807-4e3b-9426-e708dcec15b0"],
+Cell[41721, 1055, 247, 5, 24, "Print",ExpressionUUID->"b68ca497-f2d7-495a-b577-5f5f7cc0b776"],
+Cell[41971, 1062, 247, 5, 24, "Print",ExpressionUUID->"d67f7e5b-0500-4072-a004-7f5c73342e3a"],
+Cell[42221, 1069, 247, 5, 24, "Print",ExpressionUUID->"ce08a793-ce51-4874-b4c7-0d99e3e47784"],
+Cell[42471, 1076, 247, 5, 24, "Print",ExpressionUUID->"fbbc2328-d686-4169-8a45-f2f916e0d9d2"],
+Cell[42721, 1083, 249, 5, 24, "Print",ExpressionUUID->"1cb44eb4-a5e3-4f09-a2dc-7ed04f4bcf1f"],
+Cell[42973, 1090, 247, 5, 24, "Print",ExpressionUUID->"622b5b19-decc-4b43-aecb-2a18b830f72c"],
+Cell[43223, 1097, 249, 5, 24, "Print",ExpressionUUID->"f6dc26ef-5813-4857-bfe4-c26b87bc1f7b"],
+Cell[43475, 1104, 247, 5, 24, "Print",ExpressionUUID->"2d3735df-91e7-4795-8dfd-6ed011d79107"],
+Cell[43725, 1111, 249, 5, 24, "Print",ExpressionUUID->"50fe601d-1b2b-4d2e-807b-1d249afe001e"],
+Cell[43977, 1118, 249, 5, 24, "Print",ExpressionUUID->"2fdfacbd-80ef-4c9a-b71f-e2cc0d9afe5e"],
+Cell[44229, 1125, 247, 5, 24, "Print",ExpressionUUID->"da85be8b-7972-4185-b906-d61dc785a9fd"],
+Cell[44479, 1132, 249, 5, 24, "Print",ExpressionUUID->"1c79d656-868a-4326-8d0a-2659691bbe1c"],
+Cell[44731, 1139, 247, 5, 24, "Print",ExpressionUUID->"efa41b92-f275-451a-ac92-19e0f0f8ac9d"],
+Cell[44981, 1146, 249, 5, 24, "Print",ExpressionUUID->"37e28f01-8fd3-4b48-b1b2-21df0a6ba950"],
+Cell[45233, 1153, 247, 5, 24, "Print",ExpressionUUID->"e844650c-6ee0-4b56-bc47-625127c32e2b"],
+Cell[45483, 1160, 249, 5, 24, "Print",ExpressionUUID->"29f611a5-3fe6-49ea-ba52-f894c5b962a5"],
+Cell[45735, 1167, 247, 5, 24, "Print",ExpressionUUID->"0d1b53d7-40d6-416f-87a6-b7b7a755e497"],
+Cell[45985, 1174, 249, 5, 24, "Print",ExpressionUUID->"dcd3c150-23ea-4f93-8005-bdd7678c1c03"],
+Cell[46237, 1181, 247, 5, 24, "Print",ExpressionUUID->"fe002903-a338-4ec6-ab39-693bb8f32eff"],
+Cell[46487, 1188, 249, 5, 24, "Print",ExpressionUUID->"34a03c80-9c4e-4fcb-b5ff-f3ff0cb1f223"],
+Cell[46739, 1195, 247, 5, 24, "Print",ExpressionUUID->"6cb0347b-630c-40c9-be5c-e11d214769dc"],
+Cell[46989, 1202, 249, 5, 24, "Print",ExpressionUUID->"0815e5f7-0b7c-4ceb-83e7-8cfc79826245"],
+Cell[47241, 1209, 247, 5, 24, "Print",ExpressionUUID->"92f96f11-b3a8-42e5-98e6-6fee3c21c719"],
+Cell[47491, 1216, 247, 5, 24, "Print",ExpressionUUID->"f5dc0de3-7380-4b70-b0d3-54def93aedd4"],
+Cell[47741, 1223, 249, 5, 24, "Print",ExpressionUUID->"a1701a3b-5ef3-47a9-95a2-d8e512233777"],
+Cell[47993, 1230, 247, 5, 24, "Print",ExpressionUUID->"4097feba-7377-4752-bb38-a0921cc43c71"],
+Cell[48243, 1237, 247, 5, 24, "Print",ExpressionUUID->"dd3dbaf1-61f0-453b-9b9a-36874206af99"],
+Cell[48493, 1244, 249, 5, 24, "Print",ExpressionUUID->"40b1ffb0-1c9e-42ee-9160-2930f36cdfaa"],
+Cell[48745, 1251, 245, 5, 24, "Print",ExpressionUUID->"191f384d-858c-4d19-92a6-40c39817d766"],
+Cell[48993, 1258, 246, 5, 24, "Print",ExpressionUUID->"0ad5044a-36b0-4d57-a03e-5b3764fa61c2"],
+Cell[49242, 1265, 247, 5, 24, "Print",ExpressionUUID->"777e0a58-0441-45aa-bb77-379de521b4ea"],
+Cell[49492, 1272, 247, 5, 24, "Print",ExpressionUUID->"26958225-f0de-4b0d-8418-1d0e741744db"],
+Cell[49742, 1279, 247, 5, 24, "Print",ExpressionUUID->"aa153189-1719-4ec3-a6c4-faeae6eb825e"],
+Cell[49992, 1286, 247, 5, 24, "Print",ExpressionUUID->"ad84b383-b8b6-4501-8354-e87c74b4fe47"],
+Cell[50242, 1293, 247, 5, 24, "Print",ExpressionUUID->"fb83c3a6-a8b1-4afc-8465-6456a8260a4f"],
+Cell[50492, 1300, 246, 5, 24, "Print",ExpressionUUID->"cd5fc969-87ec-41e9-8094-20cb832c0cf2"],
+Cell[50741, 1307, 247, 5, 24, "Print",ExpressionUUID->"8f96c2e7-a606-44fd-9bd3-787dbc3507ca"],
+Cell[50991, 1314, 247, 5, 24, "Print",ExpressionUUID->"1cb89dfe-425a-4c52-9b55-b4a6014c9852"],
+Cell[51241, 1321, 247, 5, 24, "Print",ExpressionUUID->"ef7f8635-cadc-4f02-9e3b-547e00252d2e"],
+Cell[51491, 1328, 247, 5, 24, "Print",ExpressionUUID->"4f79ee0d-259f-4d53-809b-53a89f702a3d"],
+Cell[51741, 1335, 247, 5, 24, "Print",ExpressionUUID->"886f8afa-5606-4059-8b26-d7d6af479013"],
+Cell[51991, 1342, 246, 5, 24, "Print",ExpressionUUID->"cd7e7c7e-efdb-40bf-ae88-e79e89aee24f"],
+Cell[52240, 1349, 247, 5, 24, "Print",ExpressionUUID->"f3dba259-3e90-4a75-828b-055cb49c87c8"],
+Cell[52490, 1356, 249, 5, 24, "Print",ExpressionUUID->"37b1dcf0-6b49-4eb5-b721-89fc56a828df"],
+Cell[52742, 1363, 247, 5, 24, "Print",ExpressionUUID->"5f7c8d38-0599-40f0-9972-0a6d5997ecbf"],
+Cell[52992, 1370, 247, 5, 24, "Print",ExpressionUUID->"69c00823-96b0-4daa-9990-36f08fb6ce56"],
+Cell[53242, 1377, 247, 5, 24, "Print",ExpressionUUID->"fb97acd4-1d96-4a85-8bc6-3305a839a3da"],
+Cell[53492, 1384, 247, 5, 24, "Print",ExpressionUUID->"43bad5b4-c421-419d-9915-1b67c66f1036"],
+Cell[53742, 1391, 247, 5, 24, "Print",ExpressionUUID->"f5846949-e47a-4e77-914f-0a8f50e06332"],
+Cell[53992, 1398, 247, 5, 24, "Print",ExpressionUUID->"6a5ef075-fa3d-4ad6-b501-a5cb532fd6f5"],
+Cell[54242, 1405, 247, 5, 24, "Print",ExpressionUUID->"ee5772c0-100c-4ff4-83b0-096fcfc8e2a6"],
+Cell[54492, 1412, 249, 5, 24, "Print",ExpressionUUID->"fec2f95e-20ad-473c-80c7-bfbc2b46c85f"]
+}, Closed]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[54790, 1423, 414, 10, 52, "Input",ExpressionUUID->"083fb79c-daba-4277-b94e-78bed80412be"],
+Cell[55207, 1435, 709, 19, 46, "Output",ExpressionUUID->"21437e94-a2d0-4030-9577-1fb730a2c01b"]
+}, Open  ]],
+Cell[55931, 1457, 910, 22, 56, "Input",ExpressionUUID->"c9749ffe-5ab8-4c9a-aef7-8af3843d725b"],
+Cell[56844, 1481, 290, 7, 30, "Input",ExpressionUUID->"2d6ff57e-8bdd-4f5e-9772-e77bcbd1d8d0"],
+Cell[57137, 1490, 147, 3, 52, "Input",ExpressionUUID->"2239b8d8-532e-4c08-ac3b-e377a166b460"],
+Cell[57287, 1495, 379, 8, 30, "Input",ExpressionUUID->"e40759ab-7c04-4bf0-a25e-f80786106946"],
+Cell[57669, 1505, 379, 8, 52, "Input",ExpressionUUID->"007158c3-a206-4cab-88ec-886b70f30fed"],
+Cell[CellGroupData[{
+Cell[58073, 1517, 268, 5, 30, "Input",ExpressionUUID->"743fd8ff-17f3-49f2-85d6-506c6d73e5ad"],
+Cell[58344, 1524, 12097, 315, 213, "Output",ExpressionUUID->"0fce6bb0-45fe-4e6c-a361-d7b5261cb38e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[70478, 1844, 260, 4, 30, "Input",ExpressionUUID->"f774e49f-9f49-4e9e-8986-5d0680aa1203"],
+Cell[70741, 1850, 173, 2, 34, "Output",ExpressionUUID->"1a69893c-2615-4d54-91e8-335f2abb5de6"]
+}, Open  ]],
+Cell[70929, 1855, 278, 5, 136, "Input",ExpressionUUID->"9a42fe37-6411-44bf-809a-1046a3483503"],
+Cell[71210, 1862, 294, 6, 30, "Input",ExpressionUUID->"9e2a44fe-0bb9-4f67-9e8b-da5c10ecf6b1"],
+Cell[CellGroupData[{
+Cell[71529, 1872, 182, 2, 30, "Input",ExpressionUUID->"f396c3bc-ea1b-44d3-a6cc-f7fecc0fffe5"],
+Cell[71714, 1876, 12116, 317, 213, "Output",ExpressionUUID->"1d1b26d3-3d5a-4f24-a113-21f43e2027cf"]
+}, Open  ]],
+Cell[83845, 2196, 812, 19, 94, "Input",ExpressionUUID->"0484a78b-7482-4457-ac3e-5762b8c80c69"],
+Cell[CellGroupData[{
+Cell[84682, 2219, 247, 4, 30, "Input",ExpressionUUID->"6f58dd70-ec76-4b2e-8d7d-ae9f5adae4ca"],
+Cell[84932, 2225, 11414, 300, 191, "Output",ExpressionUUID->"b4f39a2e-5da3-4756-9d30-b57a024860f7"]
+}, Open  ]],
+Cell[96361, 2528, 414, 9, 30, "Input",ExpressionUUID->"6dc8539a-b6fb-45ed-bf01-82aab57aef98"],
+Cell[CellGroupData[{
+Cell[96800, 2541, 236, 4, 30, "Input",ExpressionUUID->"cb0ca33d-b1f5-4703-8d8e-8c263a31064a"],
+Cell[97039, 2547, 11410, 300, 196, "Output",ExpressionUUID->"1d5fa8ad-833f-46d5-a1dc-a4179db033a8"]
+}, Open  ]],
+Cell[108464, 2850, 417, 9, 30, "Input",ExpressionUUID->"5eff98d5-542a-4fb2-8a57-8b5bb386d93b"],
+Cell[CellGroupData[{
+Cell[108906, 2863, 230, 4, 30, "Input",ExpressionUUID->"6b8a882a-c4d7-48c9-bd9a-89d690e1775f"],
+Cell[109139, 2869, 11431, 302, 194, "Output",ExpressionUUID->"0dd69f7f-556b-4cf0-903b-9a63338f9b78"]
+}, Open  ]],
+Cell[120585, 3174, 413, 9, 30, "Input",ExpressionUUID->"786a397e-8276-4b59-936c-1058b86fa2b4"],
+Cell[CellGroupData[{
+Cell[121023, 3187, 232, 4, 30, "Input",ExpressionUUID->"cac28fd3-e795-47f1-a77e-e5a2fe196f33"],
+Cell[121258, 3193, 11631, 306, 199, "Output",ExpressionUUID->"fdf26c39-191c-4b8f-8ed6-4f24a3f9beeb"]
+}, Open  ]],
+Cell[132904, 3502, 462, 11, 52, "Input",ExpressionUUID->"c7feecf3-f47a-423b-924d-e06efe08d9d2"],
+Cell[133369, 3515, 419, 9, 157, "Input",ExpressionUUID->"7e7b9f75-0ed1-4382-a7dd-99907c1473ac"],
+Cell[CellGroupData[{
+Cell[133813, 3528, 248, 4, 30, "Input",ExpressionUUID->"ae98646f-6aec-43fc-bc4c-76b34b9d8371"],
+Cell[134064, 3534, 2181, 62, 146, "Output",ExpressionUUID->"b03d30ad-4939-46cf-b5fe-8b765a9784a2"]
+}, Open  ]],
+Cell[136260, 3599, 1054, 29, 115, "Input",ExpressionUUID->"24b1d6d5-8138-410c-bad0-4688d4069032"],
+Cell[137317, 3630, 396, 9, 136, "Input",ExpressionUUID->"1f278cce-b737-471d-abb8-571bd986d464"],
+Cell[137716, 3641, 265, 5, 30, "Input",ExpressionUUID->"9a2e8cfd-31b0-4513-b860-e5717141a96f"],
+Cell[137984, 3648, 851, 23, 73, "Input",ExpressionUUID->"f2581317-15ac-431d-858d-1506de0ee6ea"],
+Cell[138838, 3673, 239, 5, 30, "Input",ExpressionUUID->"935c66bf-fd6a-4022-88ef-839267449906"],
+Cell[139080, 3680, 255, 5, 115, "Input",ExpressionUUID->"e4eda86f-c0c1-4ed1-b09c-a197bbc299c9"],
+Cell[139338, 3687, 1202, 32, 136, "Input",ExpressionUUID->"e7549059-0b03-41c9-afd1-97986dde3359"],
+Cell[140543, 3721, 154, 3, 30, "Input",ExpressionUUID->"75c75df4-ee72-49af-9630-1cf0eef74f43"],
+Cell[140700, 3726, 128, 3, 30, "Input",ExpressionUUID->"a4013e44-a682-4c70-a84f-f4695f7dd230"],
+Cell[140831, 3731, 238, 5, 30, "Input",ExpressionUUID->"73dfc6d7-5c31-463e-8864-6b5bef17b11d"],
+Cell[CellGroupData[{
+Cell[141094, 3740, 524, 14, 30, "Input",ExpressionUUID->"b4100299-10f3-4c3c-90b5-db96319fb7d9"],
+Cell[141621, 3756, 3541, 105, 133, "Output",ExpressionUUID->"227ac9fd-122f-4bdd-8ce6-0421fc3101b9"]
+}, Open  ]],
+Cell[145177, 3864, 636, 18, 52, "Input",ExpressionUUID->"d027658a-37f9-489d-a307-4d535ae073b9"],
+Cell[CellGroupData[{
+Cell[145838, 3886, 203, 3, 30, "Input",ExpressionUUID->"55e4d6af-838f-45bf-ab25-da03c1c1d848"],
+Cell[146044, 3891, 3741, 113, 161, "Output",ExpressionUUID->"f7adf7fb-3d44-404a-b9d8-8367ef825cc7"]
+}, Open  ]],
+Cell[149800, 4007, 328, 6, 115, "Input",ExpressionUUID->"a9b9ca57-f825-4517-8b39-8ebebaffad8a"],
+Cell[150131, 4015, 1735, 50, 136, "Input",ExpressionUUID->"f261cfc3-9a94-4830-9195-aa48c3328d0f"],
+Cell[151869, 4067, 1023, 26, 178, "Input",ExpressionUUID->"5fb9542c-66c2-4b59-b6c0-3d1e3db1842f"],
+Cell[152895, 4095, 195, 4, 30, "Input",ExpressionUUID->"ce77b5bd-ebce-4c42-9263-53392240007e"],
+Cell[153093, 4101, 1358, 37, 115, "Input",ExpressionUUID->"9997d1a8-9d83-430a-8554-6cfc2a974c27"],
+Cell[154454, 4140, 1818, 48, 178, "Input",ExpressionUUID->"3e8bf30c-17cd-43d9-b2c2-32aaac3fabf4"],
+Cell[156275, 4190, 906, 22, 115, "Input",ExpressionUUID->"0faeac76-b8a2-41ff-a322-8a7cc20f5cdc"],
+Cell[CellGroupData[{
+Cell[157206, 4216, 547, 11, 52, "Input",ExpressionUUID->"0aeaadd3-5332-4530-a274-2d257367f236"],
+Cell[CellGroupData[{
+Cell[157778, 4231, 196, 4, 24, "Print",ExpressionUUID->"941d2971-0756-46af-bbfa-35b438dd0e63"],
+Cell[157977, 4237, 198, 4, 24, "Print",ExpressionUUID->"7f9fc3c9-6ddc-47d5-af72-107027ebb276"],
+Cell[158178, 4243, 196, 4, 24, "Print",ExpressionUUID->"da3f0120-fdef-4857-aa25-2ee29cd3ae1a"],
+Cell[158377, 4249, 198, 4, 24, "Print",ExpressionUUID->"b6c871c9-430f-4950-8ffa-bdb5d1f09ffe"],
+Cell[158578, 4255, 196, 4, 24, "Print",ExpressionUUID->"08b8650b-700a-4a81-98cd-762915822ac6"],
+Cell[158777, 4261, 196, 4, 24, "Print",ExpressionUUID->"dc323011-3d7c-4c71-98f9-fc651ab59bcd"],
+Cell[158976, 4267, 196, 4, 24, "Print",ExpressionUUID->"dcbc9173-996e-4615-8934-be1437da9dbc"],
+Cell[159175, 4273, 196, 4, 24, "Print",ExpressionUUID->"5235f72f-1e09-460f-a972-86c8776de7bf"],
+Cell[159374, 4279, 196, 4, 24, "Print",ExpressionUUID->"51d0dc87-3144-4105-a8ae-a650d049a319"],
+Cell[159573, 4285, 197, 4, 24, "Print",ExpressionUUID->"61f11d61-f008-44dc-96d0-db1dad10327b"],
+Cell[159773, 4291, 199, 4, 24, "Print",ExpressionUUID->"f3db9187-5fb7-4179-9d5d-fee11f151b8a"],
+Cell[159975, 4297, 197, 4, 24, "Print",ExpressionUUID->"55143390-2218-4242-8577-41b5b68bf26f"],
+Cell[160175, 4303, 197, 4, 24, "Print",ExpressionUUID->"de5e700a-5013-445e-b472-25d383ca5cf3"],
+Cell[160375, 4309, 197, 4, 24, "Print",ExpressionUUID->"04316d54-f297-424b-9b49-acfd45d21630"],
+Cell[160575, 4315, 199, 4, 24, "Print",ExpressionUUID->"017b3ad1-2b25-45a4-8b9d-111686161236"],
+Cell[160777, 4321, 199, 4, 24, "Print",ExpressionUUID->"cf381b0c-ac88-40ab-b951-874fcfdfa6c6"],
+Cell[160979, 4327, 197, 4, 24, "Print",ExpressionUUID->"67e161ed-8390-46fa-a181-f56c98936077"],
+Cell[161179, 4333, 197, 4, 24, "Print",ExpressionUUID->"12eddb76-c821-45d5-9119-d5d357f2d4eb"],
+Cell[161379, 4339, 197, 4, 24, "Print",ExpressionUUID->"f42cca31-6f52-49bc-b356-94d57c78fd27"],
+Cell[161579, 4345, 197, 4, 24, "Print",ExpressionUUID->"812113fc-a308-46fd-b058-9e34214fc722"],
+Cell[161779, 4351, 197, 4, 24, "Print",ExpressionUUID->"5f1deb06-8268-41a5-84bd-e5a8ada699a5"],
+Cell[161979, 4357, 199, 4, 24, "Print",ExpressionUUID->"28c127e4-f366-4435-9db7-8b114a82b320"],
+Cell[162181, 4363, 199, 4, 24, "Print",ExpressionUUID->"db1f8f22-c844-4e1e-892c-73ca3a41eaee"],
+Cell[162383, 4369, 197, 4, 24, "Print",ExpressionUUID->"ae692077-c31d-43f0-a099-c52e179f8dea"],
+Cell[162583, 4375, 196, 4, 24, "Print",ExpressionUUID->"8f0af9a8-1bc7-4b92-a518-3b7fb75be3ae"],
+Cell[162782, 4381, 197, 4, 24, "Print",ExpressionUUID->"60b61b67-6c61-4599-a20d-463c308eb270"],
+Cell[162982, 4387, 197, 4, 24, "Print",ExpressionUUID->"60c27d5d-d770-45b4-8b6e-611a3c03ef79"],
+Cell[163182, 4393, 197, 4, 24, "Print",ExpressionUUID->"e5c01ae9-55fc-47f8-9c3d-6f54b4b00756"],
+Cell[163382, 4399, 196, 4, 24, "Print",ExpressionUUID->"7f11c8de-f7aa-4313-ab85-f0bc8404662d"],
+Cell[163581, 4405, 199, 4, 24, "Print",ExpressionUUID->"9e154613-6e9c-4d11-8ddd-6170705528ab"],
+Cell[163783, 4411, 197, 4, 24, "Print",ExpressionUUID->"2f8e02d9-a5b4-4bd9-b9d9-aec02153dd7c"],
+Cell[163983, 4417, 199, 4, 24, "Print",ExpressionUUID->"650def7c-a65f-44fb-811b-1fa0b5a45d15"],
+Cell[164185, 4423, 199, 4, 24, "Print",ExpressionUUID->"6474532b-9599-4489-88db-58d38314ab6f"],
+Cell[164387, 4429, 197, 4, 24, "Print",ExpressionUUID->"226a40c4-f169-42d2-8ab6-1f67a2f873ea"],
+Cell[164587, 4435, 196, 4, 24, "Print",ExpressionUUID->"a1944f0f-52a8-49d8-b9c3-20fec2f3235a"],
+Cell[164786, 4441, 197, 4, 24, "Print",ExpressionUUID->"3b4b9b10-ab7e-4de6-ab0f-e0018abf925b"],
+Cell[164986, 4447, 196, 4, 24, "Print",ExpressionUUID->"6c480e69-9121-408a-8dec-f908c61e8d42"],
+Cell[165185, 4453, 199, 4, 24, "Print",ExpressionUUID->"cba40a3e-274e-4ca6-acca-4f9780f8640b"],
+Cell[165387, 4459, 197, 4, 24, "Print",ExpressionUUID->"e62616bb-5c74-4eeb-afa2-bb439d81b80e"],
+Cell[165587, 4465, 197, 4, 24, "Print",ExpressionUUID->"52e54f32-ac58-4414-93fa-68fcf6f14698"],
+Cell[165787, 4471, 197, 4, 24, "Print",ExpressionUUID->"50d0b363-2b99-4f39-bfc0-29a59ae13c83"],
+Cell[165987, 4477, 197, 4, 24, "Print",ExpressionUUID->"5dca03fa-6242-4056-b5c8-360525f873d4"],
+Cell[166187, 4483, 197, 4, 24, "Print",ExpressionUUID->"91a05c83-f424-4d73-8df9-fd9365c15c65"],
+Cell[166387, 4489, 197, 4, 24, "Print",ExpressionUUID->"e35ff97f-1b31-4eec-84d3-b936608c353c"],
+Cell[166587, 4495, 197, 4, 24, "Print",ExpressionUUID->"45f0eca5-0ad3-474d-8922-cc6c393a259f"]
+}, Open  ]],
+Cell[166799, 4502, 196, 3, 34, "Output",ExpressionUUID->"cfcdfb24-b305-466a-a1bb-a332ab352a9e"]
+}, Closed]],
+Cell[167010, 4508, 371, 8, 26, "Input",ExpressionUUID->"09576c11-deed-4e65-b168-19d328941f7e"],
+Cell[167384, 4518, 1052, 28, 115, "Input",ExpressionUUID->"e9cb917d-6bce-4b94-a047-15b919e9e4cc"],
+Cell[168439, 4548, 883, 22, 115, "Input",ExpressionUUID->"58da36ab-d8d7-464f-a677-c4ffb3b43015"],
+Cell[CellGroupData[{
+Cell[169347, 4574, 441, 10, 30, "Input",ExpressionUUID->"93d22a91-7738-43f2-ae38-e21755ca22f1"],
+Cell[169791, 4586, 515, 11, 42, "Message",ExpressionUUID->"dc04a919-7e52-45e2-bb44-a344b5d1d308"],
+Cell[170309, 4599, 513, 11, 42, "Message",ExpressionUUID->"99a74ed9-9abc-451d-8242-fd4078fd5891"],
+Cell[170825, 4612, 515, 11, 42, "Message",ExpressionUUID->"1070ad89-c66d-4906-aa54-fd4ac95964d8"],
+Cell[171343, 4625, 461, 10, 24, "Message",ExpressionUUID->"9dbf4032-8c2f-4bba-9001-aa2649499b6f"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[171841, 4640, 154, 3, 30, "Input",ExpressionUUID->"6e5f5a2d-f8d8-41cc-b7f7-193907c772e2"],
+Cell[171998, 4645, 4419372, 95030, 90964, "Output",ExpressionUUID->"6849d88e-ad0f-49c4-99da-875ddf3df840"]
+}, Closed]],
+Cell[4591385, 99678, 152, 3, 26, "Input",ExpressionUUID->"3bccd808-2d0d-4aed-ad5c-f98dce1bb2fa"],
+Cell[4591540, 99683, 151, 3, 30, "Input",ExpressionUUID->"9214d531-c1c4-4f0b-8067-62d509d3780e"],
+Cell[4591694, 99688, 152, 3, 30, "Input",ExpressionUUID->"5d134bbf-d270-4d46-9aad-c35a20b3af10"],
+Cell[4591849, 99693, 1248, 34, 115, "Input",ExpressionUUID->"c9706e32-aa64-4bea-be5e-fca139f74b78"],
+Cell[4593100, 99729, 1047, 24, 94, "Input",ExpressionUUID->"2098a55c-4e04-413e-b48c-2e3e1420aeba"],
+Cell[4594150, 99755, 716, 17, 73, "Input",ExpressionUUID->"f11165e8-30f4-4621-91cb-e78cc1116c62"],
+Cell[4594869, 99774, 302, 5, 30, "Input",ExpressionUUID->"881beb7c-e557-4703-a5ed-8b7345c6403b"],
+Cell[CellGroupData[{
+Cell[4595196, 99783, 240, 4, 30, "Input",ExpressionUUID->"86953094-992b-4ece-81d3-0f54f8c99910"],
+Cell[CellGroupData[{
+Cell[4595461, 99791, 197, 4, 24, "Print",ExpressionUUID->"8b88be0a-a13e-4a7b-8295-c1008ad658d6"],
+Cell[4595661, 99797, 198, 4, 24, "Print",ExpressionUUID->"f854acc1-f24a-43ce-9107-892da3741105"],
+Cell[4595862, 99803, 198, 4, 24, "Print",ExpressionUUID->"0ebf2041-29ad-490d-ae2c-fb00ea60e896"],
+Cell[4596063, 99809, 198, 4, 24, "Print",ExpressionUUID->"ce7c7420-29bb-4bc7-9fe1-c52d92b3c17c"],
+Cell[4596264, 99815, 198, 4, 24, "Print",ExpressionUUID->"bdb7f0f5-ae0e-47e3-bde4-add2b2e9172d"],
+Cell[4596465, 99821, 198, 4, 24, "Print",ExpressionUUID->"6ccc5234-8d31-4f80-b860-fb9bc1ead01e"],
+Cell[4596666, 99827, 198, 4, 24, "Print",ExpressionUUID->"9f6f5a15-4625-4559-aeb6-4e62d60ea660"],
+Cell[4596867, 99833, 200, 4, 24, "Print",ExpressionUUID->"cc753901-6a7d-4228-ac53-35d451b86d77"],
+Cell[4597070, 99839, 198, 4, 24, "Print",ExpressionUUID->"8fe1d30b-85ec-47bd-8e46-174bcc6be6cf"],
+Cell[4597271, 99845, 199, 4, 24, "Print",ExpressionUUID->"cd6b11e5-086b-4a28-ba23-c88ce09cbddb"]
+}, Open  ]],
+Cell[4597485, 99852, 196, 3, 34, "Output",ExpressionUUID->"f9eb79c9-79ab-4972-ac5d-9bf4d7c5706c"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4597718, 99860, 241, 4, 26, "Input",ExpressionUUID->"f96bfd50-3c93-487b-b72c-0efa966db052"],
+Cell[CellGroupData[{
+Cell[4597984, 99868, 197, 4, 24, "Print",ExpressionUUID->"0df55f20-b51c-4417-8687-560b75680ad9"],
+Cell[4598184, 99874, 199, 4, 24, "Print",ExpressionUUID->"65afac5f-ac1b-405d-95ca-d88dcc034907"],
+Cell[4598386, 99880, 199, 4, 24, "Print",ExpressionUUID->"155d77b5-d5ca-47b5-bba8-036aff1d2443"],
+Cell[4598588, 99886, 199, 4, 24, "Print",ExpressionUUID->"6402840f-e54b-49d2-8ce8-0175340b2083"],
+Cell[4598790, 99892, 199, 4, 24, "Print",ExpressionUUID->"736736de-4f33-4375-9ad5-d9f98f5dba87"],
+Cell[4598992, 99898, 197, 4, 24, "Print",ExpressionUUID->"5d2d9825-5632-4457-8211-7dd6cee750a8"],
+Cell[4599192, 99904, 197, 4, 24, "Print",ExpressionUUID->"23906453-43f1-4403-92b6-e9fb94c0ae50"],
+Cell[4599392, 99910, 197, 4, 24, "Print",ExpressionUUID->"2ba2eb99-fc54-459f-85c0-ed99d7ad07c9"],
+Cell[4599592, 99916, 197, 4, 24, "Print",ExpressionUUID->"94070629-691b-4d0a-9eb7-69b91078a11e"],
+Cell[4599792, 99922, 197, 4, 24, "Print",ExpressionUUID->"3812bf93-11c7-45dc-bd0e-7ed9238191ce"]
+}, Open  ]],
+Cell[4600004, 99929, 196, 3, 34, "Output",ExpressionUUID->"3f41a929-7beb-4259-8ecb-4fc1d8a69374"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4600237, 99937, 243, 4, 26, "Input",ExpressionUUID->"fe1a97a8-532e-4e7a-8a88-f565caae5f97"],
+Cell[CellGroupData[{
+Cell[4600505, 99945, 201, 4, 24, "Print",ExpressionUUID->"203826e8-d100-4a48-aa61-b8cae880ddf2"],
+Cell[4600709, 99951, 199, 4, 24, "Print",ExpressionUUID->"9a8a2d64-a921-4ebe-b6c4-e90419eee1c2"],
+Cell[4600911, 99957, 199, 4, 24, "Print",ExpressionUUID->"ceff1cb8-2c39-4c0f-a43a-efcbdbef0fe2"],
+Cell[4601113, 99963, 201, 4, 24, "Print",ExpressionUUID->"89a661a3-5c0c-4326-a393-6e4972db4a6b"],
+Cell[4601317, 99969, 201, 4, 24, "Print",ExpressionUUID->"6aa6f90c-6c91-4f86-8968-1103cba7975b"],
+Cell[4601521, 99975, 199, 4, 24, "Print",ExpressionUUID->"0dcb36c1-0668-4b8a-bc01-4945a598c78a"],
+Cell[4601723, 99981, 199, 4, 24, "Print",ExpressionUUID->"0fcfcd70-8d7b-435d-a163-acb028e6e16e"],
+Cell[4601925, 99987, 199, 4, 24, "Print",ExpressionUUID->"3b7724cb-54a4-4dde-8ea0-50e5610b792e"],
+Cell[4602127, 99993, 199, 4, 24, "Print",ExpressionUUID->"b613c9c7-96f4-4a6c-8f08-8e6df52762df"],
+Cell[4602329, 99999, 199, 4, 24, "Print",ExpressionUUID->"a6fd0189-8e91-469a-9897-389a4893d7b0"]
+}, Open  ]],
+Cell[4602543, 100006, 196, 3, 34, "Output",ExpressionUUID->"4a8fef41-31e5-42c1-8bdc-68e9f7afbd6a"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4602776, 100014, 242, 4, 26, "Input",ExpressionUUID->"2aecbe65-4b44-4dfa-93ef-65fd39540c9b"],
+Cell[CellGroupData[{
+Cell[4603043, 100022, 197, 4, 24, "Print",ExpressionUUID->"2fca990b-8284-4e3f-8a3b-7f56db89acc5"],
+Cell[4603243, 100028, 197, 4, 24, "Print",ExpressionUUID->"3177b850-296d-49fe-8867-d3473a1b0c35"],
+Cell[4603443, 100034, 197, 4, 24, "Print",ExpressionUUID->"c0b4e928-89e9-4d85-8e51-5cbdf9ce41aa"],
+Cell[4603643, 100040, 197, 4, 24, "Print",ExpressionUUID->"a373700f-9836-44d5-8a5f-930119678171"],
+Cell[4603843, 100046, 197, 4, 24, "Print",ExpressionUUID->"ca822f7e-70c9-46a4-a25f-582acb77abcb"],
+Cell[4604043, 100052, 197, 4, 24, "Print",ExpressionUUID->"96e22b30-8c73-4518-8d23-873121d8fc48"],
+Cell[4604243, 100058, 197, 4, 24, "Print",ExpressionUUID->"83708b79-d67b-4c05-93e9-38073aa7fe05"],
+Cell[4604443, 100064, 197, 4, 24, "Print",ExpressionUUID->"78e88359-b700-4328-bea6-a2b0d14a7cac"],
+Cell[4604643, 100070, 197, 4, 24, "Print",ExpressionUUID->"704157f3-bfb2-4f43-b5f0-c5bfbc560aab"],
+Cell[4604843, 100076, 197, 4, 24, "Print",ExpressionUUID->"7565254f-9a77-48dc-9444-33b886723862"]
+}, Open  ]],
+Cell[4605055, 100083, 200, 3, 34, "Output",ExpressionUUID->"2e1c38af-7450-4ecc-a05c-257dcdba5451"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4605292, 100091, 241, 4, 26, "Input",ExpressionUUID->"8ee863b5-d147-4e8a-bd18-9c421dd23787"],
+Cell[CellGroupData[{
+Cell[4605558, 100099, 197, 4, 24, "Print",ExpressionUUID->"2009a193-ceea-46ef-bd80-037d926017cf"],
+Cell[4605758, 100105, 199, 4, 24, "Print",ExpressionUUID->"0a74d1db-0a55-41c7-a355-eca543eb70e7"],
+Cell[4605960, 100111, 197, 4, 24, "Print",ExpressionUUID->"e55077bb-d892-44dc-b006-f69eb07618f5"],
+Cell[4606160, 100117, 197, 4, 24, "Print",ExpressionUUID->"55c1e9be-56a5-4944-b983-985ca4b80876"],
+Cell[4606360, 100123, 197, 4, 24, "Print",ExpressionUUID->"17abba4e-1848-488c-bde6-35cdf05998d4"],
+Cell[4606560, 100129, 199, 4, 24, "Print",ExpressionUUID->"8842af6b-8a1e-48e1-98ef-18ca8f39a91d"],
+Cell[4606762, 100135, 197, 4, 24, "Print",ExpressionUUID->"c65f5711-d87e-4702-85dc-948bb2237f08"],
+Cell[4606962, 100141, 197, 4, 24, "Print",ExpressionUUID->"c6fbe64a-ceca-439e-8b29-9c26adf965ef"],
+Cell[4607162, 100147, 199, 4, 24, "Print",ExpressionUUID->"9fcc8d20-19ef-45d4-bc4b-aefbb0a6e431"],
+Cell[4607364, 100153, 197, 4, 24, "Print",ExpressionUUID->"3f30f015-4bfc-47f5-99d8-e3f68011c8c2"]
+}, Open  ]],
+Cell[4607576, 100160, 196, 3, 34, "Output",ExpressionUUID->"6069c659-d902-4918-a553-fc39b0ec194b"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4607809, 100168, 241, 4, 26, "Input",ExpressionUUID->"71acea69-b2b3-491d-ae15-f4df099b9b39"],
+Cell[CellGroupData[{
+Cell[4608075, 100176, 199, 4, 24, "Print",ExpressionUUID->"4145e9a2-b86f-444d-9e6f-514e102a7a17"],
+Cell[4608277, 100182, 197, 4, 24, "Print",ExpressionUUID->"0f110600-9945-4ce8-ada0-239cd91d8e03"],
+Cell[4608477, 100188, 199, 4, 24, "Print",ExpressionUUID->"f8453fc4-a721-4441-9016-2af31abf7022"],
+Cell[4608679, 100194, 196, 4, 24, "Print",ExpressionUUID->"e7b4daf0-0724-4551-8ded-34ecced4ec32"],
+Cell[4608878, 100200, 197, 4, 24, "Print",ExpressionUUID->"654cff30-d67b-463f-9d66-f38a5cbd6e2c"],
+Cell[4609078, 100206, 197, 4, 24, "Print",ExpressionUUID->"0398c397-cea0-48c6-adee-2da2335e66cb"],
+Cell[4609278, 100212, 197, 4, 24, "Print",ExpressionUUID->"0f95316d-23be-46b1-8fb4-6dfdb7e99fe2"],
+Cell[4609478, 100218, 199, 4, 24, "Print",ExpressionUUID->"0996f87d-8f52-4872-8581-efb748040ff9"],
+Cell[4609680, 100224, 197, 4, 24, "Print",ExpressionUUID->"6098c8b1-ad3d-4b8a-850a-4b9fb5e363cf"],
+Cell[4609880, 100230, 197, 4, 24, "Print",ExpressionUUID->"57383c2a-c8e3-461c-bd50-359a76498569"]
+}, Open  ]],
+Cell[4610092, 100237, 196, 3, 34, "Output",ExpressionUUID->"abee5d57-ae1c-4b68-8896-520cd5335c43"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4610325, 100245, 243, 4, 26, "Input",ExpressionUUID->"75b90654-1ac3-4894-8e5d-81d701b5e39a"],
+Cell[CellGroupData[{
+Cell[4610593, 100253, 197, 4, 24, "Print",ExpressionUUID->"eea3546e-d9ee-471e-845d-31f4851702d4"],
+Cell[4610793, 100259, 196, 4, 24, "Print",ExpressionUUID->"aedb175e-f30c-4a30-9760-18498d2f5ebb"],
+Cell[4610992, 100265, 197, 4, 24, "Print",ExpressionUUID->"9ef01fde-35d5-4cdb-8e20-06150be4917d"],
+Cell[4611192, 100271, 196, 4, 24, "Print",ExpressionUUID->"801f39b3-2897-4def-aace-35be798602f1"],
+Cell[4611391, 100277, 199, 4, 24, "Print",ExpressionUUID->"4524b0a4-c3cf-4eee-9bae-4a4411158765"],
+Cell[4611593, 100283, 199, 4, 24, "Print",ExpressionUUID->"9ad23010-af47-4eb5-80b1-72cc7a2f8eb2"],
+Cell[4611795, 100289, 196, 4, 24, "Print",ExpressionUUID->"9a39c0cc-b71d-4bfb-b47a-e3532770aa9b"],
+Cell[4611994, 100295, 199, 4, 24, "Print",ExpressionUUID->"e9a4811a-4dfc-4847-9ed8-9f5e7fb0a1bd"],
+Cell[4612196, 100301, 197, 4, 24, "Print",ExpressionUUID->"4a551457-b8aa-425f-b484-9ebe7095e485"],
+Cell[4612396, 100307, 196, 4, 24, "Print",ExpressionUUID->"ed43c117-5a2c-4198-9efb-7da7dd4d4034"]
+}, Open  ]],
+Cell[4612607, 100314, 196, 3, 34, "Output",ExpressionUUID->"1a9dd832-cded-404a-9e8e-55603b4d7433"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4612840, 100322, 292, 5, 26, "Input",ExpressionUUID->"f824d033-691a-4d1f-92f5-4ab01423a5ad"],
+Cell[CellGroupData[{
+Cell[4613157, 100331, 177, 4, 24, "Print",ExpressionUUID->"92d7c1bd-c362-4205-9f66-6a01b447a4eb"],
+Cell[4613337, 100337, 175, 4, 24, "Print",ExpressionUUID->"54df0102-003b-4884-bb53-111b767a4c0f"],
+Cell[4613515, 100343, 174, 4, 24, "Print",ExpressionUUID->"42fe5d37-9e86-4d1b-b9a2-35370152be1a"],
+Cell[4613692, 100349, 177, 4, 24, "Print",ExpressionUUID->"e05f68ba-59c9-4014-82ba-94955347b056"]
+}, Open  ]],
+Cell[4613884, 100356, 174, 3, 34, "Output",ExpressionUUID->"52db8c9f-9b99-4b63-bfd9-226b29998173"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4614095, 100364, 228, 4, 26, "Input",ExpressionUUID->"e1619147-dbd8-4b95-92c0-a0a9e3d6e05f"],
+Cell[4614326, 100370, 729, 19, 46, "Output",ExpressionUUID->"6b31f62a-bb61-4325-bbb2-0f8b38f9d9b0"]
+}, Open  ]],
+Cell[4615070, 100392, 200, 4, 32, "Item",ExpressionUUID->"b8f7dd32-654c-4d69-a388-00e73e20b2c5"],
+Cell[CellGroupData[{
+Cell[4615295, 100400, 639, 16, 52, "Input",ExpressionUUID->"6385e4e6-3aa6-4ca7-8de4-83d30633a5ae"],
+Cell[4615937, 100418, 158, 2, 34, "Output",ExpressionUUID->"20e798ff-b0ce-4e4d-8da1-a093ebf96720"]
+}, Open  ]],
+Cell[4616110, 100423, 184, 4, 30, "Input",ExpressionUUID->"35538101-3df6-4320-82c6-fb90398dcf8b"],
+Cell[CellGroupData[{
+Cell[4616319, 100431, 241, 4, 30, "Input",ExpressionUUID->"c6f1e48f-f2b3-4633-a270-2d837481a3a1"],
+Cell[4616563, 100437, 396, 10, 24, "Message",ExpressionUUID->"da0ce5b5-a752-4f0c-81a9-b9f06d7ab115"],
+Cell[4616962, 100449, 394, 10, 24, "Message",ExpressionUUID->"be0f414f-c102-4bf4-9e35-0d311e65c76f"],
+Cell[CellGroupData[{
+Cell[4617381, 100463, 177, 4, 24, "Print",ExpressionUUID->"3bba7d8f-9b06-484f-b4d3-632f231afc37"],
+Cell[4617561, 100469, 177, 4, 24, "Print",ExpressionUUID->"f659f692-01ec-4858-acaa-d60f4b4998e6"],
+Cell[4617741, 100475, 175, 4, 24, "Print",ExpressionUUID->"e9e35560-6a98-4d85-ba46-29424be208af"],
+Cell[4617919, 100481, 177, 4, 24, "Print",ExpressionUUID->"5d1876d0-f98c-4bb2-9711-124711ea1dab"],
+Cell[4618099, 100487, 175, 4, 24, "Print",ExpressionUUID->"ae667c6d-6a3b-4b8a-9bf8-9c76aa4faf28"]
+}, Open  ]],
+Cell[4618289, 100494, 247, 4, 34, "Output",ExpressionUUID->"88acd967-1c2c-4b4e-b73d-ecbd06540448"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4618573, 100503, 241, 4, 26, "Input",ExpressionUUID->"8d487f69-3cc5-4b15-a17c-36b0f0a098da"],
+Cell[CellGroupData[{
+Cell[4618839, 100511, 175, 4, 24, "Print",ExpressionUUID->"2846bb9c-a0e3-4cc6-9863-49dc879372fb"],
+Cell[4619017, 100517, 175, 4, 24, "Print",ExpressionUUID->"8e8e94ae-2685-46cf-824c-9dccd6aaa7c9"],
+Cell[4619195, 100523, 175, 4, 24, "Print",ExpressionUUID->"ea5a6e57-459b-44f3-af8d-e27fd9f73504"],
+Cell[4619373, 100529, 175, 4, 24, "Print",ExpressionUUID->"236d0628-1541-4ee1-8294-d993f0d4fc6b"],
+Cell[4619551, 100535, 175, 4, 24, "Print",ExpressionUUID->"41931755-f8dd-4016-8ec3-12f189f6c48b"],
+Cell[4619729, 100541, 177, 4, 24, "Print",ExpressionUUID->"87cc3efa-15c5-4aac-9f59-fc77c411956d"],
+Cell[4619909, 100547, 175, 4, 24, "Print",ExpressionUUID->"c28fc9bb-8175-41ae-b5b8-a2af110aa01e"],
+Cell[4620087, 100553, 175, 4, 24, "Print",ExpressionUUID->"c804e0fc-13b8-404c-be08-a7e750465f41"],
+Cell[4620265, 100559, 175, 4, 24, "Print",ExpressionUUID->"017215f5-e5a5-412a-95b0-02e856ef17cf"],
+Cell[4620443, 100565, 175, 4, 24, "Print",ExpressionUUID->"27abe593-5557-4139-b432-a9d130c93652"]
+}, Open  ]],
+Cell[4620633, 100572, 174, 3, 34, "Output",ExpressionUUID->"27df6f47-5fa2-4e39-b7f2-afc3c720e098"]
+}, Closed]],
+Cell[4620822, 100578, 190, 5, 26, "Input",ExpressionUUID->"df98973f-1c7c-43bf-ada2-bc8f065d9ee0"],
+Cell[CellGroupData[{
+Cell[4621037, 100587, 319, 6, 30, "Input",ExpressionUUID->"2649d505-baee-414f-ba61-a848c431375f"],
+Cell[CellGroupData[{
+Cell[4621381, 100597, 177, 4, 24, "Print",ExpressionUUID->"d990281d-da4e-44ce-bba0-3be9e51984c8"],
+Cell[4621561, 100603, 175, 4, 24, "Print",ExpressionUUID->"8e564ec2-2ba2-4af6-8839-241a48c4b011"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4621785, 100613, 270, 6, 26, "Input",ExpressionUUID->"e440a8fa-6daf-4e52-952c-f2a2da027d58"],
+Cell[CellGroupData[{
+Cell[4622080, 100623, 175, 4, 24, "Print",ExpressionUUID->"47e9eb29-eb3c-44eb-bde5-daa461e7965a"],
+Cell[4622258, 100629, 175, 4, 24, "Print",ExpressionUUID->"3c8d7c90-91f7-46fd-ac69-8701bacfe25a"],
+Cell[4622436, 100635, 175, 4, 24, "Print",ExpressionUUID->"44a1988b-44c7-4cc4-accc-daccc86bdfec"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4622660, 100645, 273, 6, 26, "Input",ExpressionUUID->"ccd5003b-7be8-4452-a781-58d0de738e3e"],
+Cell[CellGroupData[{
+Cell[4622958, 100655, 177, 4, 24, "Print",ExpressionUUID->"590c91e2-ef3c-4505-aa0b-95d55137b2bb"],
+Cell[4623138, 100661, 175, 4, 24, "Print",ExpressionUUID->"69d37e74-c56f-4a12-bc84-953b1ee45562"],
+Cell[4623316, 100667, 175, 4, 24, "Print",ExpressionUUID->"400a6676-c5b0-4df1-b6bb-83a59b331179"]
+}, Open  ]]
+}, Closed]],
+Cell[4623518, 100675, 190, 5, 26, "Input",ExpressionUUID->"07237824-5e81-41b0-bd1d-7d744858c3ed"],
+Cell[4623711, 100682, 245, 4, 30, "Input",ExpressionUUID->"4d28e53c-4af5-40ba-890a-a6a9f9544d99"],
+Cell[4623959, 100688, 245, 4, 30, "Input",ExpressionUUID->"712b80aa-b8c4-4294-a783-8d276a083f12"],
+Cell[CellGroupData[{
+Cell[4624229, 100696, 245, 4, 30, "Input",ExpressionUUID->"0121b0f2-33a2-4f93-abd0-b7335f00f4ba"],
+Cell[4624477, 100702, 482, 11, 24, "Message",ExpressionUUID->"535114a6-b030-4308-8246-00c024410468"],
+Cell[4624962, 100715, 488, 11, 24, "Message",ExpressionUUID->"3fff711e-1dcc-463e-a740-414e01e7545b"],
+Cell[4625453, 100728, 200, 4, 24, "Print",ExpressionUUID->"02b1fe8c-97b1-4f62-af5e-560a0f061657"],
+Cell[4625656, 100734, 485, 11, 24, "Message",ExpressionUUID->"4d229124-7f85-4bce-9345-8223a1b56caa"],
+Cell[4626144, 100747, 488, 11, 24, "Message",ExpressionUUID->"9b026f9b-c1da-4642-96e1-ffec3e99e1ad"],
+Cell[4626635, 100760, 200, 4, 24, "Print",ExpressionUUID->"ee45a9cb-8f55-46b4-86d8-aa90b6d7b196"],
+Cell[4626838, 100766, 483, 11, 24, "Message",ExpressionUUID->"3f134fed-054a-4e7f-bf83-da4ec88b63a5"],
+Cell[4627324, 100779, 478, 10, 24, "Message",ExpressionUUID->"deb651cd-9750-4f33-8892-dc4873ea19f8"],
+Cell[4627805, 100791, 490, 11, 24, "Message",ExpressionUUID->"5597723e-0b2d-4d43-b93e-f96034ffcb06"],
+Cell[4628298, 100804, 476, 10, 24, "Message",ExpressionUUID->"8ef06157-c74b-48e8-9c7f-327d7302c28c"],
+Cell[CellGroupData[{
+Cell[4628799, 100818, 200, 4, 24, "Print",ExpressionUUID->"6d010356-450e-479a-ba67-eeb3e26ec291"],
+Cell[4629002, 100824, 202, 4, 24, "Print",ExpressionUUID->"3f15cc52-1ff6-45cb-a9fd-644d776c5f89"],
+Cell[4629207, 100830, 200, 4, 24, "Print",ExpressionUUID->"4feea194-42f6-4ca1-9312-62f92ec665a5"],
+Cell[4629410, 100836, 202, 4, 24, "Print",ExpressionUUID->"6258c9d5-91a7-48d5-8231-34e495c40fa5"],
+Cell[4629615, 100842, 200, 4, 24, "Print",ExpressionUUID->"ffc76446-691d-4b15-befd-5803a78522c1"],
+Cell[4629818, 100848, 200, 4, 24, "Print",ExpressionUUID->"0837e534-d7bb-47f7-aed6-303356623331"],
+Cell[4630021, 100854, 202, 4, 24, "Print",ExpressionUUID->"f10d2730-aa78-4b6e-80cd-badb4c9a088b"],
+Cell[4630226, 100860, 200, 4, 24, "Print",ExpressionUUID->"38a8da08-2436-4aa2-9ed3-acd6b62059aa"]
+}, Open  ]],
+Cell[4630441, 100867, 198, 3, 34, "Output",ExpressionUUID->"3bacc01c-d443-45cd-8552-6920b7d54570"]
+}, Closed]],
+Cell[4630654, 100873, 224, 5, 26, "Input",ExpressionUUID->"0a825a05-32b2-4319-8639-70ebb7dae721"],
+Cell[4630881, 100880, 226, 5, 30, "Input",ExpressionUUID->"e4a86cf3-8ee8-4a68-8635-217b0ba4a640"],
+Cell[4631110, 100887, 223, 5, 30, "Input",ExpressionUUID->"4e14b37b-639b-46ea-b50a-b14416358740"],
+Cell[4631336, 100894, 226, 5, 30, "Input",ExpressionUUID->"bf2275c2-8d1c-4d02-b7e4-41137641140c"],
+Cell[4631565, 100901, 224, 5, 30, "Input",ExpressionUUID->"6e0c2be4-ee3a-45fa-b831-83a1095ac1be"],
+Cell[4631792, 100908, 224, 5, 30, "Input",ExpressionUUID->"9186e914-9912-4033-a987-f84144195af6"],
+Cell[4632019, 100915, 224, 5, 30, "Input",ExpressionUUID->"f6a2e77b-0b25-4468-8b4c-79e5f414742d"],
+Cell[4632246, 100922, 222, 5, 30, "Input",ExpressionUUID->"a3b27975-8859-466d-a7c0-b105c7fe73d9"],
+Cell[4632471, 100929, 1318, 40, 94, "Input",ExpressionUUID->"25926e05-bb3c-422b-8e2b-9a57e964ba2b"],
+Cell[CellGroupData[{
+Cell[4633814, 100973, 553, 12, 94, "Input",ExpressionUUID->"a36cae1e-df45-49d4-a412-416ac62654e5"],
+Cell[4634370, 100987, 498, 14, 46, "Output",ExpressionUUID->"a396975e-2717-4a82-90d1-7c091fb198e9"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[4634905, 101006, 258, 6, 30, "Input",ExpressionUUID->"9b7c4721-c242-428f-936b-c73b023c8d5b"],
+Cell[4635166, 101014, 632, 18, 56, "Output",ExpressionUUID->"234fb216-0308-486e-aa4f-ee9ceb3aa02b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[4635835, 101037, 261, 6, 30, "Input",ExpressionUUID->"38f9a86e-2833-456d-aa7a-12baa82bf6d4"],
+Cell[4636099, 101045, 1757, 56, 85, "Output",ExpressionUUID->"1c05b19f-f3b9-494a-b37f-364f77e0b0b1"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[4637893, 101106, 1315, 34, 94, "Input",ExpressionUUID->"b2c199ef-3321-44d3-a08a-1b1de3e1b269"],
+Cell[4639211, 101142, 8708, 229, 381, "Output",ExpressionUUID->"f04f6eb6-3a6c-42bd-b978-23a251c30109"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4647956, 101376, 1021, 29, 69, "Input",ExpressionUUID->"a7e9b28f-cd05-4629-a301-685337db32b1"],
+Cell[4648980, 101407, 8656, 228, 381, "Output",ExpressionUUID->"fb8aa450-fac0-43d2-94fb-164b894fd43e"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4657673, 101640, 558, 13, 48, "Input",ExpressionUUID->"1e5b2a80-6558-4a6a-a208-6ffd66be10ca"],
+Cell[4658234, 101655, 155, 3, 34, "Output",ExpressionUUID->"ba76a9bc-1692-4293-93e4-3b98a9ab7916"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[4658426, 101663, 993, 28, 73, "Input",ExpressionUUID->"0c715131-89c6-40ef-8f9e-32d8bd8c07e3"],
+Cell[4659422, 101693, 6402, 173, 229, "Output",ExpressionUUID->"ee09fd16-2531-4ab1-be6d-4d7237f2c0f6"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4665861, 101871, 1136, 31, 69, "Input",ExpressionUUID->"192cc319-c4e4-49c2-9aae-8c5e3d52b6b5"],
+Cell[4667000, 101904, 8682, 228, 381, "Output",ExpressionUUID->"72f30e8f-2cdf-4cf1-b2ac-4bad814133c2"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[4675719, 102137, 453, 12, 48, "Input",ExpressionUUID->"aa4bbc56-9042-4ac4-9da9-d8a6a099ffb0"],
+Cell[4676175, 102151, 3697, 95, 120, "Output",ExpressionUUID->"5dd7bd0b-df4b-42b4-afa6-169da77820b0"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[4679909, 102251, 493, 12, 52, "Input",ExpressionUUID->"acbb6382-4324-4bfb-aa84-71272d55c7d4"],
+Cell[4680405, 102265, 156, 3, 34, "Output",ExpressionUUID->"f4100da3-c681-47f2-ac13-8b324b099b4e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[4680598, 102273, 414, 10, 52, "Input",ExpressionUUID->"1be0f3b4-e047-4a26-9afa-df89d8bb25eb"],
+Cell[4681015, 102285, 3754, 97, 120, "Output",ExpressionUUID->"481fa417-77b8-4946-b4f9-04ed930e142d"]
+}, Open  ]],
+Cell[4684784, 102385, 304, 6, 157, "Input",ExpressionUUID->"1e1abde8-f7ad-44b1-99b4-1370e978f66d"]
+}
+]
+*)
+